Creación de un programa de Visual Basic que puede convertir un mensaje de texto en un mensaje secreto ilegible (y viceversa , por supuesto) es relativamente fácil. La teoría es simple: tomar el título de un cuadro de texto un carácter a la vez y girar cada personaje a través de la tabla ASCII de 255 caracteres de un número determinado de pasos. Para decodificar , gire cada personaje nuevo que muchos pasos. Por ejemplo , la rotación de la letra C hacia adelante un paso haría D. Delantero 254 pasos sería el bucle y llevarlo de vuelta a uno, torneado en B. Instrucciones
1

Crear un control TextBox denominado " Texto1 "y dos" controles CommandButton ". Cambiar las propiedades de título en los botones de comando para leer " Codificar " y "Decode ".
2

Abra la ventana de código en el menú " Ver" y navegue hasta el objeto llamado " (General )" y el procedimiento (con la etiqueta " Proc ") llamado " ( declaraciones) ". Pega el siguiente código para declarar variables del programa :

Dim OrigMessage As String Dim

codificado As String Dim

nextchar , KeyChar
3

Vaya a "Cargar" procedimiento del objeto "Form" en el menú de código y pegar en el código :

KeyChar = 254

KeyChar es el número de pasos hacia adelante el programa se moverá cada personaje en la tabla de caracteres ASCII. Puede configurar KeyChar a cualquier número del 1 al 254. ( 255 es un valor válido , pero se repetirá cada personaje en torno a sí mismo y no tanto codificar el mensaje. )
4

Vaya a procedimiento de "Click" del botón de comando Decode en la ventana de código y pegar en este código :

OrigMessage = Text1.Text

Codificado = ""

While ( OrigMessage < > "" )

nextchar = Izquierda ( OrigMessage , 1) spanish

If ( Asc ( nextchar ) - KeyChar < 255 ) Entonces

codificado = codificado + Chr ( Asc ( nextchar ) - KeyChar + 255 )
< p > Otras ventas

codificado = Encoded + Chr ( Asc ( nextchar ) - KeyChar )

End If

OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) < br >

Wend

Text1.Text = codificado
5

Vaya a procedimiento de "Click" del botón de comando Codificar en la ventana de código y pegar este código :
< p> OrigMessage = Text1.Text

codificado = ""

While ( OrigMessage < > "" )

nextchar = izquierda ( OrigMessage , 1) spanish

If ( Asc ( nextchar ) + KeyChar > 255 ) Entonces

codificado = codificado + Chr ( Asc ( nextchar ) + KeyChar - 255 )

demás

codificado = codificado + Chr ( Asc ( nextchar ) + KeyChar )

End If

OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1) spanish

Wend

Text1.Text = codificado
6

Ejecute el programa y escribe un mensaje en el cuadro de texto , a continuación, haga clic en el botón " Encode " para convertirlo en un mensaje secreto y el botón de "Decode " para volver a la legibilidad.