En enkel kryptering med Visual Basic innebærer å lese og endre en streng variabel lastet med et stykke tekst . Tilpasse kryptering er mer komplisert. Visual Basic gir et godt miljø for å gjøre små kryptering programmer som arbeider innenfor MS Windows. Instruksjoner
en

Les en tekststreng . Dimension en variabel kalt stra og laste inn teksten i den.
2

nå kalle en funksjon med et navn som " ChangeASC " som vil kryptere teksten ett tegn om gangen .

3

Innenfor denne funksjonen , kan du lese hver bokstav stra hjelp av en for /neste bue som dette: for k = 1 til len ( Stra )
4

din for /neste bue , ta hvert tegn ( k) i Stra , og endre sin stigende referanse, i hovedsak endre den til en annen karakter , ved hjelp av en kommando som dette: stigende ( k ) = asc ( k) + ( x )
5

nå, hvis x er konstant for å endre stigende verdier , vil det være nødvendig for å dekryptere teksten senere . Skriv ned dine x konstant for senere bruk , og ikke endre det .
6

Lag en destinasjon for din endret tekst . Når funksjonen er ferdig å oppdatere alle de teksttegnene , bør det dumpe forvandlet budskap inn i enten en tekstboks eller en tekstfil . Du kan bruke en fil uttalelse å dumpe til en fil , eller bare laste tekstboksen med resultatene for brukeren å se og kopiere seg selv.
7

Hold x konstant for dekryptering. Resultatet av den krypterte teksten blir hver bokstav forskjøvet med stigende verdi x . For eksempel, hvis x er 5, vil en bli F , vil B bli G og så videre.