ASP网页设计利用ASP加密算法加密你的数据（二）

使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。加密|数据|算法在第一部分，会商了怎样天生密钥，上面将先容怎样利用这个密钥来加密息争密一个字符串。
　　上面的代码就是可以同时完成这个功效的函数
Crypt.asp文件
<%
Dimg_Key
Constg_CryptThis="Nowisthetimefor
allgoodmentocometotheaidoftheircountry."
Constg_KeyLocation="c:key.txt"

g_Key=mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))

Response.Write"<p>ORIGINALSTRING:"&g_CryptThis&"<p>"
Response.Write"<p>KEYVALUE:"&g_Key&"<p>"
Response.Write"<p>ENCRYPTEDCYPHERTEXT:"&EnCrypt(g_CryptThis)&"<p>"
Response.Write"<p>DECRYPTEDCYPHERTEXT:"&DeCrypt(EnCrypt(g_CryptThis))&"<p>"

FunctionEnCrypt(strCryptThis)
DimstrChar,iKeyChar,iStringChar,I
forI=1toLen(strCryptThis)
iKeyChar=Asc(mid(g_Key,I,1))
iStringChar=Asc(mid(strCryptThis,I,1))
***uncommentbelowtoencryptwithaddition,
iCryptChar=iStringChar+iKeyChar
iCryptChar=iKeyCharXoriStringChar
strEncrypted=strEncrypted&Chr(iCryptChar)
next
EnCrypt=strEncrypted
EndFunction

FunctionDeCrypt(strEncrypted)
DimstrChar,iKeyChar,iStringChar,I
forI=1toLen(strEncrypted)
iKeyChar=(Asc(mid(g_Key,I,1)))
iStringChar=Asc(mid(strEncrypted,I,1))
***uncommentbelowtodecryptwithsubtraction
iDeCryptChar=iStringChar-iKeyChar
iDeCryptChar=iKeyCharXoriStringChar
strDecrypted=strDecrypted&Chr(iDeCryptChar)
next
DeCrypt=strDecrypted
EndFunction

FunctionReadKeyFromFile(strFileName)
DimkeyFile,fso,f
setfso=Server.CreateObject("Scripting.FileSystemObject")
setf=fso.GetFile(strFileName)
setts=f.OpenAsTextStream(1,-2)

DoWhilenotts.AtEndOfStream
keyFile=keyFile&ts.ReadLine
Loop

ReadKeyFromFile=keyFile
EndFunction

%>
　　在Crypt.asp中我们起首从密钥文件中失掉密钥值，然后从这段密钥中截取和我们必要加密的明文一样长度的密钥。然后利用一个复杂的异或操纵将明文和密钥举行运算，那末失掉的了局就是加密后的密文了。历程很复杂的。因为是利用了异或操纵，以是解密将十分复杂，只需利用一样的密钥对密文再次举行异或操纵就可以够解密了。在下面先容的基本上，你能够少加修改，就能够利用一样的办法加密一个文件。独一必要注重的是，关于一个二进制文件，你必要做一些完全性反省以包管转换返来
的字符不要越界。如今你必要做的就是把密钥保留在服务器上的一个平安的中央（不克不及够被内部会见）

附注：
　　Vernam暗码是由GilbertVernam(他是AT&T的工程师)在1918年创造的。这是一种利用异或办法举行加密解密的办法。
</p>缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

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

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。