Pancoes 发表于 2021-8-7 23:44 自己研究吧 只提供加解密方法 |
.版本 2 .子程序 回调接口_加密, 文本型, 公开, encrypt .参数 text, 文本型 .参数 key, 文本型 .参数 Test_text, 文本型, 可空, 测试固定文本 .局部变量 random, 字节集 .局部变量 bin, 字节集 .局部变量 msg_len, 字节集 .局部变量 encode_encrypt, 字节集 .局部变量 aes_msg, 字节集 .局部变量 encode_aes_key, 文本型 .局部变量 vi, 文本型 random = 到字节集 (文本_取随机字符 (4, 1) + 文本_取随机字符 (8, 2) + 文本_取随机字符 (4, 4)) encode_aes_key = 编码_URL解码 (字节集_到文本 (编码_BASE64解码 (#aesKey, )), ) vi = 取文本左边 (encode_aes_key, 16) ' [random(16B) + msg_len(4B) + msg + $key] msg_len = { 0, 0, 0, 7 } .如果 (Test_text = “”) encode_encrypt = random + msg_len + 到字节集 (text) + 到字节集 (#corpid) .否则 encode_encrypt = 到字节集 (Test_text) .如果结束 ' 调试输出 (“encrypt”, 字节集_到文本 (encode_encrypt)) aes_msg = 对称加密 (到字节集 (encode_encrypt), 到字节集 (encode_aes_key), #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 到字节集 (vi)) ' 调试输出 (到文本 (编码_BASE64编码A (aes_msg))) 返回 (到文本 (编码_BASE64编码A (aes_msg))) .版本 2 .支持库 e2ee .子程序 回调接口_解密, 文本型, 公开, decrypt .参数 content, 文本型 .局部变量 c_content, 字节集 .局部变量 encode_aes_key, 文本型 .局部变量 vi, 文本型 .局部变量 bin, 字节集 .局部变量 str, 文本型 c_content = 编码_BASE64解码 (content, ) encode_aes_key = 编码_URL解码 (字节集_到文本 (编码_BASE64解码 (#aesKey, )), ) ' 调试输出 (编码_BASE64解码 (#aesKeyTest, )) ' 调试输出 (取文本长度 (“4g5j64qlyl3zvetqxz5jiocdr586fn2zvjpa8zls3ij”)) vi = 取文本左边 (encode_aes_key, 16) ' 调试输出 (“AES_key”, encode_aes_key) ' 调试输出 (“AES_vi”, vi) ' str = 编码_BASE64编码 (对称加密 (到字节集 (“111222333”), 到字节集 (“DSFBAKLANOIQWPDANSDKHWOQNLKSA21T”), #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 到字节集 (“DSFBAKLANOIQWPDA”))) bin = 对称解密 (c_content, 到字节集 (encode_aes_key), #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 到字节集 (vi)) ' 9hFDLYXj37x0iNXv{"EventType":"check_url"}ding7d7da86a4720960d35c2f4657eb6378f bin = 字节集_取右边 (bin, 字节集_取长度 (bin) - 20) bin = 字节集_取左边 (bin, 字节集_取长度 (bin) - 字节集_取长度 (到字节集 (#corpid))) ' 调试输出 (bin) ' 调试输出 (“解密内容”, 字节集_到文本 (bin)) ' URL解码 (, #文本) 返回 (URL解码 (字节集_到文本 (bin), #文本编码格式_UTF8)) |
有预算吗 |
![]() ![]() ![]() ![]() |
同求! |
.版本 2 .支持库 e2ee .子程序 回调接口_解密, 文本型, 公开, decrypt .参数 content, 文本型 .局部变量 c_content, 字节集 .局部变量 encode_aes_key, 文本型 .局部变量 vi, 文本型 .局部变量 bin, 字节集 .局部变量 str, 文本型 c_content = 编码_BASE64解码 (content, ) encode_aes_key = 编码_URL解码 (字节集_到文本 (编码_BASE64解码 (#aesKey, )), ) ' 调试输出 (编码_BASE64解码 (#aesKeyTest, )) ' 调试输出 (取文本长度 (“4g5j64qlyl3zvetqxz5jiocdr586fn2zvjpa8zls3ij”)) vi = 取文本左边 (encode_aes_key, 16) ' 调试输出 (“AES_key”, encode_aes_key) ' 调试输出 (“AES_vi”, vi) ' str = 编码_BASE64编码 (对称加密 (到字节集 (“111222333”), 到字节集 (“DSFBAKLANOIQWPDANSDKHWOQNLKSA21T”), #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 到字节集 (“DSFBAKLANOIQWPDA”))) bin = 对称解密 (c_content, 到字节集 (encode_aes_key), #对称算法_AES_256_CBC, #数据填充_PKCS7_PADDING, 到字节集 (vi)) ' 9hFDLYXj37x0iNXv{"EventType":"check_url"}ding7d7da86a4720960d35c2f4657eb6378f bin = 字节集_取右边 (bin, 字节集_取长度 (bin) - 20) bin = 字节集_取左边 (bin, 字节集_取长度 (bin) - 字节集_取长度 (到字节集 (#corpid))) ' 调试输出 (bin) ' 调试输出 (“解密内容”, 字节集_到文本 (bin)) ' URL解码 (, #文本) 返回 (URL解码 (字节集_到文本 (bin), #文本编码格式_UTF8)) |
sitemap|
易语言源码|
易语言教程|
易语言论坛|
易语言模块|
手机版|
广告投放|
精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司
( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173