lina-components/Source/uCrypt.pas

unit uCrypt;

//////////////////////////////////////
///  Lina Cryption Unit            ///
///  ****************************  ///
///  (c) 2014 Dennis Göhlert a.o.  ///
//////////////////////////////////////

interface

uses
  { Standard-Units }
  Classes;

type
  TCrypt = class
  private
    { Private-Deklarationen }
    FLines: TStrings;
  public
    { Public-Deklarationen }
    constructor Create;
    destructor Destroy;
    property Lines: TStrings read FLines write FLines;
    procedure Decrypt;
    procedure Encrypt;
  end;

  { Spezifische Kryptologie-Verfahren }

  TXorCrypt = class(TCrypt)

  end;

  TVigenereCrypt = class(TCrypt)

  end;

  TCaesarCrypt = class(TCrypt)

  end;

  TDynaCrypt = class(TCrypt)

  end;

implementation

constructor TCrypt.Create;
begin
  //...
end;

destructor TCrypt.Destroy;
begin
  //...
end;

procedure TCrypt.Decrypt;
begin
  //...
end;

procedure TCrypt.Encrypt;
begin
  //...
end;

end.