Class THStrings (unit HidStr)

Inherits from

TComponent

Constructors


constructor Create(aowner: tcomponent);



Functions

procedure DefineProperties(filer: tfiler);


destructor Destroy;


procedure Readdata(reader:treader);


procedure SetStrings(value: tstringlist);

symmetrical encryption

procedure Writedata(writer:twriter);


function Decrypt(const str: string): string;

tHStrings en-/decrypts by doing a XOR with mask.

function Encrypt(const str: string): string;

encrypt (or decrypt!) by xor

Properties

property Strings : TStringlist


Events

Variables

fStrings : tstringlist;



Constructors


constructor Create(aowner: tcomponent);


Functions


procedure DefineProperties(filer: tfiler);


destructor Destroy;


procedure Readdata(reader:treader);


procedure SetStrings(value: tstringlist);

symmetrical encryption


procedure Writedata(writer:twriter);


function Decrypt(const str: string): string;

tHStrings en-/decrypts by doing a XOR with mask. Define your own mask and make it long. Don't change it if you are using a tHStrings-component on a form. To gain more security, overwrite Ecrypt and Decrypt.


function Encrypt(const str: string): string;

encrypt (or decrypt!) by xor


Properties


property Strings : TStringlist


Events


Variables


fStrings : tstringlist;