AsProtect 开源云盾加壳工具

文件版号 ＝ 打开文件 (取文本中间 (编辑框_路径.内容, 1, 取文本长度 (编辑框_路径.内容) － 4) ＋ “.Unlockn.exe”, , 4)
.如果真 (文件版号 ≠ 0)
移到文件首 (文件版号)
执行文件 ＝ 读入字节集 (文件版号, 2)
.如果真 (执行文件 ＝ { 77, 90 })
移动读写位置 (文件版号, 1, 2)
写出字节集 (文件版号, { 82, 255, 37, 26, 0, 64, 0 })
文件地址 ＝ 寻找字节集 (读入字节集 (文件版号, 512), { 80, 69 }, )
.如果真 (文件地址 ≠ -1)
延时 (1)
移动读写位置 (文件版号, 1, 文件地址 ＋ 48)
文件类型 ＝ 取字节集数据 (读入字节集 (文件版号, 4), 3, )
.如果真 (文件类型 ≠ 0)
延时 (1)
移动读写位置 (文件版号, 1, 文件地址 ＋ 60)
协助数据 ＝ 取字节集数据 (读入字节集 (文件版号, 4), 3, )
.如果真 (协助数据 ≠ 0)
延时 (1)
移动读写位置 (文件版号, 1, 文件地址 ＋ 48)
写出字节集 (文件版号, { 0, 0, 0, 0 })
延时 (1)
移动读写位置 (文件版号, 1, 26)
写出字节集 (文件版号, 到字节集 (到整数 (协助数据 ＋ 文件类型)))
.如果真结束