Häufigkeitsverteilung mag zwar die "schönste" Methode sein, aber dafür ist diese Verteilung auch in jeder Sprache etwas anders. Die Methode arbeitet also gut, wenn man vor dem Entschlüsseln die Sprache des Orginaltextes kennt. Sonst ist sie mehr oder weniger wertlos.
Noch ein Tipp zur Codeverbesserung:
statt
Delphi-Quellcode:
case c of
'A' .. 'Z' : quelltext := quelltext + c;
'a' .. 'z' : quelltext := quelltext + upcase(c);
'ß' : quelltext := quelltext + 'SS';
'ä' : quelltext := quelltext + 'AE';
'ö' : quelltext := quelltext + 'OE';
'ü' : quelltext := quelltext + 'UE';
'Ä' : quelltext := quelltext + 'AE';
'Ö' : quelltext := quelltext + 'OE';
'Ü' : quelltext := quelltext + 'UE';
end;
kann man auch folgendes schreiben:
Delphi-Quellcode:
case c of
'A' .. 'Z' : quelltext := quelltext + c;
'a' .. 'z' : quelltext := quelltext + upcase(c);
'ß' : quelltext := quelltext + 'SS';
'ä','Ä' : quelltext := quelltext + 'AE';
'ö','Ö' : quelltext := quelltext + 'OE';
'ü','Ü' : quelltext := quelltext + 'UE';
end;