midrange.com code scratchpad |
Name:
Decryption of encodedtokenexchange using OPENSSL AES128 Algorithm in RPGLE Program
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
11/10/2019 08:59:32 am
|
IP:
Logged
|
|
Description:
still it's not decrypting
|
Code:
- FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')
- F PLIST(UNIXPARM) USROPN
- FQSYSPRT O F 132 PRINTER
- dencodedExcha...
- dngeToken s 88
-
- D cmd s 5000a
- D mode s 1A inz('P')
-
- D record ds 1000
- D outrec ds 132
-
- C UNIXPARM PLIST
- C PARM CMD
- C PARM MODE
- /free
-
- //XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
- ///INPUT.xml':'doc=file case=any path=+
- //TokenExchangeResponse/encodedExchangeToken');
- encodedExchangeToken =
- 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW'
- + '0ghflt9dNQNDpCcgMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==';
- cmd = 'echo ' + '''' + encodedExchangeToken + ''' | openssl +
- enc -d -aes-128-ecb -K 363631653237354f494d31554c594c4a +
- -nopad -nosalt -base64 -A';
- open UNIX;
- read UNIX record;
- dow not %eof(UNIX);
- outrec = record;
- write QSYSPRT outrec;
- read UNIX record;
- enddo;
-
- close UNIX;
- *inlr = *on;
- /end-free
- **********************************
- EVAL cmd
- CMD =
- ....5...10...15...20...25...30...35...40...45...50...55...60
- 1 'echo 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCc'
- 61 'gMZiG/kXPE4vv2CHL93B4iKiODHxxdVA==' | openssl enc -d -aes-12'
- 121 '8-ecb -K 363631653237354f494d31554c594c4a -nopad -nosalt -ba'
- 181 'se64 -A '
- 241 ' '
- 301 ' '
- 361 ' '
- 421 ' '
-
-
-
- Evaluate Expression
-
- Previous debug expressions
-
- > EVAL record
- RECORD =
- ....5...10...15...20...25...30...35...40...45...50...55...60
- 1 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcgMZiG/'
- 61 'kXPE4vv2CHL93B4iKiODHxxdVA== | openssl enc -d -aes-128-ecb -'
- 121 'K 363631653237354f494d31554c594c4a -nopad -nosalt -base64 -A'
- 181 ' '
- 241 ' '
- 301 ' '
-
- > EVAL outrec
- OUTREC =
- ....5...10...15...20...25...30...35...40...45...50...55...60
- 1 'u3VtNgfyWU9faZc3Iaa8ZWbE5UZCfmC17yA4MyW0ghflt9dNQNDpCcgMZiG/'
- 61 'kXPE4vv2CHL93B4iKiODHxxdVA== | openssl enc -d -aes-128-ecb -'
- 121 'K 3636316532'
- Bottom
- Debug . . .
-
- F3=Exit F9=Retrieve F12=Cancel F16=Repeat find F19=Left F20=Right
|
|
|