AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

RSA-Entschlüsselung

Ein Thema von fortuneNext · begonnen am 18. Mär 2009 · letzter Beitrag vom 18. Mär 2009
 
fortuneNext

Registriert seit: 11. Aug 2007
Ort: Neuss
133 Beiträge
 
Delphi 7 Enterprise
 
#1

RSA-Entschlüsselung

  Alt 18. Mär 2009, 21:04
Hi,
ich habe RSA umgesetzt und folgenden Fall probiert:

p = 7
q = 13
N = 91
Eul N = 72
e = 23
d = 47
Klartext = 1337
(Eingabe direkt als Zahlen)
Verschlüsselt: 84
( 7^23 mod 91 = 84 )
Entschlüsselt: 63
( 84^47 mod 91 = 63 )

Warum kommt bei der Entschlüsselung etwas anderes heraus als der Klartext?

Delphi-Quellcode:
function TRSA.Decrypt(text:String; d, N:integer):string;
var
  x, temp:integer;
begin
  temp := 1;
  for x := 1 to d do
    temp := (temp * StrToInt(text) mod N);
  Result := IntToStr(temp);
  //Result := IntToStr(ExpMod(StrToInt(text), d, N));
end;
So sieht die Entschlüsselung aus. Was ist denn nicht korrekt?

mfg
fortuneNext

PS: Es liegt wahrscheinlich nicht am Quellcode, da auch per Hand dasselbe raus kommt. Aber sicher ist sicher...
Tim
"Hilfe & Support konnte nicht geöffnet werden. Bitte öffnen sie Hilfe & Support, um das Problem zu beheben."
"No Keyboard found. Press F1 to continue."
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz