Erstellen einer Visual Basic -Programm, das eine Nur-Text -Nachricht in eine geheime Nachricht verstümmelt (und zurück natürlich ) drehen kann ist relativ einfach. Die Theorie ist einfach: Nehmen Sie die Beschriftung eines Textfeld ein Zeichen in einer Zeit, und drehen Sie jedes Zeichen durch die 255 -Zeichen- ASCII-Tabelle nach einer bestimmten Anzahl von Schritten. Um zu entschlüsseln, drehen jedes Zeichen zurück , dass viele Schritte . Zum Beispiel dreht den Buchstaben C einen Schritt vorwärts machen würde es D. Stürmer 254 Schritte würden Schleife um und nehmen Sie es zurück ein und verwandelt es in B. Hinweise
1
erstellen TextBox Steuerelement mit dem Namen " Text1 "und zwei" CommandButton " Kontrollen . Ändern Sie die Caption-Eigenschaften auf die Schaltflächen auf " Encode " und " Decode ".
2
Öffnen Sie den Code-Fenster im Menü "Ansicht" und navigieren Sie zu dem Objekt " (General ) " und lesen das Verfahren (mit " Proc " ) genannt " ( Erklärungen ) . " Fügen Sie den folgenden Code, um die Variablen des Programms erklären :
Dim OrigMessage As String
Dim As String Dim
nextchar , KeyChar
3 codiert
KeyChar = 254
KeyChar ist die Anzahl der Schritte nach vorne wird das Programm zu verschieben:
die "Form" des Objekts "Load "-Verfahren in der Code-Menü und fügen Sie ihn in den Code navigieren jeder Charakter auf dem ASCII-Zeichen -Chart . Sie können eine beliebige Anzahl KeyChar gesetzt 1-254 . (255 ist ein gültiger Wert , sondern Schleife jedes Zeichen um sich selbst und wird daher nicht codieren Ihre Nachricht. )
4
die Decode Befehlsschaltfläche "Click "-Verfahren Navigieren im Code-Fenster und Paste in diesem Code:
OrigMessage = Text1.Text
= " Encoded "
While ( OrigMessage <> "" )
nextchar = Links ( OrigMessage , 1) german
If ( Asc ( nextchar ) - KeyChar < 255) Dann
Encoded = Encoded + Chr ( Asc ( nextchar ) - KeyChar + 255)
< p > Else
Encoded = Encoded + Chr ( Asc ( nextchar ) - KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1)
Wend
Text1.Text = Encoded
5
die Encode Befehlsschaltfläche "Click "-Verfahren im Code-Fenster und fügen Sie ihn in diesem Code steuern:
< p> = OrigMessage Text1.Text
Encoded = ""
While ( OrigMessage <> "" )
nextchar = Left ( OrigMessage , 1) german
If ( Asc ( nextchar ) + KeyChar > 255) Dann
Encoded = Encoded + Chr ( Asc ( nextchar ) + KeyChar - 255)
Else
Encoded = Encoded + Chr ( Asc ( nextchar ) + KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1) german
Wend
Text1.Text = Encoded
6
Führen Sie das Programm und geben Sie eine Nachricht in das Textfeld ein, und klicken Sie auf " Encode " -Taste, um sie in eine geheime Botschaft wenden und die "Decode " Taste es um die Lesbarkeit zurückzukehren.
