Re: Fwd: parsing varying length field from XML file using RPGLE program

even after putting space between K and that 363616....

EVAL cmd
CMD =
....5...10...15...20...25...30...35...40...45...50...55...60
1 'echo'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcg'
61 'MZiG/kXPE4vv2CHL93B4iKiODHxxdVA=='¦ openssl enc -d -aes-128'
121 '-ecb -K 363631653237354f494d31554c594c4a -nopad -nosalt-base'
181 '64 -A -out record '
241 ' '
301 ' '

same result in record field like below:-



EVAL record

RECORD =

....5...10...15...20...25...30...35...40...45...50...55...60

1 '/qopensys/usr/bin/sh: echou3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17y'

61 'A4MyW0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==^²: n'

121 'ot found '

181 ' '

241 ' '

301 ' '

361 ' '

421 ' '

481 ' '

541 ' '


On Fri, Nov 8, 2019 at 12:48 PM Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

and now the latest values after debug for suggested changes:-


EVAL record

RECORD =

....5...10...15...20...25...30...35...40...45...50...55...60

1 '/qopensys/usr/bin/sh: echou3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17y'

61 'A4MyW0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==^²: n'

121 'ot found '

181 ' '

241 ' '





||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Previous debug expressions

EVAL cmd

CMD =

....5...10...15...20...25...30...35...40...45...50...55...60

1 'echo'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcg'

61 'MZiG/kXPE4vv2CHL93B4iKiODHxxdVA=='¦ openssl enc -d -aes-12'

121 '8-ecb -K363631653237354f494d31554c594c4a -nopad -nosalt-base'

181 '64 -A -out record '

241 ' '

301 ' '

361 ' '

421 ' '

481 ' '



On Fri, Nov 8, 2019 at 12:21 PM Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

i do read the replies but none has served my purpose yet ok.
please see this recent suggested change has also not made any difference
still decrypted value is not coming in record field.
please check this link in which i have tried to show debug mode values of
record field and CMD field.

*https://code.midrange.com/0ee1082abb.html
<https://code.midrange.com/0ee1082abb.html>*

Thanks

On Thu, Nov 7, 2019 at 7:55 PM Sam_L <lennon_s_j@xxxxxxxxxxx> wrote:

Marco, I explained something similar to Rishi last week, So have others.
Maybe he doesn't read the replies. Yours has comments in it, so maybe
that will get the concept across.

Sam

On 11/7/2019 12:46 PM, Marco Facchinetti wrote:

Hi consider this:

Dcl-s sq char(1) inz(''''); // 4 single quote
Dcl-s dq char(1) inz('"'); // 1 single + 1 double + 1 single

and then:

cmd = 'echo ' + sq + encodedExchangeToken + sq
+ '| openssl enc -d -aes-128-ecb -K '
+ '363631653237354f494d31554c594c4a -nopad -nosalt '
+ '-base64 -A -out record';

HTH
--
Marco Facchinetti

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-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