Red de conocimiento informático - Problemas con los teléfonos móviles - Código fuente binario

Código fuente binario

Opción explícita

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