<script language="VBscript">
function CodeCookie1(str)
Dim i
Dim strRtn
strRtn=""
for i=len(str) to 1 step -1
strRtn=strRtn & ascw(mid(str,i,1))
if (i <> 1) then strRtn = strRtn & "a"
next
CodeCookie1=strRtn
end function 'vbs 解码
function decode(strValue)
dim result
dim cnt, a
a=split(strValue,"a")
for cnt=ubound(a) to 0 step -1
result=result & chrw(a(cnt))
next
decode=result
End function</script>
<script type="text/javascript">
//<![CDATA[
//js解码
function myDecode(fValue) {
var result="";
var cnt, a
a=fValue.split("a");
for (var i=a.length-1;i>=0; i--) {
result+=String.fromCharCode(a[i]);
}
return result;
}
var c=CodeCookie1("欢迎到我的blog来,http://www.never-online.net");
alert(c)
alert(myDecode(c))
//]]>
</script>
function CodeCookie1(str)
Dim i
Dim strRtn
strRtn=""
for i=len(str) to 1 step -1
strRtn=strRtn & ascw(mid(str,i,1))
if (i <> 1) then strRtn = strRtn & "a"
next
CodeCookie1=strRtn
end function 'vbs 解码
function decode(strValue)
dim result
dim cnt, a
a=split(strValue,"a")
for cnt=ubound(a) to 0 step -1
result=result & chrw(a(cnt))
next
decode=result
End function</script>
<script type="text/javascript">
//<![CDATA[
//js解码
function myDecode(fValue) {
var result="";
var cnt, a
a=fValue.split("a");
for (var i=a.length-1;i>=0; i--) {
result+=String.fromCharCode(a[i]);
}
return result;
}
var c=CodeCookie1("欢迎到我的blog来,http://www.never-online.net");
alert(c)
alert(myDecode(c))
//]]>
</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货