encryption - 使用明文 key 进行 3DES 加密

Question

我正在尝试编写一个具有以下界面的 Cobol 程序:

目标

接收明文加密 key 和明文，并使用3DES返回密文。算法。

输入:

• CLEAR_KEY:用作加密 key 的 32 个字符的十六进制字符串。
• CLEAR_TEXT:16 个字符的字符串。

输出:

• CYPHERED_TEXT:16 个字符的字符串。

我可以访问DB2和 ICSF callable services .

我尝试了这三种方法:

使用 CSNBSYE

77 CSNBSYE                  PIC X(7) VALUE 'CSNBSYE'.
01 CSNBSYE-PARAMETERS.
   02 RETURN-CODE           PIC 9(8) COMP.
   02 REASON-CODE           PIC 9(8) COMP.
   02 EXIT-DATA-LENGTH      PIC 9(8) COMP.
   02 EXIT-DATA             PIC X(32).
   02 RULE-ARRAY-COUNT      PIC 9(8) COMP.
   02 RULE-ARRAY            PIC X(8).
   02 KEY-IDENTIFIER-LENGTH PIC 9(8) COMP.
   02 KEY-IDENTIFIER        PIC X(32).
   02 KEY-PARMS-LENGTH      PIC 9(8) COMP.
   02 KEY-PARMS             PIC X(32).
   02 BLOCK-SIZE            PIC 9(8) COMP.
   02 INIT-VECTOR-LENGTH    PIC 9(8) COMP.
   02 INIT-VECTOR           PIC X(8).
   02 CHAIN-DATA-LENGTH     PIC 9(8) COMP.
   02 CHAIN-DATA            PIC X(16).
   02 CLEAR-TEXT-LENGTH     PIC 9(8) COMP.
   02 CLEAR-TEXT            PIC X(16).
   02 CYPHERED-TEXT-LENGTH  PIC 9(8) COMP.
   02 CYPHERED-TEXT         PIC X(16).
   02 OPTIONAL-DATA-LENGTH  PIC 9(8) COMP.
   02 OPTIONAL-DATA         PIC X(32).

INITIALIZE CSNBSYE-PARAMETERS.

MOVE 1                                  TO RULE-ARRAY-COUNT.
MOVE 'DES     '                         TO RULE-ARRAY.
MOVE 16                                 TO KEY-IDENTIFIER-LENGTH.
MOVE '2DF65FD88EA9E17E3C66950387F91DE2' TO KEY-IDENTIFIER.
MOVE 8                                  TO BLOCK-SIZE
                                           INIT-VECTOR-LENGTH.
MOVE ALL ZEROS                          TO INIT-VECTOR.
MOVE 16                                 TO CHAIN-DATA-LENGTH.
MOVE LOW-VALUES                         TO CHAIN-DATA.
MOVE 16                                 TO CLEAR-TEXT-LENGTH
                                           CYPHERED-TEXT-LENGTH.
MOVE ALL ZEROS                          TO CLEAR-TEXT.

CALL CSNBSYE USING RETURN-CODE,
                   REASON-CODE,           
                   EXIT-DATA-LENGTH,      
                   EXIT-DATA,             
                   RULE-ARRAY-COUNT,      
                   RULE-ARRAY,            
                   KEY-IDENTIFIER-LENGTH, 
                   KEY-IDENTIFIER,        
                   KEY-PARMS-LENGTH,      
                   KEY-PARMS,             
                   BLOCK-SIZE,           
                   INIT-VECTOR-LENGTH,    
                   INIT-VECTOR,           
                   CHAIN-DATA-LENGTH,    
                   CHAIN-DATA,            
                   CLEAR-TEXT-LENGTH,     
                   CLEAR-TEXT,            
                   CYPHERED-TEXT-LENGTH,  
                   CYPHERED-TEXT,         
                   OPTIONAL-DATA-LENGTH,  
                   OPTIONAL-DATA.

使用 CSNBECO

77 CSNBECO                  PIC X(7) VALUE 'CSNBECO'.
01 CSNBECO-PARAMETERS.
   02 RETURN-CODE           PIC 9(8) COMP.
   02 REASON-CODE           PIC 9(8) COMP.
   02 EXIT-DATA-LENGTH      PIC 9(8) COMP.
   02 EXIT-DATA             PIC X(32).
   02 CLEAR-KEY             PIC X(32).
   02 CLEAR-TEXT            PIC X(16).
   02 CYPHERED-TEXT         PIC X(16).

INITIALIZE CSNBECO-PARAMETERS.

MOVE '2DF65FD88EA9E17E3C66950387F91DE2' TO CLEAR-KEY.
MOVE ALL ZEROS                          TO CLEAR-TEXT.

CALL CSNBSYE USING RETURN-CODE,
                   REASON-CODE,           
                   EXIT-DATA-LENGTH,      
                   EXIT-DATA,             
                   CLEAR-KEY,          
                   CLEAR-TEXT,            
                   CYPHERED-TEXT.

使用 DB2's ENCRYPT_TDES

01 WS.
   02 CLEAR-TEXT            PIC X(16).
   02 CYPHERED-TEXT         PIC X(16).

   MOVE ALL ZEROS TO CLEAR-TEXT.

   EXEC SQL
        SELECT ENCRYPT_TDES(:CLEAR-TEXT, '2DF65FD88EA9E17E3C66950387F91DE2')
        INTO   :CYPHERED-TEXT
        FROM   SYSIBM.SYSDUMMY1
   END-EXEC.

但是这些方法都没有返回我期望的结果。我期望的结果与在该网站中测试获得的结果相同:http://tripledes.online-domain-tools.com/ ，具有以下数据:

输入类型:文本

输入文本:0000000000000000(十六进制)

函数:3DES

模式:CBC

key :2DF65FD88EA9E17E3C66950387F91DE2(十六进制)

初始化向量:00 00 00 00 00 00 00 00

加密!

加密文本(结果):87 30 e1 ef 98 3d f2 b4(十六进制)| 。 0 á ï = ò ´ (STRING)

我的问题是:如何使用 IBM 提供的任何工具在 Cobol 程序中获得上述结果？

谢谢!

Answer 1

您的大部分困惑似乎来自于您将十六进制字符串误认为字节值。例如。您认为您向 CSNBSYE 传递了 '2DF65FD88EA9E17E3C66950387F91DE2'X 的 16 字节 key ，同时传递了以 'F2C4C6F6F5C6C429F8'X 开头的 32 字节字符串 - 即 EBCDIC 表示您通过的字符。要使用字节值的实际十六进制表示形式，您必须在文字的右撇号后面附加一个 X。

另请注意，在使用 LOW-VALUE 时，将 ZERO 移至 PIC X 项会导致 'F0'X code> 结果为 '00'。

另一点是，您似乎正在将网站上的 3DES 结果与 CSNBECO 或 CSNBSYE 的 DES 结果进行比较 - 但它们是不同的密码，因此应该返回不同的结果。

最后但并非最不重要的ENCRYPT_TDES:此函数使用 3DES，但它不接受纯 key 。相反，第二个参数是经过哈希处理以获得最终加密 key 的密码。

因此，在您研究的替代方案中，似乎只有 CSNBSYE 符合您的要求，但您必须研究其确切的参数格式和用法。