易语言调用JSEncrypt实现RSA加密解密

易语言调用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('” ＋ 待解密文本 ＋ “')”))