Password V. 2.0
Public Domain
Programmed By: Mark Frischknecht
E-Mail: deathnerd@geocities.com
Some Routines by:
		Acid Works & Basic Archives

PPPPP     AA    SSSSS  SSSSS  W         W  OOOOO RRRRRRR  DDDD
PPPPP     AA    SSSSS  SSSSS  W         W  OOOOO R     R  D   DD
P   P     AA    S      S      W   WW    W  O   O R     R  D    DD
P   P    A  A   S      S      W   WW    W  O   O R     R  D     D
PPPPP    A  A   SSSSS  SSSSS   W  WW   W   O   O RRRRRRR  D     D
PPPPP   AAAAAA  SSSSS  SSSSS   W  WW   W   O   O R RR     D     D
P       A    A      S      S   W WWWW  W   O   O R  RR    D     D
P       A    A      S      S   W W  W  W   O   O R   RR   D    DD
P       A    A  SSSSS  SSSSS   W W  W  W   OOOOO R    RR  D   DD
P       A    A  SSSSS  SSSSS    WW  WW     OOOOO R     RR DDDD

                        VERSION 2.0

        Password 2.0 is very easy to setup. All you have to do is add
the line C:\path of password\PASSWORD path of password into your autoexec.bat.

        ex.
        @ECHO OFF
        C:\BIN\PASSWORD.EXE C:\BIN\
        rest of auotexec.bat

        Password is case sensitive so hello and HELLO are diffrent!!

        the original password is DEATHNERD

        the password is stored UN-ENCRYPTED in the hidden system read-only
file named password.pas.

        You get 3 tries, after that it cold boots the computer.

        If someone could get me a Quick basic encryption routine that would
help me alot. Also you name would be included in the future versions of this
program.


	-----------------------FILE SIZES--------------------------
	      PASSWORD.EXE ------------ 39,023 12-07-98 2:51p
	      PASSWORD.BAS ------------- 6,099 12-07-98 3:08p
      	      PASSWORD.TXT ------------- 8,030 12-07-98 3:21p

        --------------------SOURCE--------------------

'Mark Frischknecht                                                   3/12/1998
'Password.bas                                                          Ver 2.0
     PASSWORD.LOCATION$ = COMMAND$ + "PASSWORD.PAS"
     RANDOMIZE TIMER
     TRY% = 0
     'TRAP CTRL ALT DEL & CTRL BRK
     KEY 15, CHR$(&H4) + CHR$(70) 'CTRL BRK
     KEY 16, CHRS$(&H4) + CHR$(&H8) + CHR$(83) 'CTRL ALT DEL
     ON KEY(15) GOSUB BREAK.OUT
     ON KEY(16) GOSUB BREAK.OUT
START:
     SCREEN 0, 0, 0: WIDTH 80: COLOR 8, 0: CLS
     LOCATE 1, 1: PRINT "ͻ"
                  PRINT "": LOCATE 2, 80: PRINT ""
                  PRINT "Ķ"
                  PRINT "": LOCATE 4, 80: PRINT ""
                  PRINT "": LOCATE 5, 80: PRINT ""
                  PRINT "": LOCATE 6, 80: PRINT ""
                  PRINT "": LOCATE 7, 80: PRINT ""
                  PRINT "": LOCATE 8, 80: PRINT ""
                  PRINT "": LOCATE 9, 80: PRINT ""
                  PRINT "": LOCATE 10, 80: PRINT ""
                  PRINT "": LOCATE 11, 80: PRINT ""
                  PRINT "Ķ"
                  PRINT "": LOCATE 13, 80: PRINT ""
                  PRINT "ͼ"
     LOCATE 2, 31: PRINT "PASSWORD Ver. 2.0"
     LOCATE 4, 3: PRINT "1.) ENTER PASSWORD"
     LOCATE 6, 3: PRINT "2.) CHANGE PASSWORD"
     LOCATE 8, 3: PRINT "3.) CREDITS"
     COLOR 20: LOCATE 10, 3: PRINT "TYPE IN THE NUMBER OF YOUR CHOICE": COLOR 8, 0
     LOCATE 13, 3: PRINT "Public Domain:  For source E-Mail me at deathnerd@hotmail.com"
1    DO: A$ = INKEY$
     LOOP UNTIL A$ <> ""
     IF A$ = "1" THEN GOTO ENTR.PASS
     IF A$ = "2" THEN GOTO CHNG.PASS
     IF A$ = "3" THEN GOTO CREDITS
GOTO 1
ENTR.PASS:
     OPEN PASSWORD.LOCATION$ FOR INPUT AS #1
     LINE INPUT #1, PASSWORD$: CLOSE #1
     COLOR 4
     LOCATE 16, 3: PRINT "                                                                              "
     LOCATE 16, 3: PRINT "ENTER PASSWORD -->";
     COLOR 8: TPASS$ = ""
2    DO: A$ = INKEY$
     LOOP UNTIL A$ <> ""
     PRINT "*";
     IF A$ = CHR$(13) THEN GOTO TEST.PASS
     TPASS$ = TPASS$ + A$
     GOTO 2
TEST.PASS:
     IF TPASS$ = PASSWORD$ THEN
          GOTO QUIT
          ELSE
               TRY% = TRY% + 1
               LOCATE 18, 3: COLOR 4: PRINT "ERROR WRONG PASSWORD TRY AGAIN": COLOR 8
               T# = TIMER: IF TRY > 3 THEN GOTO HALT.BOOT
               DO: LOOP UNTIL TIMER >= T# + 2
               GOTO ENTR.PASS
     END IF
HALT.BOOT:
     LOCATE 20, 3: COLOR 4: PRINT "FUCK YOU!"
     T# = TIMER
     DO: LOOP UNTIL TIMER >= T# + 3
     OUT &H64, HFE
BREAK.OUT:
     LOCATE 18, 3: PRINT "NICE TRY"
     T# = TIMER
     DO: LOOP UNTIL TIMER >= T# + 2
     RETURN
CHNG.PASS:
     OPEN PASSWORD.LOCATION$ FOR INPUT AS #1
     LINE INPUT #1, PASSWORD$: CLOSE #1
     TPASS$ = ""
     LOCATE 16, 3: PRINT "ENTER OLD PASSWORD -->";
3    DO: A$ = INKEY$
     LOOP UNTIL A$ <> ""
     PRINT "*";
     IF A$ = CHR$(13) THEN GOTO NEW.PASS
     TPASS$ = TPASS$ + A$
     GOTO 3
NEW.PASS:
     LOCATE 16, 3: PRINT "                                                  "
     NPASS$ = ""
     LOCATE 16, 3: PRINT "ENTER NEW PASSOWRD -->";
4    DO: A$ = INKEY$
     LOOP UNTIL A$ <> ""
     PRINT "*";
     IF A$ = CHR$(13) THEN GOTO NEW.PASS.TEST
     NPASS$ = NPASS$ + A$
     GOTO 4
NEW.PASS.TEST:
     LOCATE 16, 3: PRINT "                                                  "
     NPASST$ = ""
     LOCATE 16, 3: PRINT "ENTER NEW PASSOWRD AGAIN -->";
5    DO: A$ = INKEY$
     LOOP UNTIL A$ <> ""
     PRINT "*";
     IF A$ = CHR$(13) THEN GOTO CHECK
     NPASST$ = NPASST$ + A$
     GOTO 5
CHECK:
     IF TPASS$ = PASSWORD$ THEN
          IF NPASS$ = NPASST$ THEN
               SHELL "ATTRIB -S -R -H " + COMMAND$ + "PASSWORD.PAS"
               SHELL "DEL " + COMMAND$ + "PASSWORD.PAS"
               OPEN PASSWORD.LOCATION$ FOR OUTPUT AS #1
               PRINT #1, NPASS$
               CLOSE #1
               SHELL "ATTRIB +R +H +S " + COMMAND$ + "PASSWORD.PAS"
               PRINT "PASSWORD CHANGED"
               T# = TIMER
               DO: LOOP UNTIL TIMER >= T# + 2
               GOTO START
          END IF
     END IF
     PRINT "WRONG PASSWORD(S)"
     T# = TIMER
     DO: LOOP UNTIL TIMER >= T# + 2
     GOTO START
CREDITS:
     LOCATE 2, 31: PRINT "     CREDITS     "
     LOCATE 4, 3: PRINT "PROGRAMMED BY: Mark Frischknecht"
     LOCATE 6, 3: PRINT "WITH HELP FROM: David Frischknecht"
     LOCATE 8, 3: PRINT "SOME ROUTINES FROM:"
     LOCATE 9, 20: PRINT "THE BASIC ARCHIVES"
     LOCATE 10, 3: PRINT "                 ACID WORKS      "
     LOCATE 12, 3: PRINT "Questions / Comments / Bugs: E-MAIL ME AT deathnerd@hotmail.com"
     COLOR 20: LOCATE 13, 3: PRINT "TYPE ANY KEY TO CONTINUE                                     ": COLOR 8, 0
     DO: A$ = INKEY$
     LOOP WHILE A$ = ""
     GOTO START
QUIT:
     CLS
     COLOR 3
     LOCATE 11, 34: PRINT "SUCESSFULL!"
     QUOTE% = INT((10 - 1 + 1) * RND + 1)
     FOR LCV = 1 TO QUOTE%
          READ QUOTE$
     NEXT LCV
     P% = INT(40 - (LEN(QUOTE$) / 2))
     LOCATE 13, P%: PRINT QUOTE$
     T# = TIMER
     DO: LOOP UNTIL TIMER >= T# + 2
     DATA "Remember, in the end there can be only ONE!","Locked doors keep only honest people out.", "War is a necessary evil.","GO NAVY! - BEAT ARMY!","NOT made with a Crapintosh","OH MY GOD YOU KILLED KENNY!, YOU BASTARD!"
     DATA "Follow your dreams, You can make it happen.", "Free speech started this country, lets keep it free.","Dr. Pepper & Surge","School Sucks!"
     END
     PRINT "PUBLIC DOMAIN"
     PRINT "PROGRAMMED BY: MARK FRISCHKNECHT"
     PRINT "IN DEC 1998"
     PRINT "PASSWORD V. 2.0"

---------------------------END of SOURCE-----------------------






