Creazione di un programma Visual Basic che può trasformare un semplice messaggio di testo in un messaggio segreto incomprensibile ( e viceversa , ovviamente) è relativamente facile. La teoria è semplice : prendete la didascalia di una casella di testo un carattere alla volta e ruotare ogni personaggio attraverso la tabella ASCII 255 caratteri da un determinato numero di passi . Per decodificare , ruotare ogni personaggio nuovo che molti passi . Ad esempio , ruotando la lettera C in avanti di un passo renderebbe D. Forward 254 gradini farebbe anello intorno e prendere di nuovo una, 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 l'oggetto chiamato " ( generale ) " e la procedura ( denominata " Proc " ) chiamata " ( dichiarazioni) . " Incollare il seguente codice per dichiarare le variabili del programma :

Dim OrigMessage As String Dim

codificato come stringa

Dim NextChar , KeyChar
3

passare alla procedura di un oggetto "Form" " Load " nel menu di codice e incolla il codice :

KeyChar = 254

KeyChar è il numero di passi in avanti il programma si sposterà ogni personaggio sul grafico di caratteri ASCII. È possibile impostare KeyChar a qualsiasi numero da 1 a 254. ( 255 è un valore valido , ma in loop ogni personaggio intorno a se stesso e non sarà quindi codificare il messaggio . ) Economici 4

Passare alla procedura di "Click" del pulsante di comando Decode nella finestra del codice e incolla in questo codice:

OrigMessage = Text1.Text

codificato = " "

Mentre ( OrigMessage < > " " ) per

NextChar = Sinistra ( OrigMessage , 1 ) per

( Asc ( NextChar ) - KeyChar < 255 ) Poi

codificato = codificato + Chr ( Asc ( NextChar ) - KeyChar + 255 ) per < p > Else

codificato = codificato + Chr ( Asc ( NextChar ) - KeyChar ) per

End If

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

Wend

Text1.Text = codificato
5

Passare alla procedura del pulsante Encode comando " Click" nella finestra del codice e incolla in questo codice:
< p > OrigMessage = Text1.Text

codificato = " "

Mentre ( OrigMessage < > " " ) per

NextChar = Sinistra ( OrigMessage , 1 ) per

( Asc ( NextChar ) + KeyChar > 255 ) Poi

codificato = codificato + Chr ( Asc ( NextChar ) + KeyChar - 255 ) per

Else

codificato = codificato + Chr ( Asc ( NextChar ) + KeyChar ) per

End If

OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) per

Wend

Text1.Text = codificato
6

Eseguite il programma e digitare un messaggio nella casella di testo , quindi fare clic sul pulsante " Encode" per trasformarlo in un messaggio segreto e il pulsante "Decode " per riportarlo alla leggibilità .