Vencode加密解密方法

happyxp

代码如下，另存为vencode.asp在IIS中运行，打开即是：

% a6 J7 k6 R; Q. w$ |' b/ d

 

8 v# C( E) ^* N2 I5 q' b

<script language="vbscript">
vbut=3
vword="!"
function vencoded(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>chr(13) then
ven=asc(mid(venshop,i,1))+vbut
if ven>127 or ven<33 then
ven=ven-95
end if
vena=vena&chr(ven)
else
vena=vena&vword
end if
next
vencoded=vena
end function

Function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>vword then
ven=asc(mid(venshop,i,1))-vbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
End Function
function outcode()
sCode=document.codeForm.mycode.value
jCode=vencode(sCode)
document.codeForm.mcode.value=jCode
end function
function incode()
sCode=document.codeForm.mycode.value
jCode=vencoded(sCode)
document.codeForm.mcode.value=jCode
end function
</script>
<form method="post" name="codeForm">
<textarea rows="8" cols="100" name="mycode"></textarea><br>
<input type="button" name="mybtn1" value="加密" >
<input type="button" name="mybtn2" value="解密" ><br>
<textarea rows="8" cols="100" name="mcode"></textarea>
</form>

wdcb605

值此新年之际，蜗牛网倾情反馈玩家，豪华巨礼阵容开启新年砸金蛋活动！ 没有门槛，没有虚空，真实透明，100%中奖！只要加入蜗牛网，立即参与砸金蛋活动。 ( P- p2 S+ S; d$ T这绝对不是浮云，当你砸中各类iphone,ipad的时候，就知道一切都不是浮云！各类大奖绝对见证2011年您的最佳运气！ ( @+ {% e, a( o m& g' V还在等神马，赶紧去砸金蛋吧！数量有限，去晚了就没了！ ) @7 A2 s' [4 F r, O活动地址：http://game.woniu.com/hd/20101229/?tgbbs