Entschluesselungsalgorithmus

[Noris]

Und wie wäre es möglich das problem mit dem "mod" zu lösen?

hier die GetStellenWertVon-function:

Delphi-Quellcode:

function TKryptoBox.GetStellenWertVon (Zeichen : char) : integer;
(* -------------------------------------------------------------------- *)
begin
   case Zeichen of
    'A'..'Z' : Result := ord(Zeichen) - 65 ;
     ' '     : Result := 26;
   end;
end;