Geheimsprache

[Seniman]

Hallo Tidus,

versuch es mal folgendermaßen:
Lass bei Readln() einen STRING einlesen keinen CHAR.
Ein String kann bei Delphi verwendet werden wie ein Array. D.h. ist ein String eingegeben, sagen wir er heißt "Satz", dann kannst du mit Satz[1] auf den ersten Buchstaben zugreifen, mit Satz[2] auf den zweiten usw. Um herauszufinden, wie viele Buchstaben der String enthält benutze die Funktion length. Das ganze baust du in eine For-Schleife ein. Es könnte etwa so aussehen:

Delphi-Quellcode:

begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i:=1 to Length(Satz) do
  begin
    {Hier musst du noch auf das Z achten, denn das soll ja zu A werden}
    Satz2[i]:=Chr(Ord(Satz[i])+1);
  end;
Writeln(Satz2);
Readln;
end.

An der markierten Stelle solltest du noch eine Abfrage einbauen, ob der Buchstabe ein "z" oder ein "Z" ist und dann gegen "a" bzw. "A" ersetzten. Außerdem solltest du dir überlegen, was du mit Satzzeichen machst.

Ach nochwas: Ich weiß nicht, wofür du diese Verschlüsselung brauchst, aber wenn du damit ernsthaft Texte verschlüsseln willst, damit sie keiner Lesen kann, dann benutz einen anderen Algorithmus, dieser ist SEHR unsicher.

Grüße
Seniman