VBS实现文件逐字节异或

VBS实现文件逐字节异或

代码如下

'来源：http://blog.csdn.net/markinlqx/article/details/18987039
'数组转字符串函数 Convert array to string
'Writer         Markin.Q.Li
'Create Date    2013-4-28
'arrayName      arrayName
'separator      separator
'Example        ConvertArrayToString(arrayName, ",")
Public Function ConvertArrayToString(arrayName, separator)
Dim elementString

For Each element In arrayName
elementString = elementString + Cstr(element) + separator
Next

elementString = StrReverse(elementString)
elementString = Replace(elementString, separator,"",1,1)
elementString = StrReverse(elementString)

ConvertArrayToString = elementString
End Function

'来源：http://demon.tw/programming/vbs-binary-file.html
'VBS读写二进制文件函数
Function ReadBinary(FileName)
Dim Buf(), I
With CreateObject("ADODB.Stream")
.Mode = 3: .Type = 1: .Open: .LoadFromFile FileName
ReDim Buf(.Size - 1)
For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
.Close
End With
ReadBinary = Buf
End Function

Sub WriteBinary(FileName, Buf)
Dim I, aBuf, Size, bStream
Size = UBound(Buf): ReDim aBuf(Size \ 2)
For I = 0 To Size - 1 Step 2
aBuf(I \ 2) = ChrW(Buf(I + 1) * 256 + Buf(I))
Next
If I = Size Then aBuf(I \ 2) = ChrW(Buf(I))
aBuf=Join(aBuf, "")
Set bStream = CreateObject("ADODB.Stream")
bStream.Type = 1: bStream.Open
With CreateObject("ADODB.Stream")
.Type = 2 : .Open: .WriteText aBuf
.Position = 2: .CopyTo bStream: .Close
End With
bStream.SaveToFile FileName, 2: bStream.Close
Set bStream = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set oArgs=wscript.arguments
dim file1,file2
file1=oArgs(0)
file2=oArgs(1)

txt1=ReadBinary(file1)
txt2=ReadBinary(file2)

j=0
for each i in txt1
'WScript.echo Cstr(txt1(j) XOR txt2(j))
WScript.echo Chr(txt1(j) XOR txt2(j))
j=j+1
next

'WScript.echo ConvertArrayToString(txt1,",")

set oArgs=Nothing