本帖最后由 562039924 于 2019-4-7 13:56 编辑
.版本 2
.支持库 dp1
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 启动变量, 整数型
.程序集变量 变量1, 整数型
.程序集变量 变量2, 整数型
.程序集变量 变量3, 整数型
.子程序 _编辑框1_内容被改变
.计次循环首 (启动变量, )
.如果 (取文本长度 (编辑框1.内容) = 9)
变量1 = 1
变量2 = 1
.否则
变量1 = 0
变量2 = 0
.如果结束
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
启动变量 = 1
.子程序 _按钮1_被单击
.局部变量 doushididi, 字节集
.局部变量 ls, 字节集
.局部变量 位置数组, 整数型, , "2"
.局部变量 逻辑, 逻辑型
.局部变量 对比密文, 字节集
.计次循环首 (启动变量, )
.如果 (变量2 = 0)
变量3 = 0
.否则
变量3 = 1
.如果结束
.计次循环尾 ()
.计次循环首 (变量3, )
.如果真 (取文本长度 (编辑框1.内容) ≠ 9)
变量3 = 0
变量2 = 0
.如果真结束
.计次循环尾 ()
.计次循环首 (128, )
' 357C41D548
ls = 取重复字节集 (32, { 53, 124, 65, 213, 72 })
doushididi = 加密数据 (ls, 编辑框1.内容, #RC4算法)
.计次循环尾 ()
位置数组 [1] = 寻找字节集 (doushididi, { 12 }, )
位置数组 [2] = 寻找字节集 (doushididi, { 2 }, )
调试输出 (位置数组, 位置数组 [2])
.计次循环首 (变量3, )
.计次循环首 (到整数 (变量2), )
.如果真 (位置数组 [1] ≠ 159)
变量3 = 0
变量2 = 0
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (变量3, )
.计次循环首 (到整数 (变量2), )
.如果 (位置数组 [1] ≠ 159)
.如果 (位置数组 [2] ≠ 105)
逻辑 = 真
.否则
逻辑 = 假
.如果结束
.否则
逻辑 = 假
.如果结束
.如果真 (逻辑 ≠ 假)
结束 ()
.如果真结束
'
' ’
对比密文 = { 137, 94, 183, 156, 89, 196, 86, 175, 131, 50, 8, 254, 206, 61, 147, 251, 120, 239, 66, 253, 145, 72, 70, 97, 118, 174, 158, 216, 143, 35, 210, 33, 17, 64, 153, 33, 11, 227, 67, 88, 99, 74, 185, 168, 152, 87, 120, 119, 185, 91, 160, 203, 72, 244, 186, 107, 16, 113, 225, 99, 142, 110, 150, 135, 92, 159, 7, 254, 192, 172, 152, 192, 74, 98, 215, 20, 236, 208, 104, 151, 0, 71, 65, 102, 149, 173, 179, 91, 126, 212, 203, 89, 193, 66, 171, 34, 133, 16, 92, 243, 172, 218, 122, 23, 2, 245, 149, 6, 13, 217, 9, 37, 229, 125, 35, 86, 186, 158, 101, 119, 190, 152, 223, 249, 221, 225, 137, 246, 7, 33, 113, 228, 124, 59, 4, 17, 135, 87, 92, 101, 231, 252, 178, 200, 39, 140, 67, 56, 108, 164, 219, 27, 74, 197, 13, 169, 248, 5, 12, 145 }
.如果真 (doushididi = 对比密文)
标题 = “恭喜你,破解成功。”
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
|