Wie schreibe Ich ein Caesar-Verschlüsselungs Programm in Visual-Basic

Tag!

Ich habe ein Problem mit Visual Basic. Ich will ein Programm mit VB zum verschlüsseln von Texten nach dem Caesar-Code.

der Caesar Code ist : a = c , b =d .....

Ich bedanke mich jetzt schon.
 
du musst mit einer scheife den text zeichen für zeichen durchlaufen, und dann jedes einzelne zeichen abfragen und durch ein anderes ersetzten.

so würde der code in object pascal aussehen:

Code:
for i := 1 to length(text) do  //durchlaufen des textes  (FOR-Schleife)
begin
   case text[i] of             //zeichen abfragen und ersetzten
    'a' : text[i] := 'b'; 
    'b' : text[i] := 'c';
    'c' : text[i] := 'd';
    'd' : text[i] := 'e';
    'e' : text[i] := 'f';
    'f' : text[i] := 'g';
    'g' : text[i] := 'h';
    'h' : text[i] := 'i';
    'i' : text[i] := 'j';
    'j' : text[i] := 'k';
    'k' : text[i] := 'l';
    'l' : text[i] := 'm';
    'm' : text[i] := 'n';
    'n' : text[i] := 'o';
    'o' : text[i] := 'p';
    'p' : text[i] := 'q';
    'q' : text[i] := 'r';
    'r' : text[i] := 's';
    's' : text[i] := 't';
    't' : text[i] := 'u';
    'u' : text[i] := 'v';
    'v' : text[i] := 'w';
    'w' : text[i] := 'x';
    'x' : text[i] := 'y';
    'y' : text[i] := 'z';
    'z' : text[i] := 'a';
   end;

in vb dürfte das nicht sehr viel anders aussehen.
 
Man muss auch nicht unbedingt eine Tabelle mit allen Zeichen eingeben, sondern kann einfach den jeweiligen Schlüssel (Wie weit sollen die Zeichen verscchoben werden) zu jedem Zeichen hinzuaddieren.

Ich will ja nichts unterstellen, aber das klingt irgendwie nach Hausaufgabe. :)

Also:
1. Text einlesen (direkte Eingabe, Datei, was auch immer)
2. Schlüssel einlesen (Wenn nicht fest vorgegeben)
3. Mit einer Schleife, den jeweiligen Text durchgehen und zu jedem Zeichen den Schlüssel addieren, dabei auf Überlauf auchten (z+1 soll a und nich ein sonderzeichen sein)
4. Fertigen Text ausgeben

Das solltest du hoffentliich hinkriegen. Da ich VB nicht kann kann ich dir den genauen Code nicht geben,
wenn es eine Hausaufgabe ist solltest du es auch selber machen, damit du wass dabei lernst.
mfg
Nornagest
 
Zurück
Oben