Das Forum zur html-ag des Johanneums

 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

DELPHI-Quelltext: scherzprogramm



 
Neues Thema eröffnen   Neue Antwort erstellen    Das Forum zur html-ag des Johanneums Foren-Übersicht -> Eigene Programme / Quelltexte
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
.-=[g4$m0k3]=-.
HTML-AG Mitglied




Anmeldungsdatum: 09.06.2004
Beiträge: 3
BeitragVerfasst am: 10.06.2004, 00:23    Titel: DELPHI-Quelltext: scherzprogramm Antworten mit Zitat
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.


Zuletzt bearbeitet von .-=[g4$m0k3]=-. am 10.06.2004, 13:06, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Anzeige
BeitragVerfasst am: 10.06.2004, 00:23    Titel: Anzeige
Nach oben
Masterlike
HTML-AG Leiter




Anmeldungsdatum: 09.06.2004
Beiträge: 12
BeitragVerfasst am: 10.06.2004, 12:07    Titel: Antworten mit Zitat
ja...toll...^^
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
linkstealer
HTML-AG Leiter




Anmeldungsdatum: 09.06.2004
Beiträge: 7
BeitragVerfasst am: 10.06.2004, 12:23    Titel: Antworten mit Zitat
und was bedeuten da die sternchen?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Masterlike
HTML-AG Leiter




Anmeldungsdatum: 09.06.2004
Beiträge: 12
BeitragVerfasst am: 10.06.2004, 12:32    Titel: Antworten mit Zitat
na da werden ahlt so sterne geschrieben
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das Forum zur html-ag des Johanneums Foren-Übersicht -> Eigene Programme / Quelltexte Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.




Powered by phpBB 2.0.23 © 2001, 2002 phpBB Group


Thema 551801-551840 | Thema 13881-13920 | Thema 763081-763120

Impressum | Datenschutz

Bei iphpbb.com bekommen Sie ein Kostenloses Forum mit vielen tollen Extras