/
PASSWORD.PAS
127 lines (127 loc) · 2.39 KB
/
PASSWORD.PAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
{$C-}
PROGRAM PASSWORD;
TYPE PASSWORD=STRING[6];
VAR P1,P2,P3,PASS:PASSWORD;
BEEP:CHAR;
A,B,C,COUNT,X:INTEGER;
PROCEDURE GETCHAR(VAR NAME:PASSWORD);
VAR A,F:CHAR;
B:INTEGER;
PROCEDURE CLICK;
BEGIN
SOUND(1000);
DELAY(10);
NOSOUND;
END;
BEGIN
NAME:='';
FOR B:= 1 TO 1000 DO;
F:=CHR(0);
COUNT:=COUNT+1;
WHILE A <> CHR(13) DO
BEGIN
READ(KBD,A);
IF (A=CHR(27)) AND KEYPRESSED THEN
READ(KBD,F);
IF (F=CHR(8))OR (A=CHR(8)) THEN
BEGIN
DELETE(NAME,COUNT,1);
COUNT:=COUNT-1;
WRITE(CHR(8));
END;
IF A<> CHR(13) THEN
BEGIN
WRITE('²');
NAME:=NAME+UPCASE(A);
CLICK;
END
ELSE
CLICK;
END;
WRITELN;
END;
PROCEDURE HINORMAN;
BEGIN
CLRSCR;
WRITELN('WELCOME NORMAN , TO YOUR OWN DATAFILES.');
END;
PROCEDURE HIUSER;
BEGIN
CLRSCR;
TEXTCOLOR(YELLOW);
WRITELN('WELCOME TO MY DATAFILES.',CHR(1));
END;
PROCEDURE NOTUSER(VAR A:INTEGER);
BEGIN
IF A=1 THEN
BEGIN
CLRSCR;
TEXTCOLOR(RED + BLINK);
TEXTBACKGROUND(WHITE);
WRITELN(BEEP,'ILLEGAL USER , CRASHING SYSTEM.',BEEP);
TEXTBACKGROUND(RED);
TEXTCOLOR(BLACK);
WRITELN(BEEP,'EAT MICRODUST HACKER.');
TEXTBACKGROUND(BLACK);
WRITELN;
TEXTCOLOR(LIGHTGRAY);
WRITELN('INSERT SYSTEM DISK HIT CTRL-ALT-DEL .');
WRITELN('PLEASE REBOOT , STACK OVERFLOW .');
END;
REPEAT
A:=2;
UNTIL A=2
END;
BEGIN{MAIN}
BEEP:=CHR(7);
CLRSCR;
PASS:='';
GOTOXY(5,5);
TEXTCOLOR(GREEN + BLINK);
WRITELN(' PASCAL SYSTEM DATAFILE DISK ');
TEXTCOLOR(RED);
WRITELN(' Property of Norman King of Normad Industries .');
FOR B:= 1 TO 20 DO
WRITELN;
TEXTCOLOR(YELLOW);
WRITE('ENTER PASSWORD-> ');
TEXTCOLOR(BLUE);
GETCHAR(PASS);
CLRSCR;
GOTOXY(10,30);
WRITE('CHECKING.');
FOR B:= 1 TO 10 DO
BEGIN
TEXTCOLOR(B);
WRITE('.');
SOUND(B+100);
DELAY(100);
END;
TEXTCOLOR(WHITE);
NOSOUND;
IF PASS = 'XYZZY' THEN
begin
B:=1;
HINORMAN;
End;
IF PASS = 'A2MGR' THEN
begin
b:=1;
HIUSER;
End;
IF PASS = 'xyzzy' THEN
BEGIN
B:=1;
HINORMAN;
END;
IF PASS = 'a2mgr' THEN
BEGIN
B:=1;
HIUSER;
END;
IF B<>1 THEN
BEGIN
A:=1;
NOTUSER(A);
END;
END.