| Class TCryptLabel (unit clabel) |
TLabel
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
function Decrypt(const S: String; AKey:Word): String;
function Encrypt(const S: String; AKey:Word): String;
function CryptStr(const S:String):String;
procedure DefaultHandler(var Message);
function GetLabelText: string;
procedure NewKey;
procedure SetKey(AKey:Byte);| Properties |
property Key : Byte| 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 : Byteconstructor prepare a uniqe key value
| Events |
| Variables |
fKey : Byte;