使用ASP加密算法加密你的数据（一）

来源： 作者：unkonwn 时间：2005-04-07 点击：

　　
简介
　　首先简单介绍一下有关加密的背景。由于美国禁止几种密码算法的对外出口的加密位数（例如SSL的40位加密限制），本文将介绍一种ASP可以使用的简单字符加密算法，而不是那些受限制的加密算法。其实，这里介绍的加密算法对于一般的运用来说已经足够解密人麻烦一阵子的了。它的加密基础是最简单的Vernum密码方法，我将在下一篇文章中介绍这种密码。
　　它的基本原理是，需要有一个需要加密的
明文和一个随机生成的解密钥匙文件。然后使用这两个文件组合起来生成密文。
(明文) 组合 (密钥) = 加密后的密文
　　所以本文介绍的是生成密钥的代码。我们假设我们生成的密钥为512位长的密钥，它已经足够来加密一个文本字符了。代码如下：
KeyGeN.asp文件

[收藏] [推荐] [评论] [打印] [关闭]

顶一下

上一篇：浅谈随机得控制
下一篇：使用ASP加密算法加密你的数据（二）

最新评论共有 0 位网友发表了评论

查看所有评论

发表评论

评论内容：不能超过250字，需审核，请自觉遵守互联网相关政策法规。

匿名?

热点关注

关于我们 - 联系方式 - 版权申明 - 友情链接 - 交流空间 - 同徽科技
增值电信业务经营许可证编号：皖B2-20040042 文网文编号：[2005]027号

数据挖掘研究院

""******************************
"" KeyGeN.asp
""******************************
Const g_KeyLocation = "C:key.txt"
Const g_KeyLen = 512 数据挖掘研究院

On Error Resume Next

数据挖掘研究院

Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation) 数据挖掘研究院

if Err <> 0 Then
Response.Write "ERROR GENERATING KEY." & "<P>"
Response.Write Err.Number & "<BR>"
Response.Write Err.Description & "<BR>"
Else
Response.Write "KEY SUCCESSFULLY GENERATED."
End If

数据挖掘实验室

Sub WriteKeyToFile(MyKeyString,strFileName)
Dim keyFile, fso
set fso = Server.CreateObject("scripting.FileSystemObject")
set keyFile = fso.CreateTextFile(strFileName, true)
keyFile.WriteLine(MyKeyString)
keyFile.Close
End Sub

数据挖掘实验室

Function KeyGeN(iKeyLength)
Dim k, iCount, strMyKey
lowerbound = 35
upperbound = 96
Randomize "" Initialize random-number generator.
For I = 1 to iKeyLength
s = 255
k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
strMyKey = strMyKey & Chr(k) & ""
next
KeyGeN = strMyKey
End Function 数据挖掘研究院