Class TEncryption (unit Des)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

Procedure Execute;


function BinaryToHexStr(input:string):String;


Procedure DES (Var Input; Var Output; Var Key; Encrypt : Boolean);


function HexStrToBinary(input:string):String;


function SetHexInputString(input:string):String;


function SetHexOutputString(input:string):String;


function SetInputString(input:string):String;


function SetKeyString(input:string):String;


function SetOutputString(input:string):String;


function StrNPas(input:PChar;Leng:integer):string;


Properties

property Action : TActionType


property HexInput : String


property HexOutput : String


property Input : String

Published declarations

property Key : String


property Output : String


Events

Variables

FAction : TActionType;


FHexInputString : string;


FHexOutputString : string;


FInputString : string;

Private declarations

FKeyString : string;


FOutputString : string;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


Procedure Execute;


function BinaryToHexStr(input:string):String;


Procedure DES (Var Input; Var Output; Var Key; Encrypt : Boolean);


function HexStrToBinary(input:string):String;


function SetHexInputString(input:string):String;


function SetHexOutputString(input:string):String;


function SetInputString(input:string):String;


function SetKeyString(input:string):String;


function SetOutputString(input:string):String;


function StrNPas(input:PChar;Leng:integer):string;


Properties


property Action : TActionType


property HexInput : String


property HexOutput : String


property Input : String

Published declarations


property Key : String


property Output : String


Events


Variables


FAction : TActionType;


FHexInputString : string;


FHexOutputString : string;


FInputString : string;

Private declarations


FKeyString : string;


FOutputString : string;