Class TEncodeBaseClass (unit Encode) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Public declarations
**********************************************************
Implementation of TBaseClassEncode
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.
property About : TAboutProperty
property DecimalOut : Boolean
property Key : String
Published declarations
property MoveNumber : Integer
property Sequence : String
property Turning : Boolean
FAbout : TAboutProperty;
FDecimalOut : Boolean;
FKey : String;
FMoveNumber : Integer;
FSequence : String;
FText : String;
Private declarations
FTurning : Boolean;
LengthKey : Integer;
LengthText : Integer;
constructor Create(AOwner: TComponent);
Public declarations
**********************************************************
Implementation of TBaseClassEncode
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. *} {
property About : TAboutProperty
property DecimalOut : Boolean
property Key : String
Published declarations
property MoveNumber : Integer
property Sequence : String
property Turning : Boolean
FAbout : TAboutProperty;
FDecimalOut : Boolean;
FKey : String;
FMoveNumber : Integer;
FSequence : String;
FText : String;
Private declarations
FTurning : Boolean;
LengthKey : Integer;
LengthText : Integer;