so das mit den Primzahlen hab ich jetzt anders gelöst. ich hab einfach ein Array mit verschiedenen primzahlen gefüllt, per Zufall werden nun einfach Zwei davon ausgewählt. Ist zwar keine gute lösung aber es geht erstmal. Nun hab ich nur noch das Problem den privaten Schlüssel zu erzeugen.
Das hab ich bisher:
Delphi-Quellcode:
p:=Primzahl[random(80)];
q:=Primzahl[random(80)];
n:=p*q;
e:=(p-1)*(q-1);
d:= e^-1 mod p;
edit8.Text:=inttostr(e);
edit9.Text:=inttostr(n);
dschluessel.Text:=inttostr(d);
edit11.Text:=inttostr(n);
Ich weiss, dass das mit D nicht funktionieren kann auch wenn ich es mit power versuche klappt es nicht. Hier weiss ich nicht mehr weiter. Das Problem ist das ich nicht so klomplizierte Befehle einbauen kann, weil ich die erstens nicht verstehe un zweitens sich meine Lehrerin fragen würde wie ich darauf gekommen bin.
Bin für jede Hilfe dankbar.
MFG Jacqybaby