本文简介：在第一部分，讨论了如何生成密钥，下面将介绍如何使用这个密钥来加密和解密一个字符串。下面的代码就是能够同时实现这个功能的函数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 =
在第一部分，讨论了如何生成密钥，下面将介绍如何使用这个密钥来加密和解密一个字符串。
下面的代码就是能够同时实现这个功能的函数
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年发明的。这是一种使用异或方法进行加密解密的方法。
立即下载试用企业防泄密软件哪款好用？公司防泄密软件推荐使用
企业防泄密软件哪款好用？公司防泄密软件推荐使用
99% 的企业每年都有员工离职：员工离职带走核心图纸导致严重泄密...
85% 的安全威胁来自企业内部：公司重要文档图纸泄露造成严重损失...
80% 的企业每年都发生泄密事件：重要文档数据随意扩散造成诸多麻烦...
没有保护的数据资产，会被有意无意的任意流传扩散，价值也就无从谈起，因此，无论在内部办公还是对外交流过程中，文档的自身安全应该受到重视。如何保护重要文件不被泄密，用哪款防泄密软件？
公司防泄密软件推荐使用
为了保障企业的数据安全，选择一款高效、稳定的企业防泄密软件显得尤为重要。在众多防泄密软件中，安企神软件以其卓越的性能和全面的功能，成为了众多企业的首选。
安企神文件加密软件对用户而言是透明、无感知的。文件的保存加密、打开解密完全由后台驱动内核自动完成，整个过程无需人工干涉，也不影响员工原来的操作习惯和工作习惯，员工们甚至感觉不到加密软件的存在。
文件未经审批通过U盘拷贝、QQ、微信、电子邮件或其它任何方式流传出去，文件将自动损毁而无法打开。如果文件需要发给客户或公司外面的人，则需要经过管理人员的批准解密。
软件功能介绍
安企神软件采用了先进的加密技术，可以对企业数据进行高效的加密保护。无论是存储在本地电脑上的文件，还是通过网络传输的数据，安企神软件都能提供强大的加密支持，确保数据在传输和存储过程中的安全性。
软件还能审计和追踪文件的访问、修改和删除等操作，为管理员提供全面的数据安全保障。支持外发文件控制，有效防止敏感数据被非法复制和传播。详细功能如下：
1、加密数据
能够对单个文件或文件夹进行加密，确保只有经过授权的用户才能访问。
对敏感数据进行加密是一种常见的防泄密措施。通过加密，即使数据被窃取或丢失，也无法被未授权人员轻易解密和使用。
2、控制访问权限
可以控制员工在电脑上进行的操作，如禁止复制、删除、修改等。
限制对敏感数据的访问权限是另一种有效的防泄密措施。只有经过授权的人员才能访问敏感数据，从而减少数据泄漏的风险。
3、审计和监控
通过审计和监控工具，企业可以跟踪和记录对敏感数据的访问和使用情况，及时发现异常行为并进行处理。
4、数据备份和恢复
定期备份敏感数据并制定有效的恢复计划，可以确保在数据丢失或损坏时能够及时恢复，降低数据泄漏对企业的影响。
5、U盘外设管理
能够限制U盘等外部设备的接入，规范员工对外部设备的使用。
6、操作管控
可以记录员工的电脑操作行为，包括文件操作、应用程序使用等。
7、日志审计
能够对员工的电脑使用情况进行全面监控和记录，便于后期审查。
8、敏感内容识别
具备智能的敏感内容识别功能，能够自动检测和过滤敏感信息。
9、资产和运维管理
能够统一管理公司的电脑设备，进行资产管理、远程控制等操作。
软件优势
安企神数据防泄密软件是一款高效、稳定且功能全面的数据保护工具，其优势主要体现在以下几个方面：
1、全方位的数据保护： 具备强大的数据加密功能，能够对企业内部的各种数据类型进行全方位的保护。
2、灵活的权限控制： 软件支持根据员工的职务和权限设置不同的文件访问权限，确保每个员工只能获得必要的信息。
3、丰富的审计功能： 软件能够记录所有文件的访问历史，包括文件的打开、修改、删除等操作，以便企业进行监控和追溯。
4、易用性和灵活性： 软件支持移动设备的使用，员工可以在手机或平板电脑上随时随地查看和编辑文件，提高工作效率。
5、高效稳定的性能： 采用高效的数据处理技术和算法，确保系统运行流畅且不影响业务正常运行。
四、总结
综上所述，安企神数据防泄密软件以其全方位的数据保护、灵活的权限控制、丰富的审计功能、易用性和灵活性以及高效稳定的性能等优势，成为了企业保护数据安全的重要工具。如果您正在寻找一款可靠的防泄密软件来保护企业的数据安全，那么安企神软件将是您的理想选择。
本文为收集整理，文章部分观点不代表本站观点，如有侵权或其它问题请反馈客服。https://www.wgj7.com/cjwt/16164.html