Oprettelse af et Visual Basic -program, der kan slå en almindelig tekstmeddelelse til en forvansket hemmelig besked (og tilbage , naturligvis) er forholdsvis let. Teorien er enkel : Tag billedteksten for en tekstboks ét tegn ad gangen og drej hver karakter gennem 255 tegn ASCII tabel ved en bestemt antal trin. At afkode , rotere hvert tegn tilbage, at mange trin. For eksempel , C fremad rotation brevet et skridt ville gøre det D. Forward 254 trin ville løkke rundt og tage det tilbage en , gøre det til B. Instruktioner
1
Opret en TextBox kontrol hedder " Tekst1 "og to" KommandoKnap " kontrol. Skift Caption ejendomme på kommandoknapperne til at læse " Encode " og " Decode ".
2
Åbn koden vindue i menuen "Vis" og navigere til den kaldte objekt " ( Generelt) ", og proceduren ( mærket " Proc " ) kaldes "( erklæringer ) . " Indsæt følgende kode til at erklære programmets variabler:
Dim OrigMessage As String
Dim kodet som String
Dim NextChar , KeyChar
3
Naviger til " Form" objektets " Load "-procedure i koden menuen og indsæt i koden : Hej
KeyChar = 254
KeyChar er antallet af trin fremad programmet vil bevæge hver karakter på ASCII chart. Du kan indstille KeyChar til et vilkårligt antal 1-254 . (255 er en gyldig værdi, men vil løkke hver karakter rundt til sig selv, og vil derfor ikke indkode din besked . )
4
Naviger til Decode kommandoen knappens "Click "-procedure i koden vinduet og pasta i denne kode : Hej
OrigMessage = Text1.Text
Encoded = " "
( OrigMessage < > "")
NextChar = Venstre ( OrigMessage , 1)
p Hvis ( Asc ( NextChar ) - KeyChar < 255) Så
Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar + 255)
< p > Else
Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) < br >
Wend
Text1.Text = Encoded
5
Naviger til Encode kommandoen knappens "Click "-procedure i koden vinduet og pasta, i denne kode : Hej < p> OrigMessage = Text1.Text
Encoded = " "
( OrigMessage < > "")
NextChar = Venstre ( OrigMessage , 1)
Hvis ( Asc ( NextChar ) + KeyChar > 255) Så
Encoded = Encoded + Chr ( Asc ( NextChar ) + KeyChar - 255)
Else
Encoded = Encoded + Chr ( Asc ( NextChar ) + KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1)
Wend
Text1.Text = Encoded
6
Kør programmet , og skriv en besked i tekstfeltet , og klik derefter på " Encode " knappen for at gøre det til en hemmelig besked og " Decode " knappen at returnere det til læsbarhed.