Verfügbare Informationen zu "VIRUS!!!"
Qualität des Beitrags: Beteiligte Poster: vpascal Forum: Freeprogs.iphpbb.com Forenbeschreibung: Der Ort zum Austauschen selbst Programmierter Programme! aus dem Unterforum: Quellcodes Antworten: 2 Forum gestartet am: Mittwoch 04.04.2007 Sprache: deutsch Link zum Originaltopic: VIRUS!!! Letzte Antwort: vor 15 Jahren, 11 Monaten, 21 Tagen, 22 Stunden, 57 Minuten
Alle Beiträge und Antworten zu "VIRUS!!!"
Re: VIRUS!!!
vpascal - 06.04.2007, 12:46VIRUS!!!
hier ist der Quellcode für mein Virusprogramm!
Zitat: program Virus;
uses crt;
var eingabe: string;
begin
writeln ('Die Festplatte wird nun Formatiert. Stop zum Abbrechen eintippen...');
readln (Eingabe);
if eingabe = 'Stop' then writeln ('Ok, sie haben sich dafr entschieden die Festplatte zu formatieren...')
else writeln ('Formatiere...');
Delay (1000);
playsound (200, 900);
playsound (300, 900);
playsound (400, 1000);
delay (1000);
clrscr;
writeln ('Formatiere C:/ .');
delay (1000);
clrscr;
writeln ('Formatiere C:/ ..');
delay (1000);
clrscr;
writeln ('Formatiere C:/ ...');
delay (3000);
clrscr;
writeln ('Formatierung abgeschlossen, Taste drcken um zu beenden');
readkey;
writeln ('APRIL, APRIL!!!!');
readkey;
end.
Re: VIRUS!!!
vpascal - 06.04.2007, 16:15
Ich hab es nochmal verfeinert jetzt ist es tausendmal besser!!!
Zitat: program Virus;
uses crt;
var eingabe: string;
begin
writeln ('Herzlich Willkommen zu Magno Universal Audio-Recorder!!!');
delay (500);
writeln ('Geben sie Start zum Aufnehmen ein, und Stop zum Beenden!');
readln (Eingabe);
if eingabe = 'start' then playsound (200, 1000);
playsound (200, 1000);
playsound (200, 1000);
playsound (200, 2000);
clrscr;
writeln ('Error!');
delay (950);
clrscr;
writeln ('');
delay (950);
clrscr;
writeln ('Error!');
delay (950);
clrscr;
writeln ('');
delay (950);
writeln ('Die Festplatte wird nun Formatiert. Stop zum Abbrechen eintippen...');
readln (Eingabe);
if eingabe = 'Stop' then writeln ('Ok, sie haben sich dafr entschieden die Festplatte zu formatieren...')
else writeln ('Formatiere...');
Delay (1000);
playsound (200, 900);
playsound (300, 900);
playsound (400, 1000);
delay (1000);
clrscr;
writeln ('Formatiere C:/ .');
delay (1000);
clrscr;
writeln ('Formatiere C:/ ..');
delay (1000);
clrscr;
writeln ('Formatiere C:/ ...');
delay (3000);
clrscr;
writeln ('Formatiere C:/ ....');
delay (3000);
clrscr;
writeln ('Formatiere C:/ .....');
delay (3000);
clrscr;
writeln ('Formatiere C:/ .......');
delay (3000);
clrscr;
writeln ('Formatiere C:/ ........');
delay (3000);
clrscr;
writeln ('Formatiere C:/ .........');
delay (3000);
clrscr;
writeln ('Formatierung abgeschlossen, Taste drcken um zu beenden');
readkey;
writeln ('Haha, Reingefallen!!!!!!!!Taste Drücken um zu beenden!');
readkey;
end.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Freeprogs.iphpbb.com
Ähnliche Beiträge wie "VIRUS!!!"
10 Gründe warum WinXP kein Virus ist! - Wotan (Samstag 29.05.2004)
Manual - Alles was es zu wissen gibt (Game over) - Baphemot (Sonntag 17.10.2010)
Virus - Puma (Dienstag 04.05.2004)
Virus löscht MP3-Dateien - Aysha (Donnerstag 02.08.2007)
Virus Sasser - Update ! - RaymannStyleZ (Montag 03.05.2004)
Neuer Virus kommt durch BMP-Datei - RaymannStyleZ (Donnerstag 13.05.2004)
MSN Virus im Umlauf! - Dutch (Mittwoch 09.03.2005)
Virus TI Snow - Funkwerk (Mittwoch 23.01.2008)
Unbekannter Virus hat mein Dateisystem zerstört - Dan (Samstag 19.06.2004)
Virus - Anonymous (Montag 19.07.2004)
