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.)