!               THESE PROGRAMS ARE FOR ALL TO USE.  PLEASE PUT IN THE SECURITY
!               SECTION OF AMOS
!
!               These programs were made up by D. J. Wright President of the
!       H. C. Harrington Co. in Pittsburgh Penna.
!
!               I decided that I needed a security system on my computer but I
!       did not want to spend a lot of money for it.  I borrowed a couple of
!       ideas from other areas and came up with this simple system that should
!       help keep untrained thugs off your system.
!
!               I realise if a trained assign attemps to gain entry this will
!       not stop him or her from entering and possibly doing damage.  None the
!       less I sleep better at night knowing I have some type of deterant on
!       my computer.
!
!               The first thing you do is to make a START.CMD on a selected
!       device and in a selected ppn where your modem resides.  This can be
!       done as per the example below.
!
! BETWEEN THE STARS IS THE FIRST PROGRAM WHICH IS A START COMMAND WHERE YOUR
! MODEM RESIDES
*****************************************************************************


  RUN PASWRD.RUN


******************************************************************************
!
!
!               It is a one word command file that when someone logs into your
!       modem PPN they go to the program named PASWRD.RUN
!
!               I like to have the AMOSL.INI file have a section in it for the
!       the modem that reads like the following so that each time the system
!       is rebooted the security program is rerun.
!
! THIS IS HOW TO CUSTOMISE YOUR SYSTEM.INI SO EVERY TIME YOU BOOT THE NEW
! SECURITY PROGRAM IS STARTED
*****************************************************************************


WAIT JOB?             ! ? is customised to whatever job # it is before modem
ATTACH PHONE,PHONE    ! this is where modem job is connected
KILL PHONE
FORCE PHONE
MEMORY 50K
LOG 20,1              ! This is the PPN logged into for the modem
SET DSKERR
TELSET PHONE          ! This is used for some auto answer modems
RUN PASWRD            ! This starts your security program in motion


*******************************************************************************
!
!
!               What this does is to start the PASWRD program in your modem
!       PPN when ever you reboot the system.  The reason for this is that if
!       yor rely only on the start command someone, if they are quick and they
!       would not be trying to get into your system if they were slow, could
!       CRTL C out of the START.CMD and gain illicit entry into the system.
!
!               With the addition of error'trap to PASWRD.RUN below CRTL C's
!       are trapped and the intruder is caught in a circle until they hangup.
!
!               You have another program in the same PPN that is called
!       PASWRD.BAS like the program below.
!
!               The "AAAAAAAAAA", "BBBBBBBBBB", and "CCCCCCCCCC" in the
!       PASWRD.BAS program are customised to whatever words or numbers you
!       desire to use for security.
!
!
!
!BELOW IS THE MEAT OF THE SECURITY SYSTEM PASWRD.BAS AFTER YOU CUSTOMISE TO
!YOUR PASWORD COMPIL AND PUT IN PPN WITH START.CMD & WELCOM.CMD
***********************************************************************************


1000    ! PASWRD.BAS
1005    ! THIS PROGRAM WAS DEVELOPED BY D. J. WRIGHT TO ACT AS A
1010    ! MINIUM SECURITY DETERANT.  IF YOU HAVE SENSITIVE MATERIAL
1020    ! ON YOUR COMPUTER YOU SHOULD GO TO A MORE SOPHISTICATED
1030    ! METHOID OF SECURITY.
1040    !
1050    ! SEPTEMBER 1985
1060    !
1070    !  CHAINS FROM START.CMD IN SELECTED PPN WHERE MODEM RESIDES
1080    !    OR RUNS BY ITSELF
1090    !
2000    !
2005 MAP1 PASSA,S,10 ! CUSTOMISE LINE 1430 - NOW IS "AAAAAAAAAA" CAN HAVE UP
2006                 ! TO 10 CHARACTERS OR LESS - WORD OR #'S OF YOUR CHOICE
2010 MAP1 PASSB,S,10 ! CUSTOMISE LINE 1460 NOW IS "BBBBBBBBBB"
2015 MAP1 PASSC,S,10 ! CUSTOMISE LINE 1490 NOW IS "CCCCCCCCCC"
2020 MAP1 ENTRY,S,5
2033 MAP1 ENTRY2,S,5
2035 MAP1 ENTRY3,S,5
2038 MAP1 ENTRY4,S,5
2040    !
2050    ON ERROR GOTO ERROR'TRAP
2060
2070 INPUT "                               ",ENTRY : INPUT "                               ",ENTRY2
2080 INPUT "                               ",ENTRY3 : INPUT "                               ",ENTRY4
2090    PASS'WORD:
2092
2094 ?TAB(1,1); TAB(-1,10);
3000
3060        ?TAB(14,25);"                        " PASSA;
3070        INPUT" " PASSA
3080        ?TAB(16,25);"                        " PASSB;
3090        INPUT" " PASSB
4000        ?TAB(18,25);"                        " PASSC;
4010        INPUT" " PASSC
4020    !
4030        IF PASSA = "AAAAAAAAAA" THEN GOTO PASSA'OK &
                       ELSE GOTO PASS'NOT'OK
4050    PASSA'OK:
4060        IF PASSB = "BBBBBBBBBB" THEN GOTO PASSB'OK &
                       ELSE GOTO PASS'NOT'OK
4080    PASSB'OK:
4090        IF PASSC = "CCCCCCCCCC" THEN GOTO PASSC'OK &
                       ELSE GOTO PASS'NOT'OK
5010    PASSC'OK:
5020    CHAIN "WELCOM.CMD"
5030
5040    PASS'NOT'OK:
5050
5060    ?TAB(22,1);"IF YOU DON'T BELONG HERE PLEASE HANGUP !" ;
5065    ?TAB(23,1);
5070    INPUT "HIT RETURN TO CONTINUE ==> ", DUMMY
5080    PASSA="    " : PASSA=""
5090    PASSB="      " : PASSB=""
6000    PASSC="  " : PASSC=""
6010    GOTO PASS'WORD
6020    !
6030    ERROR'TRAP:
6040            if err(0) = 1 &
                   then &
                       RESUME PASS'NOT'OK
6050    END


***************************************************************************
!
!
!               Then you have a final command file that either gives a message
!       when entering system or leaves the screen blank.  I like to leave the
!       the screen blank and let the person entering the system guess that
!       they have to enter to get the command dot.  Authorised persons will
!       know what to do
!
!               I have named the command file WELCOM.CMD.  This is the final
!       step in the security proceedure.
!
!
!BELOW IS SECOND COMMAND NAMED WELCOM.CMD
****************************************************************************


:S
XY=0
:<

       here is where you leave blank or have a message

>
:K


****************************************************************************
!
!
!               Please keep in mind that this program keeps out people who are
!       not programers.  It is not FAILSAFE.  I hope you have fun using this
!       program and maybe you will sleep alittle better at night.

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.