habs jetzt so gemacht:
Delphi-Quellcode:
function TForm1.modulo(m, n: Extended): Extended;
begin
while m >= n do begin
m := m - n;
result := m;
end;
end;
function TForm1.crypt(K: Integer): Extended;
var help: Extended;
begin
help := N;
crypt := modulo(power(K, e), N);
end ;
danke für eure hilfe, scheint bis hier zu laufen