将密码转化为SAP的格式

REPORT ZTEST3 .

DATA : SOURCE       TYPE  CHAR255 ,
       SOURCELEN    TYPE   I ,
        KEY          TYPE   I VALUE 26101957 ,
       DESTINATION TYPE  CHAR255 .
SOURCE = 'MScm81@11$' .
" 将密码转化为SAP的格式
CALL FUNCTION 'HTTP_SCRAMBLE'
   EXPORTING
    SOURCE       = SOURCE
    SOURCELEN    = STRLEN ( SOURCE )
     KEY          = KEY
   IMPORTING
    DESTINATION = DESTINATION .

IF SY -SUBRC = 0 .
WRITE : DESTINATION .
ENDIF .

*function http_scramble.
**"----------------------------------------------------------------------
**"*"Lokale Schnittstelle:
**"  IMPORTING
**"     REFERENCE(SOURCE) TYPE  C
**"     REFERENCE(SOURCELEN) TYPE  I
**"     REFERENCE(KEY) TYPE  I
**"  EXPORTING
**"     REFERENCE(DESTINATION) TYPE  C
**"----------------------------------------------------------------------
*
*  data: conv type ref to cl_abap_conv_out_ce,
*        buffer type xstring,
*        x4(4) type x,
*        y4(4) type x,
*        x type x,
*        i type i,
*        mask(4) type x value '0000003F',
*        dest(255) type x,
*        lf type f.
*
*  data: stab(64) type x value
*       'F0ED53B83244F1F876C67959FD4F13A2' &
*       'C15195EC5483C234774943A27DE26596' &
*       '5E5398789A17A33CD383A8B829FBDCA5' &
*       '55D702778413ACDDF9B83116610E6DFA'.
*
*  if sourcelen eq 0. exit. endif.
*
*  y4 = key.
*  x4 = key * 2.
*  y4 = y4 bit-xor x4.
*  x4 = key / 32.
*  y4 = y4 bit-xor x4.
*  y4 = y4 bit-and mask.
*
*  conv = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' ).
*  call method conv->write( data = source ).
*  buffer = conv->get_buffer( ).
*
*  i = 0.
*  do sourcelen times.
*    if sy-index eq 40.
*      x4 = 1.
*    endif.
*    lf = ( key * i * i - i ) mod 256.
*    x = lf.
*    x = stab+y4(1) bit-xor x.
*    dest+i = buffer+i(1) bit-xor x.
*    i = i + 1.
*    y4 = y4 + 1.
*    y4 = y4 bit-and mask.
*  enddo.
*
*  write dest(sourcelen) to destination.
*
*endfunction.

将密码转化为SAP的格式相关推荐

将Element UI的时间选择器（DatePicker）的Sat Jan 01 2022 00:00:00 GMT+0800 (中国标准时间)转化为XXXX-XX-XX的格式
将Sat Jan 01 2022 00:00:00 GMT+0800 (中国标准时间)转化为XXXX-XX-XX的格式在使用element UI的时间选择器时,控制台输出的是Sat Jan 01 2 ...
python 处理时间格式：将时间转化为datetime的格式的dataframe时报错
datetime之死亡报错 TypeError: <class 'datetime.time'> is not convertible to datetime 数据如图: PyCharm用 ...
将yyyyMMdd格式化为yyyy-MM-dd日期格式及DateFormateUtils、DateUtils的使用
概述我们要做的任务需求是将字符串20201013转换为20202013 00:00:00的日期类型格式解决及测试首先想到的是,先对前端传过来的字符串进行拼接,也就是拼上 00:00:00,再用S ...
INRIAPerson数据集转化为yolo训练格式并可视化
记录贴:将inria行人检测数据集转化为YOLO可以训练的txt格式 inria行人检测数据集解压后有train和test文件,将里面的标注信息提取出来转化代码 # coding=UTF-8impo ...
麒麟桌面虚拟机密码破解方法，qcow2格式麒麟操作系统忘记密码处理方法，麒麟qcow2镜像v10版本操作系统下载，麒麟ubuntu离线deb包下载地址并离线安装
文章目录破译密码前提准备 1.重启虚拟机并按e进入救援模式 2.修改密码 3.重启虚拟机 4.测试[版本查看] 5.使用说明麒麟v10的qcow镜像麒麟ubuntu离线deb包下载地址并离线安 ...
for linux pdf转mobi_pdftotext —— Linux/Unix中将PDF文件转化为Text文本格式的利器
安装 pdftotext 到 RedHat / RHEL / Fedora / CentOS / Ubuntu 在不同的Linux分发版本中使用poppler-utils包安装pdftotext(Ce ...
MATLAB 将txt文本转化为tif图片格式
在做地理信息相关的处理时,我们希望的是图片格式(或raster格式)便于在GIS中处理以及可视化,但拿到的数据往往又是TXT文本格式,需要转化,代码如下: data = load('F:\budyko ...
python3 pdf转图片_如何在windows64位操作系统环境下使用python3将pdf文件批量转化为jpg图片格式...
目前手上有一些pdf格式的文档,想将其每一页批量转换为jpg或png等图片格式的文件,但是一路上转换过来碰到不少问题,现在在此记录. 一.使用的工具及环境本人使用的是windows10 64位的操作 ...
基于paddlex图像分类模型训练（一）：图像分类数据集切分：文件夹转化为imagenet训练格式
相关博文基于paddlex图像分类模型训练(二):训练自己的分类模型.熟悉官方demo 背景在使用paddlex GUI训练图像分类时,内部自动对导入的分类文件夹进行细分,本文主要介绍其图像分类数 ...

将密码转化为SAP的格式

将密码转化为SAP的格式相关推荐

最新文章

热门文章