Código fuente binario
Atenuarme siempre
Dim databuff() As Byte 'Define una matriz utilizada para almacenar el contenido del archivo.
Dim addbuff() As Byte 'Define una matriz utilizada para almacenar el contenido de los archivos cifrados.
Dim contraseña() As Byte 'Define el valor ASCII de la matriz utilizada para almacenar la contraseña.
Marcar el nombre del archivo como una cadena
¿Privacidad Check1_Click()?
Si check1.value controla si se muestran todos los archivos.
Archivo 1. Patrón = "*.*"
Otro
Archivo1. Pattern = ".txt "
Terminará si...
Finalizar conector
¿Subcomando privado 1_Click()?
Dim j es un número entero
Dim contraseña_len es un número entero
contraseña_len = Len(Text2. Texto)
ReDim contraseña (contraseña_len ) es Bytes
Para i = 0 a contraseña_len-1 'Convertir contraseña a código ASCII.
Contraseña(i)=Asc(Mid(Text2.Text,i+1,1))
Luego
Salir si nombre de archivo = " " Sub
abrir nombre de archivo para binario como # 1 'Lee el contenido del archivo que se va a cifrar.
ReDim búfer de datos (LOF(1))
Obtener #1, búfer de datos
Cerrar #1
ReDim addbuff( UBound(databuff)) como bytes
Para i = 0 a UBound(databuff)
Si j & gt = contraseña_len Entonces 'Reciclar contraseña.
j = 0
Otro
j = j + 1
Terminará si...
Addbuff (I) = databuff (I) xor contraseña (j)' realiza la operación xor.
Luego
abra el nombre de archivo para binario como # 1 'Escriba el contenido cifrado en el archivo.
Poner #1, addbuff
Cerrar #1
' text 1 = strconv(add buff VB unicode)' Muestra el contenido del archivo cifrado.
Texto 2. Text = " "
Conector final
Subcomando privado 2_Click()?
. Fin
Finalizar conector
¿Subdirección privada1_Change()?
"File1.path = DIR1.path" está asociado con el cuadro de lista de archivos.
Conector final
¿Subcontrolador privado 1_Change()?
Ir a a0 en caso de error
"Directory1.path=drive1.drive" está asociado con el cuadro de lista del directorio.
A0: Si es un error, entonces msgbox (error (err))' tiene un error y muestra el contenido del error.
Conector final
Subarchivo privado1_Click()'Cuando se hace clic en el archivo, se mostrará su contenido.
Nombre de archivo = Dir1.
Ruta + archivo 1. nombre de archivo
Si nombre de archivo = " ", salga de Sub
Abra el nombre del archivo binario como #1
ReDim datos Área de búfer (LOF(1))
Obtener #1, búfer de datos
Cerrar #1
Text1 = StrConv(databuff, vbUnicode)
Conector final