LKG/Inf 11 2011/RSA

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Entwurf öffentlicher Schlüssel:
<code id="4f511fc88fe68">
// integer nicht ausreichend
function potenz(a,b: integer): integer;
var i,erg:integer;
begin
  erg:=1;
  for i:=0 to b do
    erg:=erg*a;
  result:=erg;
end;

function verschluesseln(N, e, M: integer): integer;
  begin
    result := potenz(M,e) mod N;
  end;
</code>
<run id="4f511fc88fecc">writeln(verschluesseln(187, 7, 88));
</run>