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

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

它的基本原理是，需要有一个需要加密的明文和一个随机生成的解密钥匙文件。然后使用这两个文件组合起来生成密文。
(明文) 组合 (密钥) = 加密后的密文所以本文介绍的是生成密钥的代码。我们假设我们生成的密钥为512位长的密钥，它已经足够来加密一个文本字符了。代码如下：
KeyGeN.asp文件

&lt;%
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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 &lt;&gt; 0 Then
    Response.Write "ERROR GENERATING KEY." &amp; " "
    Response.Write Err.Number &amp; " "
    Response.Write Err.Description &amp; " "
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 &amp; Chr(k) &amp; ""
    Next
    KeyGeN = strMyKey
End Function

%&gt;<span class="Apple-style-span" style="font-family: Georgia, 'Times New Roman', 'Bitstream Charter', Times, serif; font-size: 13px; line-height: 19px; white-space: normal;">?</span>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

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." & " "

Response.Write Err.Number & " "

Response.Write Err.Description & " "

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) & ""

KeyGeN = strMyKey

End Function

%><span class="Apple-style-span" style="font-family: Georgia, 'Times New Roman', 'Bitstream Charter', Times, serif; font-size: 13px; line-height: 19px; white-space: normal;">?</span>

在IIS下运行上面的KeyGeN.asp页面。你只需要如此做一次，他将把密钥写入文件c:key.txt中 (如果你愿意的话，你也可以把这个文件放到另外一个更加安全的地方).
然后你可以打开这个key.txt文件，它将包含512个ASCII码在35到96之间的字符.并且由于是随机生成的，所以每个人的私人密钥文件key.txt将是不一样的，下面是一个例子密钥文件：
IY/;$>=3)?^-+7M32#Q]VOII.Q=OFMC:P7_B; NSY-^S.AA=BJ3M0.WF#T5LGK(=/ TF_&K2A-D-54[2P,#*JU%60RF3CMF0(#T07UFZ=>#,+.AW_/+]DIB;2DTIA57TT&-)O/*F
M>H.XH5W^0Y*=71+5*^^PKJ(=E/X#7A:?,S>R&T;+B# W5PBH^* L?(M4S8+3JMK5]HC%^1^+K;$WBXPA?F&5^ED$7%*O/U[1/?8(5:1OVWV*1Z-%:K&V?X1,1KU
RD@3W0^D)
下面再仔细分析一下上面的程序，我们发现其中的lowerbound和upperbound的数值其实就是你想使用来加密的ASCII字符范围。
后面一篇文章中将介绍如何使用这个密钥来加密和解密一个字符串在第一部分，讨论了如何生成密钥，下面将介绍如何使用这个密钥来加密和解密一个字符串。
下面的代码就是能够同时实现这个功能的函数
Crypt.asp文件

&lt;%
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: " &amp; g_CryptThis &amp; " "
Response.Write " KEY VALUE: " &amp; g_Key &amp; " "
Response.Write " ENCRYPTED CYPHERTEXT: " &amp; EnCrypt(g_CryptThis) &amp; " "
Response.Write " DECRYPTED CYPHERTEXT: " &amp; DeCrypt(EnCrypt(g_CryptThis)) &amp; " "

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 &amp; 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 &amp; 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 &amp; ts.ReadLine
    Loop

    ReadKeyFromFile = keyFile
End Function

%&gt;

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)

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)

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)

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年发明的。这是一种使用异或方法进行加密解密的方法。

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

发表回复 取消回复

相关文章

发表回复取消回复