Zitat von
brushmate:
Delphi-Quellcode:
crypt := function TForm1.crypt(K: Integer): Extended;
begin
Da ist wohl ein "crypt := " zu viel.
Zitat von
brushmate:
crypt := power(K, e) mod N;
mod ist eine Integerdivision, du hast aber als Rückgabewert einen Fließkommawert.
Zitat von
brushmate:
die power-Funktion gibt allerdings den Extended-Datentyp zurück, N ist aber Integer. Bisher habe ich nichts gefunden, wie ich N in Extended umwandeln kann.
Das nutzt dir ja nichts, denn mod geht ja nur mit zwei Integerwerten.
Wie wäre es denn so:
Delphi-Quellcode:
function TForm1.Crypt(K: Integer): Extended;
begin
Result := Power(K, e) / N;
end ;
Den Rückgabewert legt man normalerweise in Result, deine Schreibweise ist zwar möglich, aber wenig sinnvoll. (Sonst musst du z.B. bei einer Umbenennung der Funktion auch jede Zuweisung umbenennen und lesbar ist das auch nicht so gut.)