Ako si vyrobiť tajnú správu pomocou VB

Vytvorenie Visual Basic program , ktorý dokáže premeniť obyčajný textové správy do skomolený tajné správy ( a späť , samozrejme ) , je pomerne jednoduché . Teória je jednoduchá : Vezmite titulok v textovom poli jeden znak v čase a otočiť každý znak pomocou ASCII tabuľky 255 znakov podľa určitého počtu krokov . Dekódovať , otočiť každý znak späť , že mnoho krokov . Napríklad , otáčanie písmeno C vpred o jeden krok by to D. Forward 254 krokov by sa slučka okolo seba a vziať späť jednu , previesť ju do B. Pokyny Cestuj 1

Vytvoriť ovládací prvok TextBox s názvom " Text1 " a dve " CommandButton " kontroly . Zmeňte vlastnosti titulok na príkazové tlačidlá pre čítanie " Kódovanie " a " Decode " .
2

Otvorte okno kód v menu " View " a prejdite na objekt s názvom " ( General ) " a postup ( označené " Preco " ) s názvom " ( vyhlásenie ) . " Vložte nasledujúci kód deklarovať premenné programových :

Dim OrigMessage As String Dim

Encoded As String Dim

NextChar , KeyChar
3

Prejdite na " formuláre " " Load " postup v ponuke kódu objektu a vložte do kódu :

KeyChar = 254

KeyChar je počet krokov dopredu program bude pohybovať každá postava na znakovej sady ASCII . Môžete nastaviť KeyChar na akékoľvek číslo 1-254 . ( 255 je platná hodnota , ale slučka každá postava okolo seba , a preto nebude kódovať správu . )
4

Prejdite do príkazového tlačidla Decode " Click " postupu v okne kód a vložte v tomto kóde :

OrigMessage = Text1.Text

Encoded = " "

Kým ( OrigMessage < > " " )

NextChar = ľavý ( OrigMessage , 1 )

( Asc ( NextChar ) - KeyChar < 255 ) Potom

Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar + 255 )

Inak

Encoded = Encoded + Chr ( Asc ( NextChar ) - KeyChar )

End If

OrigMessage = Right ( OrigMessage , Ľan ( OrigMessage ) - 1 )

Wend

Text1.Text = Kódovaný
5

Prejdite k funkcii " Click " postupu príkazové tlačidlo kódovať v okne kód a vložte tento kód :

OrigMessage = Text1.Text

Encoded = " "

Kým ( OrigMessage < > " " )

NextChar = Left ( OrigMessage , 1 )

( Asc ( NextChar ) + KeyChar > 255 ) Potom

Encoded = Encoded + Chr ( Asc ( NextChar ) + KeyChar - 255 )

Else

kódovaný = Encoded + Chr ( Asc ( NextChar ) + KeyChar )

End If

OrigMessage = Right ( OrigMessage , Ľan ( OrigMessage ) - 1 )

Wend

Text1.Text = Kódovaný
6

spustite program a zadajte správu do textového poľa , kliknite na tlačidlo " Kódovanie " premeniť tajné správy a tlačidlom " Decode " vrátiť sa čitateľnosti .

• Predchádzajúca strana: Ako obmedziť vstupné hodnoty listov Iba vo VB.NET 
• Ďalšia strana: Ako pridať textové pole & tlačidlo pre DataGrid