有没有大佬能把这个易语言代码转火山

byyiwei

.版本 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”
返回 (返回文本)