Hallo alle,
ich werkle jetzt schon länger an einigen Programmen für die Schule und brauche jetzt für das letzte noch RSA.
Ich habe eig alles schon fertig geschrieben, leider funzt da irgendetwas nicht ganz perfekt und ich bin mir ziemlich sicher, dass es mit hohen Potenzen und anschließenden modulo Rechnungen zusammenhängt.
So jetzt mal was ich bisher gemacht habe:
Delphi-Quellcode:
p:=p1;
q:=q1;
N:=p*q;
phiN:=(p-1)*(q-1);
repeat
e:=Random(1024);
until ((e mod phiN)<>0)and(e<2048);
d:=mod_inv(phiN,e);
da sind einmal p, q, N, und phi(N) sowie e und dann das multipl. Inverse von phi(N) und e.
p1 & q1 sind integer generiert aus Random(2048)...
mod_inv(phiN,e) befindet sich in einer
dll, die ich für alle Programme verwende:
Delphi-Quellcode:
function mod_inv(A,B:Integer):Integer;export;
var n1,n2,b1,b2,q,r,t:Integer;
Fertig:Boolean;
begin
if a < 1 then
begin
Result:=a;
end else
begin
Fertig:=False;
n1:=A;
n2:=B;
b1:=0;
b2:=1;
repeat
r:=n1 mod n2;
q:=n1 div n2;
if r=0 then
begin
if b2 < 0 then
b2:=b2+65537;
Result:=b2;
Fertig:=True;
end else
begin
n1:=n2;
n2:=r;
t:=b2;
b2:=b1-q*b2;
b1:=t;
end;
until Fertig;
end;
end;
so und hier noch der letzte teil:
Input = ein Text von Edit1.Text
symbcode(Input) = eine funktion, die jeden Buchstaben in die entsprechende Zahl umwandelt (A:1,B:2,C:3...)
ich habe iwo gelesen, man könnte es auch direkt mit den
ASCII codes machen und dann glaub ich char() aber ich wollte es mal so probieren.
Die function hab ich schon getestet und sie gibt die richtigen Werte aus.
Delphi-Quellcode:
for i:=1 to length(Input) do
begin
debug:=StrToInt(symbcode(Input)[i]);
Memo1.Lines.Add('Eingabe: '+IntToStr(debug)+' d: '+Inttostr(d));
y:=expmod(debug,e,N);
Memo1.Lines.Add('Code: '+IntToStr(y));
Memo1.Lines.Add('Klartext: '+IntToStr(expmod(y,d,N)));
end;
so und jetzt noch die function expmod(a,b,c)... ich hatte leider keine Ahnung wie ich von den "riesen Zahlen" mod rechen soll, wenn sie hunderte stellen haben, deshalb hab ich diese function verwendet, ka wo ich sie gefunden hab.
(unverändert)
Delphi-Quellcode:
function expmod(b,x,m :integer):extended;export;
var
quad,halb,erg:Integer;
{
Berechnet die diskrete Exponentialfunktion b hoch x modulo m
unter ausschließlicher Verwendung der Operationen Quadrieren
und Multiplizieren. Der Rest wird nach jeder Operation bestimmt,
um große Zwischenergebnisse zu vermeiden
mod bezeichnet die Modulo-Operation
div bezeichnet die ganzzahlige Division
}
begin
Quad := b; //basis
Halb := x; //hochzahl
Erg := 1; //Ergebnis
while Halb > 0 do
begin
if Halb mod 2 > 0 then
Erg := (Erg * Quad) mod m;
Quad := (Quad * Quad) mod m;
Halb := Halb div 2;
end;
result := Erg;
end;
bei kleinen werten:
e,d=3
p,q < 100 funktioniert es bei A=01 aber sobald e,d,p,q größer werden oder B=02 eingegeben wird kommt es zu Fehler, so dass der "codierte"Buchstabe plötzlich den Wert 0 bekommt...
sieht jemand schon einen Fehler?
lg
Schweindi