|
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)
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é.
|
