递归火山软件开发平台

标题: 有没有大佬能把这个易语言代码转火山 [打印本页]

作者: byyiwei 时间: 2024-2-4 11:51
标题: 有没有大佬能把这个易语言代码转火山
.版本 2
.支持库 spec

.子程序取Crypt密码, 文本型, , 加密rdp密码
.参数密码, 文本型
.局部变量 ps字节集, 字节集
.局部变量入, Blob
.局部变量出, Blob
.局部变量返回文本, 文本型
.局部变量临时文本1, 文本型
.局部变量 i, 整数型

ps字节集＝编码_Ansi到Unicode (密码)
入.data ＝取变量数据地址 (ps字节集)
入.size ＝ 512
CryptProtectData (入, { 112, 0, 115, 0, 119, 0, 0, 0 }, 0, 0, 0, 0, 出)
ps字节集＝指针到字节集 (出.data, 出.size)
.计次循环首 (取字节集长度 (ps字节集), i)
临时文本1 ＝十到十六 (ps字节集 [i])
.如果 (取文本长度 (临时文本1) ＝ 2)
返回文本＝返回文本＋临时文本1
.否则
返回文本＝返回文本＋ “0” ＋临时文本1
.如果结束

.计次循环尾 ()
返回文本＝返回文本＋ “0”
返回 (返回文本)

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)