Sha1生成源码：
.版本 2.子程序 _按钮1_被单击.局部变量 局_文件号, 整数型.局部变量 局_字节集, 字节集.局部变量 局_Sha1, 文本型.判断开始 (文件是否存在 (编辑框1.内容))
局_文件号 ＝ 打开文件 (编辑框1.内容, , )
局_字节集 ＝ 读入字节集 (局_文件号, 取文件长度 (局_文件号))
局_Sha1 ＝ 校验_取sha1 (局_字节集)
编辑框2.内容 ＝ 局_Sha1移到文件尾 (局_文件号)
写出字节集 (局_文件号, 到字节集 (局_Sha1))
关闭文件 (局_文件号)
信息框 (“Sha1写出成功！”, 0, , )
.默认
Sha1验证源码
.版本 2
.子程序 自校验_Sha1, 逻辑型, 公开, 返回真校验成功，假说明文件被修改
.局部变量 局_运行目录, 文本型
.局部变量 局_执行文件名称, 文本型
.局部变量 局_字节集, 字节集
.局部变量 局_原Sha1, 文本型
.局部变量 局_Sha1, 文本型
局_运行目录 ＝ 取运行目录 ()
局_执行文件名称 ＝ 取执行文件名 ()
局_字节集 ＝ 读入文件 (局_运行目录 ＋ “\” ＋ 局_执行文件名称)
局_原Sha1 ＝ 到文本 (取字节集右边 (局_字节集, 40))
_启动窗口.编辑框1.内容 ＝ 局_原Sha1
局_字节集 ＝ 取字节集左边 (局_字节集, 取字节集长度 (局_字节集) － 40)
局_Sha1 ＝ 校验_取sha1 (局_字节集)
_启动窗口.编辑框2.内容 ＝ 局_Sha1
.判断开始 (局_Sha1 ＝ 局_原Sha1)
返回 (真)
.默认
.判断结束
返回 (假)
优酷土豆链接：511遇见易语言软件本地注册验证-29软件安完整性Sha1自校验
优酷全部教程播单：http://i.youku.com/i/UNTU3NDYyODg0/playlists
交流群：521068947
本人QQ: 272586593