vbtxt文件加密

㈠ vb 加密字元串的方法

PrivateSubCommand1_Click()'加密
Dimb()AsByte,iAsLong
Open"d:1.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
Fori=0ToUBound(b)-1
b(i)=b(i)Xorb(i+1)
Next
b(i)=b(i)Xor93
Open"d:2.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"1.txt已加密為2.txt"
EndSub

PrivateSubCommand2_Click()'解密
Dimb()AsByte,iAsLong
Open"d:2.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
b(UBound(b))=b(UBound(b))Xor93
Fori=UBound(b)-1To0Step-1
b(i)=b(i)Xorb(i+1)
Next
Open"d:3.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"2.txt已解密為3.txt"
EndSub

1.txt加密後存為2.txt

2.txt解密後存為3.txt

請注意，這個程序是可以加密解密任何文件的（包括exe可執行文件），不單單是文本文件。

㈡ vb 請問怎麼將寫入.txt文件的內容加密

簡單點加密就用 異或

Dimb()AsByte,iAsLong
b=StrConv("test123",vbFromUnicode)
Fori=0ToUBound(b)
b(i)=b(i)Xor50
Next
將數組b內容保存到文本
同樣的代碼解密

㈢ 怎樣用VB編寫一個文件加密程序

位元組逐位倒排序加密法是以比特為單位的換位加密方法，用VB實現的具體演算法是：
(1) 以二進制模式打開源文件；
(2) 從源文件第I位讀取一個位元組，假設為字母「A」，得到「A」的ASCII值為65；
(3) 將65轉換成八位二進制串為「01000001」；
(4) 將「01000001」按位元組逐位倒排序得另一個八位二進制串「10000010」；
(5) 將「10000010」轉換成十進制再寫回源文件第I位置，完成一個位元組的加密；
(6) 重復(2)、(3)、(4)和(5)，直到所有位元組加密結束。
為了使程序模塊化，我們用函數過程ByteToBin完成將位元組型數據轉換成二進制串（其實質就是將十進制數轉換成八位二進制串）；用函數過程BinToByte將二進制串轉換成位元組型數據（實質是將八位二進制串轉換成十進制數）：用函數過程Reverse將八位二進制串逐位倒排序。具體程序如下：
Function ByteToBin(m As Byte) As String ' 將位元組型數據轉換成八位二進制字元串
Dim c$
c$ = ""
Do While m <> 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 將八位二進制字元串顛倒順序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 將八位二進制串轉換成十進制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("請輸入要加密的文件名！注意加上路徑名：")
If Dir(fname) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二進制訪問模式打開待加密文件
For i = 1 To LOF(1) ' LOF函數是求文件長度的內部函數
Get #1, i, x ' 取出第i個位元組
x = BinToByte(Reverse(ByteToBin(x))) ' 這里調用了三個自定義函數
Put #1, i, x ' 將加密後的這個位元組寫回到文件原位置
Next i
Close
MsgBox "任務完成！"
End Sub
本例可以完成對任意文件的加密與解密，對同一文件作第一次處理為加密，第二次處理為解密。要調試本程序，可用記事本在C盤根目錄下任意建立一個文本文件（假設為文件名為aaa.txt），其中的內容任意（可以包括字母、漢字、數字、回車符、換行符等）。運行本程序後，在輸入文件名的對話框中輸入文件名（如：「C:\aaa.txt」）後回車，即可完成對文件的加密。文件加密後，可以在記事本中打開該文件查看加密效果。如果想解密，可再次運行該程序並輸入相同文件名。

㈣ 用VB編寫程序怎樣給文件夾加密碼

加密原理：循環使用密碼中每個字元的ASCII碼值與文件的每個位元組進行異或運算，然後寫入文件即可。這種加密方法是可逆的，即對明文進行加密得到密文，用相同的密碼對密文進行加密就得到明文。
界面設計：在窗體From1上放置驅動器列表框（Driver1）、目錄列表框（Dir1）、文件列表框（File1）各一個，這三個控制項相互配合，用來確定要加密文件的位置。其中File1的Pattern屬性設為「*.TXT」，即僅顯示文本文件；再放置一個Check控制項，用來控制顯示文件的類型，其Caption屬性設為「顯示全部文件」；接著放置兩個文本框，Text1顯示文件內容，Text2用來輸入密碼，其Passchar屬性設為「*」，一個Label控制項，其Caption屬性設為「密碼」；最後，放置兩個命令按鈕，其Caption屬性分別設為「加密/解密」和「退出」。
程序代碼：
Option Explicit
Dim i As Long
Dim databuff（） As Byte 』定義數組用於存放文件內容
Dim addbuff（） As Byte 』定義數組用於存放加密後的文件內容
Dim password（） As Byte 』定義數組用於存放密碼的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 = Len（Text2.Text）
ReDim password（password_len） As Byte
For i = 0 To password_len - 1 』把密碼轉化為ASCII碼
password（i）= Asc（Mid（Text2.Text，i + 1，1））
Next
If filename = "" Then Exit Sub
Open filename For Binary As #1 』讀取要加密的文件內容
ReDim databuff（LOF（1））
Get #1，， databuff
Close #1
ReDim addbuff（UBound（databuff））As Byte
For i = 0 To UBound（databuff）
If j >= password_len Then 』循環使用密碼
j = 0
Else
j = j + 1
End If
addbuff（i）= databuff（i）Xor password（j）』進行異或運算
Next
Open filename For Binary As #1 』把加密後的內容寫入文件
Put #1，，addbuff
Close #1
Text1 = StrConv（addbuff vbUnicode）』顯示加密後的文件內容
Text2.Text = ""
End Sub
Private Sub Command2_Click（）�
.End
End Sub
Private Sub Dir1_Change（）�
File1.Path = Dir1.Path 』與文件列表框相關聯
End Sub
Private Sub Drive1_Change（）�
On Error GoTo a0
Dir1.Path = Drive1.Drive 』與目錄列表框相關聯
a0：If Err Then MsgBox（Error（Err））』發生錯誤，提示錯誤內容
End Sub
Private Sub File1_Click（）』單擊文件時，顯示文件內容
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