Delphie-Code kommentieren

[bcj_User]

Hallo Leute!

Könnte mir jemand den folgenden Code zu Vigenère-Verschlüsselung im Detail kommentieren? Dankeschön! :-D

Delphi-Quellcode:

unit Mainunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Vegunit, StdCtrls;

type
  TFcryptdecrypt = class(TForm)
    sg1: TStringGrid;
    bCrypt: TButton;
    Bdecrypt: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Editkey: TEdit;
    Label3: TLabel;
    Editergebniss: TEdit;
    Memogeheim: TMemo;
    Label4: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure bCryptClick(Sender: TObject);
    procedure BdecryptClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Fcryptdecrypt: TFcryptdecrypt;
  veg: TVegenere;
  textvar: string;


implementation

{$R *.dfm}

procedure TFcryptdecrypt.FormActivate(Sender: TObject);
begin
veg:= tvegenere.create;
veg.ShowQuad(sg1);
end;

procedure TFcryptdecrypt.bCryptClick(Sender: TObject);
var
str: string;
i: integer;
begin
str:='';
for i:=0 to memogeheim.Lines.Count-1 do
str:= str+memogeheim.Lines[i];

veg.Setklar(str);
veg.Setkey(editkey.text);
veg.EnCrypt;
editergebniss.Text:= veg.Getcode;
end;



procedure TFcryptdecrypt.BdecryptClick(Sender: TObject);
var
str: string;
i: integer;
begin
str:='';
for i:=0 to memogeheim.Lines.Count-1 do
str:= str+memogeheim.Lines[i];

veg.Setcode(str);
veg.Setkey(editkey.text);
veg.Decrypt;
editergebniss.Text:= veg.Getklar;
end;


end.

[sakura]

Was verstehst Du denn nicht? Warum sollen wir denn gleich alles kommentieren?

...:cat:...

[bcj_User]

Zitat:

Zitat von sakura

Was verstehst Du denn nicht? Warum sollen wir denn gleich alles kommentieren?

...:cat:...

Weil ich da nicht so ganz durchblicke ... :(

[wicht]

Ohne dass es böse gemeint sein soll, aber ich frage mich, ob du überhaupt schon einmal mit Delphi programmiert hast?
Schon alleine die ganzen Namen der Funktionen erklären den Ablauf doch eigentlich komplett.. Tja jetzt habe ich es kommentiert, aber eigentlich äääh... ich weiß auch nicht.

Delphi-Quellcode:

unit Mainunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Vegunit, StdCtrls;

type
  TFcryptdecrypt = class(TForm)
    sg1: TStringGrid;
    bCrypt: TButton;
    Bdecrypt: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Editkey: TEdit;
    Label3: TLabel;
    Editergebniss: TEdit;
    Memogeheim: TMemo;
    Label4: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure bCryptClick(Sender: TObject);
    procedure BdecryptClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Fcryptdecrypt: TFcryptdecrypt;
  veg: TVegenere;
  textvar: string;

implementation

{$R *.dfm}

procedure TFcryptdecrypt.FormActivate(Sender: TObject);
begin
veg:= tvegenere.create;  // Objekt erstellen womit du verschlüsseln/entschlüsseln kannst
veg.ShowQuad(sg1);  // Vigenere-Quadrat im StringGrid anzeigen
end;

procedure TFcryptdecrypt.bCryptClick(Sender: TObject);
var
str: string;
i: integer;
begin
// String initialisieren und mit allen Zeichen des Memos füllen (dabei werden Zeilenumbrüche in 'str' vermieden, das ist wohl der Sinn)
str:='';
for i:=0 to memogeheim.Lines.Count-1 do
str:= str+memogeheim.Lines[i];

veg.Setklar(str);  // Dem Objekt den Klartext mitteilen
veg.Setkey(editkey.text);  // Schlüssel setzen
veg.EnCrypt;  // Verschlüsseln
editergebniss.Text:= veg.Getcode;  // Verschlüsselten Text anzeigen
end;

procedure TFcryptdecrypt.BdecryptClick(Sender: TObject);
var
str: string;
i: integer;
begin
// Das selbe wie oben
str:='';
for i:=0 to memogeheim.Lines.Count-1 do
str:= str+memogeheim.Lines[i];

veg.Setcode(str);  // Verschlüsselten Text setzen
veg.Setkey(editkey.text);  // Schlüssel setzen
veg.Decrypt;  // Entschlüsseln
editergebniss.Text:= veg.Getklar;  // Entschlüsselten Text anzeigen
end;

end.

[bcj_User]

Ahja ...Dankeschön! :-D

[alzaimar]

Sieht ech so aus, als ob Du den Code geklaut hast und dein Lehrer wollte, das Du ihn wenigstens kommentierst. Echt billig.


[edit=Matze]Beitrag aktualisiert, da ein Caching-Problem vorlag. MfG, Matze[/edit]

[Meflin]

Zitat:

Zitat von alzaimar

Sieht ech so aus, als ob Du den Code geklaut hast und dein Lehrer wollte, das Du ihn wenigstens kommentierst. Echt billig.

Äh... wieso zum Geier sieht man den Text in deinem Posting nicht :shock:

Zitat:

Alles geht

Scheint so :lol: