仓酷云

标题: ASP网页编程之一套加解密字符串的函数 [打印本页]

作者: 小妖女 时间: 2015-1-16 23:14
标题: ASP网页编程之一套加解密字符串的函数
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。函数|解密|字符串<%
FunctionEncrypt(theNumber)
OnErrorResumeNext
Dimn,szEnc,t,HiN,LoN,i
n=CDbl((theNumber+1570)^2-7*(theNumber+1570)-450)
Ifn<0ThenszEnc="R"ElseszEnc="J"
n=CStr(abs(n))
Fori=1ToLen(n)step2
t=Mid(n,i,2)
IfLen(t)=1Then
szEnc=szEnc&t
ExitFor
EndIf
HiN=(CInt(t)And240)/16
LoN=CInt(t)And15
szEnc=szEnc&Chr(Asc("M")+HiN)&Chr(Asc("C")+LoN)
Next
Encrypt=szEnc
EndFunction

FunctionDecrypt(theNumber)
OnErrorResumeNext
Dime,n,sign,t,HiN,LoN,NewN,i
e=theNumber
IfLeft(e,1)="R"Thensign=-1Elsesign=1
e=Mid(e,2)
NewN=""
Fori=1ToLen(e)step2
t=Mid(e,i,2)
IfAsc(t)>=Asc("0")AndAsc(t)<=Asc("9")Then
NewN=NewN&t
ExitFor
EndIf
HiN=Mid(t,1,1)
LoN=Mid(t,2,1)
HiN=(Asc(HiN)-Asc("M"))*16
LoN=Asc(LoN)-Asc("C")
t=CStr(HiNOrLoN)
IfLen(t)=1Thent="0"&t
NewN=NewN&t
Next
e=CDbl(NewN)*sign
Decrypt=CLng((7+sqr(49-4*(-450-e)))/2-1570)
EndFunction
%>
<html><body>
Originalnumber:69 
Encrypt(69)returns:JNMQMOJ8 
Decrypt("JNMQMOJ8")returns:69

Anotherexampleusingvariablesinstead: 
Encrypt(Request.Form("ID")) 
Encrypt(myVar) 
Decrypt(Request.QueryString("id")) 
Decrypt("JNMQMOJ8") 
Decrypt(myVar)

</body></html>

源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码

作者: 若天明 时间: 2015-1-20 08:37
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 莫相离 时间: 2015-1-29 06:14
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 简单生活 时间: 2015-2-1 18:00
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 飘灵儿 时间: 2015-2-7 12:46
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 老尸 时间: 2015-2-21 21:14
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 冷月葬花魂 时间: 2015-3-13 21:59
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 再现理想 时间: 2015-3-20 19:51
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

欢迎光临仓酷云 (http://ckuyun.com/)