Available, such as: Hidden shortcuts in the target file location, crack XP in the number of TCP/IP connections, remove the RAR right button decompression menu and so on.
Copy Code code as follows:
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 lxzzr@21cn.com "
WScript.Echo ""
WScript.Echo "Usage:cscript.exe" & WScript.ScriptName & "FilePath savepath ShEx"
WScript.Echo ": Cscript.exe Chex.vbs" "". \test.exe "" "". \new.exe "" "" 7A "" "" 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