Het maken van een Visual Basic -programma , dat een gewoon tekstbericht kan veranderen in een onleesbaar geheime boodschap (en terug natuurlijk ) is relatief eenvoudig . De theorie is eenvoudig : Neem het bijschrift van een tekstvak een karakter per keer en draai elk karakter door de 255 - karakter ASCII-tabel door een specifiek aantal stappen . Te decoderen , te roteren elk karakter terug dat vele stappen . Bijvoorbeeld , het draaien van de letter C een stap vooruit zou het D. maken Forward 254 stappen zou lus rond en neem het terug een, draaien in B. Aanwijzingen
1 Maak een TextBox-besturingselement genaamd " Text1 " en twee " CommandButton " controls . Verander de Caption eigenschappen op de opdrachtknoppen om te lezen " Encode " en " Decode . " Kopen van 2 Open het venster code in het menu 'Beeld' en navigeer naar het object met de naam " ( General ) " en de procedure ( het label " Proc " ) genoemd " ( declaraties ) . " Plak de volgende code om het programma variabelen op te geven : Dim OrigMessage
als Koord Dim
Encoded als Koord
Dim NextChar , KeyChar
3 Navigeer naar " Load "-procedure van de "Form" object in het menu code en plak de code in : KeyChar = 254 KeyChar
is het aantal stappen vooruit het programma zal bewegen elk teken op het ASCII-teken grafiek . U kunt KeyChar instellen op een nummer van 1 tot 254. ( 255 is een geldige waarde , maar zal lus elk personage rond om zichzelf en zal dus uw boodschap niet coderen . )
4 Navigeer naar "Klik "-procedure de Decode opdracht knop in de code -venster en plakken in deze code :
OrigMessage = Text1.Text
Encoded = " "
Terwijl ( OrigMessage < > " " ) NextChar
= Links ( OrigMessage , 1 ) op Twitter Als ( Asc ( NextChar ) - KeyChar < 255 ) op Twitter Gecodeerde = Gecodeerde + Chr ( Asc ( NextChar ) - KeyChar + 255 ) dan
Else
Encoded = gecodeerde + Chr ( Asc ( NextChar ) - KeyChar ) Eind
Als
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) < br > Wend Text1.Text = Gecodeerde
5
Navigeer naar "Klik "-procedure het coderen opdracht knop in de code -venster en plak deze code :
OrigMessage = Text1.Text
Encoded = " "
Terwijl ( OrigMessage < > " " ) NextChar = Links ( OrigMessage , 1 ) op Twitter Als ( Asc ( NextChar ) + KeyChar > 255 ) op Twitter = Gecodeerde + Chr ( Asc ( NextChar ) + KeyChar - 255 ) dan Gecodeerde
Else
gecodeerd = gecodeerde + Chr ( Asc ( NextChar ) + KeyChar ) End
Als OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) op Twitter Wend
Text1.Text = Gecodeerde
6 Start het programma en typ een bericht in het tekstvak en klik op de knop " Encode " om te zetten in een geheime boodschap en de " Decode " knop om deze terug te leesbaarheid .
|
