搜索
查看: 8922|回复: 1

Vencode加密解密方法

[复制链接]
发表于 2010-6-18 16:07:12 | 显示全部楼层 |阅读模式

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

( ^. D# |) V+ j* V, m& ]

 

% x+ Y: X) g# Y* W7 ~

<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

6 O7 ^" \- Q1 W. L) d# o

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>

回复

使用道具 举报

发表于 2011-1-1 12:16:27 | 显示全部楼层
值此新年之际,蜗牛网倾情反馈玩家,豪华巨礼阵容开启新年砸金蛋活动!6 y" P; U: W6 F% i- g( s 没有门槛,没有虚空,真实透明,100%中奖!只要加入蜗牛网,立即参与砸金蛋活动+ }$ j2 G0 n6 l* g6 J1 h- k : r% r- F2 @; k6 m' g4 G/ m9 ^$ Y; K 这绝对不是浮云,当你砸中各类iphone,ipad的时候,就知道一切都不是浮云!各类大奖绝对见证2011年您的最佳运气! 9 p. R* U4 }* i/ v" ^还在等神马,赶紧去砸金蛋吧!数量有限,去晚了就没了! ! P! \2 L) i9 e: N+ k5 e4 u# v活动地址:http://game.woniu.com/hd/20101229/?tgbbs
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

热议作品
精华帖子排行
精彩推荐

虾皮社区,成立十年了!

站长自己也搞不懂想做个什么,反正就是一直在努力的做!

Copyright © 2007-2019 xp6.org Powered by Discuz

QQ|Archiver|手机版|小黑屋|虾皮社区 鲁公网安备 37021102000261号 |网站地图
返回顶部 返回列表