RSA	[modulo-Rechnen] [modulares Potenzieren] [Algorithmus von Euklid] [Euler-Funktion] [Satz von Euler] [modulares Inverses] [Primfaktorzerlegung] [Primzahlen finden] [Schlüsselpaar] [Angriff] [Sicherheit] Pfad: [Startseite] / [Fächer] / [Informatik] / [Kryptologie] / [RSA] / [modulares Potenzieren]
Hohenstaufen-Gymnasium Kaiserslautern	Autor: mk Letzte Änderung dieser Seite: 17.03.2007 12:47:56  82 modulares Potenzieren

Diskrete Exponentialfunktion

  function modpot(a,e,m : int64) : int64;
  var
    quad, halb, erg : int64;
  begin
    quad := a; halb := e; erg := 1;
    while halb > 0 do
    begin
      if odd(halb) {halb mod 2 > 0} then
        erg := (erg*quad) mod m;
      quad := (quad*quad) mod m;
      halb := halb div 2;
    end;
    result := erg;
  end;

modpotenz.zip modpot_lang.zip

lokal