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:
  1. **Free                                                                                       
  2.   /copy qrpgsrc,base64_h                                                          
  3.   /copy qrpgsrc,httpapi_h                                                         
  4.                                                                                   
  5.   Dcl-S EncodedData Char(1000);                                                   
  6.   Dcl-S EncLen Int(5);                                                            
  7.   Dcl-S DecodedData Char(750);                                                    
  8.   Dcl-S DecLen Int(5);                                                            
  9.                                                                                   
  10.   EncodedData = 'QUJBIEJDQlNUWA0KOTk5IG91dCBvZiAyMTAwIFRPVEFMIFVOSVRTDQoxc3Qgb2Yg'
  11.      + 'Mw0KNS4yLjIwLTEyLjIuMjA=OTI1MDg=';                                        
  12.   EncLen = %Len(%Trim(EncodedData));                                              
  13.   DecLen = base64_decode(%Addr(EncodedData)                                       
  14.     :EncLen                                                                       
  15.     :%Addr(DecodedData)                                                           
  16.     :750                                                                          
  17.     );                                                                            
  18.   http_xlatep(declen:%addr(DecodedData):TO_EBCDIC);                               
  19.  *Inlr = *On; 
  20.  Return;      
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css