Skapa ett Visual Basic-program som kan förvandla en vanlig textmeddelande till en förvanskad hemligt budskap ( och tillbaka , naturligtvis ) är relativt lätt . Teorin är enkel : Ta bildtexten i en textruta ett tecken i taget och rotera varje tecken genom 255 - tecken ASCII tabell med ett visst antal steg . För att avkoda , rotera varje tecken tillbaka att många steg . Till exempel , roterar bokstaven C framåt ett steg skulle göra det D. Forward 254 steg skulle slinga runt och ta det tillbaka en , omvandlar den till B. Instruktioner
1
Skapa en textruta kontroll som heter " Text1 "och två " CommandButton " kontroller. Ändra bildtexten fastigheter på respektive knapp för att läsa " Koda " och " Decode ".
2
Öppna koden fönster i menyn "Visa" och navigera till den kallas objektet " ( General ) " och proceduren ( märkt " Proc " ) heter " ( deklarationer ) . " Klistra in följande kod för att förklara programmets variabler :
Dim OrigMessage As String
Dim kodas som String
Dim NextChar , KeyChar
3
Navigera till " Form " objektets " Load " förfarande i koden menyn och klistra in koden :
KeyChar = 254
KeyChar är antalet steg framåt för programmet kommer att flytta varje tecken på i ASCII-tabellen . Du kan ställa in KeyChar till valfritt nummer från 1 till 254 . ( 255 är ett giltigt värde , men kommer slinga varje tecken runt sig själv , och kommer därför inte att koda ditt meddelande . )
4
Navigera till Decode kommandoknappen s " Klick " förfarande i koden fönstret och klistra i denna kod :
OrigMessage = Text1.Text
Encoded = " "
( OrigMessage < > " " ) katalog
NextChar = Vänster ( OrigMessage , 1 ) katalog p Om ( Asc ( NextChar ) - KeyChar < 255 ) Sen
Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar + 255 ) katalog
Else
Encoded = Kodad + Chr ( Asc ( NextChar ) - KeyChar ) katalog
End If
OrigMessage = Höger ( OrigMessage , Len ( OrigMessage ) - 1 )
Wend
Text1.Text = Encoded
5
Navigera till Koda kommandoknappen s " Klick " förfarande i koden fönstret och klistra in den här koden :
OrigMessage = Text1.Text
Encoded = " "
( OrigMessage < > " " ) katalog
NextChar = Vänster ( OrigMessage , 1 ) katalog p Om ( Asc ( NextChar ) + KeyChar > 255 ) Sen
Encoded = Encoded + Chr ( Asc ( NextChar ) + KeyChar - 255 ) katalog
Else
kodade = kodade + Chr ( Asc ( NextChar ) + KeyChar ) katalog
End If
OrigMessage = Höger ( OrigMessage , Len ( OrigMessage ) - 1 ) katalog
Wend
Text1.Text = Encoded
6
Kör programmet och skriv ett meddelande i textrutan och klicka på " Koda " knappen för att förvandla det till ett hemligt meddelande och " Decode " knappen att återlämna den till läsbarhet .
