使用ASP密碼編譯演算法加密你的資料(一)

來源:互聯網
上載者:User
加密|資料|演算法 簡介
  首先簡單介紹一下有關加密的背景。由於美國禁止幾種密碼演算法的對外出口的加密位元(例如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
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

%>
  在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字元範圍。後面一篇文章中將介紹如何使用這個密鑰來加密和解密一個字串



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。