Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PWORD.ZIP
Filename : PASSDEMO.PRG
sysblnktme = 300 && Screen blanking time, used by
&& PASSGET routine to know when to
&& call screen blanker
SET COLOR TO W/B,N/W
CLEAR
DO WHILE .T.
@1,0 SAY 'Sample definition of password (Press
@2,0 TO 2,79
@ROW()+2,0 SAY 'Enter a password:'
pword1 = passget(ROW(),COL()+1,20,'N/W') && Get the password
IF EMPTY(pword1)
@ROW()+2,0 SAY 'Aborted password entry process.'
EXIT
ENDIF
@ROW()+2,0 SAY 'Please re-enter password for confirmation:'
pword2 = passget(ROW(),COL()+1,20,'N/W') && Get the password a second time
IF EMPTY(pword2)
@ROW()+2,0 SAY 'Aborted password entry process.'
EXIT
ENDIF
*---Make sure same password entered both times
IF UPPER(pword1)==UPPER(pword2)
@ROW()+2,0 SAY 'Password entered: "'+UPPER(pword1)+'"'
password = passtran(pword1,20,.T.)
@ROW()+1,0 SAY 'Encrypted password: "'+password+'"'
ELSE
@ROW()+2,0 SAY 'Passwords do not match!'
@ROW()+1,0 SAY 'First entry was "'+pword1+'"'
@ROW()+1,0 SAY 'Second entry was "'+pword2+'"'
WAIT
CLEAR
LOOP
ENDIF
@ROW()+3,0 SAY 'Sample request for user to enter password (Press
@ROW()+1,0 TO ROW()+1,79
@ROW()+2,0 SAY 'Enter your password:'
pword1 = UPPER(passget(ROW(),COL()+1,20,'N/W')) && Get the password
IF EMPTY(pword1)
@ROW()+2,0 SAY 'Aborted password entry process.'
EXIT
ENDIF
actual = passtran(password)
IF pword1==actual
@ROW()+2,0 SAY 'Correct password entered ("'+actual+'")'
ELSE
@ROW()+2,0 SAY 'Invalid password! Entered="'+pword1+'"'
@ROW()+1,0 SAY ' Actual="'+actual+'"'
ENDIF
WAIT
CLEAR
ENDDO
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/