加入收藏 | 设为首页 | 会员中心 | 我要投稿 聊城站长网 (https://www.0635zz.com/)- 智能语音交互、行业智能、AI应用、云计算、5G!
当前位置: 首页 > 教程 > 正文

ASP的代码加密,密码器,

发布时间:2023-05-27 13:58:35 所属栏目:教程 来源:
导读:ASP代码一般是明文,很少有加密的,MS有个工具Script Encoder可以加密,这个东东可以微软官方网站免费下载,而且还有详细使用说明,但是经过它加密后的文件会有<%@ language = vbscript.encode %>,管理员看到这句话
ASP代码一般是明文,很少有加密的,MS有个工具Script Encoder可以加密,这个东东可以微软官方网站免费下载,而且还有详细使用说明,但是经过它加密后的文件会有<%@ language = vbscript.encode %>,管理员看到这句话就知道这个asp文件被加密了。而且也有相关的解密文件。
 
本文提供一种简单的方法,可以加密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 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也可以改成其它函数名。
 
这种方式加密比较简单,解密也很容易。
 
 

(编辑:聊城站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!