-
Cómo hacer que un mensaje secreto con VB
-
La 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 rotar cada personaje a través de la tabla ASCII 255 caracteres por un número determinado de pasos. Para decodificar, rotar cada personaje espalda que muchos pasos. Por ejemplo, la rotación de la letra C un paso hacia adelante haría más adelante D. 254 pasos daría vuelta alrededor y llevarlo de vuelta uno, convirtiéndose en B.Instrucciones
1 Crear un control TextBox llamado "Texto1" y dos controles CommandButton "". Cambiar las propiedades Caption en los botones de comando para leer en "codificar" y "Decode".
2 Abra la ventana de código en el menú "Ver" y vaya al objeto llamado "(general)" y el procedimiento (con la etiqueta "Proc") llamado "(declaraciones)." Pegar el código siguiente para declarar variables del programa:
Dim como secuencia OrigMessage
Dim como secuencia codificada
Dim nextChar, KeyChar
3 Navegue a procedimiento de "carga" la "forma" del objeto en el menú de código y pegarlo en el código:
KeyChar = 254
KeyChar es el número de pasos hacia adelante el programa se desplaza hacia cada carácter en la tabla de caracteres ASCII. Puede configurar KeyChar a cualquier número de 1 a 254. (255 es un valor válido, pero se repetirá cada personaje en torno a sí mismo y por lo tanto no va a codificar el mensaje.)
4 Navegar con el procedimiento "click" del botón de comando de decodificación en la ventana de código y pegarlo en este código:
OrigMessage = Text1.Text
Codificada = ""
Mientras que (OrigMessage <> "")
NextChar = Left(OrigMessage, 1)Si (Asc (nextChar) - KeyChar & lt; 255) A continuación,
= Codificada Codificada + Chr (Asc (nextChar) - KeyChar + 255)
Más
= Codificada Codificada + Chr (Asc (nextChar) - KeyChar)
Terminara si
OrigMessage = Derecha (OrigMessage, Len (OrigMessage) - 1)
Encaminarse a
Text1.Text = Codificado
5 Navegar con el procedimiento "click" del botón de comando Codificar en la ventana de código y pegarlo en este código:
OrigMessage = Text1.Text
Codificada = ""
Mientras que (OrigMessage <> "")
NextChar = Left(OrigMessage, 1)Si (Asc (nextChar) + KeyChar> 255) A continuación,
= Codificada Codificada + Chr (Asc (nextChar) + KeyChar - 255)
Más
= Codificada Codificada + Chr (Asc (nextChar) + KeyChar)
Terminara si
OrigMessage = Derecha (OrigMessage, Len (OrigMessage) - 1)
Encaminarse a
Text1.Text = Codificado
6 Ejecutar el programa y escriba 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.
Consejos y advertencias
- Los "codificar" el botón ciclos de las letras hacia adelante una vez por cada clic, y los "Decode" botón ciclos de ellos hacia atrás una vez por cada clic. Puede hacer clic en "codificar" repetidamente y volver al texto sin formato haciendo clic en "Decode" el mismo número de veces, o incluso haga clic en "Decode" repetidamente y volver al texto sin formato haciendo clic en "codificar" el mismo número de veces. Puede escribir parte de un mensaje, haga clic en "codificar", añadir el resto del mensaje, haga clic en "Codificar de nuevo", y así sucesivamente para crear un mensaje que debe ser decodificado por etapas con repetidos clics de "Decode". En lugar de inicializar "KeyChar" cuando se carga el formulario, puede añadir otro cuadro de texto y utilizar su título como un personaje clave (siempre y cuando el título es un número entero entre 1 y 254). Esto significa que alguien tiene que introducir el mismo número de la llave antes de hacer clic "Decode" para leer correctamente el mensaje.
