SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

use cl_abap_hmac for calculating md5 (#4355)

Browse Source
This commit is contained in:
Lars Hvam 2020-12-25 10:10:43 +01:00 committed by GitHub
parent e1e039a446
commit 7a2ac816c5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/http/zcl_abapgit_http_digest.clas.abap
View File

@ -17,6 +17,7 @@ CLASS zcl_abapgit_http_digest DEFINITION
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mv_ha1 TYPE string, DATA: mv_ha1 TYPE string,
mv_username TYPE string, mv_username TYPE string,
@ -83,26 +84,23 @@ CLASS ZCL_ABAPGIT_HTTP_DIGEST IMPLEMENTATION.
METHOD md5. METHOD md5.
DATA: lv_xstr TYPE xstring, DATA lv_xstr TYPE xstring.
lv_hash TYPE xstring. DATA lv_hash TYPE xstring.
DATA lv_empty TYPE xstring.
lv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8( iv_data ). lv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8( iv_data ).
CALL FUNCTION 'CALCULATE_HASH_FOR_RAW' TRY.
EXPORTING cl_abap_hmac=>calculate_hmac_for_raw(
alg = 'MD5' EXPORTING
data = lv_xstr if_algorithm = 'MD5'
IMPORTING if_key = lv_empty
hashxstring = lv_hash if_data = lv_xstr
EXCEPTIONS IMPORTING
unknown_alg = 1 ef_hmacxstring = lv_hash ).
param_error = 2 CATCH cx_abap_message_digest.
internal_error = 3 zcx_abapgit_exception=>raise( 'error calculating md5' ).
OTHERS = 4. ENDTRY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from CALCULATE_HASH_FOR_RAW' ).
ENDIF.
rv_hash = lv_hash. rv_hash = lv_hash.
TRANSLATE rv_hash TO LOWER CASE. TRANSLATE rv_hash TO LOWER CASE.