iphpbb - Forenarchiv: Archivbeitrag des Forums Das Forum zur html-ag des Johanneums
Verfügbare Informationen zu "DELPHI-Quelltext: Worm Blaster"

  • 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: Worm Blaster
  • Letzte Antwort: vor 4 Jahren, 5 Monaten, 22 Tagen, 5 Stunden, 42 Minuten
Alle Beiträge und Antworten
.-=[g4$m0k3]=-. - 09.06.2004, 23:09
DELPHI-Quelltext: Worm Blaster
DIESE PROGRAMM ENFERNT WÜRMER UND VIREN UND MACHT KEINE!!!
ES IST NICH SCHÄDLICH! IM GEGENTIL ES HILFT EUCH!
Code: program blast;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I: Integer;
  Dat: Textfile;
  read: String;
begin
Sleep (3000);
WriteLn ('"WORM KILLER 1.07"');
Sleep (3500);
Write   ('Laden / Loading .....');
  FOR I := 1 TO 30 DO
  begin;
  Write ('.');
  sleep (0150);
  end;

  WriteLn ('.');
Sleep (3000);
Write ('Ueberpruefe System Datein / Checking System Files....');
  FOR I := 1 TO 10 DO
  begin;
  Write ('.');
  sleep (0150);
  end;
  WriteLn ('.');
Assign (Dat, 'iccinff.wvl');
Reset (Dat);
Close (Dat);
Sleep (3500);
WriteLn ('Keine infektion gefunden! / No system infection detected!');
Sleep (4000);
WriteLn ('Ihr system ist von folgenden Wuermern/Viren nicht befallen / your system is not inficted by following Worms or viruses:');
WriteLn ('serpent.sta');
WriteLn ('Dispear.so');
WriteLn ('hop3l3Ss.exe');
WriteLn ('StarCommander.exe   <=== by g4$m0k3');
WriteLn ('KILLYOU.ec');
WriteLn ('SASR.exe');
WriteLn ('Alexa.fort');
WriteLn ('hi.ddd');
readLn;




end.
Masterlike - 10.06.2004, 10:47

lol^^
is aba ziemlich unwahrscheinlich das die Dateien grade zufällig so heißen wie du die suchst^^
linkstealer - 10.06.2004, 11:48

den hast du aber nicht selbst geschrieben oda?
.-=[g4$m0k3]=-. - 10.06.2004, 12:04
123
1: selbstgeschrieben: JA
2: die viren und würmer sind sehr schädlich also hab ich die genommen.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus diesem Forum
Ähnliche Beiträge
X-Blaster - Joe (Mittwoch 21.02.2007)
Delphi Videos - Hgli (Sonntag 10.09.2006)
Quelltext - striker (Donnerstag 14.09.2006)
Quelltext nachvollziehen mit Arrays - Joe (Montag 07.01.2008)
Radrasimulation in Delphi - Moritz (Mittwoch 23.01.2008)