使用VBS修改二进制文件HEX数据

可用之处还是有的，如：隐藏快捷方式中目标文件位置；破解xp中tcp/ip连接数限制；去掉rar右键解压菜单等等。

public binarydata

if (lcase(right(wscript.fullname,11))="wscript.exe") then
 wscript.quit(0)
end if

if wscript.arguments.count<4 then
 wscript.echo "change file hex. by: lxzzr  [e-mail]"
 wscript.echo ""
 wscript.echo "usage: cscript.exe " & wscript.scriptname & " filepath savepath shex dhex"
 wscript.echo "     : cscript.exe chex.vbs "".\test.exe"" "".\new.exe"" ""80 7a 01 61"" ""80 7a 01 61"""
 wscript.quit(0)
end if

shex = replace(lcase(wscript.arguments(2)), " ", "")
dhex = replace(lcase(wscript.arguments(3)), " ", "")

wscript.echo "file: " & wscript.arguments(0)
wscript.echo "shex: " & wscript.arguments(2)
wscript.echo "dhex: " & wscript.arguments(3)

readbinary(wscript.arguments(0))

mydata = replace(binarydata, shex, dhex)

writebinary wscript.arguments(1), mydata

wscript.echo "all done."
wscript.quit(0)

 

function readbinary(filename)
 dim stream, objxml, mynode

 set objxml = createobject("microsoft.xmldom")
 set mynode = objxml.createelement("binary")
 set stream = createobject("adodb.stream")

 mynode.datatype = "bin.hex"

 stream.type = 1
 stream.open
 stream.loadfromfile filename

 mynode.nodetypedvalue = stream.read

 stream.close

 binarydata = mynode.text

 set mynode = nothing
 set stream = nothing
 set objxml = nothing
end function

function writebinary(filename, bufferdata)
 dim stream, objxml, mynode

 set objxml = createobject("microsoft.xmldom")
 set mynode = objxml.createelement("binary")
 set stream = createobject("adodb.stream")

 mynode.datatype = "bin.hex"
 mynode.text = bufferdata

 stream.type = 1
 stream.open
 stream.write mynode.nodetypedvalue
 stream.savetofile filename, 2
 stream.close

 set stream = nothing
 set mynode = nothing
 set objxml = nothing
end function