[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: How to encrypt/decrypt character strings and store them as character strings in databas

  • Thread starter Thread starter PeterWokke
  • Start date Start date
Status
Not open for further replies.
P

PeterWokke

Guest
decryptCharacter.p define input parameter pcToDecrypt as character no-undo. define output parameter pcDecrypted as character no-undo. define variable rKey as raw no-undo. define variable lcEncoded as longchar no-undo. define variable rEncoded as raw no-undo. rKey = generate-pbe-key("Progress"). rEncoded = decrypt( base64-decode( pcToDecrypt ), rkey ). lcEncoded = get-string(rEncoded,1,length(rEncoded)). pcDecrypted = string(lcEncoded).

Continue reading...
 
Status
Not open for further replies.
Back
Top