这几天要在ABAP中实现 3DES 标准对称加密算法，与其他外部系统进行加密/解密操作。由于ABAP语言中没有 左移 <<、无符号右移 >>>  操作，只能自己实现
思路：
如果移动的位数bit是字节（8位）的整数倍，则直接使用  SHIFT <i> BY p PLACES RIGHT IN BYTE MODE.这样的语句搞定（这样效率会更高），如果非字节整数倍，则需要借助于SET BIT来完成，实现时，要注意整型的字节序格式，本人开发环境是低字节序（低位在前，高位在后），与人的阅读习惯是反的（但要注意的字节里面的是还是高位在前，低位在后），左右位移规则如下（同一种颜色为移动后所在位置）：


DATA: BEGIN OF index_map OCCURS 0,
  index_inner TYPE i,
  index TYPE i,
  END OF  index_map .

FORM init .
  CLEAR: index_map[].
  index_map-index_inner = 1.
  index_map-index = 8.
  APPEND index_map.
  index_map-index_inner = 2.
  index_map-index = 7.
  APPEND index_map.
  index_map-index_inner = 3.
  index_map-index = 6.
  APPEND index_map.
  index_map-index_inner = 4.
  index_map-index = 5.
  APPEND index_map.
  index_map-index_inner = 5.
  index_map-index = 4.
  APPEND index_map.
  index_map-index_inner = 6.
  index_map-index = 3.
  APPEND index_map.
  index_map-index_inner = 7.
  index_map-index = 2.
  APPEND index_map.
  index_map-index_inner = 8.
  index_map-index = 1.
  APPEND index_map.
  index_map-index_inner = 9.
  index_map-index = 16.
  APPEND index_map.
  index_map-index_inner = 10.
  index_map-index = 15.
  APPEND index_map.
  index_map-index_inner = 11.
  index_map-index = 14.
  APPEND index_map.
  index_map-index_inner = 12.
  index_map-index = 13.
  APPEND index_map.
  index_map-index_inner = 13.
  index_map-index = 12.
  APPEND index_map.
  index_map-index_inner = 14.
  index_map-index = 11.
  APPEND index_map.
  index_map-index_inner = 15.
  index_map-index = 10.
  APPEND index_map.
  index_map-index_inner = 16.
  index_map-index = 9.
  APPEND index_map.
  index_map-index_inner = 17.
  index_map-index = 24.
  APPEND index_map.
  index_map-index_inner = 18.
  index_map-index = 23.
  APPEND index_map.
  index_map-index_inner = 19.
  index_map-index = 22.
  APPEND index_map.
  index_map-index_inner = 20.
  index_map-index = 21.
  APPEND index_map.
  index_map-index_inner = 21.
  index_map-index = 20.
  APPEND index_map.
  index_map-index_inner = 22.
  index_map-index = 19.
  APPEND index_map.
  index_map-index_inner = 23.
  index_map-index = 18.
  APPEND index_map.
  index_map-index_inner = 24.
  index_map-index = 17.
  APPEND index_map.
  index_map-index_inner = 25.
  index_map-index = 32.
  APPEND index_map.
  index_map-index_inner = 26.
  index_map-index = 31.
  APPEND index_map.
  index_map-index_inner = 27.
  index_map-index = 30.
  APPEND index_map.
  index_map-index_inner = 28.
  index_map-index = 29.
  APPEND index_map.
  index_map-index_inner = 29.
  index_map-index = 28.
  APPEND index_map.
  index_map-index_inner = 30.
  index_map-index = 27.
  APPEND index_map.
  index_map-index_inner = 31.
  index_map-index = 26.
  APPEND index_map.
  index_map-index_inner = 32.
  index_map-index = 25.
  APPEND index_map.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  lshfit_i
*&---------------------------------------------------------------------*
*       整型左移
*----------------------------------------------------------------------*
*      -->I          待位移的数
*      -->PLACES     移几位
*      -->I2         位移后的数
*----------------------------------------------------------------------*
FORM lshfit_i USING i TYPE i places TYPE i i2 TYPE i.
  DATA: start1 TYPE i ,start2 TYPE i.
  DATA: b TYPE n.
  DATA: i3 TYPE i.
  FIELD-SYMBOLS: <i3> TYPE x.

  FIELD-SYMBOLS: <i> TYPE x.
  FIELD-SYMBOLS: <p> TYPE x.
  DATA: _31(4) TYPE x,p TYPE i.
  p = places.
  IF places < 0.
    _31 = '1F000000'.
    ASSIGN p TO <p> CASTING.
    <p> = <p> BIT-AND _31.
  ENDIF.

  i2 = i.
  ASSIGN i2 TO <i> CASTING.

  IF p = 24 OR p = 16 OR p = 8.
    p = p / 8.
    SHIFT <i> BY p PLACES RIGHT IN BYTE MODE.
  ELSE.
    ASSIGN i3 TO <i3> CASTING.
    start1 = 32 - p.

    WHILE  start1 >= 1.
      READ TABLE index_map INDEX start1.
      GET BIT index_map-index OF <i> INTO b.
      IF b = 1.
        start2 = start1 + p.
        READ TABLE index_map INDEX start2.
        SET BIT index_map-index OF <i3> TO b.
      ENDIF.
      start1 = start1 - 1.
    ENDWHILE.
    <i> = <i3>.
  ENDIF.
ENDFORM.                    "lshfit_i

*&---------------------------------------------------------------------*
*&      Form  rshfit_i
*&---------------------------------------------------------------------*
*       整型右移
*----------------------------------------------------------------------*
*      -->I          待位移的数
*      -->PLACES     移几位
*      -->I2         位移后的数
*----------------------------------------------------------------------*
FORM rshfit_i USING i TYPE i places TYPE i i2 TYPE i.
  DATA: start1 TYPE i ,start2 TYPE i.
  DATA: b TYPE n.
  DATA: i3 TYPE i.
  FIELD-SYMBOLS: <i3> TYPE x.
  FIELD-SYMBOLS: <i> TYPE x.
  FIELD-SYMBOLS: <p> TYPE x.
  DATA: _31(4) TYPE x,p TYPE i.
  DATA multiplier TYPE i.

  p = places.
  IF p < 0.
    _31 = '1F000000'.
    ASSIGN p TO <p> CASTING.
    <p> = <p> BIT-AND _31.
  ENDIF.

  i2 = i.

  ASSIGN i2 TO <i> CASTING.

  IF p = 24 OR p = 16 OR p = 8.
    p = p / 8.
    SHIFT <i> BY p PLACES LEFT IN BYTE MODE.
  ELSE.
    IF i >= 0 AND p < 31 .
      multiplier = 2 ** p.
      i2 = i DIV multiplier.
    ELSE.
      ASSIGN i3 TO <i3> CASTING.

      start1 = p + 1.

      WHILE  start1 <= 32.
        READ TABLE index_map INDEX start1.
        GET BIT index_map-index OF <i> INTO b.
        IF b = 1.
          start2 = start1 - p.
          READ TABLE index_map INDEX start2.
          SET BIT index_map-index OF <i3> TO b.
        ENDIF.
        start1 = start1 + 1.
      ENDWHILE.
      <i> = <i3>.
    ENDIF.
  ENDIF.
ENDFORM.                    "rshfit_i

*&---------------------------------------------------------------------*
*&      Form  c2int
*&---------------------------------------------------------------------*
*       字符转整型
*----------------------------------------------------------------------*
*      -->C1         text
*      -->I          text
*----------------------------------------------------------------------*
FORM c2int USING c1 TYPE c i TYPE i.
  FIELD-SYMBOLS <c1> TYPE x.
  FIELD-SYMBOLS: <i> TYPE x.
  ASSIGN c1 TO <c1> CASTING.
  ASSIGN i TO <i> CASTING.
  <i> = <c1>.
ENDFORM.    

*&---------------------------------------------------------------------*
*&      Form  lshfit_c
*&---------------------------------------------------------------------*
*       字符左移
*----------------------------------------------------------------------*
*      -->C1         待位移的字符
*      -->PLACES     移几位
*      -->I          位移后的结果
*----------------------------------------------------------------------*
FORM lshfit_c USING c1 TYPE c places TYPE i i TYPE i.
  PERFORM c2int USING c1 i.
  PERFORM lshfit_i USING i places i.
ENDFORM.                    "lshfit

*&---------------------------------------------------------------------*
*&      Form  rshfit_c
*&---------------------------------------------------------------------*
*       字符右移
*----------------------------------------------------------------------*
*      -->C1         待位移的字符
*      -->PLACES     移几位
*      -->I          位移后的结果
*----------------------------------------------------------------------*
FORM rshfit_c USING c1 TYPE c places TYPE i i TYPE i.
  PERFORM c2int USING c1 i.
  PERFORM rshfit_i USING i places i.
ENDFORM.                    "rshfit_c
 
 

ABAP语言实现 左移 <<、无符号右移 >>> 位移操作的更多相关文章

  1. Java负整数的左移、右移、无符号右移

    转自  Java负整数的左移.右移.无符号右移 Java负整数的左移.右移.无符号右移.正数的位移没有涉及到符号,而且正数的原码.反码.补码都是一样的,所以相对简单,但是对于负整数的位移,往往容易混淆 ...

  2. 原码,反码,补码 与（&） 或（|） 非(~) 异或(^) 左移 << 右移 >> 无符号右移 >>>

    原码 数字在计算机中以二进制表示,8位的字长,最高位是符号位, 正数为0,负数为1.比如,3为0000 0011: -3为1000 0011. 注意,Java中int为32位.3的16进制表示为3,- ...

  3. java的<<左移，>>右移，>>>无符号右移

    >>右移 右移,道在二进制中,假设用一个32位的Int表示一个64,那么高位就都是0,所以当我们把整个二进制数右移,如0100000 >> 2 = 0001000,可以看到右移 ...

  4. java移位运算符：<<（左移）、>>（带符号右移）和>>>（无符号右移）。

    1. 左移运算符 左移运算符<<使指定值的所有位都左移规定的次数. 1)它的通用格式如下所示: value << num num 指定要移位值value 移动的位数. 左移的规 ...

  5. 分析轮子（二）- << ，>>，>> （左移、右移、无符号右移）

    前言:写 分析轮子(一)-ArrayList.java 的时候看到源码中有 int newCapacity = oldCapacity + (oldCapacity >> 1); 这样的代 ...

  6. [JAVA]移位运算（左移<<，右移>>和无符号右移>>>）

    一.背景知识 整数在内存中是以二进制的形式存在的,而且存的是该整数的补码.最高位代表符号位,正数为0,负数为1 正数的补码是其二进制本身,负数的补码则是 符号位保持1不变,其他位按位取反再加1,+0和 ...

  7. java移位运算符实验程序：&lt;&lt;（左移）、&gt;&gt;（带符 号右移）和&gt;&gt;&gt;（无符号右移）

    public class txs { static void leftbit(){ int i;               //整型长度为32位                           ...

  8. Java,C 位移运算符 有符号右移>>与无符号右移>>>

    个人博客 地址:https://www.wenhaofan.com/a/20181029232749 有符号右移 正数有符号右移 首先计算4>>2 将4转为二进制 0000 0100 右移 ...

  9. PHP实现无符号右移（js中的 >>>）

    移位包括有符号左移(<<).有符号右移(>>).无符号右移(>>>),其中 js 支持三种移位,PHP只支持前两种移位(没查到第三种),恰好需要PHP进行无符 ...

随机推荐

  1. Flink--Split和select

    Split就是将一个DataStream分成两个或者多个DataStream Select就是获取分流后对应的数据 val env = StreamExecutionEnvironment.getEx ...

  2. bitset里面一些函数的用法

  3. P1025 数的划分 dfs dp

    题目描述 将整数nn分成kk份,且每份不能为空,任意两个方案不相同(不考虑顺序). 例如:n=7n=7,k=3k=3,下面三种分法被认为是相同的. 1,1,51,1,5;1,5,11,5,1;5,1, ...

  4. 关系网络数据可视化：1. 关系网络图&Gephi

    1.关系网络图 如何来表示两个对象之间的关系? 把对象变成点,点的大小.颜色可以是它的两个参数,两个点之间的关系可以用连线来表示.连线分为无向(只是连接的导向,一些简单的关系很容易体现)和有向(复杂网 ...

  5. Cloudera Manager的安装

    1.  cloudera manager的概念 简单来说,Cloudera Manager是一个拥有集群自动化安装.中心化管理.集群监控.报警功能的一个工具(软件),使得安装集群从几天的时间缩短在几个 ...

  6. js扩展运算符（spread）是三个点（...）

    作用:将一个数组转为用逗号分隔的参数序列. //该运算符主要用于函数调用.function push(array, ...items) { array.push(...items); } functi ...

  7. 20165220 Java第三周学习总结

    1.教材学习内容总结 类与对象 类与对象的关系:要产生对象必须先定义类,类是对象的设计图,对象是类的实例 为个别对象的数据成员指定值的方式是:对象.对象成员 注意“一类一文件” 类在定义时要使用关键词 ...

  8. gradle根据不同渠道设置不同的开屏启动页

    需求:根据不同渠道,app的开屏启动页不一样 思路:因为app的启动页是在清单文件配置的,而清单文件最后是要和main里面的清单文件合并的,所以每个渠道都要配一个清单文件,在里面设置 然后在Andro ...

  9. javaScript函数节流与函数防抖

    javaScript函数节流与防抖之区别 函数防抖(debounce)与函数节流(throttle)都是为了限制函数的执行频次,以优化函数触发频率过高导致的响应速度跟不上触发频率,出现延迟.假死或卡顿 ...

  10. python数据类型及基本运算符

    1.数据类型 (1)什么是数据类型? 变量值是我们存储的数据,所以数据类型就是变量值的不同种类 (2)为什么要分类型? 变量值是为了保存现实世界中的状态,针对于不同的状态应该用不同的类型去表示 (3) ...