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