Etapcharterlease.com

Come fare un messaggio segreto utilizzando VB

Come fare un messaggio segreto utilizzando VB

È relativamente facile creare un programma Visual Basic che possa trasformare un messaggio di testo normale in un messaggio segreto incomprensibile (e indietro, ovviamente). La teoria è semplice: prendere la didascalia di un carattere di una casella di testo alla volta e ruotare ogni personaggio attraverso la tabella ASCII 255 caratteri di un determinato numero di passi. Per decodificare, ruotare indietro ogni carattere che molti passaggi. Ad esempio, ruotando il passo di una lettera C avanti renderebbe D. avanti 254 passi Vorrei loop intorno e prendere indietro uno, trasformandolo in B.

Istruzioni

1 creare un controllo TextBox denominato "Text1" e due controlli "CommandButton". Modificare le proprietà Caption sui pulsanti di comando per leggere "Encode" e "Decode".

2 aprire la finestra del codice nel menu "Visualizza" e passare all'oggetto chiamato "(generale)" e la procedura (etichettati "Proc") chiamato "(dichiarazioni)." Incollare il codice seguente per dichiarare le variabili del programma: Dim OrigMessage As String Dim Encoded As String Dim NextChar, KeyChar

3 passare alla procedura di "Carico" dell'oggetto "Form" nel menu di codice e incollarlo nel codice: KeyChar = 254 KeyChar è il numero di passi in avanti il programma passerà ogni carattere caratteri ASCII. È possibile impostare KeyChar su qualsiasi numero da 1 a 254. (255 è un valore valido, ma eseguirà un ciclo ogni personaggio intorno a se stesso e pertanto non codificherà il tuo messaggio.)

4 Navigate per la decodifica "Click" di routine del pulsante nella finestra codice di comando e incollare questo codice: OrigMessage = Encoded Text1. Text = "" mentre (OrigMessage <> "") NextChar = Left(OrigMessage, 1) se (Asc(NextChar) - KeyChar < 255) quindi codificato = Encoded + Chr(Asc(NextChar) - KeyChar + 255) codificato altro = Encoded + Chr(Asc(NextChar) - KeyChar) fine se OrigMessage = Right(OrigMessage, Len(OrigMessage)-1) Wend Text1. Text = Encoded

5 naviga per la codifica "Click" di routine del pulsante nella finestra codice di comando e incollare questo codice: OrigMessage = Encoded Text1. Text = "" mentre (OrigMessage <> "") NextChar = Left(OrigMessage, 1) se (Asc(NextChar) + KeyChar > 255) quindi codificato = Encoded + Chr(Asc(NextChar) + KeyChar - 255) codificato altro = Encoded + Chr(Asc(NextChar) + KeyChar) fine se OrigMessage = Right(OrigMessage, Len(OrigMessage)-1) Wend Text1. Text = Encoded

6 eseguire il programma e digitare un messaggio nella casella di testo, quindi fare clic su pulsante "Encode" da trasformare in un messaggio segreto e il pulsante di "Decode" per restituirlo alla leggibilità.