-
宁夜空
发布于 2008-12-12 14:09
-
收藏
<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n)) Next End Function </script> <script language="javascript"> myrand=window.prompt("url:","http:https://..