se38程序加密

作者:admin 日期:2008-11-19

字体大小: 小中大

REPORT  ZBIANYI.
data:begin of itab occurs 0,
     line(72).
data:end of itab.
data g_in type string.
data g_out type xstring.
data g_c type string.
data g_line type i.
data g_x type i.
parameters:progrmm(100).
read report progrmm into itab.
loop at itab.
  g_line = strlen( itab-line ).
  clear g_x.
  do g_line times.
    g_c = itab-line+g_x(1).
    if not g_c is initial.
      CALL FUNCTION 'HR_KR_STRING_TO_XSTRING'
        EXPORTING
         CODEPAGE_TO            = '8500'
          UNICODE_STRING         = g_c
         OUT_LEN                = 0
       IMPORTING
         XSTRING_STREAM         = g_out
       EXCEPTIONS
         INVALID_CODEPAGE       = 1
         INVALID_STRING         = 2
         OTHERS                 = 3.
      g_out = g_out - 1.
      CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
        EXPORTING
         FROM_CODEPAGE       = '8500'
          IN_XSTRING          = g_out
         OUT_LEN             = 0
       IMPORTING
         OUT_STRING          = g_in.
    itab-line+g_x(1) = g_in.
    endif.
  g_x = g_x + 1.
  enddo.
  modify itab.
  write itab-line.
endloop.
Insert REPORT progrmm FROM itab.

REPORT  ZJIEMA.
data:begin of itab occurs 0,
     line(72).
data:end of itab.
data g_in type string.
data g_out type xstring.
data g_c type string.
data g_line type i.
data g_x type i.
parameters:progrmm(100).
read report progrmm into itab.
loop at itab.
  g_line = strlen( itab-line ).
  clear g_x.
  do g_line times.
    g_c = itab-line+g_x(1).
    if not g_c is initial.
      CALL FUNCTION 'HR_KR_STRING_TO_XSTRING'
        EXPORTING
         CODEPAGE_TO            = '8500'
          UNICODE_STRING         = g_c
         OUT_LEN                = 0
       IMPORTING
         XSTRING_STREAM         = g_out
       EXCEPTIONS
         INVALID_CODEPAGE       = 1
         INVALID_STRING         = 2
         OTHERS                 = 3.
      g_out = g_out + 1.
      CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
        EXPORTING
         FROM_CODEPAGE       = '8500'
          IN_XSTRING          = g_out
         OUT_LEN             = 0
       IMPORTING
         OUT_STRING          = g_in.
    itab-line+g_x(1) = g_in.
    endif.
  g_x = g_x + 1.
  enddo.
  modify itab.
  write itab-line.
endloop.
Insert REPORT progrmm FROM itab.

'引用自http://blog.chinaunix.net/u/32493/showart_321015.html