ABAP MD5加密 MD5_CALCULATE_HASH_FOR_CHAR-加密后结果和JAVA MD5加密不一致，因为有中文恶心恶心

SAP定位是内部ERP系统，加密不是SAP强项，加密处理特别难受

注意点：拼接注意空格，加密后转C类型在使用
-加密后结果和JAVA MD5加密不一致，因为有中文恶心恶心

DATA:md5_beg TYPE string,
md5_end string.

"拼接注意空格
md5_beg =
‘appKey=’ && ‘46366241’ && ‘&’&&
‘nonce=’ && lc_int && ‘&’&&
‘timestamp=’ && lc_secs && ‘&’&&
‘v=’ && ‘1.0’ &&‘&’&&
‘vin=’ && pv_vin &&‘&’&&
‘secret=HhTHiCmopngOBfIyigNoUVejW8jG3Mgp8Bp1sricd66MKxk87rCGxQqqlsJIwhLA’
.

"调用标准函数加密–不要用
" CALL FUNCTION ‘MD5_CALCULATE_HASH_FOR_CHAR’
" EXPORTING
" data = md5_beg
" length = 0
" IMPORTING
" hash = md5_end.

"转C类型使用
" md5_end_c = md5_end.

"用这个加密
CALL FUNCTION ‘ZFM_GET_MD5’
EXPORTING
iv_string = md5_beg
IMPORTING
ev_md5 = md5_end.

FUNCTION zfm_get_md5.
*“----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*” VALUE(IV_STRING) TYPE STRING OPTIONAL
*" EXPORTING
*" VALUE(EV_MD5) TYPE STRING
*"----------------------------------------------------------------------

DATA: lv_js TYPE REF TO cl_java_script,
lv_javascript TYPE string,
lv_return TYPE string.
lv_js = cl_java_script=>create( ).

DATA:lv_cal_md5 TYPE string .
lv_cal_md5 = ‘md5_encrypt(’‘’ && iv_string && ‘’‘);’.

CONCATENATE lv_javascript
‘var rotateLeft = function(lValue, iShiftBits){’
‘return (lValue << iShiftBits)|(lValue >>> (32 - iShiftBits));’
‘}’
‘’
‘var addUnsigned = function(lX, lY){’
‘var lX4, lY4, lX8, lY8, lResult;’
‘lX8 =(lX & 0x80000000);’
‘lY8 =(lY & 0x80000000);’
‘lX4 =(lX & 0x40000000);’
‘lY4 =(lY & 0x40000000);’
‘lResult =(lX & 0x3FFFFFFF)+(lY & 0x3FFFFFFF);’
‘if(lX4 & lY4) return (lResult ^ 0x80000000 ^ lX8 ^ lY8);’
‘if(lX4 | lY4){’
‘if(lResult & 0x40000000) return (lResult ^ 0xC0000000 ^ lX8 ^ lY8);’
‘else return (lResult ^ 0x40000000 ^ lX8 ^ lY8);’
‘}else{’
‘return (lResult ^ lX8 ^ lY8);’
‘}’
‘}’
‘var F = function(x, y, z){’
‘return (x & y)|((~x)& z);’
‘}’
‘’
‘var G = function(x, y, z){’
‘return (x & z)|(y &(~z));’
‘}’
‘’
‘var H = function(x, y, z){’
’ return (x ^ y ^ z);’
‘}’
‘’
‘var I = function(x, y, z){’
’ return (y ^(x |(~z)));’
‘}’
‘’
‘var FF = function(a, b, c, d, x, s, ac){’
’ a = addUnsigned(a, addUnsigned(addUnsigned(F(b, c, d), x), ac));’
’ return addUnsigned(rotateLeft(a, s), b);’
‘};’
‘’
‘var GG = function(a, b, c, d, x, s, ac){’
’ a = addUnsigned(a, addUnsigned(addUnsigned(G(b, c, d), x), ac));’
’ return addUnsigned(rotateLeft(a, s), b);’
‘};’
‘’
‘var HH = function(a, b, c, d, x, s, ac){’
’ a = addUnsigned(a, addUnsigned(addUnsigned(H(b, c, d), x), ac));’
’ return addUnsigned(rotateLeft(a, s), b);’
‘};’
‘’
‘var II = function(a, b, c, d, x, s, ac){’
’ a = addUnsigned(a, addUnsigned(addUnsigned(I(b, c, d), x), ac));’
’ return addUnsigned(rotateLeft(a, s), b);’
‘};’
‘’
‘var convertToWordArray = function(string){’
‘var lWordCount;’
‘var lMessageLength = string.length;’
‘var lNumberOfWordsTempOne = lMessageLength + 8;’
‘var lNumberOfWordsTempTwo =(lNumberOfWordsTempOne -(lNumberOfWordsTempOne % 64)) / 64;’
‘var lNumberOfWords =(lNumberOfWordsTempTwo + 1)* 16;’
‘var lWordArray = Array(lNumberOfWords - 1);’
‘var lBytePosition = 0;’
‘var lByteCount = 0;’
‘while (lByteCount < lMessageLength){’
‘lWordCount =(lByteCount -(lByteCount % 4)) / 4;’
‘lBytePosition =(lByteCount % 4)* 8;’
‘lWordArray[lWordCount]=(lWordArray[lWordCount]|(string.charCodeAt(lByteCount) << lBytePosition));’
‘lByteCount++;’
‘}’
‘lWordCount =(lByteCount -(lByteCount % 4)) / 4;’
‘lBytePosition =(lByteCount % 4)* 8;’
‘lWordArray[lWordCount]= lWordArray[lWordCount]|(0x80 << lBytePosition);’
‘lWordArray[lNumberOfWords - 2]= lMessageLength << 3;’
‘lWordArray[lNumberOfWords - 1]= lMessageLength >>> 29;’
‘return lWordArray;’
‘};’
‘’
‘var wordToHex = function (lValue){’
’ var WordToHexValue =“”,’
’ WordToHexValueTemp =“”,’
’ lByte, lCount;’
’ for (lCount = 0; lCount <= 3; lCount++){’
’ lByte =(lValue >>> (lCount * 8))& 255;’
’ WordToHexValueTemp =“0”+ lByte.toString(16);’
’ WordToHexValue = WordToHexValue + WordToHexValueTemp.substr(WordToHexValueTemp.length - 2, 2);’
‘}’
’ return WordToHexValue;’
‘};’
‘’
‘var uTF8Encode = function (string){’
’ string = string.replace(/\x0d\x0a/g,“\x0a”);’
’ var output =“”;’
’ for (var n = 0; n < string.length; n++){’
’ var c = string.charCodeAt(n);’
’ if (c < 128){’
’ output += String.fromCharCode©;’
‘} else if ((c > 127)&&(c < 2048)){’
’ output += String.fromCharCode((c >> 6)| 192);’
’ output += String.fromCharCode((c & 63)| 128);’
‘} else {’
’ output += String.fromCharCode((c >> 12)| 224);’
’ output += String.fromCharCode(((c >> 6)& 63)| 128);’
’ output += String.fromCharCode((c & 63)| 128);’
‘}’
‘}’
’ return output;’
‘};’
‘’
‘function md5_encrypt(string){’
’ var x = Array();’
’ var k, AA, BB, CC, DD, a, b, c, d;’
’ var S11 = 7,’
’ S12 = 12,’
’ S13 = 17,’
’ S14 = 22;’
’ var S21 = 5,’
’ S22 = 9,’
’ S23 = 14,’
’ S24 = 20;’
’ var S31 = 4,’
’ S32 = 11,’
’ S33 = 16,’
’ S34 = 23;’
’ var S41 = 6,’
’ S42 = 10,’
’ S43 = 15,’
’ S44 = 21;’
’ string = uTF8Encode(string);’
’ x = convertToWordArray(string);’
’ a = 0x67452301;’
’ b = 0xEFCDAB89;’
’ c = 0x98BADCFE;’
’ d = 0x10325476;’
’ for (k = 0; k < x.length; k += 16){’
’ AA = a;’
’ BB = b;’
’ CC = c;’
’ DD = d;’
’ a = FF(a, b, c, d, x[k + 0], S11, 0xD76AA478);’
’ d = FF(d, a, b, c, x[k + 1], S12, 0xE8C7B756);’
’ c = FF(c, d, a, b, x[k + 2], S13, 0x242070DB);’
’ b = FF(b, c, d, a, x[k + 3], S14, 0xC1BDCEEE);’
’ a = FF(a, b, c, d, x[k + 4], S11, 0xF57C0FAF);’
’ d = FF(d, a, b, c, x[k + 5], S12, 0x4787C62A);’
’ c = FF(c, d, a, b, x[k + 6], S13, 0xA8304613);’
’ b = FF(b, c, d, a, x[k + 7], S14, 0xFD469501);’
’ a = FF(a, b, c, d, x[k + 8], S11, 0x698098D8);’
’ d = FF(d, a, b, c, x[k + 9], S12, 0x8B44F7AF);’
’ c = FF(c, d, a, b, x[k + 10], S13, 0xFFFF5BB1);’
’ b = FF(b, c, d, a, x[k + 11], S14, 0x895CD7BE);’
’ a = FF(a, b, c, d, x[k + 12], S11, 0x6B901122);’
’ d = FF(d, a, b, c, x[k + 13], S12, 0xFD987193);’
’ c = FF(c, d, a, b, x[k + 14], S13, 0xA679438E);’
’ b = FF(b, c, d, a, x[k + 15], S14, 0x49B40821);’
’ a = GG(a, b, c, d, x[k + 1], S21, 0xF61E2562);’
’ d = GG(d, a, b, c, x[k + 6], S22, 0xC040B340);’
’ c = GG(c, d, a, b, x[k + 11], S23, 0x265E5A51);’
’ b = GG(b, c, d, a, x[k + 0], S24, 0xE9B6C7AA);’
’ a = GG(a, b, c, d, x[k + 5], S21, 0xD62F105D);’
’ d = GG(d, a, b, c, x[k + 10], S22, 0x2441453);’
’ c = GG(c, d, a, b, x[k + 15], S23, 0xD8A1E681);’
’ b = GG(b, c, d, a, x[k + 4], S24, 0xE7D3FBC8);’
’ a = GG(a, b, c, d, x[k + 9], S21, 0x21E1CDE6);’
’ d = GG(d, a, b, c, x[k + 14], S22, 0xC33707D6);’
’ c = GG(c, d, a, b, x[k + 3], S23, 0xF4D50D87);’
’ b = GG(b, c, d, a, x[k + 8], S24, 0x455A14ED);’
’ a = GG(a, b, c, d, x[k + 13], S21, 0xA9E3E905);’
’ d = GG(d, a, b, c, x[k + 2], S22, 0xFCEFA3F8);’
’ c = GG(c, d, a, b, x[k + 7], S23, 0x676F02D9);’
’ b = GG(b, c, d, a, x[k + 12], S24, 0x8D2A4C8A);’
’ a = HH(a, b, c, d, x[k + 5], S31, 0xFFFA3942);’
’ d = HH(d, a, b, c, x[k + 8], S32, 0x8771F681);’
’ c = HH(c, d, a, b, x[k + 11], S33, 0x6D9D6122);’
’ b = HH(b, c, d, a, x[k + 14], S34, 0xFDE5380C);’
’ a = HH(a, b, c, d, x[k + 1], S31, 0xA4BEEA44);’
’ d = HH(d, a, b, c, x[k + 4], S32, 0x4BDECFA9);’
’ c = HH(c, d, a, b, x[k + 7], S33, 0xF6BB4B60);’
’ b = HH(b, c, d, a, x[k + 10], S34, 0xBEBFBC70);’
’ a = HH(a, b, c, d, x[k + 13], S31, 0x289B7EC6);’
’ d = HH(d, a, b, c, x[k + 0], S32, 0xEAA127FA);’
’ c = HH(c, d, a, b, x[k + 3], S33, 0xD4EF3085);’
’ b = HH(b, c, d, a, x[k + 6], S34, 0x4881D05);’
’ a = HH(a, b, c, d, x[k + 9], S31, 0xD9D4D039);’
’ d = HH(d, a, b, c, x[k + 12], S32, 0xE6DB99E5);’
’ c = HH(c, d, a, b, x[k + 15], S33, 0x1FA27CF8);’
’ b = HH(b, c, d, a, x[k + 2], S34, 0xC4AC5665);’
’ a = II(a, b, c, d, x[k + 0], S41, 0xF4292244);’
’ d = II(d, a, b, c, x[k + 7], S42, 0x432AFF97);’
’ c = II(c, d, a, b, x[k + 14], S43, 0xAB9423A7);’
’ b = II(b, c, d, a, x[k + 5], S44, 0xFC93A039);’
’ a = II(a, b, c, d, x[k + 12], S41, 0x655B59C3);’
’ d = II(d, a, b, c, x[k + 3], S42, 0x8F0CCC92);’
’ c = II(c, d, a, b, x[k + 10], S43, 0xFFEFF47D);’
’ b = II(b, c, d, a, x[k + 1], S44, 0x85845DD1);’
’ a = II(a, b, c, d, x[k + 8], S41, 0x6FA87E4F);’
’ d = II(d, a, b, c, x[k + 15], S42, 0xFE2CE6E0);’
’ c = II(c, d, a, b, x[k + 6], S43, 0xA3014314);’
’ b = II(b, c, d, a, x[k + 13], S44, 0x4E0811A1);’
’ a = II(a, b, c, d, x[k + 4], S41, 0xF7537E82);’
’ d = II(d, a, b, c, x[k + 11], S42, 0xBD3AF235);’
’ c = II(c, d, a, b, x[k + 2], S43, 0x2AD7D2BB);’
’ b = II(b, c, d, a, x[k + 9], S44, 0xEB86D391);’
’ a = addUnsigned(a, AA);’
’ b = addUnsigned(b, BB);’
’ c = addUnsigned(c, CC);’
’ d = addUnsigned(d, DD);’
‘}’
’ var tempValue = wordToHex(a)+ wordToHex(b)+ wordToHex©+ wordToHex(d);’
’ return tempValue.toLowerCase();’
‘}’
lv_cal_md5
INTO lv_javascript SEPARATED BY cl_abap_char_utilities=>cr_lf.

ev_md5 = lv_js->evaluate( lv_javascript ).

ENDFUNCTION.