Código fuente de cifrado Vb
He visto su interfaz y pegar el código a continuación puede lograr completamente el efecto que desea.
Opción explícita
Atenuar B() como bytes
Mostrar contraseña como cadena
Atenuar B1() como sección de bytes
Dim I tiene la misma longitud, l tiene la misma longitud, j tiene la misma longitud
Subcomando privado 1_Click()
Abra la ruta del archivo binario como #1.
Si LOF(1)> entonces 0
j = LOF(1)
Radim B(LOF(1) - 1)
Obtener #1,, B
Terminará si...
Cerrar #1
Atenuar P mientras
Contraseña = " OutsideFile "
l = Len(contraseña)
Convierte la contraseña a una matriz de bytes.
ReDim B1(Largo)
Para I = 1 a l
B1(I) = Asc(Mid(Contraseña, I, 1))
Entonces
'Encriptar'
Para I = 0 al límite inferior (B)
B(I) = B(I) XOR B1(P)
P = P 1
Si P gtl entonces P = 0
Entonces
Guarde el archivo
Abra la ruta del archivo binario como #1.
Cerrar #1,,B
Cerrar #1
Terminará si...
Finalizar conector
La ruta del archivo que contiene es la ruta completa de su control de archivos, que creo que debería conocer.
La función de este código es cifrar con un clic y descifrar con un clic.