× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks So Much !!!


On Wed, Nov 20, 2019 at 4:39 PM Bruce Vining <bruce.vining@xxxxxxxxx> wrote:

DLE is Data Link Escape control character. It is a unprintable (that is,
no defined character representation to display) bit value of x'10'. This
probably explains why you were seeing *s earlier as there is no
displayable/printable character value associated with it.

On Wed, Nov 20, 2019 at 10:30 AM Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

Hi,

What does DLE mean?

Thanks

On Wed, Nov 20, 2019 at 4:23 PM Bruce Vining <bruce.vining@xxxxxxxxx>
wrote:

Based on what I see in your code and debug values (namely trailing
DLEs)
replace

eval record = %trimr(record);

with

Pos2 = %scan(x'10' :Record);
Record = %subst(Record :1 :(Pos2 - 1));

Personally I would change a few other things, but the above should take
care of the DLEs you're getting.



On Wed, Nov 20, 2019 at 9:45 AM Rishi Seth <rishiseth99@xxxxxxxxx>
wrote:

sorry i did not understand what did you mean at all is it possible to
ammend my program code so that i could only write valid decrypted
value
in
my testfile which should only write valid decrypted value no more
junk
values in my test file.
also currently i knew this correct value of *record* field ( i mean
as
here i knew decrypted value of this *encodedexchangetoken* in
advance)
but
what about those unforeseen scenarios where this decrypted value
could
be
something else based on the different values supplied in
*encodedexchangetoken* field( that is why i have kept it as a
variable
field i mean kept variable to *encodednExchangetoken* field here) so
how
should my program be modified to handle such scenarios if possible
could
you please amend it and share it in your reply email so that i could
test
it.

Thanks

On Wed, Nov 20, 2019 at 3:09 PM Bruce Vining <bruce.vining@xxxxxxxxx

wrote:

Debug is showing that the UNIXCMD program is returning data link
escape
(x'10') values rather than blanks for bytes 65 - 80, and then
blanks
(x'40') starting at 81. If you somehow know that the actual data
length
being sent is 80 bytes (which it appears from your notes that you
do)
then

eval record = %trimr(%subst(record :1 :80) : x'10');

and record should now be all blanks following byte 64.

Otherwise trim blanks and DLEs from record OR, as this is EBCDIC
data,
scan
for the first DLE and substring out bytes 1 thru the DLE position
less
1.
Either way should get the job done based on your current XML
document.




On Wed, Nov 20, 2019 at 8:01 AM Rishi Seth <rishiseth99@xxxxxxxxx>
wrote:

Hi,

Thanks.

EVAL N1 = %LEN(OUTREC);
DSPLY N1;

" This should display the correct length of your token
value.
If
not, then there are garbage characters (not blanks) being
introduced
somewhere in the above process."

----When I debug I get N1 = 64 which is incorrect which ideally
should
have
been 48 as per current decrypted value( if you calculate the
length
of
actual decrypted value which is actually in current scenario is '
*707fbe32-0dbc-41e0-888f-5bc40de8c20d2P9AMPCTQ4CZ*' ) of '
*encodedExchangetoken'* field which is read from input XML file
and
comes
in record field after this openssl command in the mentioned
program.


so value of N1=64 in debug mode which clearly indicates that we
have
some
garbage value apart from decrypted value in record field here
and I
am
struggling to remove that garbage value only.


RCDLEN = 500 is incorrect then what should be correct length on
fly
so
that i can set it as per exact decrypted value of record field
which
should not contain any garbage value in it?

Please see below values obtained in debug session after following
given
instructions:-



> EVAL encodedExchangeToken:x 96

00000 0058A4F3 E5A3D587 86A8E6E4 F98681E9 -
.ìu3VtNgfyWU9faZ

00010 83F3C981 81F8E9E6 82C5F5E4 E9C38694 -
c3Iaa8ZWbE5UZCfm

00020 C3F1F7A8 C1F4D4A8 E6F08788 8693A3F9 -
C17yA4MyW0ghflt9

00030 84D5D8D5 C497C383 87D4E989 C76192E7 -
dNQNDpCcgMZiG/kX

00040 D7C5F4A5 A5F2C3C8 D3F9F3C2 F489D289 -
PE4vv2CHL93B4iKi

00050 D6C4C8A7 A784E5C1 7E7E0000 00000000 -
ODHxxdVA==......

> EVAL record:x 96

00000 F7F0F786 8285F3F2 60F08482 8360F4F1 -
707fbe32-0dbc-41

00010 85F060F8 F8F88660 F58283F4 F08485F8 -
e0-888f-5bc40de8

00020 83F2F084 F2D7F9C1 D4D7C3E3 D8F4C3E9 -
c20d2P9AMPCTQ4CZ

00030 10101010 10101010 10101010 10101010 -
................

00040 40404040 40404040 40404040 40404040 -

00050 40404040 40404040 40404040 40404040 -


Bottom
Debug . . .






Thanks




On Wed, Nov 20, 2019 at 3:54 AM Bruce Vining <
bruce.vining@xxxxxxxxx

wrote:

I apologize if you've done these steps before, but could you:

1. Enter debug of your program
2. Set a breakpoint on the statement
eval encodedExchangeToken =%trimr(encodedExchangeToken);
3. Set a second breakpoint on the statement
eval record = %trimr(record);
4. Run the program
5. At the breakpoint set in step 2 run
eval encodedExchangeToken:x 96
6. Resume the program and at the breakpoint set in step 3 run
eval record:x 96
7. Post the displayed results of steps 5 and 6
8. Post the contents of
/home/I0RS01HU/INPUT.xml

On Tue, Nov 19, 2019 at 11:36 AM Rishi Seth <
rishiseth99@xxxxxxxxx

wrote:

I think we are getting diverted from main topic what i meant
was
that
even
i tried as you said on fly that flat file should be created
with
exact
length of that decrypted value even that i tried please see
below
code
but n1 variable which is holding the value of %len(outrec) in
debug
mode
tells it's value to be 64 that means still after doing those
%trimr
on
field or data structure as well have some extra junk value
because
length
of decrypted value is 48 only so 64-48 =16 these 16 length
is
full
of
garbage which i don't want to write in my flat file .

FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')
F PLIST(UNIXPARM)
USROPN
F*QSYSPRT O F 1000 PRINTER
dencodedExcha...
dngeToken s 500 VARYING

DPOS2 S 5U 0
D cmd s 5000a
D mode s 1A inz('P')
DN1 S 2P 0
D Åcommand s 512a
d QCMDEXC PR ExtPgm('QCMDEXC')
d command 500a const
d clength 15p 5 const

D record ds 1000
D outrec s 1000 varying inz

C UNIXPARM PLIST
C PARM CMD
C PARM MODE
/free
RECORD = *BLANKS;
OUTREC = *BLANKS;
XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
INPUT.xml':'doc=file case=any path=+
TokenExchangeResponse/encodedExchangeToken');
eval encodedExchangeToken
=%trimr(encodedExchangeToken);
cmd = 'echo ' + '''' + encodedExchangeToken + ''' !
openssl +
enc -d -aes-128-ecb -K
363631653237354f494d31554c594c4a +
-nopad -nosalt -base64 -A';
open UNIX;
read UNIX record;
dow not %eof(UNIX);
eval record = %trimr(record);
eval outrec = %trimr(record);
eval outrec = %trimr(outrec);
EVAL N1 = %LEN(OUTREC);
DSPLY N1;
//Delete the TESTFILE
Åcommand = 'DLTF FILE(rishi/TESTFILE)';
QCMDEXC(%trim(Åcommand): %len(%trim(Åcommand)));
Åcommand = *blanks;
Åcommand = 'CRTPF FILE(RISHI/TESTFILE)
RCDLEN(500)';
QCMDEXC(%trim(Åcommand): %len(%trim(Åcommand)));
//Write into file
EXEC SQL
INSERT INTO rishi/TESTFILE VALUES (:outrec);
// dsply %subst(outrec:1:48);
read UNIX record;
enddo;
close UNIX;
*inlr = *on;
/end-free

On Tue, Nov 19, 2019 at 5:06 PM <dlclark@xxxxxxxxxxxxxxxx>
wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on
11/19/2019
10:52:25 AM:
sorry i did not understand what you mean but let me
explain
somethings
clearly:-

1) decrypted output of this AES128 algorithm is
uncertain.


One step at a time... There are only two things
that
you
can
do
about this AES128 algorithm you mention. It must either
accept a
valid
varying-length parameter and handle it as such or there
must
be a
separate
parameter which allows you to pass a length value in
addition
to
the
data
to be encrypted/decrypted. No one can answer those issues
for
you
(unless
they are familiar with the process of which you are
speaking).
You
must
be able to analyze the AES128 algorithm to determine which
of
the
above
two requirements can be met.


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331













*********************************************************************************************
This email message and any attachments is for use only by
the
named
addressee(s) and may contain confidential, privileged
and/or
proprietary
information. If you have received this message in error,
please
immediately notify the sender and delete and destroy the
message
and
all
copies. All unauthorized direct or indirect use or
disclosure
of
this
message is strictly prohibited. No right to confidentiality
or
privilege
is waived or lost by any error in transmission.









*********************************************************************************************
--
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

--
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



--
Thanks and Regards,
Bruce
931-505-1915
--
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

--
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



--
Thanks and Regards,
Bruce
931-505-1915
--
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

--
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



--
Thanks and Regards,
Bruce
931-505-1915
--
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

--
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



--
Thanks and Regards,
Bruce
931-505-1915
--
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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.