Verfügbare Informationen zu "DELPHI-Quelltext: scherzprogramm"
Qualität des Beitrags: Beteiligte Poster: .-=[g4$m0k3]=-. - Masterlike - linkstealer Forum: Das Forum zur html-ag des Johanneums aus dem Unterforum: Eigene Programme / Quelltexte Antworten: 4 Forum gestartet am: Mittwoch 09.06.2004 Sprache: deutsch Link zum Originaltopic: DELPHI-Quelltext: scherzprogramm Letzte Antwort: vor 19 Jahren, 10 Monaten, 18 Tagen, 3 Stunden, 23 Minuten
Alle Beiträge und Antworten zu "DELPHI-Quelltext: scherzprogramm"
Re: DELPHI-Quelltext: scherzprogramm
.-=[g4$m0k3]=-. - 10.06.2004, 00:23DELPHI-Quelltext: scherzprogramm
DIESE PROGRAMM RICHTET (warscheinlich) KEINERLEI SCHÄDEN AN!!!!
Code: program ThisExeIsGoingToDestroyYou;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
yesno: string;
zahlen: Array [1..999] OF Integer;
i: ShortInt;
begin
WriteLn ('Hello! This will maybe the last text,');
WriteLn ('who will be send from your HardDisk');
WriteLn ('************************************');
SLEEP (6000);
WriteLn ('Are you sure that yout want to go on?');
SLEEP (3000);
WriteLn ('Type "yes" for go on or "no" when you are afraid to go on *G*');
ReadLn (yesno);
Beep;
If (yesno = 'no') OR (yesno = '"no"') THEN
BEGIN
WriteLn ('oh lol!');
Beep;
SLEEP (1000);
ReadLn;
END
ELSE IF (yesno = 'yes') THEN
BEGIN
i := 1;
i := i + 1;
WriteLn ('Berechne System variablen die den Arbeitspeicher zu müllen');
FOR i:= 1 TO 100 DO
begin;
Randomize;
Sleep (0100);
WriteLn (Random + Random);
end;
FOR I:= 1 TO 20 DO
begin;
Sleep (0100);
Write ('#');
end;
WriteLn ('#');
Sleep (0555);
FOR i:= 1 TO 127 DO
begin;
WriteLn ('MUHAHAHA !!! SYSTEM CRASH!!!');
Sleep (02);
WriteLn ('HAHAHAAHHA');
WriteLn ('MUHAHAHA !!! SYSTEM CRASH!!!');
end;
End;
WriteLn ('hehe^^ was only a big bad j0k3');
WriteLn ('SHOCK YOUR FRIENDS TOO!!!');
WriteLn ('by g4$m0k3 - MisterX450s@aol.com');
ReadLn;
end.
Re: DELPHI-Quelltext: scherzprogramm
Masterlike - 10.06.2004, 12:07
ja...toll...^^
Re: DELPHI-Quelltext: scherzprogramm
linkstealer - 10.06.2004, 12:23
und was bedeuten da die sternchen?
Re: DELPHI-Quelltext: scherzprogramm
Masterlike - 10.06.2004, 12:32
na da werden ahlt so sterne geschrieben
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Das Forum zur html-ag des Johanneums
Ähnliche Beiträge wie "DELPHI-Quelltext: scherzprogramm"
Delphi Videos - Hgli (Sonntag 10.09.2006)
Quelltext nachvollziehen mit Arrays - Joe (Montag 07.01.2008)
Radrasimulation in Delphi - Moritz (Mittwoch 23.01.2008)
Quelltext ziemlich lang!? - Mr_A_ (Sonntag 15.04.2007)
Delphi 7 Hilfe - molli (Freitag 01.12.2006)
quelltext bild - Don (Dienstag 27.03.2007)
VA mit Delphi - Bob (Montag 12.03.2007)
DELPHI-Quelltext: Worm Blaster - .-=[g4$m0k3]=-. (Donnerstag 10.06.2004)
Delphi Compiler? - Anonymous (Sonntag 05.09.2004)
Werder Bremen ./. Hannover 96 - RoyalTS (Freitag 21.01.2011)