Exponentieren und dann Modulo: große Zahlen

[himitsu]

ist halt Teil eines Projektes.

aber ich versuch mal die den BigInt-Teil zu vereinzeln.
mir raucht eh grad de Kopf von dessen großer Schwester (oder Bruder?) ... nja, etas abwechslung tut bestimmt Gut



[add]
was für Fehlermeldungen kommen eigentlich?
(außer daß Delphi meckern sollte, das etwas ('ne menge Units) fehlt)

und welche Delphiversion nutzt du?

[vsilverlord]

Das finde ich toll, vllt erinnert ihr euch noch an mein Problem. Ich hatte ein ähnliches Problem bei dem ich sehr große Zahlen gebraucht habe. Corpsman hat mir ja BigInt empfohlen bei dem leider keine Divison funktioniert hat und selber war ich nicht instande das zu programmieren. Wenn das mit den großen Zahlen funktionieren würde wäre ich darüber sehr erfreut. Wieviel Stellen unterstützt das neue Format? Und kann ich die Unit einfach einbinden und später + und - benutzen?

[tuxianer]

ich fänds auch echt nett von dir, da ich es für eine Projekt (RSA) benötige. Im Moment kann ich leider nur primzahlen bis ca. 200 erzeugen und mit diesen Arbeiten alles andere kann zu groß werden. Also danke schonmal !

[himitsu]

http://www.delphipraxis.net/internal...=895756#895756

512 Bit im Zweierkomplement = 152(153) Dezimalstellen
Int64 = 18(19) Dezimalstellen

und man kann, dank der neuen Kompilerfeatures, einfach sowas wie + und - Verwenden (siehe Testprojekt)

< <= = <> >= >
+ - div mod
and or xor not shl shr
Inc Dec

und als Funktionen in der Klasse und einiges nochmals als Einzelfunktion in der Unit (nach der Klassendefinition) unter anderem dieses:
DivMod Power LdExp LtExp LxExp ExpMod Log2 Log10 LogN Radic Sqr Sqrt Fibonacci RoundTo RoL RoR

[tuxianer]

Vielen Dank erstmal. Seh ich das richtig das ich jetzt einfach bei uses schreiben muss ....., BigInt in meinen bisgherigen sources? und die datie halt in den gleichen ordner packen...

[himitsu]

Jupp, die Datei einfach in den Projektordner, oder einen anderen Ordner, welcher in den Suchpfaden drin steht.

dann BigInt in Uses eintragen

und TBigInt verwenden.


und zur Verwendung:
die "Standardfunktionalität ist genauso wie bei auch "normalen" Integern

z.B. kann man TBigInt auch ganr normal speichern und laden:

Delphi-Quellcode:

Var BI: TBigInt;
  F: File...;
  S: TStream;
  P: Pointer;

BlockWrite(f, BI, SizeOf(BI));
S.Write(BI, SizeOf(BI));
MoveMemory(P, @BI, SizeOf(BI));

[MSSSSM]

schau dir das mal an:


http://www.lang-ib.de/Delphi-Ecke/Tr...s/vli/vli.html

[gammatester]

Zitat von MSSSSM:

schau dir das mal an:


http://www.lang-ib.de/Delphi-Ecke/Tr...s/vli/vli.html

Das ist natürlich gerade für RSA völlig ungeeignet, da die wichtigste Routine, um die es in diesem Thread ja geht, nämlich eine ExpMod gänzlich fehlt.

Gruß Gammatester

[himitsu]

Zitat von gammatester:

Das ist natürlich gerade für RSA völlig ungeeignet, da die wichtigste Routine, um die es in diesem Thread ja geht, nämlich eine ExpMod gänzlich fehlt.

na gut, dieses könnte man sich da notfalls noch nachrüsten.

erstmal eine Modfunktion erstellen

vom Prinzip her so:

Delphi-Quellcode:

Function Mod....
  Begin
    Result{Modulo} := Dividend - ((Dividend div Divisor) * Divisor)
  End;

für TVLI etwa so

Delphi-Quellcode:

Procedure TVLI.Mod(Dividend, Divisor: TVLI);
  Var Temp: TVLI;

  Begin
    Temp := TVLI.Create;
    Temp.Assign(Dividend);
    Temp.Divide(Divisor);
    Temp.Multiply(Divisor);
    Assign(Dividend);
    Substract(Temp);
    Temp.Free;
  End;

und nun muß man sich nur noch eine der hier schon vorgeschlagenen ExpMod-Funktionen für TVLI zurechtbiegen.
(also eine ohne Binäroperationen, wie AND und Co.)

[tuxianer]

mal ne andere Frage mit delphi 2005 geht der bigint nicht oder? da müsst ich das nämlich mal am anderen pc probieren.