ITPub博客

首页 > Linux操作系统 > Linux操作系统 > se38程序加密

se38程序加密

原创 Linux操作系统 作者:hzq2010 时间:2011-03-14 00:22:58 0 删除 编辑
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.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-689327/,如需转载,请注明出处,否则将追究法律责任。

下一篇: MM 移动类型
请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    171556