Posted by Grant Foraker on September 13, 2010 at 07:15:22:
Gave up on the inherited use of SECURE/PASSWORD in a customer's custom security system and have embarked on Get/SetGlobal. Made changes to my customized QMONITOR and their programs. So far it's working.
But, I've noticed that the "User" column in DocMgr is now always blank. I don't use IDMAINT and my customer uses IDMAINT only for CometAnywhere users (over Internet). The "Profile" name is 90% perfect at identifying the user but the customer has several shared PC's and the "User" name would be handy identfiying the author of the document.
Looking at the most current XTL QMONITOR.IBS I can see that the SECURE command has been deleted but the WORK$ code lingers on. Was the SECURE deleted by mistake?
==============================================================
if Strip(PASSWORD) ne ""
WORK$ = Sub(PASSWORD,1,16)+SECNAME$ ! 00.06
else
WORK$ = String(" ",16) + SECNAME$ ! 05.04
endif
!====================================================================!
USE '^PACMON.INC'
!====================================================================!
! 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
if pos(" ",PWORD$) ne 0 ! 7.03 passwords with blanks must be quoted
Buffer$ = "@0E0E09@" + Intel(Len(PWORD$)) + '"' + PWORD$ + '"'
else
Buffer$ = "@0E0E09@" + Intel(Len(PWORD$)) + PWORD$
endif
Print Buffer$
Endif
==============================================
For my curiosity, the "@0E0E09@" is putting the user's password somewhere. Is there a way to retrieve it?
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.