搜索
查看: 8739|回复: 1

Vencode加密解密方法

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

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

! Q- v$ y9 l) B) L

 

; Z: W1 b& l8 }7 O% ?

<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

" k' R0 l& T: q# S- N: _9 {

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 | 显示全部楼层
值此新年之际,蜗牛网倾情反馈玩家,豪华巨礼阵容开启新年砸金蛋活动!9 o+ O4 i( i5 s 没有门槛,没有虚空,真实透明,100%中奖!只要加入蜗牛网,立即参与砸金蛋活动8 ]/ R+ q( T8 Z& }( t3 j* F + i% v4 x9 Q; l9 L1 z% }% x这绝对不是浮云,当你砸中各类iphone,ipad的时候,就知道一切都不是浮云!各类大奖绝对见证2011年您的最佳运气! ; {6 E) y& T% T3 |! K K( ]7 w- ^- D还在等神马,赶紧去砸金蛋吧!数量有限,去晚了就没了! ; h6 b8 s- J, ~0 p" Y: A活动地址:http://game.woniu.com/hd/20101229/?tgbbs
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

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

虾皮社区,成立十年了!

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

Copyright © 2007-2019 xp6.org Powered by Discuz

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