当前位置： 移动技术网 > IT编程>脚本编程>VBScript > XorEncode的vbs实现代码

XorEncode的vbs实现代码

2017年12月08日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

if not wscript.arguments.count=1 then wscript.echo "请将要转换的vbs文件托拽到我身上！":wscript.quit
set fso=createobject("scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname)
set vbs=fso.createtextfile(left(wscript.arguments(0),len(wscript.arguments(0))-4)+"_xorencode.vbs")
do until self.atendofstream
aline=self.readline
if aline="function decode(s,n)" then w=true
if w then vbs.writeline aline
loop
set src=fso.opentextfile(wscript.arguments(0))
randomize:n=int(255*rnd+1)
vbs.writeline "execute("&"decode("""&encode(src.read(fso.getfile(wscript.arguments(0)).size),n)&""","&n&"))"
src.close:vbs.close:self.close
set src=nothing:set vbs=nothing:set self=nothing:set fso=nothing
wscript.echo "successful!"
function encode(s,n)
for i=1 to len(s)
encode=encode&" "&(asc(mid(s,i,1)) xor n)
next
end function
function decode(s,n)
ns=split(mid(s,2,len(s)-1))
for i=0 to ubound(ns)
decode=decode&chr(cint(ns(i)) xor n)
next
end function

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网