Frage von Luanaariz, 33

Visual Basic Buchstaben um stellen verschieben?

Guten Abend Leute,

kann mir vlt. einer verraten wie ich bei Visual Basic (Konsolenanwendung), die Buchstaben eines Textes so Verschlüsseln kann, dass ich sich z.b um 3 Stellen verschiebt?

Bsp:

Hallo --> KDOOR

Danke im Voraus.

Antwort
von zalto, 23

Du musst Buchstabe für Buchstabe aus dem String herausholen, den Asc-Wert ermitteln, drei dazuzählen und wieder in einen Character wandeln. Sieht dann so aus (VBA):

inputstring = "Hallo"

For i = 1 To Len(inputstring)
outputstring = outputstring & Chr(Asc(Mid(inputstring, i, 1)) + 3)
Next
MsgBox outputstring
Kommentar von Suboptimierer ,

Man müsste noch Klein- und Großbuchstaben unterscheiden. Ich würde einen Shift vornehmen (-65) und mit Modulo operieren, damit nach dem Ende des Alphabets wieder vorne angefangen wird.

Antwort
von heilwigkenner, 18

Ganz einfach könntest du es realisieren, in dem du einen Array nimmst, der das Alphabet enthält. Dann loopst du durch den String und für jeden Buchstaben suchst du Position im Alphabet-Array (ich nenne sie jetzt hier p) und fügst einem neuen String den Inhalt des Werts an der Position p+3 hinzu.

Kommentar von PWolff ,

Zusätzlich modulo Länge des Alphabets

Keine passende Antwort gefunden?

Fragen Sie die Community