Class TCryptLabel (unit clabel)

Inherits from

TLabel

Constructors


constructor Create(AOwner:TComponent);



Functions

function Decrypt(const S: String; AKey:Word): String;


function Encrypt(const S: String; AKey:Word): String;

you can override these methods in the future!

function CryptStr(const S:String):String;

override process for getting actual caption - it's should be decrypted first

procedure DefaultHandler(var Message);

key for crypt method

function GetLabelText: string;

calculate a new key value

procedure NewKey;

manual change the key value

procedure SetKey(AKey:Byte);

override process for changing caption - new text should be crypted

Properties

property Key : Byte

constructor prepare a uniqe key value

Events

Variables

fKey : Byte;



Constructors


constructor Create(AOwner:TComponent);


Functions


function Decrypt(const S: String; AKey:Word): String;


function Encrypt(const S: String; AKey:Word): String;

you can override these methods in the future!


function CryptStr(const S:String):String;

override process for getting actual caption - it's should be decrypted first


procedure DefaultHandler(var Message);

key for crypt method


function GetLabelText: string;

calculate a new key value


procedure NewKey;

manual change the key value


procedure SetKey(AKey:Byte);

override process for changing caption - new text should be crypted


Properties


property Key : Byte

constructor prepare a uniqe key value


Events


Variables


fKey : Byte;