MOD und EXTENDED arbeiten nicht zusammen, alternative?

[Binärbaum]

Zitat von trockentaucher:

Beispiel:

Delphi-Quellcode:

Function gfGetKey(intNr:Extended) :Extended; {intNr ist ein 4-stelliger Integer, der verschlüsselt werden soll}

Var Zahl : Extended;

begin
  Zahl := Power(intNr, 7); {Result: 3,3541434664347E24}
  gfGetKey := Zahl mod 119; {hier rumst es weil Zahl:Extended}
end;

Im Prinzip soll gfGetKey einen Integer liefern, der aus dem Rest (mod) von "Zahl div 119" enthält. Dieser Wert wäre die Verschlüsselung. Die Idee habe ich hier gefunden: Verschlüsselung von Zahlen
Als Primzahlen können zum testen die 7 und die 17 verwendet werden, Zahl E wäre 7. Daraus ergibt sich 119 für Zahl N...

Warum deklarierst du intNr als Extended, wenn dort nur 4-Stellige Integer vorkommen?

Delphi-Quellcode:

Function gfGetKey(intNr: Integer) :Cardinal; {intNr ist ein 4-stelliger Integer, der verschlüsselt werden soll}
var Zahl : Int64;
begin
  Zahl := Round(IntPower(intNr, 7));
  gfGetKey := Zahl mod 119; 
end;

MfG
Binärbaum

[Edit]
Als Rückgabewert würde in diesem Falle sogar der Typ Byte ausreichen, da Zahl mod 119 stets im Bereich 0..118 liegt.
[/Edit]