Cómo cifrar una carpeta usando VB
1. Dado que el archivo se lee en binario, el tipo de archivo generalmente se puede ignorar al cifrar.
2. Aquí solo se realiza una operación XOR. Si es necesario, se pueden realizar varias operaciones XOR.
3. Este algoritmo de cifrado es rápido, pero, por supuesto, la potencia del cifrado también es baja;
El código de referencia es el siguiente:
1
2
p>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
'-------- ----------------------------------------- --------- -------------
'Descripción de la función: utilice la operación XOR para cifrar archivos (puede cifrar la mayoría de los archivos)
'Descripción del parámetro: clave - Clave
' fileName - nombre de archivo normal,
' encryptFileName - nombre de archivo cifrado
' Valor de retorno: verdadero - éxito , falso - error
'-------------------------------------- ---------- ----------------------------
Función privada XOR_Encrypt(clave Como entero, nombre de archivo como cadena, encryptFileName como cadena) como booleano
En caso de error, vaya a errHandler
Atenuar inputFileNo como entero
Atenuar fileBytes() como byte
Dim length As Long
XOR_Encrypt = False
'Abrir archivo y guardar en matriz binaria
inputFileNo = FreeFile
Abrir nombre de archivo para binario como #inputFileNo
longitud = LOF(inputFileNo)
Si longitud = 0 Entonces
MsgBox "Salir del cifrado: ¡el contenido del archivo está vacío! ", vbInformation, "Preguntar"
Salir de la función
Finalizar si
ReDim fileBytes(longitud - 1) como byte
Obtener inputFileNo , , fileBytes()
Cerrar #inputFileNo
'XOR-cifre la matriz binaria
Atenúe i mientras
For i = LBound(fileBytes) a UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor ke
y
Siguiente
'Guardar la matriz binaria cifrada con XOR en un archivo nuevo
Atenuar outputFileNo As Integer
outputFileNo = FreeFile
Abrir encryptFileName para binario como #outputFileNo
Poner OutputFileNo, , fileBytes
Cerrar #outputFileNo
XOR_Encrypt = True
errHandler:
Si Err.Number Entonces
MsgBox "Se produjo un error durante el cifrado:" & Err.Description, vbCritical, "Error"
XOR_Encrypt = Falso
Reanudar siguiente
Finalizar si
Finalizar función