使用ASP加密算法加密你的数据-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

使用ASP加密算法加密你的数据
使用ASP加密算法加密你的数据简介

首先简朴介绍一下有关加密的背景。由于美国禁止几种密码算法的对外出口的加密位数（例如SSL的40位加密限制），本文将介绍一种ASP可以使用的简朴字符加密算法，而不是那些受限制的加密算法。其实，这里介绍的加密算法对于一般的运用来说已经足够解密人麻烦一阵子的了。它的加密基础是最简朴的Vernum密码方式，我将在下一篇文章中介绍这种密码。

它的基本原理是，需要有一个需要加密的

明文和一个随机生成的解密钥匙文件。然后使用这两个文件组合起来生成密文。
(明文) 组合 (密钥) = 加密后的密文

所以本文介绍的是生成密钥的代码。我们假设我们生成的密钥为512位长的密钥，它已经足够来加密一个文本字符了。代码如下：

KeyGeN.asp文件
<%
\\\'******************************
\\\' 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
?Ｒesponse.Write "ERROR GENERATING KEY." & ""
?Ｒesponse.Write Err.Number & " "
?Ｒesponse.Write Err.Description & " "
Else
?Ｒesponse.Write "KEY SUCCESSFULLY GENERATED."
End If

Sub WriteKeyToFile(MyKeyString,strFileName)
?Ｄim keyFile, fso
?ｓet fso = Server.CreateObject("scripting.FileSystemObject")
?ｓet keyFile = fso.CreateTextFile(strFileName, true)
?ｋeyFile.WriteLine(MyKeyString)
?ｋeyFile.Close
End Sub

Function KeyGeN(iKeyLength)
?Ｄim k, iCount, strMyKey
?ｌowerbound = 35
?ｕpperbound = 96
?Ｒandomize \\\' Initialize random-number generator.
?Ｆor I = 1 to iKeyLength
?，ｓ = 255
?，ｋ = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
?，ｓtrMyKey = strMyKey & Chr(k) & ""
?ｎext
?ＫeyGeN = strMyKey
End Function

%>

在IIS下运行上面的KeyGeN.asp页面。你只需要如此做一次，他将把密钥写入文件c:/key.txt中 (假如你愿意的话，你也可以把这个文件放到另外一个更加安全的地方).然后你可以打开这个key.txt文件，它将包含512个ASCII码在35到96之间的字符.并且由于是随机生成的，所以每个人的私人密钥文件key.txt将是不相同的，下面是一个例子密钥文件：

IY/;$>=3)?^-+7M32#Q]VOII.Q=OFMC`:P7_B;<R/8U)XFHC
<SR_E$.DLG\\\'=I+@5%*+OP:F_=\\\';\\\'NSY`-^S.`AA=BJ3M0.
WF#T5LGK(=/<:+C2K/^7AI$;PU\\\'OME2+T8ND?W$C(J/,;
631\\\'M-LD5F%%1TF_&K2A-D-54[2P,#\\\'*JU%6`0RF3CMF0
(#T07U\\\'FZ=>#,+.AW_/+\\\']DIB;2DTIA57TT&-)O\\\'/*F\\\'M>
H.XH5W^0Y*=71+5*^`^PKJ(=E/X#7A:?,S>R&T;+B#<:-*
/@)X9F`_`%QA3Z95.?_T#1,$2#FWW5PBH^*<])A(
S0@AVD8C^Q0R^T1D?(1+,YE71X+.*+U$:3XO^Q].KG&0N0];
[LJ<OZ6IN?7N4<GTL?(M\\\'4S8+3JMK5]HC%^1^+K;/
$WBXPA?F&5^E/D$7%*O/U[1/?8(5:1OVWV*1Z-%`:K&V?X1,
1KURD@3W0^D)<OG40?(VJ4EWL5A5M<$A);CQ36R9I]*U#Q%1
<Y/&SA%#1<V

下面再仔细分析一下上面的程序，我们发现其中的lowerbound和upperbound的数值其实就是你想使用来加密的ASCII字符范围。后面一篇文章中将介绍如何使用这个密钥来加密和解密一个字符串

在第一部分，讨论了如何生成密钥，下面将介绍如何使用这个密钥来加密和解密一个字符串。

下面的代码就是能够同时实现这个功能的函数

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 "ORIGINAL STRING: " & g_CryptThis & ""
Response.Write "KEY value: " & g_Key & ""
Response.Write "ENCRYPTED CYPHERTEXT: " & EnCrypt(g_CryptThis) & ""
Response.Write "DECRYPTED CYPHERTEXT: " & DeCrypt(EnCrypt(g_CryptThis)) & ""

Function EnCrypt(strCryptThis)
?Ｄim strChar, iKeyChar, iStringChar, I
?ｆor I = 1 to Len(strCryptThis)
?，ｉKeyChar = Asc(mid(g_Key,I,1))
?，ｉStringChar = Asc(mid(strCryptThis,I,1))
?，＼\\' *** uncomment below to encrypt with addition,
?，＼\\' iCryptChar = iStringChar + iKeyChar
?，ｉCryptChar = iKeyChar Xor iStringChar
?，ｓtrEncrypted = strEncrypted & Chr(iCryptChar)
?ｎext
?ＥnCrypt = strEncrypted
End Function

Function DeCrypt(strEncrypted)
?Ｄim strChar, iKeyChar, iStringChar, I
?ｆor I = 1 to Len(strEncrypted)
?，ｉKeyChar = (Asc(mid(g_Key,I,1)))
?，ｉStringChar = Asc(mid(strEncrypted,I,1))
?，＼\\' *** uncomment below to decrypt with subtraction
?，＼\\' iDeCryptChar = iStringChar - iKeyChar
?，ｉDeCryptChar = iKeyChar Xor iStringChar
?，ｓtrDecrypted = strDecrypted & Chr(iDeCryptChar)
?ｎext
?ＤeCrypt = strDecrypted
End Function

Function ReadKeyFromFile(strFileName)
?Ｄim keyFile, fso, f
?ｓet fso = Server.CreateObject("Scripting.FileSystemObject")
?ｓet f = fso.GetFile(strFileName)
?ｓet ts = f.OpenAsTextStream(1, -2)

?Ｄo While not ts.AtEndOfStream
?，ｋeyFile = keyFile & ts.ReadLine
?Ｌoop

?ＲeadKeyFromFile = keyFile
End Function

%>

在Crypt.asp中我们首先从密钥文件中得到密钥值，然后从这段密钥中截取和我们需要加密的明文同样长度的密钥。然后使用一个简朴的异或操作将明文和密钥进行运算，那么得到的结果就是加密后的密文了。过程很简朴的。由于是使用了异或操作，所以解密将异常简朴，只要使用同样的密钥对密文再次进行异或操作就能够解密了。在上面介绍的基础上，你可以少加改动，就可以使用同样的方式加密一个文件。唯一需要注重的是，对于一个二进制文件，你需要做一些完整性检查以保证转变回来的字符不要越界。现在你需要做的就是把密钥保存在服务器上的一个安全的地方（不能够被外部访问）

返回类别: 教程
上一教程: Relaxlife.net可加密/解密中文/英文的Asp代码
下一教程: 怎样给文件加密最安全(一种方式)？

您可以阅读与"使用ASP加密算法加密你的数据"相关的教程:
· 使用ASP加密算法加密你的数据(二)
· 使用ASP加密算法加密你的数据（二）
· 使用ASP加密算法加密你的数据(一)
· 使用ASP加密算法加密你的数据（一）
· MD5加密算法 ASP版


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接