VB 帮做个程序,关于文本加密与解密?

来源：百度知道 编辑：UC知道 时间：2024/06/27 19:43:55
下面的代码是加密和解密的.
我想做个如图描写的效果这样,能不能做到.请VB高手帮帮忙.谢谢了
如何才做到每次运行此工程就能解密F盘Pass.txt显示回正常的字体Text1
而F盘的Pass.txt一样是加密状态.

Option Explicit
Dim B() As Byte
Dim PassWord As String
Dim B1() As Byte
Dim I As Long, l As Long, j As Long

Private Sub Command1_Click()
Open "f:\pass.txt" For Binary As #1
If LOF(1) > 0 Then
j = LOF(1)
ReDim B(LOF(1) - 1)
Get #1, , B
End If
Close #1

Dim P As Long
PassWord = "OutsideFile"
l = Len(PassWord)

ReDim B1(l)
For I = 1 To l
B1(I) = Asc(Mid(PassWord, I, 1))
Next

For I = 0 To UBound(B)
B(I) = B(I) Xor B1(P)
P = P + 1
If P > l Then P = 0
Next

Open "f:\pass.txt" For Binary As #1
Put #1, , B
Close #1
End Sub
OK

Option Explicit
Dim B() As Byte
Dim PassWord As String
Dim B1() As Byte
Dim I As Long, l As Long, j As Long

Private Sub Command1_Click()
Open "z:\pass.txt" For Binary As #1
If LOF(1) > 0 Then
j = LOF(1)
ReDim B(LOF(1) - 1)
Get #1, , B
End If
Close #1
For I = 0 To UBound(B)
Text2.Text = Text2.Text & Chr(B(I))
Next
Dim P As Long
PassWord = "OutsideFile"
l = Len(PassWord)
ReDim B1(l)
For I = 1 To l
B1(I) = Asc(Mid(PassWord, I, 1))
Next
For I = 0 To UBound(B)
B(I) = B(I) Xor B1(P)
P = P + 1
Text1.Text = Text1.Text & Chr(B(I))
If P > l Then P = 0
Next
End Sub

没必要最后写回去文件就完了
读到程序里以后直接在内存中解密了就行了