文件不要过大，最好不要超过 100 kb，密钥不要用数字，不想改了。理论上支持任何二进制文件格式
代码都封装成函数了，方便调用：
代码如下:
key = www-enun-net '不要用数字
wscript.echo now & , 加密:
mydata = readbin(test.jpg)
endata = encoder(mydata)
writebin e_test.jpg, endata
wscript.echo now & , 加密:
wscript.echo now & , 解密:
mydata = readbin(e_test.jpg)
undata = uncoder(mydata)
writebin u_test.jpg, undata
wscript.echo now & , 解密:
function readbin(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
readbin = mynode.text
set mynode = nothing
set stream = nothing
set objxml = nothing
end function
function writebin(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
function encoder(data)
dim k, m
for n = 0 to len(key)-1
k = k & asc(left(right(key, len(key)-n), 1)) & #
next
data = ucase(data)
for i = 0 to len(data)-1
m = left(right(mid(data, i+1, 1), len(data)-i), 1)
for j = 0 to len(key)-1
if i mod len(key) = j then
encoder = encoder & hex((asc(m) xor split(k, #)(j)))
end if
next
next
end function
function uncoder(data)
dim k
for n = 0 to len(key)-1
k = k & # & asc(left(right(key, len(key)-n), 1)) & #x
next
k = k & k
data = ucase(data)
for i = 1 to len(data) step 2
for j = 1 to len(key) * 2
if i mod len(key)*2 = j then
uncoder = uncoder & chr(split(k, #)(j) xor (&h & mid(data, i, 2)))
end if
next
next
end function
