Encryption & Decryption of data using ABAP

[Former Member]

Can we encrypt data with ABAP? I had been trying to find something out-of-box for a sometime. As usual I was searching SDN for some useful solutions, I found a code posted by Urgent Requirement: Encryption/Decryption in SAP in the forums and some pointer by Issuing cookies to the Class CL_HARD_WIRED_ENCRYPTOR. I just wanted to give a try to this one and to admit it was so easy to use. In this weblog I just take you through a simple example which uses all uses all the encryption and decryption methods of this class.

Declaration & Initial Part
DATA: o_encryptor        TYPE REF TO cl_hard_wired_encryptor,      o_cx_encrypt_error TYPE REF TO cx_encrypt_error.DATA: v_ac_string  TYPE string VALUE 'Welcome to ABAP',      v_ac_xstring TYPE xstring,      v_en_string  TYPE string,      v_en_xstring TYPE xstring,      v_de_string  TYPE string,      v_de_xstring TYPE string,      v_error_msg  TYPE string. START-OF-SELECTION.* Create object for Encryption  CREATE OBJECT o_encryptor.

Encryption - String to String
*&---------------------------------------------------------------------** Encryption - String to String*&---------------------------------------------------------------------*  WRITE / 'Encryption - String to String'.  TRY.      CALL METHOD o_encryptor->encrypt_string2string        EXPORTING          the_string = v_ac_string        RECEIVING          result     = v_en_string.    CATCH cx_encrypt_error INTO o_cx_encrypt_error.      CALL METHOD o_cx_encrypt_error->if_message~get_text        RECEIVING          result = v_error_msg.      MESSAGE v_error_msg TYPE 'E'.  ENDTRY.  WRITE:/ 'Actual String: ', v_ac_string.  WRITE:/ 'Encrypted String: ', v_en_string.  SKIP.

Decryption - String to String
*&---------------------------------------------------------------------** Decryption - String to String*&---------------------------------------------------------------------*  WRITE / 'Decryption - String to String'.  TRY.      CALL METHOD o_encryptor->decrypt_string2string        EXPORTING          the_string = v_en_string        RECEIVING          result     = v_de_string.    CATCH cx_encrypt_error INTO o_cx_encrypt_error.      CALL METHOD o_cx_encrypt_error->if_message~get_text        RECEIVING          result = v_error_msg.      MESSAGE v_error_msg TYPE 'E'.  ENDTRY.  WRITE:/ 'Encrypted String: ', v_en_string.  WRITE:/ 'Decrypted String: ', v_de_string.  SKIP.

Encryption - String to Byte
*&---------------------------------------------------------------------** Encryption - String to Bytes*&---------------------------------------------------------------------*  WRITE / 'Encryption - String to Bytes'.  TRY.      CALL METHOD o_encryptor->encrypt_string2bytes        EXPORTING          the_string = v_ac_string        RECEIVING          result     = v_en_xstring.    CATCH cx_encrypt_error INTO o_cx_encrypt_error.      CALL METHOD o_cx_encrypt_error->if_message~get_text        RECEIVING          result = v_error_msg.      MESSAGE v_error_msg TYPE 'E'.  ENDTRY.  WRITE:/ 'Actual String: ', v_ac_string.  WRITE:/ 'Encrypted Bytes: ', v_en_xstring.  SKIP.

Decryption – Byte to String
*&---------------------------------------------------------------------** Decryption - Bytes TO String*&---------------------------------------------------------------------*  WRITE / 'Decryption - Bytes TO String'.  TRY.      CALL METHOD o_encryptor->decrypt_bytes2string        EXPORTING          the_byte_array = v_en_xstring        RECEIVING          result         = v_de_string.    CATCH cx_encrypt_error INTO o_cx_encrypt_error.      CALL METHOD o_cx_encrypt_error->if_message~get_text        RECEIVING          result = v_error_msg.      MESSAGE v_error_msg TYPE 'E'.  ENDTRY.  WRITE:/ 'Encrypted Bytes: ', v_en_xstring.  WRITE:/ 'Decrypted String: ', v_de_string.  SKIP.

Encryption - Bytes to Bytes
*&---------------------------------------------------------------------** Encryption - Bytes to Bytes*&---------------------------------------------------------------------*  WRITE / 'Encryption - Bytes to Bytes'.  v_ac_xstring = '004E00650074005700650061007600650072'.  CALL METHOD o_encryptor->encrypt_bytes2bytes    EXPORTING      the_byte_array = v_ac_xstring    RECEIVING      result         = v_en_xstring.  WRITE:/ 'Actual Bytes: ', v_ac_xstring.  WRITE:/ 'Encrypted Bytes: ', v_en_xstring.  SKIP.

Decryption - Bytes to Bytes
*&---------------------------------------------------------------------** Decryption - Bytes to Bytes*&---------------------------------------------------------------------*  WRITE / 'Decryption - Bytes to Bytes'.  TRY.      CALL METHOD o_encryptor->decrypt_bytes2bytes        EXPORTING          the_byte_array = v_en_xstring        RECEIVING          result         = v_de_xstring.    CATCH cx_encrypt_error INTO o_cx_encrypt_error.      CALL METHOD o_cx_encrypt_error->if_message~get_text        RECEIVING          result = v_error_msg.      MESSAGE v_error_msg TYPE 'E'.  ENDTRY.  WRITE:/ 'Encrypted Bytes: ', v_en_xstring.  WRITE:/ 'Decrypted Bytes: ', v_de_xstring.  SKIP.

The Result


Adding to this there are methods for BASE64 encoding and decoding of binary data as well. Hope this is a very simple to use class for the encryption & decryption of data.