Exponentieren und dann Modulo: große Zahlen

[himitsu]

Delphi-Quellcode:

Function tF_Haupt.mod_exp(Const Basis, Exponent, Modulo: TBigInt): TBigInt;
  Begin
    Result := Basis;
    Result.ExpMod(Exponent, Modulo);
  End;

Zitat:

[DCC Fehler] Unit1.pas(176): E2015 Operator ist auf diesen Operandentyp nicht anwendbar

welches ist denn die Zeile 176?
[add]
hab 'nen verdacht

Code:

If Exponent.Data[color=#ff0000][0][/color] and $1 <> 0 Then

[/add]

[tuxianer]

naja es lief ja jetzt nur stützt es bei primzahlen >>20.000 ab und hängt sich auch beim entschlüsseln auf...

[himitsu]

hast du da mal ein Testprogramm für mich?

[Macci]

Übrigens kommt bei der Rechnung
666^58613

folgende Zahl raus:


19723971160619624455773050692305579086788641379042 79
64198191449046292583386241568038339803081818...(16 5395 Ziffern).

und das ist
eine Septenvigintmilliaquingentduooktogintillion neunhundertzweiundsiebzig Septenvigintmilliaquingentunoktogintilliarden dreihundertsiebenundneunzig Septenvigintmilliaquingentunoktogintillionen einhundertsechzehn Septenvigintmilliaquingentoktogintilliarden einundsechzig Septenvigintmilliaquingentoktogintillionen neunhundertzweiundsechzig Septenvigintmilliaquingentnovemseptuagintilliarden vierhundertfünfundvierzig Septenvigintmilliaquingentnovemseptuagintillionen fünfhundertsiebenundsiebzig Septenvigintmilliaquingentoktoseptuagintilliarden dreihundertfünf Septenvigintmilliaquingentoktoseptuagintillionen neunundsechzig Septenvigintmilliaquingentseptenseptuagintilliarde n zweihundertdreißig Septenvigintmilliaquingentseptenseptuagintillionen ....

Wer den vollständigen Namen will (der übrigens über 3 MB groß ist), soll mir eine PM schicken

wollte ich nur mal anmerken *g*,
Macci