midrange.com code scratchpad
Name:
Openssl using UNIXCMD
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
11/08/2019 07:03:31 pm
IP:
Logged
Description:
Openssl using UNIXCMD
Code:
  1.      FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')
  2.      F                                     PLIST(UNIXPARM)   usropn
  3.      FQSYSPRT   O    F  132        PRINTER
  4.      dencodedExcha...
  5.      dngeToken         s             88
  6.      DSTRING1          S            100
  7.      D cmd             s           5000a
  8.      D mode            s              1A   inz('P')
  9.      D record          ds          1000
  10.      D outrec          ds           132
  11.  
  12.      C     UNIXPARM      PLIST
  13.      C                   PARM                    CMD
  14.      C                   PARM                    MODE
  15.       /free
  16.        //XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
  17.        ///INPUT.xml':'doc=file case=any path=+
  18.        //TokenExchangeResponse/encodedExchangeToken');
  19.        encodedExchangeToken =
  20.          'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW'
  21.           + '0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==';
  22.        cmd = 'echo ' + '''' +  encodedExchangeToken + ''' | openssl +
  23.           enc -d -aes-128-ecb -K 363631653237354f494d31554c594c4a +
  24.           -nopad -nosalt -base64 -A';
  25.           open UNIX;
  26.           read UNIX record;
  27.           dow not %eof(UNIX);
  28.              outrec = record;
  29.              write QSYSPRT outrec;
  30.              read UNIX record;
  31.           enddo;
  32.  
  33.           close UNIX;
  34.           *inlr = *on;
  35.       /end-free
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css