vb点虐 文本夹加密 vb加密文本字符

如何用vb对文件夹进行加密

自行编写VB代码对文件夹进行加密。

在玉州等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、网站设计 网站设计制作定制网站设计,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,成都外贸网站制作,玉州网站建设费用合理。

单只是文件夹加密的话，例如：

在需要加密的文件夹路径创建一个BUG文件夹，然后把需要加密的文件夹剪切进去。

所谓的BUG文件夹，就是Windows环境下无法打开无法读取无法删除的文件夹。不过可以用命令提示符来创建、打开、删除。

求VB.NET生成TET文件的加密方法

使用加密方式存储即可实现别人无法查看内容，加密的方式有很多，适用你这里使用的是可逆的算法，推荐你使用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加密  

'/ /summary 

'/ param name="sourceString"待加密的字符串/param 

'/ returns加密后的BASE64编码的字符串/returns 

Public Function Encrypt(sourceString As String) As String  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim ms As New MemoryStream()  

Try  

Dim inData As Byte() = Encoding.Default.GetBytes(sourceString)  

Try  

Dim cs As New CryptoStream(ms, des.CreateEncryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(inData, 0, inData.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Return Convert.ToBase64String(ms.ToArray())  

Catch  

End Try  

Finally  

ms.Dispose()  

End Try  

End Function 'Encrypt  

'/ summary 

'/ 对DES加密后的字符串进行解密  

'/ /summary 

'/ param name="encryptedString"待解密的字符串/param 

'/ returns解密后的字符串/returns 

Public Function Decrypt(encryptedString As String) As String  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim ms As New MemoryStream()  

Try  

Dim inData As Byte() = Convert.FromBase64String(encryptedString)  

Try  

Dim cs As New CryptoStream(ms, des.CreateDecryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(inData, 0, inData.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Return Encoding.Default.GetString(ms.ToArray())  

Catch  

End Try  

Finally  

ms.Dispose()  

End Try  

End Function 'Decrypt  

'/ summary 

'/ 对文件内容进行DES加密  

'/ /summary 

'/ param name="sourceFile"待加密的文件绝对路径/param 

'/ param name="destFile"加密后的文件保存的绝对路径/param 

Overloads Public Sub EncryptFile(sourceFile As String, destFile As String)  

If Not File.Exists(sourceFile) Then  

Throw New FileNotFoundException("指定的文件路径不存在！", sourceFile)  

End If  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim btFile As Byte() = File.ReadAllBytes(sourceFile)  

Dim fs As New FileStream(destFile, FileMode.Create, FileAccess.Write)  

Try  

Try  

Dim cs As New CryptoStream(fs, des.CreateEncryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(btFile, 0, btFile.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Catch  

Finally  

fs.Close()  

End Try  

Finally  

fs.Dispose()  

End Try  

End Sub 'EncryptFile  

'/ summary 

'/ 对文件内容进行DES加密，加密后覆盖掉原来的文件  

'/ /summary 

'/ param name="sourceFile"待加密的文件的绝对路径/param 

Overloads Public Sub EncryptFile(sourceFile As String)  

EncryptFile(sourceFile, sourceFile)  

End Sub 'EncryptFile  

'/ summary 

'/ 对文件内容进行DES解密  

'/ /summary 

'/ param name="sourceFile"待解密的文件绝对路径/param 

'/ param name="destFile"解密后的文件保存的绝对路径/param 

Overloads Public Sub DecryptFile(sourceFile As String, destFile As String)  

If Not File.Exists(sourceFile) Then  

Throw New FileNotFoundException("指定的文件路径不存在！", sourceFile)  

End If  

Dim btKey As Byte() = Encoding.Default.GetBytes(key)  

Dim btIV As Byte() = Encoding.Default.GetBytes(iv)  

Dim des As New DESCryptoServiceProvider()  

Dim btFile As Byte() = File.ReadAllBytes(sourceFile)  

Dim fs As New FileStream(destFile, FileMode.Create, FileAccess.Write)  

Try  

Try  

Dim cs As New CryptoStream(fs, des.CreateDecryptor(btKey, btIV), CryptoStreamMode.Write)  

Try  

cs.Write(btFile, 0, btFile.Length)  

cs.FlushFinalBlock()  

Finally  

cs.Dispose()  

End Try  

Catch  

Finally  

fs.Close()  

End Try  

Finally  

fs.Dispose()  

End Try  

End Sub 'DecryptFile  

'/ summary 

'/ 对文件内容进行DES解密，加密后覆盖掉原来的文件  

'/ /summary 

'/ param name="sourceFile"待解密的文件的绝对路径/param 

Overloads Public Sub DecryptFile(sourceFile As String)  

DecryptFile(sourceFile, sourceFile)  

End Sub 'DecryptFile  

End Class 'DES  

End Namespace 'ZU14 

对文本文件加密

Dim des As New ZU14.DES()  

des.IV = "abcd哈哈笑" 

des.Key = "必须八位" 

'加密

des.EncryptFile("d:\a.txt", "d:\b.txt")  

'解密

des.DecryptFile("d:\b.txt")

用VB点虐 编写一个加密解密软件

"采用DES算法"这个说法不明确，首先是使用多少位的DES进行加密，通常是128位或192位，其次是，要先把主密钥转化成散列，才能供DES进行加密，转化的方法是什么没有明确，通常是md5，所以有的银行卡说是128位md5 3DS就是指用md5转换主密钥散列，用DES进行加密，但是DES本身是64位（包含校验码），2DES是128位，3DES是192位，但是没有2DES的叫法，所以128位、192位统称3DES

要完整的md5+3DS实例，需要100分以上，要不到我的空间中查找相关的文章

怎么用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