简单的vb加密解密问题,不用输入密码的

发布网友发布时间：2024-12-06 07:00

共3个回答

热心网友时间：2024-12-06 07:04

朋友，这个刚好我有源码，给你吧。就是你想要的。

你的界面我看了，粘贴下面的代码，就完全可以达到你想要的效果.

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 #1
Put #1, , B
Close #1
End If
End Sub

里面的文件路径就是你的文件控件组成的完整路径，这个我想你应该会吧。

这个代码功能就是点一下就加密，再点一下就是解密。

热心网友时间：2024-12-06 07:04

我做了一个这样的东东,文件(夹)被锁定后将不能被复制,删除,打开,基本能满足你的要求,需要请留信箱

热心网友时间：2024-12-06 07:05

可以运用vb中的异或（xor）运算符来进行加密解密，加密解密的程序一样的可以实现你要的功能。