-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
naja es lief ja jetzt nur stützt es bei primzahlen >>20.000 ab und hängt sich auch beim entschlüsseln auf...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
noch was:
Function tF_Haupt.mod_exp(Basis, Exponent, Modulo: TBigInt): TBigInt;
Begin
Result := 1;
While Exponent > 0 do Begin
If Exponent.Data and $1 <> 0 Then
Result := (Result * Basis) mod Modulo;
Basis := (Basis * Basis) mod Modulo;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
ok es kommen jetztkeine fehler mehr nach all diesen Korrekturen! :dancer:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
geht leider noch nicht: BigInt.pas(177): E2393 Ungültige Operatordeklaration
BigInt.pas(177): E2029 Bezeichner erwartet, aber 'CONST' gefunden
BigInt.pas(177): E2086 Typ 'TBigInt' ist nicht vollständig definiert
BigInt.pas(177): E2029 '=' erwartet, aber ')' gefunden
BigInt.pas(178): E2029 ; erwartet, aber Bezeichner 'Operator' gefunden
BigInt.pas(178): E2029 Ausdruck erwartet, aber...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
ich habs jetzt in delphi2007 probiert:
BigInt.pas(175): E2393 Ungültige Operatordeklaration
BigInt.pas(175): E2029 Bezeichner erwartet, aber 'CONST' gefunden
BigInt.pas(175): E2086 Typ 'TBigInt' ist nicht vollständig definiert
BigInt.pas(175): E2086 Typ 'TBigInt' ist nicht vollständig definiert
BigInt.pas(177): E2029 ; erwartet, aber Bezeichner 'Operator' gefunden
BigInt.pas(177):...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
mal ne andere Frage mit delphi 2005 geht der bigint nicht oder? da müsst ich das nämlich mal am anderen pc probieren.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
Vielen Dank erstmal. :bounce1: 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...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
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 :cheers:!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
31. Mai 2008
also ich habe mir jetzt non vlc heruntergeladen. wiemuss ich jetzt weiter vorgehen? ich möchte nur die fmath verwenden. Ich habe jetzt alles dateien in meinen projektordner kopiert aber wenn ich unter uses fmath hinschreibe kommen fehlermeldungen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
28. Mai 2008
sorry ich meine himitsu und mir geht es um den bigint
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
28. Mai 2008
kannst du bitte mal die Datei uploaden, die ich für den bigint einbinden muss? und wie mach ich das sowas habe ich noch nie gemacht mit delphi. Danke schonmal!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
22. Mai 2008
na ich bräuchte ja nur integer. hast du nen link zu deinem projekt?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
22. Mai 2008
hallo,
ich habe dein Paket noch nicht probiert. Wie füge ich es in meine Funktion ein? Und wie große Zahlen kann ich dann verwenden?
Viele Grüße tuxianer
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
17. Mai 2008
ja jetzt klappt es für die Zahlen größe. Aber für noch größere Zahlen immer noch nicht.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
16. Mai 2008
ja danke das integer bei e hat ich übersehen. jetzt gehen die zahlen ein wenig höher. es kommt ein overflow! wie bekomme ich variablen mit ca 256 bit hin?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
16. Mai 2008
das hab ich mir auch schon überlegt. aber dann gibts ja keine größeren ganzzahl typen. Wie kann ich mir da selbst welche erstellen? Aber eigentlich exponentiert das doch schrittweise. das Ergebnis ist ja nicht groß.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by tuxianer,
16. Mai 2008
Hallo,
ich habe jetzt den Code implementiert:
function tform1.mod_exp(basis,exponent,modulo:integer):int64;
var e:Integer;
begin
e:=1;
while (exponent>0) do begin
if (exponent mod 2 > 0) then e:=(e*basis) mod modulo;
basis:=(basis*basis) mod modulo;