Archivos cifrados Vb

¡Agréguelo nuevamente y podrá recuperar los archivos cifrados!

¡Sé tu maestro! ¡gratis! ! * * * ¡Hay progreso!

qq:6543332

Opción explícita

Dim B() para bytes

Mostrar contraseña como cadena

Dim B1() como bytes

Dim I tiene la misma longitud, l tiene la misma longitud y j tiene la misma longitud

Subcomando privado 1_Click()

Abra el archivo binario "f:\pass.txt" como #1

si LOF(1)> entonces 0

j = LOF(1)

ray Diem B(LOF(1) - 1)

Obtener #1,, B

Terminará si...

Cerrar #1

Dim P As Long

Contraseña = " OutsideFile "

l = Len (contraseña)

ReDim B1 (largo)

Para I = 1 a l

B1(I) = Asc(Mid(contraseña,I,1))

Entonces

Para I = 0 al límite inferior (B)

B(I) = B(I) XOR B1(P)

P = P 1

Si P gtl entonces P = 0

Luego

Abra el archivo binario "f:\password.txt" como #1

Coloque #1, B

Cierre #1

Accesorio final