Lees een tekenreeks . Dimensie een variabele genaamd strA en laad uw tekst erin . Kopen van 2

Nu noemen een functie met een naam als " ChangeASC ' dat uw tekst een teken zal versleutelen tegelijk .
Goedkope 3

Binnen die functie , lees elke letter van strA het gebruik van een voor /volgende lus als volgt : voor k = 1 tot len ( strA )
4

In je voor /volgende lus , neemt elke letter ( k ) van strA , en verander de opl verwijzing , in wezen veranderen in een ander karakter , met behulp van een commando als dit : ASC ( k ) = asc ( k ) + ( x )
5

Nu, als x is uw constante voor het veranderen van oplopend waarden , het zal nodig zijn om decoderen uw tekst later . Noteer uw x constant voor later gebruik , en verander het niet .
6

Maak een bestemming voor uw gewijzigde tekst . Wanneer de functie wordt uitgevoerd bijwerken van alle van de tekst tekens , moet het de getransformeerde bericht dumpen , ofwel in een tekstvak of in een tekstbestand . U kunt een bestand statement gebruiken om te dumpen in een bestand , of gewoon je tekstvak te vullen met de resultaten voor de gebruiker te bekijken en kopiëren zelf .
7

Houd uw x constant voor decryptie . Het resultaat van uw gecodeerde tekst zal elke letter verschoven door opl waarde x te zijn . Bijvoorbeeld , als x 5 , A zou F geworden , zou B G worden en ga zo maar door .