midrange.com code scratchpad
Name:
values of fields during debug mode
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
11/08/2019 11:17:49 am
IP:
Logged
Description:
Hi,

Please find the values of fields for changes made as per suggestions and still the decrypted value is not coming in record field.
and amazingly value of pipe is getting changed either to '¦ ' or '!' or to some different character not sure how is it getting automatically changed in my program code.

Code:
  1.                     
  2.                              Evaluate Expression                            
  3.                                                                             
  4. Previous debug expressions                                                  
  5.                                                                             
  6. > EVAL record                                                               
  7.   RECORD =                                                                  
  8.             ....5...10...15...20...25...30...35...40...45...50...55...60    
  9.        1   'enc: Unrecognized flag K363631653237354f494d31554c594c4a    '   
  10.       61   '                                                            '   
  11.      121   '                                                            '   
  12.      181   '                                                            '   
  13.      241   '                                                            '   
  14.      301   '                                                            '   
  15.      361   '                                                            '   
  16.      421   '                                                            '   
  17.      481   '                                                            '   
  18.      541   '                                                            '   
  19.      601   '                                                            '   
  20.                                                                        More.
  21. Debug . . .                                                                 
  22.                                                                             
  23.  
  24.  
  25.  
  26.           Evaluate Expression                               
  27.                                                                                 
  28.  Previous debug expressions                                                     
  29.                                                                                 
  30.  > EVAL record                                                                  
  31.    RECORD =                                                                     
  32.              ....5...10...15...20...25...30...35...40...45...50...55...60       
  33.         1   'enc: Use -help for summary.                                 '      
  34.        61   '                                                            '      
  35.       121   '                                                            '      
  36.       181   '                                                            '      
  37.       241   '                                                            '      
  38.       301   '                                                            '      
  39.       361   '                                                            '      
  40.       421   '                                                            '      
  41.       481   '                                                            '      
  42.       541   '                                                            '      
  43.       601   '                                                            '      
  44.                                                                         More... 
  45.  Debug . . .                                                                    
  46.                                                                                 
  47.  F3=Exit   F9=Retrieve   F12=Cancel   F16=Repeat find   F19=Left   F20=Right    
  48.  F21=Command entry       F23=Display output                                     
  49.  
  50.  
  51.                                                                                 
  52.  Previous debug expressions                                                     
  53.                                                                                 
  54.  > EVAL cmd                                                                     
  55.    CMD =                                                                        
  56.              ....5...10...15...20...25...30...35...40...45...50...55...60       
  57.         1   'echo'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcg'      
  58.        61   'MZiG/kXPE4vv2CHL93B4iKiODHxxdVA=='| openssl   enc -d -aes-12'      
  59.       121   '8-ecb -K363631653237354f494d31554c594c4a -nopad -nosalt-base'      
  60.       181   '64 -A -out record                                           '      
  61.       241   '                                                            '      
  62.       301   '                                                            '      
  63.       361   '                                                            '      
  64.       421   '                                                            '      
  65.       481   '                                                            '      
  66.       541   '                                                            '      
  67.       601   '                                                            '      
  68.                                                                         More... 
  69.  Debug . . .                                                                    
  70.                                                                                 
  71.  F3=Exit   F9=Retrieve   F12=Cancel   F16=Repeat find   F19=Left   F20=Right    
  72.  F21=Command entry       F23=Display output                                     
  73.  
  74. EVAL record                                                                  
  75. RECORD =                                                                     
  76.           ....5...10...15...20...25...30...35...40...45...50...55...60       
  77.      1   '/qopensys/usr/bin/sh: echou3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17y'      
  78.     61   'A4MyW0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==:  not'      
  79.    121   ' found                                                      '      
  80.    181   '                                                            '      
  81.    241   '                                                            '      
  82.    301   '                                                            '      
  83.    361   '                                                            '      
  84.    421   '                                                            '      
  85.  
  86. ******************
  87. My changed program as per suggestions:-
  88.  
  89.      FUNIX      IF   F 1000        SPECIAL PGMNAME('UNIXCMD')
  90.      F                                     PLIST(UNIXPARM)   usropn
  91.      FQSYSPRT   O    F  132        PRINTER
  92.      dencodedExcha...
  93.      dngeToken         s             88
  94.      DSTRING1          S            100
  95.      D cmd             s           5000a
  96.      D mode            s              1A   inz('P')
  97.      D record          ds          1000
  98.      D outrec          ds           132
  99.  
  100.      C     UNIXPARM      PLIST
  101.      C                   PARM                    CMD
  102.      C                   PARM                    MODE
  103.       /free
  104.        XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
  105.        /INPUT.xml':'doc=file case=any path=+
  106.        TokenExchangeResponse/encodedExchangeToken');
  107.        cmd = 'echo'  + ' ' +  encodedExchangeToken + 'ö openssl +
  108.           enc -d -aes-128-ecb -K +
  109.           363631653237354f494d31554c594c4a -nopad -nosalt +
  110.           -base64 -A -out record';
  111.           open UNIX;
  112.           read UNIX record;
  113.           dow not %eof(UNIX);
  114.              outrec = record;
  115.              write QSYSPRT outrec;
  116.              read UNIX record;
  117.           enddo;
  118.  
  119.           close UNIX;
  120.           *inlr = *on;
  121.       /end-free
  122.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css