"There is more than one way to do it." Por eso es el más completo y el más divertido.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: portaro en 17 Febrero 2013, 22:18 PM
DRagora es una de esas ni los mouses funcionan todo se configura a mano.
Cita de: alist3r en 26 Enero 2013, 00:19 AM
si sale la lista de los archivos de mi "truecrypt1" (mi unidad cifrada con todo lo "chungo") , te aseguro que da mas miedo que una posible carpeta llena de titulos porno xDDD
use strict;
use LWP::UserAgent;
my $source = 'http://www.hidemyass.com/proxy-list/';
my $agent = 'Mozilla/5.0 (X11; Linux i686) Firefox/16.0';
my $browser = LWP::UserAgent->new( agent => $agent );
my $response = $browser->get($source);
die "Can't get $source\n" unless $response->is_success;
my $content = $response->content;
print 'UPDATE | IP ADDRESS:PORT | TYPE | COUNTRY | SPEED',
" | CTIME | ANON LVL\n", '~' x 78, "\n";
while ( $content =~ m/(<tr class=".*?<\/tr>)/gs ) {
my $tr = $1;
my %data;
while ( $tr =~ m/(<td[^>]*>.*?<\/td>)/gs ) {
my $td = $1;
if ( $td =~ m/updatets\s*">\s*(\d+ (:?secs|minutes?))</ ) {
$data{'update'} = $1;
}
elsif ( $td =~ m/<style>/ ) {
$data{'ip'} = de_css($td);
}
elsif ( $td =~ m/<td>\s*(\d+)\s*<\/td>/ ) {
$data{'port'} = $1;
}
elsif ( $td =~ m/class="country".*?>\s*([^<]+)<\s/s ) {
$data{'country'} = $1;
}
elsif ( $td =~ m/response_time.*?"width:(\d+%)"/s ) {
$data{'rtime'} = $1;
}
elsif ( $td =~ m/connection_time.*?"width:(\d+%)"/s ) {
$data{'ctime'} = $1;
}
elsif ( $td =~ m/<td>(https?|socks4\/5)<\/td>/i ) {
$data{'type'} = $1;
}
elsif ( $td =~ m/rightborder">([^<]+)<\/td>/ ) {
$data{'anon'} = $1;
}
}
printf "%6s | %-21s | %-8s | %-7s | %-5s | %-5s | %-8s\n",
substr( $data{'update'}, 0, 6 ), "$data{'ip'}:$data{'port'}",
$data{'type'},
substr( $data{'country'}, 0, 7 ), $data{'rtime'}, $data{'ctime'},
$data{'anon'};
}
sub de_css {
my $ip = shift;
$ip =~ s/<(:?div|span) style="display:none">[^<]*<\/[^>]+>//g;
$ip =~ s/\.[\w\-_]+\{display:inline\}//g;
while ( $ip =~ m/\.([\w\-_]+)\{display:none\}/g ) {
my $class = $1;
$ip =~ s/\.$class\{display:none\}//;
$ip =~ s/<span class="$class">[^<]*<\/span>//g;
}
$ip =~ s/\s*//gs;
return join '', $ip =~ m/>([^<]+)</gs;
}
__END__
Cita de: peib0l en 5 Diciembre 2012, 09:27 AM
Claro que no todo el kernel es libre, Linus Torvals tiene que vivir de algo, y ademas porque crees que existen versiones de pago de alguna distribuciones como Red Hat o Suse ?
El concepto Free , Libre y/o gratuito es muy bonito sobre el papel pero si es 100% libre no puedes vivir de tu trabajo, y si no podemos vivir de nuestro trabajo para que lo hacemos?