happyxp 发表于 2010-6-18 16:07:12

<p><font face="Verdana">代码如下,另存为vencode.asp在IIS中运行,打开即是:</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">&lt;script language="vbscript"&gt;<br/>vbut=3<br/>vword="!"<br/>function vencoded(venshop) <br/>for i=1 to len(venshop) <br/>if mid(venshop,i,1)&lt;&gt;chr(13) then <br/>ven=asc(mid(venshop,i,1))+vbut<br/>if ven&gt;127 or ven&lt;33 then <br/>ven=ven-95 <br/>end if <br/>vena=vena&amp;chr(ven) <br/>else <br/>vena=vena&amp;vword<br/>end if <br/>next <br/>vencoded=vena <br/>end function </font></p>
<p><font face="Verdana">Function vencode(venshop)<br/>for i=1 to len(venshop)<br/>if mid(venshop,i,1)&lt;&gt;vword then<br/>ven=asc(mid(venshop,i,1))-vbut<br/>if ven&gt;126 then<br/>ven=ven-95<br/>elseif ven&lt;32 then<br/>ven=ven+95<br/>end if<br/>vena=vena&amp;chr(ven)<br/>else<br/>vena=vena&amp;chr(13)<br/>end if<br/>next<br/>vencode=vena<br/>End Function<br/>function outcode()<br/>sCode=document.codeForm.mycode.value<br/>jCode=vencode(sCode)<br/>document.codeForm.mcode.value=jCode<br/>end function<br/>function incode()<br/>sCode=document.codeForm.mycode.value<br/>jCode=vencoded(sCode)<br/>document.codeForm.mcode.value=jCode<br/>end function<br/>&lt;/script&gt;<br/>&lt;form method="post" name="codeForm"&gt;<br/>&lt;textarea rows="8" cols="100" name="mycode"&gt;&lt;/textarea&gt;&lt;br&gt;<br/>&lt;input type="button" name="mybtn1" value="加密" &gt;<br/>&lt;input type="button" name="mybtn2" value="解密" &gt;&lt;br&gt;<br/>&lt;textarea rows="8" cols="100" name="mcode"&gt;&lt;/textarea&gt;<br/>&lt;/form&gt;<br/></font></p>

wdcb605 发表于 2011-1-1 12:16:27

值此新年之际,蜗牛网倾情反馈玩家,豪华巨礼阵容开启新年砸金蛋活动!
没有门槛,没有虚空,真实透明,100%中奖!只要加入蜗牛网,立即参与砸金蛋活动。

这绝对不是浮云,当你砸中各类iphone,ipad的时候,就知道一切都不是浮云!各类大奖绝对见证2011年您的最佳运气!
还在等神马,赶紧去砸金蛋吧!数量有限,去晚了就没了!
活动地址:http://game.woniu.com/hd/20101229/?tgbbs
页: [1]
查看完整版本: Vencode加密解密方法