2002-09-12 如何於應用軟體中確認使用者密碼?

如何於應用軟體中確認使用者密碼?

 在 如何於 RPG 中確認使用者密碼(Verifying Password in RPG) ?  電子報中，我已說明
如何利用 API 作密碼驗證，如果您覺得複雜，這裡我再提供一個簡單的方法，但這個方法無法
辨別其他使用者的密碼，只能確認使用者自己的密碼，所以並不適合有授權他人的作業使用。
這個方法是利用指令 CHKPWD (Check Password) 來完成使用者密碼認證作業。


File  : QDDSSRC
Member: CHKPWDD
Type  : DSPF
Usage : CRTDSPF CHKPWDD


     A                                      DSPSIZ(24 80 *DS3)       
     A                                      CA03(03 'EXIT')          
     A          R SCRN01                                             
     A                                  4  6'ENTER YOUR PASSWORD TO -
     A                                      CONTINUE:'               
     A            PWD           10A  I  4 40                         
     A                                      DSPATR(ND)               
     A                                 23  2'F3 = EXIT'              
     A            MSG           78     24  2                         


File  : QCLSRC
Member: CHKPWDC
Type  : CLP
Usage : CRTCLPGM CHKPWDC
        CALL CHKPWDC


PGM                                                            
                                                               
   DCLF       FILE(CHKPWDD)                                    
                                                               
RETRY:                                                         
   SNDRCVF                                                     
   CHGVAR &MSG ' '                                             
   IF (&IN03 = '1') GOTO END                                   
                                                               
   CHKPWD PASSWORD(&PWD)                                       
             MONMSG     MSGID(CPF2362 CPF2363 CPF2364) EXEC(DO)
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)      
       GOTO RETRY                                              
   ENDDO                                                       
                                                               
END:                                                           
ENDPGM