Suppress the DECRYPT error message in the server logs

[Mike Carlson]

Is there any way to suppress these error messages in the server logs?
DECRYPT error:06065064:digital envelope routines:EVP_DecryptFinal_ex:bad decrypt:

This is running on an AppServer OE 10.2B.
The statement does no support NO-ERROR.

Tried CATCH too.
DO ON ERROR UNDO, LEAVE:
/* Decrypt */
mCrypto = DECRYPT(mB64, prEncryptKey) .

CATCH eSysError AS Progress.Lang.SysError :
/* don't care */
END CATCH.
END.
The logs can fill up pretty fast when there are large batch processes running.

Thanks,
Mike

 

[Stefan]

No idea what is causing your error. 'Normal' corrupted data is caught / can be NO-ERRORed (using 10.2B04 prowin32):

DEF VAR cc AS CHAR INITIAL "hello world!".


DEF VAR mcrypto      AS MEMPTR.
DEF VAR mB64         AS MEMPTR.
DEF VAR prencryptkey AS RAW.


prencryptkey = GENERATE-PBE-KEY( "boo!" ).


mb64 = ENCRYPT( cc, prencryptkey ).


PUT-STRING( mb64, 3 ) = "@". /* corrupt encrypted data */


DO ON ERROR UNDO, LEAVE:


   mCrypto = DECRYPT(mB64, prEncryptKey).
   
   CATCH eSysError AS Progress.Lang.SysError:
      MESSAGE eSysError:getMessage(1) VIEW-AS ALERT-BOX.
   END CATCH.


END.

Can you provide data that results in your error?

 

[Mike Carlson]

Hi Stefan,
Your example code works on a client connection, and the catch block traps the error when run in AppServer,too.
However, in AppServer, the agent.log still displays the openssl error.
If you can run your code in AppServer, check the agent.log, I strongly expect to see the message:
DECRYPT error:06065064:digital envelope routines:EVP_DecryptFinal_ex:bad decrypt:

Thanks,
Mike