<textarea id=txt cols=100% rows=20></textarea>
<script language=vbscript>
function rechange(k)
s=Split(k,",")
t=""
For i = 0 To UBound(s)
t=t+Chrw(eval(s(i)))
Next
rechange=t
End Function
t="" //把加密的数字放到""里保存,然后打开我们就看到代码了!
txt.value=rechange(t)
</script>
-===============================
以上代码保存为HTM文件并把加密放到""里保存,在IE运行就可以看到了!