有没有大佬能把这个易语言代码转火山
.版本 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字节集 )
.如果 (取文本长度 (临时文本1) ＝ 2)
返回文本 ＝ 返回文本 ＋ 临时文本1
.否则
返回文本 ＝ 返回文本 ＋ “0” ＋ 临时文本1
.如果结束
.计次循环尾 ()
返回文本 ＝ 返回文本 ＋ “0”
返回 (返回文本)
页:
[1]