Einzelnen Beitrag anzeigen

Benutzerbild von trockentaucher
trockentaucher

Registriert seit: 25. Nov 2003
Ort: Dortmund
41 Beiträge
 
Delphi 7 Professional
 
#8

Re: MOD und EXTENDED arbeiten nicht zusammen, alternative?

  Alt 16. Mär 2005, 08:05
Hi Binärbaum and all, thanks so far...

Zitat von Binärbaum:
Also ich gehe mal davon aus, dass das "E" nur für den allgemeinen Exponenten steht und nicht für e (eulersche Zahl)
Yepp, soweit richtig.

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...
  Mit Zitat antworten Zitat