很简单,PECMD.EXE本身就有MD5较验的参数,写个.INI文件,用PECMD.EXE加载就OK了。
MD5_FOR_PE.rar
(1.34 KB, 下载次数: 198)
md5_pe.ini (增加第一次执行后的右键注册功能。右键点选文件,弹出窗口并自动对此文件进行MD5读取)
——————————————————————————————————
_SUB inform,
FIND $%md5%=%oldmd5%,Envi read=MD5值相同!!Envi read=MD5值不同!
TEAM MESS %read% @通知:#ok *2000
_END
_SUB SelecRP
Envi PF_Tag=
IFEX D:\,Envi RP=D:!Envi RP=%CurDir%
BROW PF_Tag,%RP%\*,请选择 目标文件所在目录与名称:,*
FIND $%PF_Tag%=,!Envi @oldfile=%PF_Tag%
_END
_SUB autoold
FIND $%oldmd5%=,TEAM Envi @oldmd5=%md5%|Envi @group3=%oread%!Envi @group3=%cread%
_END
_SUB go_md5
FIND $%md5%=,!Call autoold
Envi @group2=正在读取目标文件的MD5值,请稍等...
MD5C %oldfile%,md5
WAIT 500
FEXT oldfilekzm=%oldfile%
NAME oldfilename=%oldfile%
Envi oread=%oldfilename%.%oldfilekzm% 的 MD5值为:
Envi @group2=%oread%
Envi @md5=%md5%
_END
_SUB md5yz
ENVI @t2=0
FIND $%ynauto%=y,Call go_md5
_END
_SUB windows1,w392h230,%Prog1%,,MD5.ico,5,
grou group1,l15t15w355h50,目标文件名(支持文件拖放)
EDIT oldfile,l25t35w305h20,%oldfile%,CALL go_md5,
ITEM Button1,l335t34w25h20,...,CALL SelecRP,
grou group2,l15t75w302h50,MD5 校验值
EDIT md5,l25t95w280h20,,,
grou group3,l15t135w302h50,%cread%
EDIT oldmd5,l25t155w280h20,,,
ITEM Button2,l325t75w45h30,计算,Call go_md5,
ITEM Button3,l325t115w45h30,比较,Call inform,
ITEM Button4,l325t150w45h30,退出,KILL \%Prog1%,
time t2,500,Call md5yz
_END
Envi Prog1=MD5值校验工具 by 网虫2008
IFEX X:\,REGI HKCR\*\shell\校验 MD5\command\=PECMD TEAM Envi oldfile=%1|load %CurDir%\md5_pe.ini
Envi cread=请输入参照值,如为空则自动复制第一个MD5校验值
IFEX %oldfile%,TEAM Envi ynauto=y|Envi oldfile=%oldfile%!Envi oldfile=拖放 目标文件到窗口按回车或手动选择 >>
call @windows1
Exit
——————————————————————————————————
[ 本帖最后由 网虫2008 于 2010-10-27 03:19 编辑 ] |