八达网

标题: TM_MaRine_Z 进哥给你写的md5效验软件绿色的1b就一个文件 +源码 [打印本页]

作者: 朴善英 时间: 2008-5-10 22:34
标题: TM_MaRine_Z 进哥给你写的md5效验软件绿色的1b就一个文件 +源码

用E写简单的1b恩

.版本 2
.支持库 shell
.支持库 dp1

.程序集窗口程序集1
.程序集变量文件号, 整数型
.程序集变量文件长度, 整数型
.程序集变量文件数据, 字节集

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

通用对话框1.初始目录＝取特定目录 (#系统桌面)
.如果真 (通用对话框1.打开 ())
文件号＝打开文件 (通用对话框1.文件名, 1, 4)
文件长度＝取文件长度 (文件号)
.如果真结束
时钟1.时钟周期＝ 1

.子程序 _时钟1_周期事件

.判断开始 (是否在文件尾 (文件号, ) ＝假)
.判断开始 (取文件长度 (文件号) －取读写位置 (文件号) ＜ 5242880)
文件数据＝文件数据＋读入字节集 (文件号, 取文件长度 (文件号) －取读写位置 (文件号))
.判断 (取文件长度 (文件号) －取读写位置 (文件号) ≥ 5242880)
文件数据＝文件数据＋读入字节集 (文件号, 5242880)
.默认

.判断结束

.默认
关闭文件 (文件号)
时钟1.时钟周期＝ 0
效验码 ()
.判断结束

.子程序效验码

编辑框1.内容＝取数据摘要 (文件数据)
文件长度＝ 0
文件数据＝ { }

.子程序模拟进度条
.参数画板, 画板
.参数最大位置, 整数型
.参数当前位置, 整数型
.参数文本到画板, 文本型
.局部变量横变量, 双精度小数型

画板.清除 (, , , )
画板.自动重画＝真
横变量＝到数值 (当前位置 ÷ 最大位置) × 画板.宽度
画板.刷子颜色＝ #白色
画板.画矩形 (0, 0, 画板.宽度, 画板.高度)
画板.刷子颜色＝ #绿色
画板.填充矩形 (画板.画笔粗细＋ 1, 画板.画笔粗细＋ 1, 横变量－ 1, 画板.高度－ 1)
画板.定位写出 (到数值 (画板.宽度－画板.字体.字体大小) ÷ 2 －取文本长度 (文本到画板), (画板.高度－画板.取高度 (文本到画板)) ÷ 2, 到文本 (文本到画板))

.子程序 __启动窗口_创建完毕

[ 本帖最后由朴善英于 2008-5-10 23:04 编辑 ]

sshot-1.jpg (23.63 KB, 下载次数: 2)

MD5效验.rar

595.24 KB, 下载次数: 82

作者: TM_MaRine_Z 时间: 2008-5-10 22:35
又不知道哪盗版的软件自己去壳然后添了个LOGO。

作者: hysteria 时间: 2008-5-10 22:35
嫖上瘾

作者: srggggg 时间: 2008-5-10 22:35
提示: 作者被禁止或删除内容自动屏蔽

作者: aaafffei 时间: 2008-5-10 22:37
。。。

作者: 朴善英 时间: 2008-5-10 22:38

原帖由 TM_MaRine_Z 于 2008-5-10 22:35 发表
又不知道哪盗版的软件自己去壳然后添了个LOGO。

......操 MLGBD 还各应老子给你个源码看看你要是有E 直接CTRL+V 进你的E 编译就有了

.版本 2
.支持库 shell
.支持库 dp1

.程序集窗口程序集1
.程序集变量文件号, 整数型
.程序集变量文件长度, 整数型
.程序集变量文件数据, 字节集

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

通用对话框1.初始目录＝取特定目录 (#系统桌面)
.如果真 (通用对话框1.打开 ())
文件号＝打开文件 (通用对话框1.文件名, 1, 4)
文件长度＝取文件长度 (文件号)
.如果真结束
时钟1.时钟周期＝ 1

.子程序 _时钟1_周期事件

.判断开始 (是否在文件尾 (文件号, ) ＝假)
.判断开始 (取文件长度 (文件号) －取读写位置 (文件号) ＜ 5242880)
      文件数据＝文件数据＋读入字节集 (文件号, 取文件长度 (文件号) －取读写位置 (文件号))
.判断 (取文件长度 (文件号) －取读写位置 (文件号) ≥ 5242880)
      文件数据＝文件数据＋读入字节集 (文件号, 5242880)
.默认

.判断结束

.默认
关闭文件 (文件号)
时钟1.时钟周期＝ 0
效验码 ()
.判断结束

.子程序效验码

编辑框1.内容＝取数据摘要 (文件数据)
文件长度＝ 0
文件数据＝ {  }

.子程序模拟进度条
.参数画板, 画板
.参数最大位置, 整数型
.参数当前位置, 整数型
.参数文本到画板, 文本型
.局部变量横变量, 双精度小数型

画板.清除 (, , , )
画板.自动重画＝真
横变量＝到数值 (当前位置 ÷ 最大位置) × 画板.宽度
画板.刷子颜色＝ #白色
画板.画矩形 (0, 0, 画板.宽度, 画板.高度)
画板.刷子颜色＝ #绿色
画板.填充矩形 (画板.画笔粗细＋ 1, 画板.画笔粗细＋ 1, 横变量－ 1, 画板.高度－ 1)
画板.定位写出 (到数值 (画板.宽度－画板.字体.字体大小) ÷ 2 －取文本长度 (文本到画板), (画板.高度－画板.取高度 (文本到画板)) ÷ 2, 到文本 (文本到画板))

.子程序 __启动窗口_创建完毕

[ 本帖最后由朴善英于 2008-5-10 22:39 编辑 ]

作者: Germany 时间: 2008-5-10 22:39
MD5效验.rar (595.24 KB)
2008-5-10 22:34, 下载次数: 0

作者: TM_MaRine_Z 时间: 2008-5-10 22:40
好的高手
那你给我编一个过vS 2.0的War3全图吧，我想无敌在DOTA