易语言之源码密码暴力破J机（支持字典）

极限四

  

窗口程序集名	保 留	保 留	备 注
主窗口程序集
变量名	类 型	数组	备 注
输入框返回	文本型
是否已找到	逻辑型

DLL命令名	返回值类型	公开	备 注
GetInputState	整数型		判断存在事件_
DLL库文件名:
user32
在DLL库中对应命令名:
GetInputState
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
CreateThread	整数型		创建线程
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
CreateThread
参数名	类 型	传址	数组	备 注
lpThreadAttributes	整数型
dwStackSize	整数型
子程序指针	子程序指针
参数	整数型
dwCreationFlags	整数型
线程ID	整数型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

置错误提示管理 (&错误提示管理_)
载入 (窗口_主窗口, , 假)
子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
错误提示管理_	逻辑型		本命令用来设置当运行时如果产生了导致程序崩溃的严重错误时用来对该错误进行详细提示的子程序地址，如果未进行此项设置，发生严重错误时运行时环境将自动提示该错误的详细信息并直接退出
参数名	类 型	参考	可空	数组	备 注
错误代码	整数型				用作接收错误代码
错误文本	文本型				用作接收详细错误文本

' 该子程序必须返回一个逻辑值，返回真表示已经自行处理完毕，系统将不再显示该错误信息，返回假表示由系统来继续显示该错误信息。以上设置必须完全正确，否则结果不能预测，另外，还请注意以下几点： 1、该错误提示子程序不要再引发新的错误； 2、在进入该错误提示子程序后，系统将自动关闭事件消息通知处理机制，也就是说任何事件将无法得到响应； 3、无论如何，当该子程序调用退出后，系统将自动将整个应用程序关闭。  如果省略本参数，系统将恢复错误提示的默认处理方
信息框 (“程序出错!” ＋ #换行符 ＋ “错误代码: 00000” ＋ 到文本 (错误代码) ＋ #换行符 ＋ “错误信息: ” ＋ 错误文本, #信息图标, “友情提示”)
结束 ()
返回 (真)

子程序名	返回值类型	公开	备 注
_按钮_打开文件_被单击

如果真 (通用对话框1.打开 ())
编辑框_源文件.内容 ＝ 通用对话框1.文件名

子程序名	返回值类型	公开	备 注
_编辑框_密码位数_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

编辑框_密码位数.内容 ＝ 到文本 (到数值 (编辑框_密码位数.内容) ＋ 按钮值)
判断 (到数值 (编辑框_密码位数.内容) ＞ 6)
编辑框_密码位数.内容 ＝ “6”
判断 (到数值 (编辑框_密码位数.内容) ＜ 1)
编辑框_密码位数.内容 ＝ “1”

子程序名	返回值类型	公开	备 注
子程序2

变量名	类 型	静态	数组	备 注
模板数组	文本型		0
源文件号	整数型
密码字典数组	文本型
i	整数型
文件数据	字节集
t	整数型
s	整数型
j	整数型
r	整数型
a	整数型

模板数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
进度条_进度.位置 ＝ 0
是否已找到 ＝ 假
编辑框_信息.内容 ＝ “”
按钮_StartCarck.禁止 ＝ 真
如果真 (到数值 (编辑框_密码位数.内容) ＝ 1)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 1)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i], )
移动读写位置 (源文件号, #文件首, 40)
文件数据 ＝ 读入字节集 (源文件号, 8)
如果真 (读入字节集 (源文件号, 8) ＝ { 67, 78, 87, 84, 69, 80, 82, 71 })
' 输出调试文本 (查看字节集 (文件数据))
' 输出调试文本 (查看字节集 (到字节集 (“CNWTEPRG”)))
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ #换行符 )
是否已找到 ＝ 真
' 跳出循环 ()
关闭文件 (源文件号)
如果真 (GetInputState () ≠ 0)
处理事件 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
计次循环尾 ()
如果真 (到数值 (编辑框_密码位数.内容) ＝ 2)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 2)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
计次循环首 (取数组成员数 (模板数组), t)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i] ＋ 模板数组 [t], )
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ 模板数组 [t] ＋ #换行符 )
是否已找到 ＝ 真
跳出循环 ()
关闭文件 (源文件号)
计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
如果真 (GetInputState () ≠ 0)
处理事件 ()

计次循环尾 ()
如果真 (到数值 (编辑框_密码位数.内容) ＝ 3)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 3)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
计次循环首 (取数组成员数 (模板数组), t)
计次循环首 (取数组成员数 (模板数组), s)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s], )
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, { 67, 78, 87, 84, 69, 80, 82, 71 }, 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ #换行符 )
是否已找到 ＝ 真
跳出循环 ()
关闭文件 (源文件号)
如果真 (GetInputState () ≠ 0)
处理事件 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
计次循环尾 ()
如果真 (到数值 (编辑框_密码位数.内容) ＝ 4)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 4)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
计次循环首 (取数组成员数 (模板数组), t)
计次循环首 (取数组成员数 (模板数组), j)
计次循环首 (取数组成员数 (模板数组), s)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j], )
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j] ＋ #换行符 )
是否已找到 ＝ 真
跳出循环 ()
关闭文件 (源文件号)
处理事件 ()
计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
计次循环尾 ()
如果真 (到数值 (编辑框_密码位数.内容) ＝ 5)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 5)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
计次循环首 (取数组成员数 (模板数组), t)
计次循环首 (取数组成员数 (模板数组), j)
计次循环首 (取数组成员数 (模板数组), r)
计次循环首 (取数组成员数 (模板数组), s)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j] ＋ 模板数组 [r], )
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ #换行符 )
是否已找到 ＝ 真
跳出循环 ()
关闭文件 (源文件号)
处理事件 ()
计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
计次循环尾 ()
如果真 (到数值 (编辑框_密码位数.内容) ＝ 6)
编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 6)) ＋ #换行符 )
计次循环首 (取数组成员数 (模板数组), i)
计次循环首 (取数组成员数 (模板数组), t)
计次循环首 (取数组成员数 (模板数组), j)
计次循环首 (取数组成员数 (模板数组), r)
计次循环首 (取数组成员数 (模板数组), a)
计次循环首 (取数组成员数 (模板数组), s)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ 模板数组 [a], )
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 [i] ＋ 模板数组 [t] ＋ 模板数组 [s] ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ 模板数组 [a] ＋ #换行符 )
是否已找到 ＝ 真
跳出循环 ()
关闭文件 (源文件号)
处理事件 ()
计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()

计次循环尾 ()
如果真 (是否已找到)
跳出循环 ()
进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000
计次循环尾 ()
进度条_进度.位置 ＝ 1000
按钮_StartCarck.禁止 ＝ 假
关闭文件 (源文件号)
信息框 (“全部完成!”, #信息图标 ＋ #文本右对齐 ＼ 2, “友情提示”)

子程序名	返回值类型	公开	备 注
_按钮_StartCarck_被单击

如果 (单选框1.选中)
创建线程 (&子程序2)
创建线程 (&子程序3)

子程序名	返回值类型	公开	备 注
创建线程	整数型
参数名	类 型	参考	可空	数组	备 注
子程序指针	子程序指针
线程ID	整数型

线程ID ＝ CreateThread (0, 0, 子程序指针, 0, 0, 线程ID)
返回 (线程ID)

子程序名	返回值类型	公开	备 注
子程序3

变量名	类 型	静态	数组	备 注
源文件号	整数型
文件名	文本型
文件号	整数型
文本	文本型
文件数据	字节集

文件名 ＝ 编辑框_字典.内容
文件号 ＝ 打开文件 (文件名, , )
移到文件首 (文件号)
判断循环首 (取反 (是否在文件尾 (文件号, )))
进度条1.位置 ＝ 进度条1.位置 ＋ 1
如果真 (进度条1.位置 ＞ 80)
进度条1.位置 ＝ 1

文本 ＝ 读入一行 (文件号)
源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 文本, )
输出调试文本 (文本)
文件数据 ＝ 读入字节集 (源文件号, 50)
如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)
编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 文本 ＋ #换行符 )
是否已找到 ＝ 真
进度条1.位置 ＝ 100
跳出循环 ()

如果真 (是否已找到)
进度条1.位置 ＝ 100
跳出循环 ()

处理事件 ()
判断循环尾 ()
关闭文件 (源文件号)
信息框 (“全部完成!”, #信息图标 ＋ #文本右对齐 ＼ 2, “友情提示”)

子程序名	返回值类型	公开	备 注
_按钮_StopCarck_被单击

是否已找到 ＝ 真

子程序名	返回值类型	公开	备 注
_单选框1_被单击

子程序1 ()

子程序名	返回值类型	公开	备 注
_单选框2_被单击

子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1

如果 (单选框1.选中)
编辑框_字典.可视 ＝ 假
按钮_字典文件.可视 ＝ 假
标签2.标题 ＝ “信息:”
[i][i][i][i][i][s][i][s][i][s][i][s][i][s][i][s][i][s][i][s]    编辑框_字典.可视 ＝ 真
[/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/i][/i][/i][/i]    按钮_字典文件.可视 ＝ 真
标签2.标题 ＝ “字典:”
[/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/s][/i][/i][/i][/i][/i][i][i][i][i][i][s][i][s][i][s][i][s][i][s][i][s][i][s][i][s].

.版本 2<br /> <br /> .程序集 主窗口程序集<br /> .程序集变量 输入框返回, 文本型<br /> .程序集变量 是否已找到, 逻辑型<br /> .版本 2<br /> <br /> .DLL命令 GetInputState, 整数型, "user32", "GetInputState", , 判断存在事件_<br /> <br /> .DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread", , 创建线程<br />     .参数 lpThreadAttributes, 整数型<br />     .参数 dwStackSize, 整数型<br />     .参数 子程序指针, 子程序指针<br />     .参数 参数, 整数型<br />     .参数 dwCreationFlags, 整数型<br />     .参数 线程ID, 整数型, 传址<br /> <br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 置错误提示管理 (&错误提示管理_)<br /> 载入 (窗口_主窗口, , 假)<br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 错误提示管理_, 逻辑型, , 本命令用来设置当运行时如果产生了导致程序崩溃的严重错误时用来对该错误进行详细提示的子程序地址，如果未进行此项设置，发生严重错误时运行时环境将自动提示该错误的详细信息并直接退出<br /> .参数 错误代码, 整数型, , 用作接收错误代码<br /> .参数 错误文本, 文本型, , 用作接收详细错误文本<br /> <br /> ' 该子程序必须返回一个逻辑值，返回真表示已经自行处理完毕，系统将不再显示该错误信息，返回假表示由系统来继续显示该错误信息。以上设置必须完全正确，否则结果不能预测，另外，还请注意以下几点： 1、该错误提示子程序不要再引发新的错误； 2、在进入该错误提示子程序后，系统将自动关闭事件消息通知处理机制，也就是说任何事件将无法得到响应； 3、无论如何，当该子程序调用退出后，系统将自动将整个应用程序关闭。  如果省略本参数，系统将恢复错误提示的默认处理方<br /> 信息框 (“程序出错!” ＋ #换行符 ＋ “错误代码: 00000” ＋ 到文本 (错误代码) ＋ #换行符 ＋ “错误信息: ” ＋ 错误文本, #信息图标, “友情提示”)<br /> 结束 ()<br /> 返回 (真)<br /> <br /> <br /> .子程序 _按钮_打开文件_被单击<br /> <br /> .如果真 (通用对话框1.打开 ())<br />     编辑框_源文件.内容 ＝ 通用对话框1.文件名<br /> .如果真结束<br /> <br /> <br /> .子程序 _编辑框_密码位数_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> 编辑框_密码位数.内容 ＝ 到文本 (到数值 (编辑框_密码位数.内容) ＋ 按钮值)<br /> .判断开始 (到数值 (编辑框_密码位数.内容) ＞ 6)<br />     编辑框_密码位数.内容 ＝ “6”<br /> .判断 (到数值 (编辑框_密码位数.内容) ＜ 1)<br />     编辑框_密码位数.内容 ＝ “1”<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 子程序2<br /> .局部变量 模板数组, 文本型, , "0"<br /> .局部变量 源文件号, 整数型<br /> .局部变量 密码字典数组, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文件数据, 字节集<br /> .局部变量 t, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 r, 整数型<br /> .局部变量 a, 整数型<br /> <br /> 模板数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }<br /> 进度条_进度.位置 ＝ 0<br /> 是否已找到 ＝ 假<br /> 编辑框_信息.内容 ＝ “”<br /> 按钮_StartCarck.禁止 ＝ 真<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 1)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 1)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i>, )<br />         移动读写位置 (源文件号, #文件首, 40)<br />         文件数据 ＝ 读入字节集 (源文件号, 8)<br />         .如果真 (读入字节集 (源文件号, 8) ＝ { 67, 78, 87, 84, 69, 80, 82, 71 })<br />             ' 输出调试文本 (查看字节集 (文件数据))<br />             ' 输出调试文本 (查看字节集 (到字节集 (“CNWTEPRG”)))<br /> <br />         .如果真结束<br />         编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ #换行符)<br />         是否已找到 ＝ 真<br />         ' 跳出循环 ()<br />         关闭文件 (源文件号)<br />         .如果真 (GetInputState () ≠ 0)<br />             处理事件 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 2)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 2)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         .计次循环首 (取数组成员数 (模板数组), t)<br />             源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i> ＋ 模板数组 [t], )<br />             文件数据 ＝ 读入字节集 (源文件号, 50)<br />             .如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)<br />                 编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ 模板数组 [t] ＋ #换行符)<br />                 是否已找到 ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br />             关闭文件 (源文件号)<br /> <br />         .计次循环尾 ()<br />         .如果真 (是否已找到)<br />             跳出循环 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br />         .如果真 (GetInputState () ≠ 0)<br />             处理事件 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 3)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 3)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         .计次循环首 (取数组成员数 (模板数组), t)<br />             .计次循环首 (取数组成员数 (模板数组), s)<br />                 源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike>, )<br />                 文件数据 ＝ 读入字节集 (源文件号, 50)<br />                 .如果真 (寻找字节集 (文件数据, { 67, 78, 87, 84, 69, 80, 82, 71 }, 0) ≠ -1)<br />                     编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ #换行符)<br />                     是否已找到 ＝ 真<br />                     跳出循环 ()<br />                 .如果真结束<br />                 关闭文件 (源文件号)<br />                 .如果真 (GetInputState () ≠ 0)<br />                     处理事件 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (是否已找到)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (是否已找到)<br />             跳出循环 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 4)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 4)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         .计次循环首 (取数组成员数 (模板数组), t)<br />             .计次循环首 (取数组成员数 (模板数组), j)<br />                 .计次循环首 (取数组成员数 (模板数组), s)<br />                     源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j], )<br />                     文件数据 ＝ 读入字节集 (源文件号, 50)<br />                     .如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)<br />                         编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j] ＋ #换行符)<br />                         是否已找到 ＝ 真<br />                         跳出循环 ()<br />                     .如果真结束<br />                     关闭文件 (源文件号)<br />                     处理事件 ()<br />                 .计次循环尾 ()<br />                 .如果真 (是否已找到)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (是否已找到)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (是否已找到)<br />             跳出循环 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 5)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 5)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         .计次循环首 (取数组成员数 (模板数组), t)<br />             .计次循环首 (取数组成员数 (模板数组), j)<br />                 .计次循环首 (取数组成员数 (模板数组), r)<br />                     .计次循环首 (取数组成员数 (模板数组), s)<br />                         源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j] ＋ 模板数组 [r], )<br />                         文件数据 ＝ 读入字节集 (源文件号, 50)<br />                         .如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)<br />                             编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ #换行符)<br />                             是否已找到 ＝ 真<br />                             跳出循环 ()<br />                         .如果真结束<br />                         关闭文件 (源文件号)<br />                         处理事件 ()<br />                     .计次循环尾 ()<br />                     .如果真 (是否已找到)<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .计次循环尾 ()<br />                 .如果真 (是否已找到)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (是否已找到)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (是否已找到)<br />             跳出循环 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (到数值 (编辑框_密码位数.内容) ＝ 6)<br />     编辑框_信息.加入文本 (“总密码数 :” ＋ 到文本 (求次方 (取数组成员数 (模板数组), 6)) ＋ #换行符)<br />     .计次循环首 (取数组成员数 (模板数组), i)<br />         .计次循环首 (取数组成员数 (模板数组), t)<br />             .计次循环首 (取数组成员数 (模板数组), j)<br />                 .计次循环首 (取数组成员数 (模板数组), r)<br />                     .计次循环首 (取数组成员数 (模板数组), a)<br />                         .计次循环首 (取数组成员数 (模板数组), s)<br />                             源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ 模板数组 [a], )<br />                             文件数据 ＝ 读入字节集 (源文件号, 50)<br />                             .如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)<br />                                 编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 模板数组 <i> ＋ 模板数组 [t] ＋ 模板数组 <strike> ＋ 模板数组 [j] ＋ 模板数组 [r] ＋ 模板数组 [a] ＋ #换行符)<br />                                 是否已找到 ＝ 真<br />                                 跳出循环 ()<br />                             .如果真结束<br />                             关闭文件 (源文件号)<br />                             处理事件 ()<br />                         .计次循环尾 ()<br />                         .如果真 (是否已找到)<br />                             跳出循环 ()<br />                         .如果真结束<br /> <br />                     .计次循环尾 ()<br />                     .如果真 (是否已找到)<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .计次循环尾 ()<br />                 .如果真 (是否已找到)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (是否已找到)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (是否已找到)<br />             跳出循环 ()<br />         .如果真结束<br />         进度条_进度.位置 ＝ i ÷ 取数组成员数 (模板数组) × 1000<br />     .计次循环尾 ()<br /> .如果真结束<br /> 进度条_进度.位置 ＝ 1000<br /> 按钮_StartCarck.禁止 ＝ 假<br /> 关闭文件 (源文件号)<br /> 信息框 (“全部完成!”, #信息图标 ＋ #文本右对齐 ＼ 2, “友情提示”)<br /> <br /> <br /> .子程序 _按钮_StartCarck_被单击<br /> <br /> <br /> .如果 (单选框1.选中)<br />     创建线程 (&子程序2)<br /> .否则<br />     创建线程 (&子程序3)<br /> .如果结束<br /> <br /> <br /> .子程序 创建线程, 整数型, 公开<br /> .参数 子程序指针, 子程序指针<br /> .参数 线程ID, 整数型, 参考 可空<br /> <br /> 线程ID ＝ CreateThread (0, 0, 子程序指针, 0, 0, 线程ID)<br /> 返回 (线程ID)<br /> <br /> .子程序 子程序3<br /> .局部变量 源文件号, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 文件数据, 字节集<br /> <br /> 文件名 ＝ 编辑框_字典.内容<br /> 文件号 ＝ 打开文件 (文件名, , )<br /> 移到文件首 (文件号)<br /> .判断循环首 (取反 (是否在文件尾 (文件号, )))<br />     进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />     .如果真 (进度条1.位置 ＞ 80)<br />         进度条1.位置 ＝ 1<br />     .如果真结束<br /> <br />     文本 ＝ 读入一行 (文件号)<br />     源文件号 ＝ 打开加密文件 (编辑框_源文件.内容, #改读, , 文本, )<br />     输出调试文本 (文本)<br />     文件数据 ＝ 读入字节集 (源文件号, 50)<br />     .如果真 (寻找字节集 (文件数据, 到字节集 (“CNWTEPRG”), 0) ≠ -1)<br />         编辑框_信息.加入文本 (“此加密文件密码为: ” ＋ 文本 ＋ #换行符)<br />         是否已找到 ＝ 真<br />         进度条1.位置 ＝ 100<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (是否已找到)<br />         进度条1.位置 ＝ 100<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     处理事件 ()<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (源文件号)<br /> 信息框 (“全部完成!”, #信息图标 ＋ #文本右对齐 ＼ 2, “友情提示”)<br /> <br /> <br /> .子程序 _按钮_StopCarck_被单击<br /> <br /> 是否已找到 ＝ 真<br /> <br /> <br /> .子程序 _单选框1_被单击<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _单选框2_被单击<br /> <br /> 子程序1 ()<br /> <br /> .子程序 子程序1<br /> <br /> .如果 (单选框1.选中)<br />     编辑框_字典.可视 ＝ 假<br />     按钮_字典文件.可视 ＝ 假<br />     标签2.标题 ＝ “信息:”<br /> <i><i><i><i><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike>    编辑框_字典.可视 ＝ 真<br /> </strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></i></i></i></i>    按钮_字典文件.可视 ＝ 真<br />     标签2.标题 ＝ “字典:”<br /> <br /> </strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></strike></i></i></i></i></i><i><i><i><i><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike><i><strike>.

补充内容 (2016-9-29 01:58):
声明    源码是   某爱  论坛的   自己加上  字典方式      原作者并非本人        原作者 某爱ID (coocoocoo3)   不知这样发帖是否违规   

xb5033

一定要支持一下作者！！！！！！！！

xb5033

“CNWTEPRG”

905520759

66666666666666666666666

905520759

666666666666666666666666

905520759

66666666666666666666666

905520759

66666666666666666

1dfd

厉害，学习一下

1485738277

111111111111

lls605

学习下·······

a13612745638

感谢楼主分享