Posted by Grant Foraker on September 26, 2005 at 07:47:35:
QMONITOR no longer tries to SECURE PWORD$ and the first sixteen characters restored by PASSWORD are always blank. What does the following do and can PWORD$ be recovered?
Buffer$ = "@0E0E09@" + Intel(Len(PWORD$)) + PWORD$
Print Buffer$
I'd be 99.99% OK with just the first sixteen characters of PWORD$.
------------------------- from qmonitor -----------------------------
Read (PASS,GETACCREC) Key=PWORD$ Excp=DENIED ! ** DENIED/GETPASS
if Strip(PASSWORD) ne ""
WORK$ = Sub(PASSWORD,1,16)+SECNAME$ ! 00.06
else
WORK$ = String(" ",16) + SECNAME$ ! 05.04
endif
! Note: We don't SECURE the user's password because it could be > 16 chars
If VSN$ > '503.00' SECURE WORK$ ! For PASSWORD/SECURE
Print (0,2550) ! CLEAR SCREEN
Close (PASS)
If Asc(Sub(Sts(0),18,1)) > 42
Buffer$ = "@0E0E09@" + Intel(Len(PWORD$)) + PWORD$
Print Buffer$
Endif
-------------------------------------------------------------------