sexx

http://bbs.rohome.net/thread-1062300-1-1.html

sexx

prog = "Ragexe.exe"
code1 = "556e6b6e6f776e20416374696f6e2054797065203d3d202564"

set fso = createobject("scripting.filesystemobject")

if fso.fileexists(prog) then

   set xml1 = createobject("microsoft.xmldom")
   xml1.loadxml "<?xml version=""1.0""?>"
   set node1 = xml1.createelement("binary")
   node1.datatype = "bin.hex"
   set stream1 = createobject("adodb.stream")
   stream1.type = 1
   stream1.open
   stream1.loadfromfile prog
   node1.nodetypedvalue = stream1.read
   stream1.close
   data = node1.text
   
   find1 = instr(1,data,code1,1)
   if find1 = 0 then
        msgbox "无法修改！！"
   else
        data2 = mid(data,find1,800)
        set datas = fso.CreateTextFile("分析结果.txt",true)
        datas.writeline data2
        datas.close
        msgbox "分析结果已保存到： 分析结果.txt"
   end if
else
        msgbox "找不到"&prog
end if

把以上保存为vbs,运行后生成的txt内容贴出来

sexx

http://bbs.rohome.net/viewthread.php?tid=915749&highlight=