當前位置：
  1. 首頁
  2. 加密技術(shù)

用VB怎么給文件加密

admin 加密技術(shù)

每個人的電腦里多少都會有些敏感的私人文件或者是重要的商業(yè)資料，一般都會用些技術(shù)手段將文件等保護起來不讓別人看到，最常用的方法就是加密。用VB給文件加密其實也挺簡單。請跟我來吧！

用VB給文件加密的原理：

循環(huán)使用密碼中每個字符的ASCII碼值與文件的每個字節(jié)進行異或運算，然后寫入文件即可。這種加密方法是可逆的，即對明文進行加密得到密文，用相同的密碼對密文進行加密就得到明文。

用VB給文件加密的界面設計：

在窗體From1上放置驅(qū)動器列表框(Driver1)、目錄列表框(Dir1)、文件列表框(File1)各一個，這三個控件相互配合，用來確定要加密文件的位置。其中File1的Pattern屬性設為“*.TXT”，即僅顯示文本文件，再放置一個Check控件，用來控制顯示文件的類型，其Caption屬性設為“顯示全部文件”；接著放置兩個文本框，Text1顯示文件內(nèi)容，Text2用來輸入密碼，其Passchar屬性設為“*”，一個Label控件，其Caption屬性設為“密碼”；最后，放置兩個命令按鈕，其Caption屬性分別設為“加密/解密”和“退出”。

用VB給文件加密的程序代碼：

Option Explicit
Dim i As Long
Dim databuff As Byte '定義數(shù)組用于存放文件內(nèi)容
Dim addbuff As Byte '定義數(shù)組用于存放加密后的文件內(nèi)容
Dim password As Byte '定義數(shù)組用于存放密碼的ASCII值
Dim filename As String
Private Sub Check1_Click
If Check1.Value Then '控制是否顯示全部文件
File1.Pattern = "."
Else
File1.Pattern = ".txt"
End If
End Sub
Private Sub Command1_Click
Dim j As Integer
Dim password_len As Integer
password_len = LenText2.Text
ReDim passwordpassword_len As Byte
For i = 0 To password_len - 1 '把密碼轉(zhuǎn)化為ASCII碼
password i = AscMidText2.Text i + 1 1
Next
If filename = "" Then Exit Sub
Open filename For Binary As #1 '讀取要加密的文件內(nèi)容
ReDim databuffLOF1
Get #1 databuff
Close #1
ReDim addbuffUBounddatabuff As Byte
For i = 0 To UBound databuff
If j >= password_len Then '循環(huán)使用密碼
j = 0
Else
j = j + 1
End If
addbuff i = databuff i Xor password j'進行異或運算
Next
Open filename For Binary As #1 '把加密后的內(nèi)容寫入文件
Put #1 addbuff
Close #1
Text1 = StrConvaddbuff vbUnicode'顯示加密后的文件內(nèi)容
Text2.Text = ""
End Sub
Private Sub Command2_Click
End
End Sub
Private Sub Dir1_Change
File1.Path = Dir1.Path '與文件列表框相關(guān)聯(lián)
End Sub
Private Sub Drive1_Change
On Error GoTo a0
Dir1.Path = Drive1.Drive '與目錄列表框相關(guān)聯(lián)
a0 If Err Then MsgBox ErrorErr '發(fā)生錯誤，提示錯誤內(nèi)容
End Sub
Private Sub File1_Click'單擊文件時，顯示文件內(nèi)容
filename = Dir1.Path + File1.filename
If filename = "" Then Exit Sub
Open filename For Binary As #1
ReDim databuff LOF 1
Get #1 databuff
Close #1
Text1 = StrConv databuff vbUnicode
End Sub

用VB給文件加密，對那些懂VB編程的人來說，是小菜一碟，但是不懂編程的人來說，就感覺比較的困難了，所以還是建議您使用專業(yè)的文件加密軟件來給您的文件加密。超級加密3000操作簡便，加密效果好，您可以下載超級加密3000來給您的文件加密試試。

小知識之VB介紹：

VB源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。