Delphi-Quellcode:
if (Modus = 'M') and (Verschl = false) then
begin
case Schluessel of
3 : Schluessel := '9';
5 : Schluessel := '21';
7 : Schluessel := '15';
9 : Schluessel := '3';
11 : Schluessel := '19';
15 : Schluessel := '7';
17 : Schluessel := '23';
21 : Schluessel := '5';
23 : Schluessel := '17';
end;
for i := 1 to length(text) do
begin
if (ord(Text[i]) < 65) OR (ord(Text[i]) > 90) then
ausgabe := ausgabe + Text[i]
else
begin
wert := StrToInt(Schluessel) * (ord(text[i]) - 65 );
wert := wert mod 26;
kta := char(wert + 65);
ausgabe := ausgabe + kta;
end;
SetzeKlartext(ausgabe);
end;
end;
Ich programmiere gerade eine multipliaktive ENTschlüsselung und wandle alle Schluesseleingaben in die passende um, damit die Entschlüsslung auch funktioniert. Nun kommt bei "Case Of Schluessel" die Meldung:
[Fehler] uKryptool.pas(185): E2001 Ordinaltyp erforderlich
*shrug*
