Class TCryptLabel (unit clabel) |
Inherits from
TLabel
constructor Create(AOwner:TComponent);
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
property Key : Byte
constructor prepare a uniqe key value
fKey : Byte;
constructor Create(AOwner:TComponent);
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
property Key : Byte
constructor prepare a uniqe key value
fKey : Byte;