VB 高手帮简单改下代码,关于加密字串?

来源：百度知道 编辑：UC知道 时间：2024/05/30 03:53:04
下面"代码(2)"是加密和解文本的.
能不能帮我改下,我想要的效果.
Text1输入,立即就在Text2显示加密的效果.如"代码(1)"效果.
为因"代码(1)"加密太简单了.所以请高手们帮改下.

===========代码(1)===============
Private Sub Text1_Change()
k = ""
For I = 1 To Len(Text1)
If m <> 90 And m <> 122 Then
m = Asc(Mid(Text1, I, 1)) + 1
Else
m = m - 25
End If
k = k & Chr(m)
Next I
Text2 = k
End Sub

===========代码(2)===============

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) = A

Option Explicit
Dim PassWord As String
Dim B1() As Byte
Dim I As Long, l As Long, j As Long
Private Sub Text1_Change()
ReDim B(Len(Text1.Text))
For I = 1 To Len(Text1.Text)
B(I) = Asc(Mid(Text1.Text, I, 1))
Next I
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 I
Text2.Text = ""
For I = 1 To UBound(B)
B(I) = B(I) Xor B1(P)
P = P + 1
Text2.Text = Text2.Text & Chr(B(I))
If P > l Then P = 0
Next I
End Sub

在text1的Change事件里写代码就可以了