¡Solicitamos a un experto en programación que trasplante un programa (convierta C a VB)! ! ! ! ¡Recompensa de 100 puntos! ! !

Previamente declarado como tipo de byte

Por ejemplo

dim ch como byte

Cifrado

ch=ch +128

Descifrado

ch=ch-128

Hay dos funciones específicas:

Sub Encrypt(Infile As String, Outfile Como cadena)

Atenuar un byte como

Abrir archivo interno para binario como #1

Si FileSystem.Dir(Outfile) <> "" Luego, elimine FileSystem. Text2.Text

Abrir archivo de salida para binario como #2

Obtener #1, , a

Hacer mientras no sea EOF(1)

a = IIf(a < 128, a + 128, a)

Pon #2, , a

Obtén #1, , a

Bucle

Cerrar #1

Cerrar #2

Fin Sub

Sub Decrypt(Infile As String, Outfile As String)

Atenuar un byte como

Abrir archivo binario como #1

Si FileSystem.Dir(Outfile) <> "" Entonces FileSystem.Kill Text2.Text

Abrir archivo de salida para binario como #2

Obtener #1, , a

Hacer mientras no sea EOF(1)

a = IIf(a > = 128, a - 128, a)

Pon #2, , a

Obtén #1, , a

Bucle

Cerrar #1

Cerrar #2

End Sub

Luego llame, por ejemplo, para cifrar c:\test.txt en c:\test2.txt

Utilice Encrypt "c:\test.txt", "c:\test2.txt"

Tenga en cuenta que no puede utilizar el mismo archivo como entrada y salida