Kaiserslautern
|
Autor: mk Letzte Änderung dieser Seite: 17.03.2007 12:30:08 85 |
Euler-Funktion |
| |
|
||
| RSA |
[modulo-Rechnen]
[modulares Potenzieren]
[Algorithmus von Euklid]
[Satz von Euler]
[modulares Inverses]
[Primfaktorzerlegung]
[Primzahlen finden]
[Schlüsselpaar]
[Angriff]
[Sicherheit]
|
||
|
Hohenstaufen-Gymnasium Kaiserslautern |
|
// Herrmann, Algorithmen Arbeitsbuch, S.154
function euler(n : longint) : longint;
var
phi : real;
p : tP;
h : tH;
i,z : integer;
begin
phi := n;
primfak(n,p,h);
i := 1;
while h[i] > 0 do
begin
phi := phi*(1 - 1/p[i]);
i := i+1;
end;
result := round(phi);
end;
