REAL und MOD

[3_of_8]

http://de.wikipedia.org/wiki/Diskret...entialfunktion

Die lässt sich recht einfach in Delphi implementieren. Hab ich vor kurzem erst gemacht. So nebenbei, programmierst du zufällig eine RSA-Verschlüsselung?

EDIT: Da hammers ja:

discreteExponent(b, x, m)=b^x mod m

Delphi-Quellcode:

function discreteExponent(b, x, m: Integer): Integer;  
begin  
  result:=1;  
  while x>0 do  
  begin  
    if x and 1=1 then Result:=Result*b mod m;  
    b:=(b*B) mod m;  
    X:=x div 2;  
  end;  
end;