Das ist meine Verschlüsselung - läuft bestens
Delphi-Quellcode:
var
i : integer;
EncodedKey : string;
Key : Char;
begin
Geheimtext := '' ;
Vorbehandeln(Klartext);
For i:=1 to length(Klartext) do
begin
key:=Klartext[i];
Case Key of
'A': EncodedKey:= 'XZYJVPQ';
'B': EncodedKey:= 'XYJVPQZ';
'C': EncodedKey:= 'JXZYVPQ';
'D': EncodedKey:= 'XZYJQVP';
'E': EncodedKey:= 'XZJVPQY';
'F': EncodedKey:= 'XZYVJPQ';
'G': EncodedKey:= 'JVPQXZY';
'H': EncodedKey:= 'ZYJVXPQ';
'I': EncodedKey:= 'JVPXZYQ';
'J': EncodedKey:= 'XVZYJPQ';
'K': EncodedKey:= 'XZYQJVP';
'L': EncodedKey:= 'XZJVYPQ';
'M': EncodedKey:= 'XZYJPVQ';
'N': EncodedKey:= 'XZYJVQV';
'O': EncodedKey:= 'XYJZVPQ';
'P': EncodedKey:= 'XYJVZPQ';
'Q': EncodedKey:= 'YJVPQXZ';
'R': EncodedKey:= 'QXZYJVP';
'S': EncodedKey:= 'XZYPJVQ';
'T': EncodedKey:= 'ZYJVPQX';
'U': EncodedKey:= 'XZYVJPQ';
'V': EncodedKey:= 'XZJYVPQ';
'W': EncodedKey:= 'XZYJVQP';
'X': EncodedKey:= 'ZYJXVPQ';
'Y': EncodedKey:= 'XZYJPQV';
'Z': EncodedKey:= 'XZYVPQJ';
end;
Geheimtext := Geheimtext + EncodedKey;
end;
end;
@ Daniel B: "Key: Char;" und somit geht das ganze schon"
Key: Char hab ich doch geschrieben, aber funzen tut das ganze trotzdem nicht!
@ Daniel-Volk:
Das ist ne Caesar- Verschlüsselung, die wir für die Schule machen müssen.
Eine andere, wo man den Schlüssel eingibt, haben wir bereits gemacht - läuft auch.
Aber die will absolut nicht funktionieren und ich komm einfach nicht mehr weiter...
Übrigens Caesar - Bedeutet: Verschlüsseln durch tauschen von Buchstaben
