您正在使用 IPV4 [54.163.62.42] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 007
2024年 劳动节 034
2025年 元 旦 279
2025年 春 节 307
综合数码金融娱乐服务报刊政府机构 推荐 排名 今日 申请 友情  
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP代码加密
内容摘要: 主要的加解密函数如下:function UnEncode(temp) but=1 for i =1 to len(temp)if mid(temp,i,1)'汤' then pk=asc(mid(temp,i,1))-but if pk126 thenpk=pk-95 elseif pk32 thenpk=pk+95 end if a=achr(pk)els......
主要的加解密函数如下:


function UnEncode(temp)

but=1

for i =1 to len(temp)

if mid(temp,i,1)<>"汤" then

pk=asc(mid(temp,i,1))-but

if pk>126 then

pk=pk-95

elseif pk<32 then

pk=pk+95

end if

a=a&chr(pk)

else

a=a&vbcrlf

end if

next

UnEncode=a

end function


function Encode(temp)

but=1

cc=replace(temp,vbcrlf,"汤")

for i= 1 to len(cc)

if mid(cc,i,1)<>"汤" then

pk=asc(mid(cc,i,1))+but

if pk>126 then

pk=pk-95

elseif pk<32 then

pk=pk+95

end if

a=a&chr(pk)

else

a=a&"汤"

end if

next

’a=replace(a,"""","""""")

Encode=a

end function


在开发的时候,通常将关键ASP代码Encode,再使用Excute(Uncode(ipaddr))执行就可以了。这样管理员一般不能直接看到关键代码,一般在程序里不要带上Encode函数,只在开发的时候使用,此外,UnEncode也可以改成其它函数名。

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中SELECT下拉菜单同时获取VALUE和TEXT值的

 

下一篇:asp常用函数集

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:7
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....