功能
- 功能简介
- 更多系统
17333467065
17333467065
在第一部分，讨论了如何生成密钥，下面将介绍如何使用这个密钥来加密和解密一个字符串。
下面的代码就是能够同时实现这个功能的函数
Crypt.asp文件
<%
Dim g_Key
Const g_CryptThis = "Now is the time for all good men to come to the aid of their country."
Const g_KeyLocation = "c:\key.txt"
g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))
Response.Write "<p>ORIGINAL STRING: " & g_CryptThis & "<p>"
Response.Write "<p>KEY VALUE: " & g_Key & "<p>"
Response.Write "<p>ENCRYPTED CYPHERTEXT: " & EnCrypt(g_CryptThis) & "<p>"
Response.Write "<p>DECRYPTED CYPHERTEXT: " & DeCrypt(EnCrypt(g_CryptThis)) & "<p>"
Function EnCrypt(strCryptThis)
Dim strChar, iKeyChar, iStringChar, i
for i = 1 to Len(strCryptThis)
iKeyChar = Asc(mid(g_Key,i,1))
iStringChar = Asc(mid(strCryptThis,i,1))
' *** uncomment below to encrypt with addition,
' iCryptChar = iStringChar + iKeyChar
iCryptChar = iKeyChar Xor iStringChar
strEncrypted = strEncrypted & Chr(iCryptChar)
next
EnCrypt = strEncrypted
End Function
Function DeCrypt(strEncrypted)
Dim strChar, iKeyChar, iStringChar, i
for i = 1 to Len(strEncrypted)
iKeyChar = (Asc(mid(g_Key,i,1)))
iStringChar = Asc(mid(strEncrypted,i,1))
' *** uncomment below to decrypt with subtraction
' iDeCryptChar = iStringChar - iKeyChar
iDeCryptChar = iKeyChar Xor iStringChar
strDecrypted = strDecrypted & Chr(iDeCryptChar)
next
DeCrypt = strDecrypted
End Function
Function ReadKeyFromFile(strFileName)
Dim keyFile, fso, f
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile(strFileName)
set ts = f.OpenAsTextStream(1, -2)
Do While not ts.AtEndOfStream
keyFile = keyFile & ts.ReadLine
Loop
ReadKeyFromFile = keyFile
End Function
%>
在Crypt.asp中我们首先从密钥文件中得到密钥值，然后从这段密钥中截取和我们需要加密的明文同样长度的密钥。然后使用一个简单的异或操作将明文和密钥进行运算，那么得到的结果就是加密后的密文了。过程很简单的。
由于是使用了异或操作，所以解密将非常简单，只要使用同样的密钥对密文再次进行异或操作就能够解密了。
在上面介绍的基础上，你可以少加改动，就可以使用同样的方法加密一个文件。
唯一需要注意的是，对于一个二进制文件，你需要做一些完整性检查以保证转换回来的字符不要越界。
现在你需要做的就是把密钥保存在服务器上的一个安全的地方（不能够被外部访问）
附注：
Vernam密码是由Gilbert Vernam (他是AT&T的工程师)在1918年发明的。这是一种使用异或方法进行加密解密的方法。
电子文档管理系统的重要性：企业数字化转型的得力助手
在这个智能信息爆炸的时代，数据成为了企业最宝贵的资产之一。如何有效地管理和使用这种信息，已成为每个企业必须面对的重要课题。电子文档管理系统是解决这一问题的关键工具。今日，我们将探讨电子文档管理系统的重要性。在热点话题中，我们经常听到数据泄漏、信息安全等事件。这些事件不仅给企业带来了极大的经济损失，并且严重影响到企业的声...
it资产管理系统：IT资产大管家
在这个智能飞速发展的时代，公司的IT资产如同无形金矿，非常有价值。可是您有没有经历过这种困扰：IT资产种类繁多，数量庞大，管理耗时费力，还常常担忧数据安全和合规性？别担心，今天就给大家介绍一个IT资产管家——安企神IT资产管理系统。一、IT资产管理，为何如此重要？随着企业业务的不断增加，IT资产的数量和种类也在增加。这...
PHP线上加密解密：确保数据安全的有效途径
在如今智能化快速发展的时代，数据安全成为了人或单位不可忽视的重要话题。据最新统计，过去一年超出50%的企业遭到黑客入侵，数据泄露事件高发，给企业信誉和经济损失导致双重打击。在这种情况下，PHP线上加密解密技术的发展至关重要，既能提升数据安全性，又能帮助企业有效防范潜在威胁。一、PHP在线加密解密是什么意思？PHP是一种...
U盘管理工具大曝光：管理便捷，安全无忧！
在这个信息爆炸的时代，U盘已经成为我们日常生活中不可或缺的小帮手。不论是工作材料的备份或是学习课件的存储，U盘都以其小巧便携、容积丰富的特征受到大家的喜爱。但是，随着U盘的广泛使用，管理里的不便也随之而来。别担心，下面我就给大家介绍一款优秀的U盘管理工具，使你的U盘管理更安全！一、U盘管理，为何这么重要？想象一下，你U...
桌面管理软件怎样帮企业提高管理效益？
近日，一家知名科技公司因为桌面管理不当，造成内部数据泄漏，导致了业内的高度重视。这一事件不但揭露了桌面管理在企业管理中的作用，也催生了对高效安全桌面管理软件的需求。在此背景下，安企神桌面管理软件因其卓越的性能和全面的功能迅速成为很多企业的新宠。一、桌面管理：企业安全高效的基石桌面管理不仅关系到企业日常办公的顺利进行，也...
