锐客网

  1. 首页 > 睿知 > it技术 > >

VB.NET中加密文件夹 vb加密解密

IT技术文件

如何用vb对文件夹进行加密自行编写VB代码对文件夹进行加密 。
单只是文件夹加密的话，例如：
在需要加密的文件夹路径创建一个BUG文件夹，然后把需要加密的文件夹剪切进去 。
所谓的BUG文件夹，就是Windows环境下无法打开无法读取无法删除的文件夹 。不过可以用命令提示符来创建、打开、删除 。
怎么用VB给文件夹加密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.NET生成TET文件的加密方法使用加密方式存储即可实现别人无法查看内容VB.NET中加密文件夹，加密VB.NET中加密文件夹的方式有很多 ， 适用VB.NET中加密文件夹你这里使用的是可逆的算法，推荐你使用DES加密
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Namespace ZU14
NotInheritable Public Class DES
Private iv As String = "1234的yzo"
Private key As String = "123在yzo"
'/ summary
'/ DES加密偏移量，必须是=8位长的字符串
'/ /summary
Public Property IV() As String
Get
Return iv
End Get
Set
iv = value
End Set
End Property
'/ summary
'/ DES加密的私钥，必须是8位长的字符串
'/ /summary
Public Property Key() As String
Get
Return key
End Get
Set
key = value
End Set
End Property
'/ summary
'/ 对字符串进行DES加密

推荐阅读


上一篇：flutter服务器交互，flutter开发服务端

下一篇：微信直播屏幕旋转，微信直播屏幕怎么旋转