xBrowse CRYPT

[Otto]

Dear Mr. Rao,
would you be so kind to show how to use decrypt/encrypt with EDIT_GET edit type.
Best regards,
Otto

Code: Select all  Expand view

oBrw:PASSWORD:bEditValue   := { || Decrypt( ALLTRIM( FIELD->PASSWORD ), cPW )  }
oBrw:PASSWORD:nEditType    := EDIT_BUTTON
oBrw:PASSWORD:bEditBlock   := { | r, c, o | EditPASSWORD( r, c, o ) }

oBrw:PASSWORD:bEditValue   := { || Decrypt( ALLTRIM( FIELD->PASSWORD ), cPW )  }
oBrw:PASSWORD:nEditType    := EDIT_GET



 

[nageswaragunupudi]

When we want to edit a column, it is advisable to assign bEditValue with SETGET block.

Code: Select all  Expand view

:bEditValue := { |x| If( x != nil, FIELD->PASSWORD := Encrypt( x, cPw ), nil ), Decrypt( FIELD->PASSWORD, cPW ) }
 

Now you can use either EDIT_GET or EDIT_BUTTON.
In case of EDIT_BUTTON, bEditBlock should return the new password without encryption. In case edit is cancelled bEditBlock should return NIL.