ASP编程：复杂的加密办法:XOR

在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。读书的时分利用对数据举行加密的办法最复杂的就是异或了，看到有人想要加密算法，就把之前的材料翻了一下，收拾了一系列加密的函数，固然复杂的加密也是简单破解的，但聊胜于无（记得把密要钥放好了），总比让人一翻开数据库就瞥见暗码密码好吧。:-)

<%
最复杂的加密办法：XOR
----------------------

g_CryptThis="中国-China"
strFullKeyLen=Len(g_CryptThis)

strFullKey=KeyGen(strFullKeyLen)

Response.Write"<p>原始字符串:"&g_CryptThis&"<p>"
Response.Write"<p>密钥:"&strFullKey&"<p>"
Response.Write"<p>加密后:"&Server.URLEncode(EnCrypt(g_CryptThis))&"<p>"
Response.Write"<p>解密后:"&DeCrypt(EnCrypt(g_CryptThis))&"<p>"

异或加密
FunctionEnCrypt(strCryptThis)
DimstrChar,iKeyChar,iStringChar,i
fori=1toLen(strCryptThis)
iKeyChar=Asc(mid(strFullKey,i,1))
iStringChar=Asc(mid(strCryptThis,i,1))
iCryptChar=iKeyCharXoriStringChar
strEncrypted=strEncrypted&Chr(iCryptChar)
next
EnCrypt=strEncrypted
EndFunction

异或解密
FunctionDeCrypt(strEncrypted)
DimstrChar,iKeyChar,iStringChar,i
fori=1toLen(strEncrypted)
iKeyChar=(Asc(mid(strFullKey,i,1)))
iStringChar=Asc(mid(strEncrypted,i,1))
iDeCryptChar=iKeyCharXoriStringChar
strDecrypted=strDecrypted&Chr(iDeCryptChar)
next
DeCrypt=strDecrypted
EndFunction

发生指定长度的随秘密钥
FunctionKeyGen(strlength)
Dimi,UB
DimTemp
DimPoss
Poss="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Temp=""

UB=Len(Poss)
Fori=1Tostrlength
Randomize
Temp=Temp&Mid(Poss,Int((UB-0+1)*Rnd+1),1)
Next
KeyGen=Temp
EndFunction
%>
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。