MD5批量加密程序源码

hacker乌鸦

http://www.52pojie.cn/thread-128680-1-1.html

之前发了个小工具，本来开源了的，结果论坛回档之后貌似只有程序，木有源码了。
现在重新发。。。望管理员大大海涵。。。

PS: 怎么设置回复可见啊？



.版本 2
.支持库 dp1

.程序集 窗口程序集1

.子程序 _按钮1_被单击

通用对话框.过滤器 ＝ “文本（*.txt）|*.txt”
通用对话框.初始目录 ＝ “.\”
通用对话框.类型 ＝ 0
.如果真 (通用对话框.打开 ())
    编辑框1.内容 ＝ 通用对话框.文件名
.如果真结束


.子程序 _按钮2_被单击
.局部变量 文件号
.局部变量 准备加密文本行, 文本型
.局部变量 加密后文本, 文本型
.局部变量 写出文件号
.局部变量 时间, 整数型
.局部变量 计时, 小数型

.如果真 (文件是否存在 (编辑框1.内容) ＝ 假)
    信息框 (“选择的文件不存在，程序无法执行！”, #错误图标, “Error”)
    返回 ()
.如果真结束
.如果真 (文件是否存在 (编辑框2.内容) ＝ 假)
    信息框 (“保存的位置不存在，程序无法执行！”, #错误图标, “Error”)
    返回 ()
.如果真结束
按钮2.禁止 ＝ 真
按钮2.标题 ＝ “请稍候...”
时间 ＝ 取启动时间 ()
文件号 ＝ 打开文件 (编辑框1.内容, , )
移到文件首 (文件号)
写出文件号 ＝ 打开文件 (编辑框2.内容, , )
移到文件尾 (写出文件号)
.判断循环首 (取反 (是否在文件尾 (文件号, )))
    准备加密文本行 ＝ 读入一行 (文件号)
    标签2.标题 ＝ “正在处理 ： ” ＋ 准备加密文本行
    加密后文本 ＝ 取数据摘要 (到字节集 (准备加密文本行))
    写文本行 (写出文件号, 准备加密文本行 ＋ “:” ＋ 取文本中间 (加密后文本, 9, 16) ＋ “:” ＋ 加密后文本)
    处理事件 ()
.判断循环尾 ()
关闭文件 (写出文件号)
关闭文件 (文件号)
计时 ＝ (取启动时间 () － 时间) ÷ 1000
标签2.标题 ＝ “已全部处理完成！！”
按钮2.禁止 ＝ 假
按钮2.标题 ＝ “开始处理”
信息框 (“请求的内容已经全部处理完成！” ＋ #换行符 ＋ “共计用时：” ＋ 到文本 (计时) ＋ “秒”, 0, )


.子程序 _按钮3_被单击

通用对话框.过滤器 ＝ “文本（*.txt）|*.txt”
通用对话框.初始目录 ＝ “.\”
通用对话框.默认文件后缀 ＝ “txt”
通用对话框.类型 ＝ 1
.如果真 (通用对话框.打开 ())
    编辑框2.内容 ＝ 通用对话框.文件名
    写到文件 (通用对话框.文件名, {  })

.如果真结束

1565270487

qwqwqqwqwwq

熊熊

感谢分享了，这个不错，学习一下了

awww

谢谢分享

scotland

支持，现在正需要这个

wskige

(通用对话框.文件名, {  })

hakureireimu

大牛来啦，怎么也带支持一下，新手虽然不懂

破解新人

RE: MD5批量加密程序源码 [修改]