MD5批量加密软件。

hacker乌鸦

易语言编写，某杀软报毒，请谨慎对待。
小菜一枚，不会写高深的，就献丑了！





请各位大大鉴定，如有对易语言高手请留下QQ，俺有问题想请教。。
MD5批量加密.rar (251.12 KB, 下载次数: 389)

2012-1-13 22:38 上传

点击文件名下载附件

有兄弟让开源，其实之前开源了的。。只不过貌似论坛回档，给弄没了，我再发一次吧。


.版本 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.内容 ＝ 通用对话框.文件名
    写到文件 (通用对话框.文件名, {  })

.如果真结束

hacker乌鸦

没有人来指导一下么？

河边草

支持一下

hacker乌鸦

河边草 发表于 2012-1-13 23:13
支持一下

谢谢了。。就你一个人来了。。

a-lon

感谢分享，支持原创，

独自停留

下载试用一下吧，谢谢楼主原创分享。

3765999

谢谢楼主原创分享

sinwyp

如果是批量破解就好了。

hacker乌鸦

sinwyp 发表于 2012-1-30 21:46
如果是批量破解就好了。

悲剧了，批量破解我是上传了的，虽然不完美，可能论坛数据恢复到我第二次编辑之前了吧。

sinwyp

hacker乌鸦 发表于 2012-1-30 23:28
悲剧了，批量破解我是上传了的，虽然不完美，可能论坛数据恢复到我第二次编辑之前了吧。

呵呵,那也是没办法的事.我现在用的是MD5.COM的批量破解软件.