请帮忙 py 转成 易语言

myl620

请帮忙 py 转成 易语言
谢谢

lao3

差不多这样吧~

test.e (147.29 KB, 下载次数: 5)

2025-4-1 22:06 上传

点击文件名下载附件

hxnr

AES加解密 ？

myl620

hxnr 发表于 2025-3-31 18:16
AES加解密 ？

应该是 我就是学习一下  

haoren1212

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
解密结果	文本型
url	文本型
密文	文本型

' 设置参数
url ＝ “/api/rank/author/fans/increment”
密文 ＝ “axSI6VBcyw...”  ' 这里替换为实际的密文
' 调用解密函数
解密结果 ＝ 解密AES (url, 密文)
' 显示结果
调试输出 (解密结果)

子程序名	返回值类型	公开	备 注
解密AES	文本型		url, 文本型, 密文
参数名	类 型	参考	可空	数组	备 注
url	文本型
密文	文本型

变量名	类 型	静态	数组	备 注
密钥	文本型
IV	文本型
解密数据	字节集
结果	文本型

' 生成密钥和IV
密钥 ＝ 生成密钥IV (url)
IV ＝ 取文本中间 (密钥, 13, 16)  ' 第12-28位作为IV
密钥 ＝ 取文本左边 (密钥, 16)  ' 前16位作为密钥
' 解密
如果 (密文 ≠ “”)
解密数据 ＝ 编码_BASE64解码 (密文, )
结果 ＝ 到文本 (AES_DES_算法 ( #对称算法_DES_CBC, 到字节集 (解密数据), 到字节集 (密钥), 真))



返回 (结果)

子程序名	返回值类型	公开	备 注
生成密钥IV	文本型		url
参数名	类 型	参考	可空	数组	备 注
url	文本型

变量名	类 型	静态	数组	备 注
编码结果	文本型
重复结果	文本型

' URL编码
编码结果 ＝ 编码_URL编码 (url, , )
' Base64编码
编码结果 ＝ 编码_BASE64编码 (到字节集 (编码结果))
' 重复三次
重复结果 ＝ 编码结果 ＋ 编码结果 ＋ 编码结果
返回 (重复结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 解密结果, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 密文, 文本型<br /> <br /> ' 设置参数<br /> url ＝ “/api/rank/author/fans/increment”<br /> 密文 ＝ “axSI6VBcyw...”  ' 这里替换为实际的密文<br /> ' 调用解密函数<br /> 解密结果 ＝ 解密AES (url, 密文)<br /> ' 显示结果<br /> 调试输出 (解密结果)<br /> <br /> .子程序 解密AES, 文本型, , url, 文本型, 密文<br /> .参数 url, 文本型<br /> .参数 密文, 文本型<br /> .局部变量 密钥, 文本型<br /> .局部变量 IV, 文本型<br /> .局部变量 解密数据, 字节集<br /> .局部变量 结果, 文本型<br /> <br /> ' 生成密钥和IV<br /> 密钥 ＝ 生成密钥IV (url)<br /> IV ＝ 取文本中间 (密钥, 13, 16)  ' 第12-28位作为IV<br /> 密钥 ＝ 取文本左边 (密钥, 16)  ' 前16位作为密钥<br /> ' 解密<br /> .如果 (密文 ≠ “”)<br />     解密数据 ＝ 编码_BASE64解码 (密文, )<br />     结果 ＝ 到文本 (AES_DES_算法 (#对称算法_DES_CBC, 到字节集 (解密数据), 到字节集 (密钥), 真))<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (结果)<br /> <br /> .子程序 生成密钥IV, 文本型, , url<br /> .参数 url, 文本型<br /> .局部变量 编码结果, 文本型<br /> .局部变量 重复结果, 文本型<br /> <br /> ' URL编码<br /> 编码结果 ＝ 编码_URL编码 (url, , )<br /> ' Base64编码<br /> 编码结果 ＝ 编码_BASE64编码 (到字节集 (编码结果))<br /> ' 重复三次<br /> 重复结果 ＝ 编码结果 ＋ 编码结果 ＋ 编码结果<br /> 返回 (重复结果)

myl620

haoren1212 发表于 2025-3-31 18:43
[e=1].版本 2
.支持库 spec

大哥  解出来是乱码啊

myl620

没人帮帮我吗？

haoren1212

myl620 发表于 2025-3-31 19:36
没人帮帮我吗？

py和易语言的下断点调试，看那一步不一样改一下就行了。还有aes算法那真改成假

冰墩墩

大佬都去哪里了，