Πώς να κάνει ένα μυστικό μήνυμα χρησιμοποιώντας VB

Δημιουργία Visual Basic πρόγραμμα που μπορεί να μετατρέψει ένα απλό μήνυμα κειμένου σε ένα αλλοιωμένο μυστικό μήνυμα ( και πίσω , φυσικά) είναι σχετικά εύκολη . Η θεωρία είναι απλή : Πάρτε τη λεζάντα ενός πλαισίου κειμένου σε ένα χαρακτήρα τη φορά και να περιστρέψετε κάθε χαρακτήρα μέσω του πίνακα ASCII 255 χαρακτήρων από ένα συγκεκριμένο αριθμό βημάτων . Για να αποκωδικοποιήσει , να περιστρέψετε κάθε χαρακτήρα πίσω ότι πολλά βήματα . Για παράδειγμα , περιστρέφοντας το γράμμα Γ, ένα βήμα προς τα εμπρός θα το Δ. Forward 254 βήματα θα κάνει θηλιά γύρω και να πάρει πίσω ένα , μετατρέποντάς το σε Β. Οδηγίες
Η 1

Δημιουργήστε ένα στοιχείο ελέγχου πλαισίου κειμένου που ονομάζεται " Text1 " και δύο " CommandButton " ελέγχους . Αλλάξτε τις ιδιότητες Caption στα κουμπιά εντολών για να διαβάσετε " Κωδικοποίηση " και " Decode ". 2

Ανοίξτε το παράθυρο κώδικα στο μενού "Προβολή" και να περιηγηθείτε στο αντικείμενο που ονομάζεται " ( General ) » και η διαδικασία (με την ένδειξη " Proc " ) που ονομάζεται " ( δηλώσεις ) . " Επικολλήστε τον παρακάτω κώδικα για να δηλώσετε τις μεταβλητές του προγράμματος :

Dim OrigMessage Όπως String Dim

Κωδικοποιημένα Όπως String Dim

NextChar , KeyChar
εικόνων 3

Πλοηγηθείτε στο "Form" διαδικασία αντικειμένου "Load " στο μενού κώδικα και επικολλήστε τον κωδικό:

KeyChar = 254

KeyChar είναι ο αριθμός των βημάτων διαβιβάσει το πρόγραμμα θα κινηθεί κάθε χαρακτήρας στο γράφημα χαρακτήρων ASCII . Μπορείτε να ρυθμίσετε KeyChar σε οποιοδήποτε αριθμό 1-254 . ( 255 είναι μια έγκυρη τιμή , αλλά θα βρόχο γύρω από κάθε χαρακτήρα για τον εαυτό της και ως εκ τούτου δεν πρόκειται να κωδικοποιήσει το μήνυμα σας . )
Η 4

Πλοηγηθείτε στο " Κάντε κλικ στο" διαδικασία του κουμπιού εντολής Decode στο παράθυρο κώδικα και επικόλληση σε αυτόν τον κώδικα :

OrigMessage = Text1.Text

Κωδικοποιημένα = " "

Ενώ ( OrigMessage <> "" )

NextChar = Αριστερά ( OrigMessage , 1 )

Αν ( Asc ( NextChar ) - KeyChar <255 ) Στη συνέχεια,

Κωδικοποιημένα = Κωδικοποιημένο + Chr ( Asc ( NextChar ) - KeyChar + 255 )

Else

Κωδικοποιημένα = Κωδικοποιημένο + Chr ( Asc ( NextChar ) - KeyChar )

End If

OrigMessage = Δεξιά ( OrigMessage , Len ( OrigMessage ) - 1 )

Wend

Text1.Text = Κωδικοποιημένα
5

Πλοηγηθείτε στο " Κάντε κλικ στο" διαδικασία του κουμπιού εντολής Encode στο παράθυρο κώδικα και επικόλληση σε αυτόν τον κώδικα :

OrigMessage = Text1.Text

Κωδικοποιημένα = " "

Ενώ ( OrigMessage <> "" )

NextChar = Left ( OrigMessage , 1 )
Αν

( Asc ( NextChar ) + KeyChar > 255 ) Στη συνέχεια,

Κωδικοποιημένα = Κωδικοποιημένο + Chr ( Asc ( NextChar ) + KeyChar - 255 )

υπόλοιπα

κωδικοποιημένα = Κωδικοποιημένο + Chr ( Asc ( NextChar ) + KeyChar )

End If

OrigMessage = Δεξιά ( OrigMessage , Len ( OrigMessage ) - 1 )

Wend

Text1.Text = Κωδικοποιημένα
Η 6

Εκτελέστε το πρόγραμμα και να πληκτρολογήσετε ένα μήνυμα στο πλαίσιο κειμένου και, στη συνέχεια , κάντε κλικ στο κουμπί " Encode " για να το μετατρέψει σε ένα μυστικό μήνυμα και το κουμπί " Decode " να το επιστρέψει με την αναγνωσιμότητα .
Η
εικόνων