RSA verschlüsselung funktioniert nicht...

[gammatester]

Zitat:

Zitat von Bblackhawk

warscheinlich nerv ich euch schon so richtig, aber entweder bin ich einfach zu dumm oder es geht einfach nicht...

wenn ich die function IPowMod inplementiere, dann bekomm ich schon wieder fehlermeldungen rausgehaun...

und zwar folgende:

[DCC Fehler] ukrypto.pas(17): E2065 Ungenügende Forward- oder External-Deklaration: 'tcodiermaschine.IPowMod'
[DCC Fehler] krypto.dpr(5): F2063 Verwendete Unit 'ukrypto.pas' kann nicht compiliert werden

könnt ihr mir vllt nochmal helfen, wär echt nett von euch :oops:

Vielen dank nochmal und nochmal im voraus...

nice greetz
Bblackhawk

IPowMod muss im Quellcode vor der Verwendung stehen und muß nicht mit tcodiermaschine.IPowMod aufgerufen werden, nur zB i:=IPowMod(2,10,55);

Gammatester

[Klaus01]

füge die Funktion vor die Methoden, kodieren und dekodieren ein.
Oder mache aus Ihr eine Methode Deines Objektes.

Grüße
Klaus

[Bblackhawk]

der will bei mir immernoch nich...

ich stelle euch mal zur show, was ich da gebaut hab (is aus der klasse ukrypto)...

Delphi-Quellcode:

UNIT ukrypto;

INTERFACE
 USES sysutils;

 TYPE  tcodiermaschine=class(TObject)
          private
             klartext,codetext: string;
          public
             constructor create; 
             function IPowMod(a,b,n:int64): int64;
             procedure setklartext(text: string);
             procedure setchiffre(text: string);
             function getklartext: string;
             function getchiffre: string;
             procedure verschluesseln(c: string);virtual;
             procedure entschluesseln(c: string);virtual;
 end;

so, dann gehts weiter mit der IPowMod

Delphi-Quellcode:

function IPowMod(a,b,n: int64): int64;
  {-Berechnet a^b mod n}
var
  p: int64;
begin
  p := 1;
  while b > 0 do begin
    while b and 1 = 0 do begin
      b := b shr 1;
      a := (a * a) mod n;
    end;
    dec(b);
    p := (p * a) mod n;
  end;
  IPowMod := p;
end;

(steht direkt hinter dem Constructor)
so und zum schluss die procedure zum verschlüsseln...

Delphi-Quellcode:

procedure tcodiermaschine.entschluesseln;
var i : integer;
var acode : int64;
begin
  // Klartext zu ASCII
    for i := 1 to length (klartext) do
    begin
      // 1 ASCII- Code der i-ten Buchstaben ermitteln
      acode := ord(codetext[i]);
      // 2 Durch formel ( M = C^d mod N ) verschlüsseln
      acode := IPowMod(  a:146, b:23, n:187 ); //(acode - round(exp(23*ln(146))) mod 187);
      // 3 Das Zweichen mit dem ASCII- Code acode an der i-ten Stelle im chiffre ablegen
      klartext[i] := chr(acode);
    end;
end;

folgende Fehler:

[DCC Fehler] ukrypto.pas(93): E2003 Undefinierter Bezeichner: 'a'
[DCC Fehler] ukrypto.pas(97): E2029 '.' erwartet, aber ';' gefunden
[DCC Fehler] ukrypto.pas(11): E2065 Ungenügende Forward- oder External-Deklaration: 'tcodiermaschine.IPowMod'
[DCC Fehler] krypto.dpr(5): F2063 Verwendete Unit 'ukrypto.pas' kann nicht compiliert werden

wie gesagt, keine ahnung mehr...

vielen dank wiedermal für die hilfe...

very nice greetz
Bblackhawk

[Klaus01]

Hallo,

wenn Du das so machst:

Delphi-Quellcode:

UNIT ukrypto;

INTERFACE
USES sysutils;

TYPE  tcodiermaschine=class(TObject)
          private
             klartext,codetext: string;
          public
             constructor create;
             function IPowMod(a,b,n:int64): int64;
             procedure setklartext(text: string);
             procedure setchiffre(text: string);
             function getklartext: string;
             function getchiffre: string;
             procedure verschluesseln(c: string);virtual;
             procedure entschluesseln(c: string);virtual;
end;

dann solltest Du dies so machen:

Delphi-Quellcode:

function tcodiermaschine.IPowMod(a,b,n: int64): int64;
  {-Berechnet a^b mod n}
var
  p: int64;
begin
  p := 1;
  while b > 0 do begin
    while b and 1 = 0 do begin
      b := b shr 1;
      a := (a * a) mod n;
    end;
    dec(b);
    p := (p * a) mod n;
  end;
  IPowMod := p;
end;

Grüße
Klaus

[Bblackhawk]

da hab ich wieder ein diesmal aber kleines problem :oops:

Delphi-Quellcode:

procedure tcodiermaschine.entschluesseln;
var i : integer;
var acode : int64;
begin
  // Klartext zu ASCII
    for i := 1 to length (klartext) do
    begin
      // 1 ASCII- Code der i-ten Buchstaben ermitteln
      acode := ord(codetext[i]);
      // 2 Durch formel ( M = C^d mod N ) verschlüsseln
      acode := IPowMod( a:146, b:23, n:187 ); //(acode - round(exp(23*ln(146))) mod 187);
      // 3 Das Zweichen mit dem ASCII- Code acode an der i-ten Stelle im chiffre ablegen
      klartext[i] := chr(acode);
    end;
end;

wenn ich das so schreibe sagt der mir:

[DCC Fehler] ukrypto.pas(93): E2003 Undefinierter Bezeichner: 'a'
[DCC Fehler] ukrypto.pas(97): E2029 '.' erwartet, aber ';' gefunden
[DCC Fehler] krypto.dpr(5): F2063 Verwendete Unit 'ukrypto.pas' kann nicht compiliert werden

wie soll ich das sons schreiben????
is doch genau wie die struktur bei IPowMod...

nice greetz
Bblackhawk

[Klaus01]

Vielleicht so:

Delphi-Quellcode:

acode := IPowMod(146,23,187 )

Du solltest IPowMod mit Parametern füttern, die Namen der Paramter
werden da nicht mehr gebraucht.

Grüße
Klaus