淺談文件和字符串加密

1、淺談字符和文件的加密目前計算機應(yīng)用越來越普遍，了解和懂得計算機知識方面的人越來越多，這無疑對于需要保密的文件和數(shù)據(jù)產(chǎn)生了更大的不安全性；因此數(shù)據(jù)和文件的安全性，越來越受到重視。本人在日常的學習和工作中，很在意這一點，也積累了一些小范例。下面我僅把我用過的兩個應(yīng)用程序拿給大家，希望從中我們能受到啟發(fā)，也能從中獲得收益。 字符串加密 字符串加密是對于字符的存儲很有價值；即對于有限數(shù)據(jù)的安全性會起很大的作用，但不適用于文件的加密，它受到存儲空間的限制。下面是一個應(yīng)用程序執(zhí)行后的界面。盡管，你覺得看起來很簡單，但是我們說只要能實現(xiàn)我們的目的就是很好的應(yīng)用。在此，你可以將要加密的字符輸入或者粘貼你要加密

2、的字符到原文一欄。然后在相應(yīng)的位置輸入密碼，它是你將字符加密的一個條件（必須輸入，否則不預(yù)加密）；同時它也是你對加密后的字符進行解密的一把鑰匙，缺少它，你就不能對你所加密的字符進行解密了。所以你一定要記住密碼。下面是加密應(yīng)用程序關(guān)于加密和解密的詳細算法和程序：加密程序（僅供參考）：Private Sub Cipher(ByVal password As String, ByVal from_text As String, to_text As String)Const MIN_ASC = 32 Space.Const MAX_ASC = 126 .Const NUM_ASC = MAX_ASC

3、 - MIN_ASC + 1Dim offset As LongDim str_len As IntegerDim i As IntegerDim ch As Integer Initialize the random number generator. offset = NumericPassword(password) Rnd -1 Randomize offset Encipher the string. str_len = Len(from_text) For i = 1 To str_len ch = Asc(Mid$(from_text, i, 1) If ch = MIN_ASC

4、 And ch = MIN_ASC And ch = MAX_ASC Then ch = ch - MIN_ASC offset = Int(NUM_ASC + 1) * Rnd) ch = (ch - offset) Mod NUM_ASC) If ch 0 Then ch = ch + NUM_ASC ch = ch + MIN_ASC to_text = to_text & Chr$(ch) End If Next iEnd Sub 在實際的應(yīng)用中，字符串的加密是需要的，但是更多的是對文件的加密；因為文件的加密更加可靠和安全，它確保了數(shù)據(jù)的完整和安全性。比字符加密更加有一定的優(yōu)勢。所以我

5、覺得文件的加密更加值得我們的學習。下面就來詳細說明一下文件加密。關(guān)于加密界面和一些相關(guān)代碼如下（僅供參考）：先瀏覽你要加密的源文件，然后確定文件加密后存放的位置，即目標文件，然后點擊加密，這時確認你加密的密碼（和上面一樣這個密碼是你解密的一把鑰匙，沒有它同樣你不會將加密后的文件解密，你需要好好保存密碼，建議你保存到軟盤上，或者記錄在安全的地方）密碼輸完后，文件就加密了！其實這個小程序和字符串加密沒什么兩樣基本原理相同。加密文件的算法：For Q = 1 To Len(Password) CurrChar = Mid(Password$, Q, 1) keyvalue = Asc(CurrCha

6、r) filenum = FreeFile X = Rnd(-keyvalue) Filename$ = txtdestination.Text The following code is labeled with obvious variables So it is easy to follow what is going on Open Filename$ For Binary As #filenum open the file name for output/input. For I = 1 To LOF(filenum) Get #filenum, I, singlechar char

7、num = Asc(singlechar) randominteger = Int(256 * Rnd) charnum = charnum Xor randominteger singlechar = Chr$(charnum) Put #filenum, I, singlechar Next I Close #filenumNext QClose #filenum 文件解密的算法：For Q = Len(Password) To 1 Step -1 CurrChar = Mid(Password$, Q, 1) keyvalue = Asc(CurrChar) filenum = Free

8、File X = Rnd(-keyvalue) Filename$ = txtdestination.Text The following code is labeled with obvious variables So it is easy to follow what is going on Open Filename$ For Binary As #filenum open the file name for output/input. For I = 1 To LOF(filenum) Get #filenum, I, singlechar charnum = Asc(singlechar) randominteger = Int(256 * Rnd) charnum = charnum Xor randominteger singlechar = Chr$(charnum) Put #filenum, I, singlechar Next I Close #filenumNext QClose #filenum以上僅是