Class TEncodeBaseClass (unit Encode)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

********************************************************** Implementation of TBaseClassEncode



Functions

destructor Destroy;


procedure En_DecodeList(Data: TStringList);


function GettextBC: String;

Protected declarations

procedure SetTextBC(TextIn: String);


function En_Decode: String;

**********************************************************} {* Een string wordt gecodeerd met XOR, draaien en schuiven.

Procedure Make_Charakters;


Procedure Make_numbers;


Procedure MoveConversion;

**********************************************************} {* Alle karkaters worden net zoveel opgeschoven als de *} {* waarde in schuiven.

procedure SetDecimalOut(Dec_Out: Boolean);


procedure SetMoveNumber(MoveN: Integer);


procedure SetSequence(Seq: String);

### One charactar can existed of 2 or 3 nummbers and an extra charactar '#' is placed before every number.

Procedure TurnConversion;

**********************************************************} {* In deze procedure wrodt de tekst omgedraaid, het laatste *} {* karakter wordt de eerste, etc.

Procedure XorConversion;

**********************************************************} {* In deze procedure worden de karakters van de tekstin *} {* bit voor bit omgezet met XOR en de meegegeven sleutel.

Properties

property About : TAboutProperty


property DecimalOut : Boolean


property Key : String

Published declarations

property MoveNumber : Integer


property Sequence : String


property Turning : Boolean


Events

Variables

FAbout : TAboutProperty;


FDecimalOut : Boolean;


FKey : String;


FMoveNumber : Integer;


FSequence : String;


FText : String;

Private declarations

FTurning : Boolean;


LengthKey : Integer;


LengthText : Integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

********************************************************** Implementation of TBaseClassEncode


Functions


destructor Destroy;


procedure En_DecodeList(Data: TStringList);


function GettextBC: String;

Protected declarations


procedure SetTextBC(TextIn: String);


function En_Decode: String;

**********************************************************} {* Een string wordt gecodeerd met XOR, draaien en schuiven. *} {* In welke volgorde dit gebeurt moet worden meegegeven. *} {* Als codeer true is word er gecodeerd, anderd gedecodeerd.*} {* De bewerking met XOR = 1. *} {* De bewerking omdraaien = 2. *} {* De bewerking schuiven = 3. *} {* De volgorde waarin dit gebeurt staat in de string *} {* "Schuiven". De volgorde van de bewerkingen is bij *} {* decodeeren het omgekeerde van coderen!! *} {


Procedure Make_Charakters;


Procedure Make_numbers;


Procedure MoveConversion;

**********************************************************} {* Alle karkaters worden net zoveel opgeschoven als de *} {* waarde in schuiven. Als een karakter een waarde boven de *} {* 255 zo krijgen word weer bij 0 begonnen. *} {


procedure SetDecimalOut(Dec_Out: Boolean);


procedure SetMoveNumber(MoveN: Integer);


procedure SetSequence(Seq: String);

### One charactar can existed of 2 or 3 nummbers and an extra charactar '#' is placed before every number. There for 256/4= 64 characters #


Procedure TurnConversion;

**********************************************************} {* In deze procedure wrodt de tekst omgedraaid, het laatste *} {* karakter wordt de eerste, etc. *} {


Procedure XorConversion;

**********************************************************} {* In deze procedure worden de karakters van de tekstin *} {* bit voor bit omgezet met XOR en de meegegeven sleutel. *} {* Deze procedure wordt zowel voor het coderen als het *} {* decoderen gebruikt. *} {


Properties


property About : TAboutProperty


property DecimalOut : Boolean


property Key : String

Published declarations


property MoveNumber : Integer


property Sequence : String


property Turning : Boolean


Events


Variables


FAbout : TAboutProperty;


FDecimalOut : Boolean;


FKey : String;


FMoveNumber : Integer;


FSequence : String;


FText : String;

Private declarations


FTurning : Boolean;


LengthKey : Integer;


LengthText : Integer;