Opprette et Visual Basic program som kan slå en vanlig tekstmelding til en rotete hemmelig melding (og tilbake , selvfølgelig ) er relativt enkelt. Teorien er enkel: Ta bildeteksten av en tekstboks ett tegn om gangen og rotere hvert tegn gjennom 255 -tegns ASCII-tabellen etter et bestemt antall skritt. Å dekode , rotere hvert tegn tilbake at mange trinn. For eksempel roterende bokstaven C frem ett skritt ville gjøre det D. Forward 254 skritt ville sløyfe rundt og ta det tilbake ett , snu den til B. Instruksjoner
en
Lag en tekstboks kontroll heter " Tekst1 " og to" CommandButton "-kontroller . Endre Caption egenskaper på kommando for å lese "kode " og " Decode ".
2
Åpne koden vinduet i "View "-menyen og navigere til objektet som heter " (General )" og prosedyren (merket " Proc ") kalt " ( erklæringer ) . " Lim inn følgende kode for å erklære programmets variabler:
Dim OrigMessage As String
Dim kodet som String
Dim NextChar , KeyChar
3
Naviger til " Form" objektets "Load " prosedyre i koden menyen og lime inn koden : en
KeyChar = 254
KeyChar er antall skritt fremover programmet vil flytte hvert tegn på ASCII tegnsett . Du kan stille KeyChar til en rekke 1-254 . ( 255 er en gyldig verdi , men vil sløyfe hvert tegn rundt seg selv og vil derfor ikke kode meldingen. )
4
Naviger til Decode kommandoknappen er " Click" prosedyre i koden vinduet og lime i denne koden : en
OrigMessage = Text1.Text
Encoded = ""
Mens ( OrigMessage < > "")
NextChar = Venstre ( OrigMessage , 1 )
p Hvis ( Asc ( NextChar ) - KeyChar < 255 ) Da
Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar + 255 )
< p > Else
Encoded = kodet + Chr ( Asc ( NextChar ) - KeyChar )
End If
OrigMessage = Høyre ( OrigMessage , Len ( OrigMessage ) - 1 )
Wend
Text1.Text = kodet
5
Naviger til Socket kommandoknappen er " Click" prosedyre i koden vinduet og lime inn denne koden :
< p> OrigMessage = Text1.Text
Encoded = ""
Mens ( OrigMessage < > "")
NextChar = Venstre ( OrigMessage , 1 )
p Hvis ( Asc ( NextChar ) + KeyChar > 255 ) Da
Encoded = Encoded + Chr ( Asc ( NextChar ) + KeyChar - 255 )
Else
kodet = kodet + Chr ( Asc ( NextChar ) + KeyChar )
End If
OrigMessage = Høyre ( OrigMessage , Len ( OrigMessage ) - 1 )
Wend
Text1.Text = kodet
6
Kjør programmet og skriv en melding i tekstfeltet , og klikk på "kode " -knappen for å slå den inn i en hemmelig melding og " Decode "-knappen å returnere den til lesbarhet.
