PHP和易语言通讯RSA和RC4加密源码

PHP和易语言通讯RSA和RC4加密源码

@lsq51201314

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序
.局部变量 data, 文本型
.局部变量 PuKey, 文本型
.局部变量 PiKey, 文本型
.局部变量 Pu_P, 整数型
.局部变量 enc, 文本型
.局部变量 Pi_P, 整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

' 调试输出 (RSA生成密钥 (1024, “PuKey.pem”, “PiKey.pem”))
data ＝ “Hello World!(您好，世界！)！@#￥%……&*”
PuKey ＝ 到文本 (读入文件 (“PuKey.pem”))
PiKey ＝ 到文本 (读入文件 (“PiKey.pem”))
' 调试输出 (PuKey, PiKey)
' -------------------------------------------------
Pu_P ＝ RSA设置公钥 (PuKey)
enc ＝ RSA公钥加密 (Pu_P, data)
调试输出 (enc)
RSA释放指针 (Pu_P)
' -------------------------------------------------
Pi_P ＝ RSA设置私钥 (PiKey)
调试输出 (编码_Utf8到Ansi (到字节集 (RSA私钥解密 (Pi_P, “UC24YXTE9eP5r6frENIntcHd7a5fJCwQwnLi3shWa65RvhHOgkzpk850Zdro+RLrxary0+q2TMfoTy0Hs0Sx85kDTZAUTqhs6eraMQzAnceCwTA03PuhaDUaWH9H3YdkLqX7Q13SwtMTlD9NL/0KZJGYi6S4QAemJv3hyc24ty4=”))))
RSA释放指针 (Pi_P)