Verschlüsselung

[m500]

Hallo Leute!

[yörsch]

Erstmal Willkommen in der DP!

sagmal genau wo der Schuh drückt...

[m500]

"crypt" und "encrypt"

[DeddyH]

Du musst die Methoden schon mit ihrem richtigen Namen aufrufen, die heißen ja nicht Crypt und Decrypt.

P.S.: Wenn ich das schon wieder sehe

Zitat:

Delphi-Quellcode:

constructor init(pCode: integer);
destructor gibFrei;

wird mir ganz anders :wall:

[yörsch]

Code:

type
  RSAWerkzeug = class
  zEingabecode, zVerschluesseltercode: Integer;

private
  function hoch_mod(x,y,z: integer): Integer;
public
  constructor init(pCode: integer);
  destructor gibFrei;
  function verschluesselCode: Integer;
  function entschluesselCode: Integer;
end;

Die sichbarkeit ist das problem

function verschluesselCode: Integer;
function entschluesselCode: Integer;

sollten Public sein, dann können die Funktionen auch auserhalb der UNIT verwendet werden.
ähnliches gilt für

constructor init(pCode: integer);
destructor gibFrei;

es ist keine Klasse die von TFrom abgeleitet ist ...
Die defaults sind auch je Delphi unterschiedlich.
im zweifel immer private, protected, public, published verwenden

Gruß
Jörg

[m500]

Ja?

[yörsch]

normal ist halt
constructor create(pCode: integer);
und
destructor destroy;

[DeddyH]

Und der Destruktor sollte überschrieben werden. Allerdings lässt die ganze Namensgebung auf diese unmögliche Schul-Syntax schließen (ich sage nur: mSum), das kann man dem TE nicht vorwerfen.

[m500]

Klar

[DeddyH]

Delphi-Quellcode:

type
  TDings = class
  private
    (* hier alles rein, was die Klasse nur intern benötigt *)
  protected
    (* hier alles, worauf nur abgeleitete Klassen Zugriff haben sollen,
       wenn kein Bedarf, einfach weglassen *)
  public
    (* hier kommt alles rein, was von außen erreichbar sein soll *)
    constructor Create(<ggf. Parameter>); //der Konstruktor von TObject heißt Create
    destructor Destroy; override;      //der Destruktor heißt Destroy und sollte überschrieben werden
  published
    (* nur für Komponenten relevant, was hierin steht, ist im Objektinspektor zu sehen *)
  end;