易语言调用JSEncrypt实现RSA加密解密
.版本 2
.程序集 JSEncrypt
.程序集变量 对象, 对象
.子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用
.局部变量 结果, 整数型
CoInitialize (0)
对象.创建 (“MSScriptControl.ScriptControl”, ) ' 创建
对象.写属性 (“Language”, “JavaScript”)
对象.数值方法 (“AddCode”, #rsa_js) ' 载入JSEncrypt
.子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用
对象.清除 ()
CoUninitialize ()
.子程序 置公钥, , 公开
.参数 公钥文本, 文本型
公钥文本 = 子文本替换 (公钥文本, #换行符, , , , 真)
对象.数值方法 (“Eval”, “rsa_setPublicKey('” + 公钥文本 + “')”)
.子程序 置私钥, , 公开
.参数 私钥文本, 文本型
私钥文本 = 子文本替换 (私钥文本, #换行符, , , , 真)
对象.数值方法 (“Eval”, “rsa_setPrivateKey('” + 私钥文本 + “')”)
.子程序 加密, 文本型, 公开
.参数 待加密文本, 文本型
返回 (对象.文本方法 (“Eval”, “rsa_enc('” + 待加密文本 + “')”))
.子程序 解密, 文本型, 公开
.参数 待解密文本, 文本型
.局部变量 结果, 文本型
返回 (对象.文本方法 (“Eval”, “rsa_dec('” + 待解密文本 + “')”))
易语言rsa加密及解密