简单的vb加密解密问题,不用输入密码的
来源:百度知道 编辑:UC知道 时间:2024/05/12 19:50:26
asdliujun:
可不可以详细点。
我的邮箱cliang@foxmail.com
朋友,这个刚好我有源码,给你吧。就是你想要的。
你的界面我看了,粘贴下面的代码,就完全可以达到你想要的效果.
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 你的文件路径 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 你的文件路径 For Binary As