RSA

Aus ProgrammingWiki

< LKG < Inf 11 2011

Archivierte Version vom 2012-03-02T19:43:18+00:00. Aktuelle Version

Entwurf öffentlicher Schlüssel:

// 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;

writeln(verschluesseln(187, 7, 88));

RSA

Suche