|
|
系統本身仅提供单向资料加密 API _CIPHER
File : QRPGLESRC
Member: CIPHERR
Type : RPGLE
Usage : CRTBNDRPG PGM(CIPHERR) DFTACTGRP(*NO)
CALL CIPHERR ('1234567890123456' '12345678' ' ')
第一個參數是原始資料且長度必須是 8 的倍數,第二個參數是加密的Key, 第三個參數是加密後的資料, 資料長度須與原始資料長度一樣.
*
* Function 2 -> Encrypt; detail refference SC41-5810 _CIPHER function
* function _CIPHER provides one-way encryption
* Apr. 2002
*
D PlainText S *
D CipherText S *
D Controls DS 32
D Function 5I 0 inz(2)
D Length 5I 0 inz(%size(UserID))
D CBC_Mode 1A inz(X'40')
D SecretKey 1A dim(8)
D Reserved_1 1A inz(*loval)
D InitChain 8A inz(X'5555555555555555')
D Reserved_2 10A inz(*loval)
C *entry plist
C parm UserID 16
C parm Password 8
C parm Encrypted 16
C movea Password SecretKey
C 1 do 8 X 5 0
C testb X'81' SecretKey(X) 21
C 21 biton X'80' SecretKey(X)
C N21 bitoff X'80' SecretKey(X)
C enddo
C eval PlainText = %addr(UserID)
C eval CipherText = %addr(Encrypted)
C callb '_CIPHER'
C parm CipherText
C parm Controls
C parm PlainText
C Encrypted Dsply
C move *on *INLR
|
|
