ABAP Encoder B 64

  1.  
  2. define base64_ini.
  3. DATA: lv_B64   TYPE REF TO cl_http_utility,
  4.       lv_iB64s type string,
  5.       lv_eB64s type string.
  6. CREATE OBJECT lv_B64.
  7. end-OF-DEFINITION.
  8.  
  9. define base64_dec.
  10.   lv_iB64s = &1.
  11.   lv_eB64s = lv_B64->decode_base64( lv_iB64s ).
  12.   &2 = lv_eB64s.
  13. end-OF-DEFINITION.
  14.  
  15. define base64_enc.
  16.   lv_iB64s = &1.
  17.   lv_eB64s = lv_B64->encode_base64( lv_iB64s ).
  18.   &2 = lv_eB64s.
  19. end-OF-DEFINITION.
  20.  
  21.  
  22. end-OF-SELECTION.
  23. *--[ Ejemplo de funcionamiento
  24.  
  25. CONSTANTS: func_01 type c LENGTH 50 VALUE 'U1VTUl9VU0VSX1BBU1NXT1JEX1BVVA=='. " Ejemplo de String en B64
  26.  
  27.    base64_ini.                  " Creamos variables y objeto
  28.    base64_dec func_01 sy-lisel. " Decodificamos parametro_1 sobre parámetro_2
  29.    base64_enc sy-lisel sy-lisel." Codificamos parámetro_1 sobre parámetro_2
  30.  
[$[Get Code]]