<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运行就可以看到了！