VIRUS!!!

Freeprogs.iphpbb.com
Verfügbare Informationen zu "VIRUS!!!"

  • Qualität des Beitrags: 0 Sterne
  • 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:46

    VIRUS!!!
    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)