虫虫免杀--虫虫变形工具vbs版

来源：互联网发布：剑网3人物捏脸数据编辑：程序博客网时间：2024/04/28 20:53

给菜菜做免杀的时候用到的，功能一般，呵呵

这个是VBS脚本的变形器，JS版的变形器以及相关分析文章我放在E.S.T论坛上去了～

因为并没有打算公开使用，所以比较麻烦，也没有全面测试。欢迎各位提提意见。还有生成的代码到目前为止是能过卡巴的，其他的一般也没问题。

代码：转载请注明出处。虫虫于2006.7.26

<body style="font:12px">
<fieldset>
<legend>虫虫变形工具vbs版</legend>
<textarea id=txt cols=100% rows=20></textarea><br>
<script language=vbscript>

function change(k)
s=""
for i = 1 to len(k)
s=s&asc(mid(k,i,1))&","
next
change=left(s,len(s)-1)
end function

Sub enc()
s="function rechange(k)"+vbcrlf+"s=Split(k,"","")"+vbcrlf+"t="""""+vbcrlf+"For i = 0 To UBound(s)"+vbcrlf+"t=t+Chr(eval(s(i)))"+vbcrlf+"Next"+vbcrlf+"rechange=t"+vbcrlf+"End Function"+vbcrlf+"t="""+change(Document.all.txt.value)+""""+vbcrlf+"execute(rechange(t))"
Document.all.txt.value=s
End sub

</script>
<center>
<button onclick=enc()> <=OK=> </button>
</center>
</fieldset>
将< script language=vbscript> 和< /script>之间的代码复制到框里，变形后再复制回去就可以了。 <br>
如果有多个script段的话仅第1个段复制生成代码的function ... end function,其他各段仅复制 t="..." execute...)) 就可以