【Demo】ABAP Base64加解密测试

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
*&---------------------------------------------------------------------*
*& Report  ZTEST_BASE64
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST_BASE64.


DATA: INSTR         TYPE STRING,
      XSTR          TYPE XSTRING,
      ENCODE_STR    TYPE STRING,
      CHARSET       TYPE STRING,
      MIMETYPE(128) TYPE C,
      CODEPAGE(4) TYPE N,
      ENCODING(20) TYPE C,
      CONVIN TYPE REF TO CL_ABAP_CONV_IN_CE.


*INSTR = 'Material : 8630052669852'.
INSTR = '我的名字叫做Michael！'.
WRITE : / '------Base64之前------：',INSTR.


CONCATENATE '"text/html; charset='  CHARSET '"' INTO MIMETYPE.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
  EXPORTING
    TEXT     = INSTR
    MIMETYPE = MIMETYPE
  IMPORTING
    BUFFER   = XSTR
  EXCEPTIONS
    FAILED   = 1
    OTHERS   = 2.
IF SY-SUBRC <> 0.
ENDIF.
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    INPUT  = XSTR
  IMPORTING
    OUTPUT = ENCODE_STR.
WRITE : / '------Base64加密------：',ENCODE_STR.



CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
  EXPORTING
    INPUT    = ENCODE_STR
*   UNESCAPE = 'X'
  IMPORTING
    OUTPUT   = XSTR
  EXCEPTIONS
    FAILED   = 1
    OTHERS   = 2.
IF SY-SUBRC <> 0.
ENDIF.
CHARSET  = 'UTF-8'."支持中文
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
  EXPORTING
    EXTERNAL_NAME = CHARSET
  IMPORTING
    SAP_CODEPAGE  = CODEPAGE
  EXCEPTIONS
    NOT_FOUND     = 1
    OTHERS        = 2.
IF SY-SUBRC = 0.
  ENCODING = CODEPAGE.
ENDIF.
CONVIN = CL_ABAP_CONV_IN_CE=>CREATE( ENCODING = ENCODING INPUT = XSTR )."创建解码对象
CALL METHOD CONVIN->READ( IMPORTING DATA = INSTR ).
WRITE : / '------Base64解密------：',INSTR.