(如何在iSeries(AS/400)將资料加密(ZT)

系統本身仅提供单向资料加密 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

原文转自：http://www.ltesting.net