RSA verschlüsselung

[negaH]

Im offiziellen DEC sind keine asymmetrischen Algos enthalten, ich habe aber hier http://www.delphipraxis.net/internal...ct.php?t=14699 meinen inoffiziellen Part II des DEC gepostet.
Damit kannst du schon mal mit sehr großen Zahlen rechnen. Du lädst dir dort deine benötigte Version runter -> D5,D6 oder D7.

Um nun mit deinem Beispiel zu rechnen erweiterst du folgendes im Test Projekt

Delphi-Quellcode:

unit TestUnit;

interface

uses Windows, ConsoleForm.....;

implementation

.....blabla

procedure TestRSA;
var
  N,E,M,C: IInteger;
begin
// Zuweisungen
  NSet(N, '269672597456844849092710729285922530203391686820422133286759');
  NSet(E, '5456431');
  NSet(M, 123456);

// modular Potenzieren
  NPowMod(C, M, E, N);  // C = M^E mod N -> CipherText = Message^Exponent mod Modulus  

// Ausgabe
  WriteLn('N: ', NStr(N));
  WriteLn('E: ', NStr(E));
  WriteLn('M: ', NStr(M));
  WriteLn('C: ', NStr(C));
end;


initialization
  RegisterProc('\Test\RSA', '', TestRSA, vk_F8);

....blabla
end.

dann kompilierst du das Projekt, startest das Projekt und drückst F8, in der Console sollten dann deine Ausgaben stehen.

Gruß Hagen