[DUG]: Encrypting a Password in OnSetText, and OnGetText.

[Stacey Verner]

I have a database field, that contains an encrypted password. I want to do something like the following to decrypt the string when I read it from the dataset,and encrypt it when writing to the dataset, but this doesn't work. I type in the string. Press save and it comes up blank.

 

procedure TfEMailOptions.DecryptPassword(Sender: TField;

var Text: String; DisplayText: Boolean);

begin

    inherited;

    Text := DecryptString(Text);

end;

 

procedure TfEMailOptions.EncryptPassword(Sender: TField;

        const Text: String);

begin

    inherited;

    Sender.AsString := EncryptString(Text);

end;

 

Any suggestions?

 

Thanks

 

Stacey

 

Stacey Verner             Ph:   +64-9-4154790
Software Developer        Fax:  +64-9-4154791
                          DDI:  +64-9-4154797
CJN Technologies Ltd.     Email: [EMAIL PROTECTED]
PO Box 302-278, North Harbour, Auckland, New Zealand
12 Piermark Drive, North Harbour Estate, Auckland, NZ
Visit our website at http://www.cjntech.co.nz/