上一篇：pcom各种版本的问题总结

(如何在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(X40)
     D   SecretKey                    1A   dim(8)
     D   Reserved_1                   1A   inz(*loval)
     D   InitChain                    8A   inz(X5555555555555555)
     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     X81         SecretKey(X)           21
     C   21            biton     X80         SecretKey(X)
     C  N21           bitoff    X80          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

最热门文章推荐：
>· 实体ejb
>· 第一个ejb
>· ejb 发展
>· jbuilder ejb
>· 系统文件检查器
>· 系统引导文件
>· 系统更新文件
>· 中国网管

下一篇：急等如何更改as/400 V4R5 如何更改IP地址

↓相关文章：