Création d'un programme Visual Basic qui permet de transformer un message en texte clair dans un message secret tronqué (et retour , bien sûr) est relativement facile. La théorie est simple: Prenez la légende d'une zone de texte un caractère à la fois et tourne à chaque personnage à travers la table ASCII à 255 caractères par un certain nombre d'étapes. Pour décoder , faire pivoter chaque caractère de retour que de nombreuses étapes. Par exemple , la rotation de la lettre C avancer d'un pas , il serait D. Forward 254 mesures seraient boucle autour et reprendre un, en le transformant en B. Instructions
1

Créer un contrôle TextBox nommé " Text1 »et deux« contrôles CommandButton " . Modifiez les propriétés de légende sur les boutons de commande pour lire « Encode » et « Decode ».
2

Ouvrez la fenêtre de code dans le menu "Affichage" et accédez à l' objet appelé " ( générale)» la procédure (appelé « proc» ) appelé " ( déclarations) . " Collez le code suivant pour déclarer les variables du programme:

Dim OrigMessage As String

Dim codé As String

Dim NextChar , KeyChar
3

Accédez à "Load" la procédure de la "Form" objet dans le menu de code et coller dans le code suivant:

KeyChar = 254

KeyChar est le nombre d'étapes avant le programme va se déplacer chaque personnage sur le tableau de caractères ASCII. Vous pouvez définir KeyChar à un nombre de 1 à 254 . ( 255 est une valeur valide , mais seront boucle autour de chaque personnage pour lui-même et ne sera donc pas encoder votre message. )
4

Accédez à la procédure de " Click" du bouton de commande de décodage dans la fenêtre de code et coller dans ce code :

OrigMessage = Text1.Text

codé = ""

While ( OrigMessage <> "" )

NextChar = Gauche ( OrigMessage , 1)

( Asc ( NextChar ) - KeyChar <255 ) Alors

codé codé = + Chr ( Asc ( NextChar ) - KeyChar + 255)
< p > Else

codé = codé + Chr ( Asc ( NextChar ) - KeyChar )

End If

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

Wend

Text1.Text = codé
5

Accédez à la procédure du bouton de commande Encode "clic " dans la fenêtre de code et coller ce code:
< p> OrigMessage = Text1.Text

codé = ""

While ( OrigMessage <> "" )

NextChar = gauche ( OrigMessage , 1) Photos

( Asc ( NextChar ) + KeyChar > 255) Alors

codé codé = + Chr ( Asc ( NextChar ) + KeyChar - 255)

Else

codé = codé + Chr ( Asc ( NextChar ) + KeyChar )

End If

OrigMessage = Droite ( OrigMessage , Len ( OrigMessage ) - 1 )

Wend

Text1.Text = codé
6

Exécutez le programme et tapez un message dans la zone de texte, puis cliquez sur le bouton "Encoder " pour le transformer en un message secret et le bouton " Decode " pour revenir à la lisibilité.