RSA verschlüsselung funktioniert nicht...

[Klaus01]

Hallo,

wenn Du das so machst:

Delphi-Quellcode:

UNIT ukrypto;

INTERFACE
USES sysutils;

TYPE  tcodiermaschine=class(TObject)
          private
             klartext,codetext: string;
          public
             constructor create;
             function IPowMod(a,b,n:int64): int64;
             procedure setklartext(text: string);
             procedure setchiffre(text: string);
             function getklartext: string;
             function getchiffre: string;
             procedure verschluesseln(c: string);virtual;
             procedure entschluesseln(c: string);virtual;
end;

dann solltest Du dies so machen:

Delphi-Quellcode:

function tcodiermaschine.IPowMod(a,b,n: int64): int64;
  {-Berechnet a^b mod n}
var
  p: int64;
begin
  p := 1;
  while b > 0 do begin
    while b and 1 = 0 do begin
      b := b shr 1;
      a := (a * a) mod n;
    end;
    dec(b);
    p := (p * a) mod n;
  end;
  IPowMod := p;
end;

Grüße
Klaus