怎么用VB给文件夹加密
发布网友
发布时间:2022-05-16 03:25
我来回答
共1个回答
热心网友
时间:2023-08-15 20:30
1、由于采用二进制读取文件的方式,因此加密时一般可以不考虑文件类型。
2、这里只进行一次异或运算,如有需要可以进行多次异或运算。
3、此加密算法速度快,当然加密强度也低 ;
参考代码如下:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'-----------------------------------------------------------------------
'函数说明: 使用异或运算加密文件(可加密大部分文件)
'参数说明: key - 密钥
' fileName - 普通文件名,
' encryptFileName - 加密后的文件名
'返回值: true - 成功,false - 失败
'-----------------------------------------------------------------------
Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean
On Error GoTo errHandler
Dim inputFileNo As Integer
Dim fileBytes() As Byte
Dim length As Long
XOR_Encrypt = False
'打开文件并保存在二进制数组中
inputFileNo = FreeFile
Open fileName For Binary As #inputFileNo
length = LOF(inputFileNo)
If length = 0 Then
MsgBox "退出加密:文件内容为空!", vbInformation, "提示"
Exit Function
End If
ReDim fileBytes(length - 1) As Byte
Get inputFileNo, , fileBytes()
Close #inputFileNo
'将该二进制数组进行异或加密
Dim i As Long
For i = LBound(fileBytes) To UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor key
Next
'将异或加密后的二进制数组保存在新的文件中
Dim outputFileNo As Integer
outputFileNo = FreeFile
Open encryptFileName For Binary As #outputFileNo
Put outputFileNo, , fileBytes
Close #outputFileNo
XOR_Encrypt = True
errHandler:
If Err.Number Then
MsgBox "加密过程中出错:" & Err.Description, vbCritical, "错误"
XOR_Encrypt = False
Resume Next
End If
End Function
怎么用VB给文件夹加密
If length = 0 Then MsgBox "退出加密:文件内容为空!", vbInformation, "提示"Exit Function End If ReDim fileBytes(length - 1) As Byte Get inputFileNo, , fileBytes()Close #inputFileNo '将该二进制数组进行异或加密 Dim i As Long For i = LBound(fileBytes) To UBound(fileBytes)...
用VB编写程序怎样给文件夹加密码?
界面设计:在窗体From1上放置驱动器列表框(Driver1)、目录列表框(Dir1)、文件列表框(File1)各一个,这三个控件相互配合,用来确定要加密文件的位置。其中File1的Pattern属性设为“*.TXT”,即仅显示文本文件;再放置一个Check控件,用来控制显示文件的类型,其Caption属性设为“显示全部文件”;接...
如何用vb对文件夹进行加密
自行编写VB代码对文件夹进行加密。单只是文件夹加密的话,例如:在需要加密的文件夹路径创建一个BUG文件夹,然后把需要加密的文件夹剪切进去。所谓的BUG文件夹,就是Windows环境下无法打开无法读取无法删除的文件夹。不过可以用命令提示符来创建、打开、删除。
在vb中实现对文件夹的加密
比较简单,用程序将文件名修改,例如修改为原文件夹名.{f456782-4c8b-57ff-00dd00786f6sw},即可,如果要解密,需要使用Winrar.exe解密。具体:在一个窗体添加DriveListBox控件一个,DirListBox控件一个,二个按钮控件,按钮分别是“加密”和“退出”。主要代码如下:Private Sub Command2_Click()Nam...
如何用vb6.0编写文件夹加密程序
并选择查看所有文件,找到你的 回收站 。在回收站的右键属性里去掉隐藏,选种“启用 缩略图 察看方式”。进入回收站,可以看到desktop.ini这个文件夹。在加密文件夹的时候,只要把desktop.ini这个文件复制到所要加密的文件夹下就可以实现了。在vb中用文本保存desktop.ini这个里的内容,然后生成到文件夹下...
怎样用vb设置文件夹权限
1、随意的到电脑中选择一个文件夹,点击右键,选择属性选项。2、在弹出来的属性窗口中切换到安全这一栏,然后选择最下方的高级。3、在高级设置窗口中,咱们选择所有者,然后点击编辑,最后是确定。4、在名称这一栏中选择所有者,然后将下方的“替换子容器和对象的所有者”勾选上,最后确定退出设置窗口。
关于VB文件夹加密(高悬赏+高追加)
以VB的能力很难做到你所说的事情 不过下面这句代码虽然不能加密,但可以将你的文件夹伪装成MP3文件 Name 文件夹名 as 文件夹名+".{00020c01-0000-0000-c000-000000000046}"顺便再在这个文件夹中放一个MP3文件,这样的话这个文件夹就变成MP3图标了,双击的话会直接播放你放到这个文件夹中的MP3,想...
如何用VB代码打开局域网上共享的文件夹
回答:在网上邻居中找到你要复制文件夹的那台电脑,而且那个文件夹必须是共享的,然后你在网上邻居中双击进入那台电脑,里面就有那个文件夹了。不用那么麻烦。
vb.net创建文件夹怎么赋权限
DirectorySecurity = New DirectorySecurityDim rule As FileSystemAccessRule = New FileSystemAccessRule("Administrator", FileSystemRights.Delete, AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test", sec)这段代码就是以 Administrator 帐户 在 C:\ 创建 test 文件夹。
VB 锁定文件夹 问题
给你个提示,让这个文件夹改变(比如,类压缩:就是让这个文件夹不再是文件夹而是一个包含所有文件的文件)。给这个东西锁定应该是就轻而易举的了。