| Class TEncodeBaseClass (unit Encode) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);********************************************************** Implementation of TBaseClassEncode
| Functions |
destructor Destroy;
procedure En_DecodeList(Data: TStringList);
function GettextBC: String;
procedure SetTextBC(TextIn: String);
function En_Decode: String;
Procedure Make_Charakters;
Procedure Make_numbers;
Procedure MoveConversion;
procedure SetDecimalOut(Dec_Out: Boolean);
procedure SetMoveNumber(MoveN: Integer);
procedure SetSequence(Seq: String);
Procedure TurnConversion;
Procedure XorConversion;| Properties |
property About : TAboutProperty
property DecimalOut : Boolean
property Key : String
property MoveNumber : Integer
property Sequence : String
property Turning : Boolean| Events |
| Variables |
FAbout : TAboutProperty;
FDecimalOut : Boolean;
FKey : String;
FMoveNumber : Integer;
FSequence : String;
FText : String;
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 : StringPublished 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;