RSA - Problem bei der verschlüsselung/entschlüsselung

[schweindi]

jaja, klar aber wie schon einige geschrieben haben ist das jetzt nur zu Testzwecken, wenn ich da schon solche Denkfehler drinnen habe, wie soll ich dann etwas mit "großen" Zahlen verstehen, die ich mir garnicht vorstellen kann.

Also ich habe die functions wie folgt geändert:

Delphi-Quellcode:

function expmod(b, x, m: LongInt): LongInt; 
  var 
    quad, halb, erg: LongInt; 
   { 
    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; {Exponent} 
  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;

function mod_inv(A,B:Int64):Int64;export;
  {liefert 1 / A mod B} 
var n1,n2,b1,b2,q,r,t:Int64;
begin 
  if B >= 1 then begin 
    n1 := B; 
    n2 := A; 
    b1 := 0; 
    b2 := 1; 
    while true do begin 
       r := n1 mod n2; 
       q := n1 div n2; 
       if r = 0 then begin 
         if b2 < 0 then b2 := b2 + B; 
         Result := b2;
         Break;  // oder gleich Exit;
       end; 
       n1 := n2; 
       n2 := r; 
       t  := b2; 
       b2 := b1 - q * b2; 
       b1 := t; 
    end; 
  end else 
    Result := B; 
end;

und wenn ich jetzt, wie du es geschrieben hast, die Schleife von 0-255 durchlaufen lasse steht folgendes da:

Fehler: y<>i für i=0
x:5 y:5 z:5
x:5 y:5 z:5
Fehler: y<>i für i=2
x:5 y:5 z:5
Fehler: y<>i für i=3
x:5 y:5 z:5
Fehler: y<>i für i=4
x:5 y:5 z:5
Fehler: y<>i für i=5
x:5 y:5 z:5
Fehler: y<>i für i=6
x:5 y:5 z:5
Fehler: y<>i für i=7
x:5 y:5 z:5
Fehler: y<>i für i=8
x:5 y:5 z:5
Fehler: y<>i für i=9
x:5 y:5 z:5
Fehler: y<>i für i=10
x:5 y:5 z:5
Fehler: y<>i für i=11
Fehler: y<>i für i=12
Fehler: y<>i für i=13
Fehler: y<>i für i=14
Fehler: y<>i für i=15

usw.............. hmmm sollte glaub ich nicht so sein