Ⅰ 怎麼用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 的值