midrange.com code scratchpad |
Name:
Base64 example
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/20/2020 02:52:42 pm
|
IP:
Logged
|
|
Description:
An example of using Scott Klements base64 decode routines.
|
Code:
- **Free
- /copy qrpgsrc,base64_h
- /copy qrpgsrc,httpapi_h
-
- Dcl-S EncodedData Char(1000);
- Dcl-S EncLen Int(5);
- Dcl-S DecodedData Char(750);
- Dcl-S DecLen Int(5);
-
- EncodedData = 'QUJBIEJDQlNUWA0KOTk5IG91dCBvZiAyMTAwIFRPVEFMIFVOSVRTDQoxc3Qgb2Yg'
- + 'Mw0KNS4yLjIwLTEyLjIuMjA=OTI1MDg=';
- EncLen = %Len(%Trim(EncodedData));
- DecLen = base64_decode(%Addr(EncodedData)
- :EncLen
- :%Addr(DecodedData)
- :750
- );
- http_xlatep(declen:%addr(DecodedData):TO_EBCDIC);
- *Inlr = *On;
- Return;
|
|
|