中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS自变形【高手指点下】

czceo
新手上路

积分 5
发帖 5
注册 2009-2-1
状态离线

『楼主』: VBS自变形【高手指点下】

最近在研究VBS免杀，听说有个叫自变形的家伙。
就是没运行一次，代码自动改变！
真的很神奇
源代码：
str="cswpire.tohcO"" ""!K"
for i=1 to len(str) step 3
rev=rev+strreverse(mid(str,i,3))
next
execute rev

同样功能不过是自变形：
str="wscript.echo ""OK!"":randomize:key=int(rnd*8+2):str=rev:str=replace(str,chr(34),chr(34)+chr(34)):set aso=createobject(""ADODB.Stream""):with aso:.open:.writetext ""str=""+chr(34)+str+chr(34)+"":key=""+cstr(key)+"":str=rev:execute str:function rev():for i=1 to len(str) step key:rev=rev+strreverse(mid(str,i,key)):next:end function"":.savetofile wscript.scriptfullname,2:end with":key=1:str=rev:execute str:function rev():for i=1 to len(str) step key:rev=rev+strreverse(mid(str,i,key)):next:end functi

【以上只是一句】
保存VBS运行后，再看看源代码，竟然变了！
再执行，又变成其他样子了。这个脚本是自变形的。

版主进来帮忙解释下，以后好用灵活运用啊！
希望得到一份详细的关于自变形的教程。
不知道此VBS代码编译或成 EXE还能达到自变形的效果吗？

2009-4-16 04:23