Wir lernen das auch grad in der Schule! Am meißten spaß macht es irgendwelche Scheiße mit dem programm zu machen! z.B. Eine Passwortabfrage zu programmieren, complieren und in die Autoexec.bat einzufügen! Der Lehrer drückt zwar einfach 2mal STRG+PAUSE und umgeht es, aber trotzdem ists ganz lustig!
*******************************************************************
program pwd;
uses crt;
var a,b,c:char;
count:integer;
begin
clrscr;
count:=0;
repeat
if count > 0 then
begin
textcolor(red+blink);
writeln;
writeln;
writeln('ACCESS DENIDED');
sound(count*1000);
delay(count*1000);
end;
clrscr;
count:= count+1;
textcolor(lightgreen);
writeln('Password: ');
writeln;
textcolor(white);
writeln('1. Zahl eingeben:');
a:= readkey;
writeln;
writeln('2. Zahl eingeben:');
b:= readkey;
writeln;
writeln('3. Zahl eingeben:');
c:= readkey;
writeln;
writeln;
writeln('Checking Password...');
delay(1000);
until (a = '7') and (b = '5') and (c = '3');
textcolor(lightgreen);
writeln;
writeln;
writeln('ACCESS GRANTED');
nosound;
delay(2000);
textcolor(white);
end.