Posted by Grant Foraker on October 14, 2004 at 10:04:29:
In Reply to: Re: Proposal for enhanced user security posted by Barbara Brazil on October 14, 2004 at 08:55:20:
I have one customer who uses SECURE/PASSWORD. Every menu checks a security file to see if the program is allowed for the user.
However, I have to add a one liner to QMONITOR to get it to work the first time for each session.
------------------------------ QMONITOR -----------------------------
Read (PASS,GETACCREC) KEY=PWORD$ EXCP=DENIED ! ** DENIED/GETPASS
WORK$=Sub(PASSWORD,1,16)+SECNAME$ ! 00.06
! Note: We don't SECURE the user's password because it could be > 16 chars
!
INCLUDE "PACMON.INC", "PAC"
!
If VSN$ > '503.00' SECURE WORK$ ! For PASSWORD/SECURE
!-------------------- Pacific Ship --------------------------------------------!
! 10/08/02 !
LET WORK$ = SUB(SECNAME$,1,16) + SUB(PWORD$,1,16)
!------------------------------------------------------------------------------!