搜索
查看: 9068|回复: 1

Vencode加密解密方法

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

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

/ ^# @3 o; \6 _- R

 

I" |' D6 Y+ L4 E( P. [0 I6 i

<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

/ @4 [' w- }* }7 M, q

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 | 显示全部楼层
值此新年之际,蜗牛网倾情反馈玩家,豪华巨礼阵容开启新年砸金蛋活动! 0 [$ y- N8 V8 G* v2 h- |' w) h3 ]3 a& C没有门槛,没有虚空,真实透明,100%中奖!只要加入蜗牛网,立即参与砸金蛋活动6 e% d/ D: _' b( ~% T9 s% }- q$ `+ n: W4 o+ z+ S% {2 G 这绝对不是浮云,当你砸中各类iphone,ipad的时候,就知道一切都不是浮云!各类大奖绝对见证2011年您的最佳运气! ) W/ ]5 K: u2 B6 {. A8 \* M还在等神马,赶紧去砸金蛋吧!数量有限,去晚了就没了! 4 s- v6 O7 `( `& m3 ]4 _0 _9 L, s- r活动地址:http://game.woniu.com/hd/20101229/?tgbbs
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

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

虾皮社区,成立十年了!

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

Copyright © 2007-2019 xp6.org Powered by Discuz

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