Verschlüsselung

[m500]

Zitat von DeddyH:

Das ist ja gut und schön, aber dafür wird er wohl eine entsprechende Unit verwendet haben. Von allein wird da ja nix verschlüsselt.

Schau mal unter mRSA

[DeddyH]

Außer "hoch_mod" sehe ich da nichts weiter. Ich kann mir nicht vorstellen, dass das schon alles sein soll (ich habe auch keinen Plan von RSA, aber AFAIK arbeitet der mit Schlüsselpaaren, das muss also definitiv entschieden mehr Code sein).

[m500]

Zitat von implementation:

Weißt du denn, wie das RSA-Verfahren funktioniert?
Also mit Private/Public-Key und wie die Keys generiert werden auf Primzahlbasis?

Klar

[m500]

if (y mod 2 = 0) then begin
x := (x * x) mod z;
y := y div 2
end
else begin
y := y - 1;
c := (c*x) mod z
end
end;
result := c
end;

[BUG]

Zitat von DeddyH:

Außer "hoch_mod" sehe ich da nichts weiter. Ich kann mir nicht vorstellen, dass das schon alles sein soll (ich habe auch keinen Plan von RSA, aber AFAIK arbeitet der mit Schlüsselpaaren, das muss also definitiv entschieden mehr Code sein).

Da der Schlüssel anscheinend gegeben ist, sollte diese Funktion tatsächlich ausreichen.

Delphi-Quellcode:

const p = 11;
const q = 13;
const e = 23;
const d = 47;

Delphi-Quellcode:

function RSAWerkzeug.verschluesselCode: Integer;
begin
  zVerschluesselterCode := hoch_mod({Hier die richtigen Parameter einsetzten.});
end;

function RSAWerkzeug.entschluesselCode: Integer;
begin
  zEingabeCode := hoch_mod({Hier die richtigen Parameter einsetzten.});
end;

Für die Textverschlüsselung würde ich es versuchen den Text buchstabenweise zu ent-/verschlüsseln (bei dem gegebenen Schlüssel geht das aber nur für Ansii-Zeichen).


Aber wenn dieser Quelltext eine Vorgabe ist

[m500]

thx