Zitat von
jaenicke:
Delphi-Quellcode:
function TForm1.Crypt(K: Integer): Extended;
begin
Result := Power(K, e) / N;
end ;
mhm das ist ja nicht gerade der Sinn von Mod^^ und den braucht man ja bei RSA
also was nicht schön ist aber Round oder Trunc (Abrunden) funktionieren,
aber ggf. kannst du dir ja auch eine "mod"-funktion selber schreiben, die mit extended funktioniert
r:=a mod b
Delphi-Quellcode:
while a>=b do
a:=a-b;
r:=a;
bzw
Delphi-Quellcode:
asm
mov ax,a
@anfang_schleife: cmp ax,b
jl @ausgabe
sub ax,b
jmp @anfang_schleife
@ausgabe: mov c,ax
end;
MfG blink182