Mkay, lass mich mal kurz überlegen, dann kriegste nen Code-Schnipsel (wird hier rein editiert...)
Hm, also:
Delphi-Quellcode:
Unterschied:=(Byte(Chiffre) - Byte(Klartext) + 27) mod 27;
Schlüssel:=Char(Unterschied + 65);
Das müsste doch eigentlich gehen, dein Beispiel:
Unterschied:=(Byte(P) - Byte(E) + 27) mod 27;
Unterschied:=(80 - 69 + 27) mod 27;
Unterschied:=11;
Schlüssel:=Char(11 + 65);
Schlüssel:=L;
Müsste also gehen.