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

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

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

 
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值