Re: Regarding Decryption of AES128 encrypted data in RPGLE and query regarding CRC 32

Hi Rishi,

It looks like you are setting "text" with the encrypted data.

Try instead setting "enc" to the encrypted data and decrypting it to "text".  The reason being that "text" has a ccsid of 37, and that's likely the problem.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /

On 9/27/2019 1:32 AM, Rishi Seth wrote:

Can we directly use decryption function without doing encryption
programmatic way as we already have encoded values we just need to decode
it i tried the same but getting below error :-

1 **free
2 dcl-s enc varchar(130);
3 dcl-s psw char(31) ccsid(37)
4 inz('6-9d15-ec98bcc81ec4275OIM1TS7LI');
5 dcl-s text char(88) ccsid(37);
6 text = 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDp+
7 CcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==';
8 // exec SQL Set :enc = encrypt_AES(:text, :psw);
9 // DSPLY SQLCODE;
10
11 exec SQL Set :enc = decrypt_char(:text,:psw);
12 DSPLY SQLCODE;
13 eval *inlr=*on;

*SQLCODE = -171*

On Wed, Sep 25, 2019, 19:29 Peter Dow <petercdow@xxxxxxxxx> wrote:

In addition, note that the field in question is defined with keyword
CCSID(37), so system value should not matter.

On 9/25/2019 5:44 AM, Mark Waterbury wrote:

Rob,

The system that I performed that test on, that is back-level on PTFs at

V7R3, has QCCSID=37.

I also performed the identical test on another V7R3 system that is "up

to date" on PTFs, and it ran just fine.

Mark


On Wednesday, September 25, 2019, 7:34:56 AM EDT, Rob Berendt <

rob@xxxxxxxxx> wrote:

Mark,

I think we've determined it's not the PTF's. It's the value of

DSPSYSVAL QCCSID.

Encryption hates 65535.

Rob Berendt

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com