Hvordan lage en hemmelig melding Bruke VB
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 bildetekst av en tekstboks ett tegn om gangen og rotere hver karakter gjennom 255-tegns ASCII-tabellen etter et bestemt antall skritt. For å dekode, rotere hvert tegn tilbake som mange trinn. For eksempel dreie bokstaven C frem ett skritt vil gjøre det D. Forward 254 skritt ville sløyfe rundt og ta det tilbake ett, snu den til B.
Bruksanvisning
1 Lag en tekstboks kontroll heter "Text1" og to "Command" kontroller. Endre Caption egenskaper på kommandoknappene for å lese "Encode" og "Decode".
2 Åpne kodevinduet i "View" -menyen og navigere til objektet kalles "(General)" og prosedyren (merket "Proc") som heter "(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" objekt "Load" prosedyre i koden menyen og lim inn koden:
KeyChar = 254
KeyChar er antall skritt fremover programmet vil gå hvert tegn på ASCII tegnkartet. Du kan stille KeyChar til et tall fra 1 til 254. (255 er en gyldig verdi, men vil sløyfe hver karakter rundt til seg selv, og vil derfor ikke kode meldingen.)
4 Naviger til Decode kommandoknappen er "Klikk" prosedyre i koden vinduet og lim inn denne koden:
OrigMessage = Text1.Text
Kodet = ""
Mens (OrigMessage <> "")
NextChar = Left(OrigMessage, 1)
Hvis (Asc (NextChar) - KeyChar & lt; 255) Deretter
Kodet = kodet + Chr (Asc (NextChar) - KeyChar + 255)
Ellers
Kodet = kodet + Chr (Asc (NextChar) - KeyChar)
Slutt om
OrigMessage = Right (OrigMessage, Len (OrigMessage) - 1)
Wend
Text1.Text = kodet
5 Naviger til Encode kommandoknappen er "Klikk" prosedyre i koden vinduet og lim inn denne koden:
OrigMessage = Text1.Text
Kodet = ""
Mens (OrigMessage <> "")
NextChar = Left(OrigMessage, 1)
Hvis (Asc (NextChar) + KeyChar> 255) Deretter
Kodet = kodet + Chr (Asc (NextChar) + KeyChar - 255)
Ellers
Kodet = kodet + Chr (Asc (NextChar) + KeyChar)
Slutt om
OrigMessage = Right (OrigMessage, Len (OrigMessage) - 1)
Wend
Text1.Text = kodet
6 Kjør programmet og skriv inn en melding i tekstboksen, og klikk deretter på "kode" -knappen for å slå den inn i en hemmelig melding og "Decode" for å returnere den til lesbarhet.
Hint
- Den "Socket" knappen går bokstavene frem en gang for hvert klikk, og "Decode" knappen går dem bakover en gang per klikk. Du kan klikke "Encode" gjentatte ganger og gå tilbake til vanlig tekst ved å klikke på "Decode" det samme antall ganger, eller klikk "Decode" gjentatte ganger og gå tilbake til vanlig tekst ved å klikke på "kode" det samme antall ganger. Du kan skrive en del av en melding, klikker du på "Encode," legge til flere av meldingen, klikk på "Socket igjen," og så videre for å skape et budskap som må dekodes i etapper med gjentatte klikk på "Decode". I stedet for initialisering "KeyChar" Når skjemaet belastninger, kan du legge til en annen tekstboks og bruke sin bildetekst som en viktig karakter (så lenge bildeteksten er et heltall mellom 1 og 254). Dette vil bety at noen må gå inn samme nøkkelnummer før du klikker på "Decode" for å lykkes lese meldingen.