! SECURE.BAS
!
! Function: Individual account security.
! To change passwords, you need to modify the DATA statment (at the end
! of the program).
!
! Will store any attempt in output file filex (PAS.PAS). Use program
! DSTATE to create data statements (included at end of this program).
! Will allow access, will NOT inform user that information (including
! job #) was loaded into output file, will chain INCORRECT signons to
! LOGOFF.LIT
!
! Normally run from a start command as follows:
! ; Start file for Michaels Libarary Account
! :R
! XY=0
! :<Michael's Libarary Account -- 300,0
!
! >
! SET NOCTRLC
! RUN SECURE
! ; End start command file
!
Mapped'Vars:
MAP1 Copyright,S,35,"Copyright @ 1984 by M.E. Clark"
MAP1 sysdate,B,4 ! System date in binary(4)
MAP1 datesys,@sysdate
MAP2 sysm,B,1 ! date month
MAP2 sysd,B,1 ! date day
MAP2 sysy,B,1 ! date year
MAP2 sday,B,1 ! day of week
MAP1 chnout,S,200 ! chainout command file
MAP1 message,S,100 ! output message (if approved)
MAP1 passin,S,10 ! password entered
MAP1 today,S,9 ! today (M-S)
MAP1 ddate,S,8 ! system date in MM/DD/YY format
MAP1 filex,S,7,"PAS.PAS" ! output reporting file
MAP1 ctime,S,5 ! system time in HH:MM
MAP1 crto,S,1 ! individual character
MAP1 counter,F,6 ! internal counter
MAP1 blocks,F,6 ! filesize
MAP1 hours,F,6 ! system time (hours)
MAP1 mns,F,6 ! system time (mins)
MAP1 chv,F,6 ! character check value
MAP1 chvi,F,6 ! character value in
Begin:
! (1) load the current date and time, (2) Write the access try to file,
! (3) process the security signon, (4) complete with LOGOFF if security
! signon is incorrect, with a notice if it is correct.
!
Fetch'Date'n'Time:
! This routine load the system date into a MM/DD/YY format (stored in
! ddate and the current system time into the HH:MM format (using the
! 24 hour clock.
! First, we will setup the current date ...
sysdate=DATE : ddate[1;2]=sysm USING "#Z"
ddate[3;1]="/" : ddate[4;2]=sysd USING "#Z"
ddate[6;1]="/" : ddate[7;2]=sysy USING "#Z"
! and then grab the day of the week ...
ON sday CALL MO,TU,WE,TH,FR,SA,SU
! next figure the system time in HH:MM format
hours=INT(TIME/(60^2))
mns=TIME-(hours*(60^2))
mns=INT(mns/60)
Fd1: IF hours>24 THEN hours=hours-24 : GOTO Fd1
ctime[1;2]=hours USING "#Z"
ctime[3;1]=":"
ctime[4;2]=mns USING "#Z"
! Always nice to make it personal.
chnout="DSK0:SET.LIT[1,4] CTRLC"+CHR(13)+CHR(10)
IF hours<12 message="Good Morning. "
IF hours<18 and hours>12 message="Good Afternoon. "
IF hours>18 message="Good Evening. "
message=message+"Today is "+today+", "+ddate+"."
chnout=chnout+":<"+message+CHR(13)+CHR(10)
chnout=chnout+">"
RETURN
Write'File:
! Here we will write the file 'filex' what's going on. We check to see
! if the file RJOBNO exists - if it does, we will also write just WHAT
! terminal this person is setting at ...
LOOKUP filex,blocks
IF blocks # 0 OPEN #1,filex,APPEND ELSE OPEN #1,filex,OUTPUT
LOOKUP "DSK0:RJOBNO.SBR[7,6]",blocks
IF blocks # 0 XCALL RJOBNO,jobno : ?#1,"Job #";jobno;" ";
?#1,"access try on ";today;" (";ddate;") at ";ctime;". ";
RETURN
Security:
! Process the password section. Allow the user to input a password. Exit is
! a simple RETURN. Note: we only process the FIRST 10 CHARACTERS.
! Load the key hit. If a RETURN (13), exit to S'2. If a CONTROL W (23),
! we should start the entire process over.
IF ASC(crto)=13 GOTO S'2
IF ASC(crto)=23 counter=0 : passin="" : &
?TAB(-1,2);TAB(-1,9);"Password: "; : GOTO Security
?"*";
IF counter<11 passin[counter;1]=crto
GOTO Security
S'2:
! Read to process the entered password. Write to out output file just what
! password was tried IF NOT APPROVED. If approved, simply write out APPROVED.
?:?
FOR counter=1 TO LEN(passin)
crto=MID(passin,counter,1)
chvi=ASC(crto)
READ chv : IF chv # chvi ?#1,"pw: ";passin : CLOSE #1 : RETURN
NEXT counter
srtn=-1 : ?#1,"pw: *** APPROVED ***" : CLOSE #1 : RETURN
! Data statement. Use program DSTATE to load this little gem.
DATA 66,79,79,84,83,0 ! Current password is BOOTS
! ======================================================================
! ! Program DSTATE.BAS
! ! Secondary program for SECURE
! !
! Map'Area:
!
! MAP1 wordin,S,10
! MAP1 sm,S,35
! MAP1 value$,S,3
! MAP1 char,S,1
!
! MAP1 counter,F,6
! MAP1 value,F,6
!
! MAP1 first,B,1
!
! Begin:
! ?:INPUT "keyword in (10 characters max): ",wordin
! wordin=UCS(wordin)
! first=1
! FOR counter=1 TO LEN(wordin)
! char=MID(wordin,counter,1)
! value=ASC(char)
! IF first # 1 sm=sm+","
! IF first = 1 first = 0
! value$=value : sm=sm+value$
! NEXT counter
! sm=sm+",0"
! ?:?"DATA ";sm
! ?:END
!
! ! End program DSTATE.BAS
! =========================================================================
