| Class THStrings (unit HidStr) |
TComponent
| Constructors |
constructor Create(aowner: tcomponent);| Functions |
procedure DefineProperties(filer: tfiler);
destructor Destroy;
procedure Readdata(reader:treader);
procedure SetStrings(value: tstringlist);
procedure Writedata(writer:twriter);
function Decrypt(const str: string): string;
function Encrypt(const str: string): string;| 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;