Ⅰ 怎么用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编程对文件加密
Const n As Integer = 1
Private Sub Form_Load()
dim temp as string ,strT as string ,strX as string
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
strT = strT & temp & vbCrLf
Loop
Close #1
For i = 1 To Len(strT)
strx = strx & IIf(Asc(Mid(strT, i, 1)) = 13 Or Asc(Mid(strT, i, 1)) = 10, Mid(strT, i, 1), Chr(Asc(Mid(strT, i, 1)) + n))'解密就读出来 操作一样 加密时是加N 解密时就是减N
Next
Open "c:\2.txt" For Output As #1
Print #1, strx
Close #1
End Sub
Ⅲ 怎样用VB给文件夹进行密码加密
1、由于采用二进制读取文件的方式，因此加密时一般可以不考虑文件类型。
2、这里只进行一次异或运算，如有需要可以进行多次异或运算。
3、此加密算法速度快，当然加密强度也低 ；
参考代码如下：
'-----------------------------------------------------------------------
'函数说明：使用异或运算加密文件（可加密大部分文件）
'参数说明：key-密钥
'fileName-普通文件名，
'encryptFileName-加密后的文件名
'返回值：true-成功，false-失败
'-----------------------------------------------------------------------
PrivateFunctionXOR_Encrypt(keyAsInteger,fileNameAsString,encryptFileNameAsString)AsBoolean
OnErrorGoToerrHandler
DiminputFileNoAsInteger
DimfileBytes()AsByte
DimlengthAsLong
XOR_Encrypt=False
'打开文件并保存在二进制数组中
inputFileNo=FreeFile
OpenfileNameForBinaryAs#inputFileNo
length=LOF(inputFileNo)
Iflength=0Then
MsgBox"退出加密：文件内容为空！",vbInformation,"提示"
ExitFunction
EndIf
ReDimfileBytes(length-1)AsByte
GetinputFileNo,,fileBytes()
Close#inputFileNo
'将该二进制数组进行异或加密
DimiAsLong
Fori=LBound(fileBytes)ToUBound(fileBytes)
fileBytes(i)=fileBytes(i)Xorkey
Next
'将异或加密后的二进制数组保存在新的文件中
DimoutputFileNoAsInteger
outputFileNo=FreeFile
#outputFileNo
PutoutputFileNo,,fileBytes
Close#outputFileNo
XOR_Encrypt=True
errHandler:
IfErr.NumberThen
MsgBox"加密过程中出错："&Err.Description,vbCritical,"错误"
XOR_Encrypt=False
ResumeNext
EndIf
EndFunction
Ⅳ vb 加密文件
再加一次 就可以 还原加密文件!
做你师傅！免费的！！共同进步吧！
qq：6543332
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 "f:\pass.txt" 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 "f:\password.txt" For Binary As #1
Put #1, , B
Close #1
End Sub
Ⅳ [VB] 怎么样可以把保存下来的文件加密
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
我是用Open "C:\..." For OutPut As #1这种方法保存的，我想让别人用记事本打开的时候变成乱码。
解析:
先将字符转换为数值，用asc函数
再将数值进行运算，比如：原数值+5，记住不要超过范围
再将数值转换为字符，用chr函数
还可以用二进制的方式保存，用open "C:\.." for binary as #1,二进制的那个单词可能有误
Ⅵ 用VB编写程序怎样给文件夹加密码
加密原理：循环使用密码中每个字符的ASCII码值与文件的每个字节进行异或运算，然后写入文件即可。这种加密方法是可逆的，即对明文进行加密得到密文，用相同的密码对密文进行加密就得到明文。
界面设计：在窗体From1上放置驱动器列表框（Driver1）、目录列表框（Dir1）、文件列表框（File1）各一个，这三个控件相互配合，用来确定要加密文件的位置。其中File1的Pattern属性设为“*.TXT”，即仅显示文本文件；再放置一个Check控件，用来控制显示文件的类型，其Caption属性设为“显示全部文件”；接着放置两个文本框，Text1显示文件内容，Text2用来输入密码，其Passchar属性设为“*”，一个Label控件，其Caption属性设为“密码”；最后，放置两个命令按钮，其Caption属性分别设为“加密/解密”和“退出”。
程序代码：
Option Explicit
Dim i As Long
Dim databuff（） As Byte ’定义数组用于存放文件内容
Dim addbuff（） As Byte ’定义数组用于存放加密后的文件内容
Dim password（） As Byte ’定义数组用于存放密码的ASCII值
Dim filename As String
Private Sub Check1_Click（）�
If Check1.Value Then ’控制是否显示全部文件
File1.Pattern = "*.*"
Else
File1.Pattern = ".txt"
End If
End Sub
Private Sub Command1_Click（）�
Dim j As Integer
Dim password_len As Integer
password_len = Len（Text2.Text）
ReDim password（password_len） As Byte
For i = 0 To password_len - 1 ’把密码转化为ASCII码
password（i）= Asc（Mid（Text2.Text，i + 1，1））
Next
If filename = "" Then Exit Sub
Open filename For Binary As #1 ’读取要加密的文件内容
ReDim databuff（LOF（1））
Get #1，， databuff
Close #1
ReDim addbuff（UBound（databuff））As Byte
For i = 0 To UBound（databuff）
If j >= password_len Then ’循环使用密码
j = 0
Else
j = j + 1
End If
addbuff（i）= databuff（i）Xor password（j）’进行异或运算
Next
Open filename For Binary As #1 ’把加密后的内容写入文件
Put #1，，addbuff
Close #1
Text1 = StrConv（addbuff vbUnicode）’显示加密后的文件内容
Text2.Text = ""
End Sub
Private Sub Command2_Click（）�
.End
End Sub
Private Sub Dir1_Change（）�
File1.Path = Dir1.Path ’与文件列表框相关联
End Sub
Private Sub Drive1_Change（）�
On Error GoTo a0
Dir1.Path = Drive1.Drive ’与目录列表框相关联
a0：If Err Then MsgBox（Error（Err））’发生错误，提示错误内容
End Sub
Private Sub File1_Click（）’单击文件时，显示文件内容
filename = Dir1.Path + File1.filename
If filename = "" Then Exit Sub
Open filename For Binary As #1
ReDim databuff（LOF（1））
Get #1，，databuff
Close #1
Text1 = StrConv（databuff，vbUnicode）
End Sub
Ⅶ vb如何实现文件夹加密
Dim FilePath As String
Dim ToPath As String
Dim FormPath As String
Private Sub Command1_Click()
On Error GoTo Onerr
FormPath = FilePath
Select Case Combo1.Text
Case "控制面板"
ToPath = FilePath & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
Case "打印机"
ToPath = FilePath & ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
Case "回收站"
ToPath = FilePath & ".{645FF040-5081-101B-9F08-00AA002F954E}"
Case "网页"
ToPath = FilePath & ".{25336920-03F9-11CF-8FD0-00AA00686F13}"
Case "IE"
ToPath = FilePath & ".{871C5380-42A0-1069-A2EA-08002B30309D}"
Case "网上邻居"
ToPath = FilePath & ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
Case "拨号网络"
ToPath = FilePath & ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
Case "计划任务"
ToPath = FilePath & ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
Case "临时文件"
ToPath = FilePath & ".{7BD29E00-76C1-11CF-9DD0-00A0C9034933}"
End Select
Open "C:\sxh.bat" For Output As #1
Print #1, "move/y " & FormPath & " " & ToPath
Print #1, "del %0"
Close #1
Shell "C:\sxh.bat", vbHide
MsgBox "恭喜你，对文件夹 " & FormPath & " 的保护成功！", 64, "文件夹保护成功"
Exit Sub
Onerr:
MsgBox "对文件夹 " & FormPath & " 的保护出错！请重试！", 16, "文件夹保护出错"
End Sub
Private Sub Command2_Click()
晕..太长了不够发.
Ⅷ 如何用vb对文件夹进行加密
自行编写VB代码对文件夹进行加密。
单只是文件夹加密的话，例如：
在需要加密的文件夹路径创建一个BUG文件夹，然后把需要加密的文件夹剪切进去。
所谓的BUG文件夹，就是Windows环境下无法打开无法读取无法删除的文件夹。不过可以用命令提示符来创建、打开、删除。
Ⅸ 怎样用vb编写文件夹加密
怎样用vb编写文件夹加密，这个太麻烦了，不如您下载文件夹加密超级大师试试。
给文件夹加密，我使用的是文件夹加密超级大师。
文件夹加密超级大师具有界面漂亮友好、简单易用、稳定无错、功能强大和兼容性好等特点。
文件夹加密超级大师加密的文件(夹)可以防止删除、拷贝和移动。
加密时，在需要加密的文件和文件夹上单击鼠标右键选择加密就可以。
解密时，双击已加密文件夹输入正确密码即可，十分方便。
你可以到网络上搜索下载文件夹加密超级大师，看能不能帮助解决你的这个问题。
Ⅹ vb对文件 加密解密 带进度条
提供方法：
1、把文件读取到字节数组
2、所有数组内容全部+1
3、把字节数组保存到文件，完成加密
4、将加密后的文件读取到字节数组
5、所有数组内容全部-1，完成解密
6、窗体放进度条控件，Max=文件大小，在加解密时，Value=当前循环 i 的值