最近出现一些SAP ABAP RSA加密的需求，这里搬运一篇文章，用于学习参考。

 

本文链接：https://www.cnblogs.com/hhelibeb/p/14952732.html

原文标题：RSA Encryption in ABAP

 

最近我偶然在SAP社区发现了很多关于RSA加密的未解答的问题。在这里我将尝试提供一些例子，说明如何在ABAP中使用公钥/私钥加密。

所有的间接问题，如证书、信任、撤销和密钥生成，在本文中不会涉及。密钥将用openssl生成。

例子1 – 用自己的ABAP RSA实现

RSA加密是非常简单的。只需要整数算术--主要是模幂运算。唯一的问题是，所涉及的整数比ABAP和大多数其他语言默认能处理的长。幸运的是，这个问题被Harry Boeck用Z04_BIGINTX类解决了，可以在这里找到（出色的工作）。

备注：评论区提到另一个解决方案abapPGP。

生成RSA key

创建一个工作目录，并进入，

mkdir -p /tmp/rsa

cd/tmp/rsa

本文将介绍一些进阶内容，前文：SAP Adobe Form 教程一 简单示例

 

方法和对比

使用表对象（Table Object）创建表

优点：

它简单易行。 当我们只有很少的字段单行时，我们可以使用它。
designer知道你正在使用表格。 designer允许选择行或列，同时调整列的大小。
有选项允许可以在每页上重复表格标题。

缺点：

如果我们停用context中的字段，则在form中任何地方需要时都将难以使用。 例如在脚本编辑器中（有一些条件打印等）。
很难处理嵌套表。
打印非标准表格时存在限制。

使用SubForm Method创建表

什么是SubForm？
SubForm是form的一部分，用于组织不同的元素，如输入字段、表格、呈现正文页面文本，很少用于主页面。
换句话说，Subform 只不过是一组元素。如果我们要在布局上组的某些元素，我们可以使用subform，并将元素们包装进去。

优点：

在布置表格时，subform为我们提供了更大的灵活性。
打印多行表格时，subform更有用
可以重新排列subform中的单元格（打印我们想要的任何地方）
打印嵌套表时，它非常有用。

没有什么缺点，实际上在内部，表对象被作为subform结构处理。 如果在Designer中查看模板的XML源代码，可以确认这一点。
如果希望在分页的情况下重复标题，必须使用“Overflow Leaders”（Table Object是复选框）。 我们需要在对象面板的“分页”选项卡上设置它们。

因此，根据我们想要实现的目标，我们可能必须使用subform而不是table object。但对于标准表，建议直接使用表table object。遵循KIS策略（Keep It Simple）。

步骤

共同步骤

首先构建两种方法都需要的interface。

事务：SFP。

输入接口名称并创建（对于Adobe Form，interface是必需的）。

 

 

 

让我们添加我们自己的自定义参数名称。 选择Form Interface下的Import选项（左侧），然后按Create按钮（右侧）添加一个Importing Parameter

 

 

导入参数 IT_KNA1 的类型为CCRCTT_KNA1。CCRCTT_KNA1是KNA1的表类型。 在 Adobe Form的interface/function module中，需要使用表类型参数将表格数据从程序传递到form（Tables参数已过时）。

保存、检查、激活interface。

回到事务SFP，创建form。

提供之前创建的描述和interface名称，保存。

 

 

将 IT_KNA1从之前创建的Interface拖到 Context。

 

 

 

 

 

1，用Table Object创建表

反激活不需要打印的字段。选中它们，

 

右键选择deactivate。

 

结果如下，

 

只有6个激活字段。

前往layout标签，

 

插入文本变量，作为标题。

 

 

 

按需填入文本，

按上图右下角修改字体。如果没看到字体栏的话，按下图添加，

前往Palettes -> Font。

接着前往Data view。

选择 IT_KNA1，将其拖放到layout中。

 

 

可以通过拖放选项调整列的高度或宽度。 如果你想非常精确，也可以在右边的属性中调整宽度和高度。

保存，检查和激活form。

请注意：如果 IT_KNA1 表中的数据超过1页大小，则不会流到下一页。 如果想查看所有数据，必须确保以下两项。

subform必须是Flowed，

 

 

选择 IT_KNA1 并选中“Allow Page Breaks within Content”复选框。

 

 

执行驱动程序：YRAM_ADOBE_FORM_PROGRAM2。 。输出将显示包含客户主数据的表。


1 *&---------------------------------------------------------------------*
2 *======================================================================*
3 *YRAM_ADOBE_FORM_PROGRAM2 *
4 *======================================================================*
5 *Project : SAP Adobe Forms Tutorial *
6 *Author : Ramanjula Naidu DARURU (www.SAPYard.com) *
7 *Description : Driver Program for Printing the Customer data *
8 *======================================================================*
9 REPORTyram_adobe_form_program2.10 
11 **&&~~ Data Objects
12 DATA: gv_fm_name TYPE rs38l_fnam, "FM Name
13 gs_fp_docparams TYPEsfpdocparams,14 gs_fp_outputparams TYPEsfpoutputparams,15 gt_kna1 TYPE STANDARD TABLE OFkna1.16 
17 CONSTANTS : gv_form_name TYPE fpname VALUE 'YRAM_ADOBE_FORM2'.18 
19 *======================================================================*
20 *START of TREATMENT *
21 *======================================================================*
22 START-OF-SELECTION.23 SELECT * FROM kna1 INTO TABLE gt_kna1 UP TO 50ROWS.24 *&---------------------------------------------------------------------*
25 **&&~~ Form Processing: Call Form - Open
26 *27 CALL FUNCTION 'FP_JOB_OPEN'
28 CHANGING
29 ie_outputparams =gs_fp_outputparams30 EXCEPTIONS
31 cancel = 1
32 usage_error = 2
33 system_error = 3
34 internal_error = 4
35 OTHERS = 5.36 IF sy-subrc <> 0.37 "Suitable Error Handling
38 ENDIF.39 *&---------------------------------------------------------------------*
40 **&&~~ Get the Function module name based on Form Name
41 *42 CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
43 EXPORTING
44 i_name =gv_form_name45 IMPORTING
46 e_funcname =gv_fm_name.47 IF sy-subrc <> 0.48 "Suitable Error Handling
49 ENDIF.50 *&---------------------------------------------------------------------*
51 **&&~~ Take the FM name by execuing the form - by using Pattern-
52 **&&~~ call that FM and replace the FM Name by gv_fm_name
53 *54 **&&~~ Call the Generated FM
55 CALL FUNCTION gv_fm_name "'/1BCDWB/SM00000176'
56 EXPORTING
57 /1bcdwb/docparams =gs_fp_docparams58 it_kna1 =gt_kna159 EXCEPTIONS
60 usage_error = 1
61 system_error = 2
62 internal_error = 3
63 OTHERS = 4.64 IF sy-subrc <> 0.65 *Implement suitable error handling here
66 ENDIF.67 *&---------------------------------------------------------------------*
68 **&&~~ Form Processing: Call Form - Open
69 *70 CALL FUNCTION 'FP_JOB_CLOSE'.71 IF sy-subrc <> 0.72 *Implement suitable error handling here
73 ENDIF.74 *&---------------------------------------------------------------------*
75 *&---- Close the spool job
76 CALL FUNCTION 'FP_JOB_CLOSE'
77 EXCEPTIONS
78 usage_error = 1
79 system_error = 2
80 internal_error = 3
81 OTHERS = 4.82 IF sy-subrc <> 0.83 *<error handling>
84 ENDIF.85 *&---------------------------------------------------------------------*
  1. 1
  2. ...
  3. 1481
  4. 1482
  5. 1483
  6. 1484
  7. 1485
  8. 1486
  9. 1487
  10. ...
  11. 1512