use LWP::UserAgent; 
use HTTP::Request::Common;
use HTTP::Cookies;
 
# By OzX NULLBYTES.net
### BASE DE LAS PETICIONES ##############################################################################################
$browser = LWP::UserAgent->new();
$browser->timeout(10);
$browser->default_header(
 
"User-Agent" => "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1",
"Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
"Accept-Language" => "es-es,es;q=0.8,en-us;q=0.5,en;q=0.3",
"Referer" => "http://www.google.com"
);
 
#################################################################FUNCION GET Y POST
sub GETS{@code = split("\n",$content = $browser->request(GET $_[0])->content);return @code;}
sub POSTS{@code = split("\n",$content = $browser->request(POST $_[0], [%{$_[1]}])->content);return @code};
###############################################################################
$hash = $ARGV[0];
unless ($ARGV[0]) {
	print "MULTICRACKER 0.1 BY OZX www.nullbytes.net \nCrackNB.pl <hash>\n";
	print "CrackNB.pl 202cb962ac59075b964b07152d234b70\n\n";
   exit 0;
}
########################################################
%webs = ('0' => "http://md5decrypter.com",
		 '1' => "http://gdataonline.com",
		 '2' => "http://md5.hashcracking.com",
		 '3' => "http://milw0rm.com",
		 '4' => "http://md5search.org",);
 
###PETICIONES ####################################
if ($hash =~/\w{32}/){
hashfind($hash);
for($i=0;$i<5;$i++){
$pid = fork();
 
if( $pid == 0 ){
      print $webs{$i}.":> ".md5($i)."\n";
   exit 0;
                }
                            }
}else{
print "[+] HASH INVALIDO\n";
exit;
}
#################################################
#LA WEB http://www.hashfind.info TIENE UN SISTEMA BASADO EN COOKIES PARA MOSTRAR EL HASH , 
#ES POR ELLO QUE NO PUDE IMPLEMENTARLO DENTRO DE  LAS OTRAS FUNCIONES
# TAMBIEN TAMPOCO PUDE IMPLEMENTARLO DENTRO DEL FORK.
sub hashfind{
$hash = $_[0];
###  COOKIE PARA http://www.hashfind.info <=  ¬¬ 
$browser->cookie_jar(HTTP::Cookies->new(file => "cookie_hash.txt", autosave => 1));
@code = POSTS("http://www.hashfind.info/",{hash => $hash, button => Search});
@codex = GETS("http://www.hashfind.info/get.php?type=0 ");
print "http://www.hashfind.info :> @codex\n";
}
 
sub md5{
$id=$_[0];
$cracker[0]=	crack_post($webs{$id},{hash => $hash, submit => Decrypt%21 },$hash,'.*Normal.*<\/b>','.*this hash wasn.*') ;
$cracker[1]=	crack_get($webs{$id}."/qkhash.php?mode=txt&hash=",$hash,'.*><b>','<\/b><.*','.*\?',"<\/td><\/tr>");
$cracker[2]=	crack_get($webs{$id}."/search.php?md5=",$hash,".*is ");
$cracker[3]=	crack_post($webs{$id}."/cracker/search.php",{hash => $hash, Submit => Submit },$hash,"<\/TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked.*",".*<TR class=\"submit\">.*nowrap=\"nowrap\" width=90>");
$cracker[4]=	crack_post($webs{$id}."/index.php",{hash => $hash , server => all ,token => md5s , tryb => search, submit =>MD5Search%28%29},"<font.*size=\"-1\">.*nbsp",".*class=\"wyniksz\">","<\/font><\/td><\/tr><\/table><\/td><\/tr><\/table>.*p>","<\/font><\/td><\/tr>");
 
return $cracker[$id];
}
 
sub crack_post{
($url,$data,$match,@reg1) = @_;
@code = POSTS($url,$data);
	for $linea (@code){
		if ($linea=~/$match/i){
			for $reg (@reg1){
				$linea=~s/$reg//;
							}
 
return $linea;
							}
 
					}
			}
 
sub crack_get{
($url,$hash,@reg1) = @_;
@code = GETS($url.$hash);
for $linea (@code){
	if ($linea=~/$hash/i){
		for $reg (@reg1){
			$linea=~s/$reg//;
 
						}
			return $linea;
						}
						}
					}
 

use LWP::UserAgent;
use HTTP::Request;
#Proxt-List.Net Extract 0.1 
# By OzX NULLBYTES.NET Extractor de Proxy  DESDE http://www.proxy-list.net
#THANX ALL NULLBYTES.NET STAFF
 
@regexp = ('.*shtml\?','\"><font.*');
sub extract{
$index = $_[0];
$match = $_[1];
foreach $linea (get($index)){
	if ($linea=~m/$match/i){
	foreach $regexp (@regexp){$linea=~s/$regexp//;}
	push (@links,"http://www.proxy-list.net/ShowList.pl?".$linea."\n");
			}
 
						}
	return @links;
}
################################################################
################################################################
#EXTRAIGO TODAS LAS IP | DIRECION PRINCIPAL, MATCH DE BUSQUEDA DE LINKS, MATCH DE BUSQUEDA DE IP.
@links= extract('http://www.proxy-list.net/fresh-proxy-lists.shtml','show-proxy-lists\.shtml\?\w{1,30}');
$total = scalar(@links);
#################################################################
syswrite STDOUT , "[+] Total de Links A Visitar $total \n [+] CRAWLING ....\n";
open (IP,">PROXY.TXT");
for($i=1;$i<$total;$i++){
$pid = fork();
if( $pid == 0 ){
		@ip = ip($links[$i]);
		syswrite STDOUT ,"[+] CRAW => $links[$i]";
		print IP @ip; 
 
 exit 0;
                }
                            }
close(IP);
#######################################################
open(PROXY,"PROXY.txt"); @proxy=<PROXY>;close (PROXY);
########Eliminando Repetidos
 foreach my $parte ( @proxy ) {
     next if $ya_visto{ $parte }++;
     push @ip, $parte;
 }
#############################################################
 
open (IP,">lista_proxy.txt"); print IP @ip; close(IP);
 
###########################SUB ############################# 
sub ip{
$link = $_[0];
@codigo = get($link);
foreach $ip (@codigo){
	if ($ip=~m/\d+.\d+\.\d+\.\d+:\d+/){
	push (@ip,$ip."\n");
		}
			}
	return @ip;
}
##################################################################
sub get{
$url=$_[0];
####UserAgent###############
$browser = LWP::UserAgent->new();
$browser->timeout(10);
$browser->default_header(
						"User-Agent" => "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1",
						"Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
						"Accept-Language" => "es-es,es;q=0.8,en-us;q=0.5,en;q=0.3",
						"Referer" => "http://www.proxy-list.net/fresh-proxy-lists.shtml"
					);
###Petcion GET################################
$request = HTTP::Request->new(GET => $url);
$response = $browser->request($request);
$contents = $response->as_string;
#######Respuesta##################
@code = split("\n",$contents);
return @code;
}
 
 

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
 
#MakeUsers 0.1 Bux to Clone by OzX Nullbytes
#Thanx Tec-N0x & All Staff NB
 
$serv = $ARGV[0];
$nombre = $ARGV[1];
$referer = $ARGV[2];
 
unless ($ARGV[1]) {
	print "MakeUsers 0.1 Bux to Clone  0.1 By OzX Nullbytes.net\n\n";
	print "Uso : script.pl <nombre> <referer>\n";
	print "Ejemplo : script.pl http://07bux.net Nulles \n";
	print "Ejemplo : script.pl http://07bux.net Nulles2 Nulles\n";
 
   exit 0;
}
 
######### Generar Ip ################
$ip1= int(rand(30))+190;
$ip2= int(rand(240));
$ip3= int(rand(240));
$ip4= int(rand(240));
$ip = $ip1.".".$ip2.".".$ip3.".".$ip4;
######## Emails Random ###############
@mails = qw (gmail.com hotmail.com live.com yahoo.es yahoo.com );
$rand = int(rand( @mails));
$mailr = $mails[$rand];
$email=$nombre."%40".$mailr;
####### Password Random ##############
$password= $nombre.$ip1.$ip4;
#######Ciudad Random ################
$ciudad= int(rand(190));
 
###### Nueva peticion ###########
$ua = LWP::UserAgent->new;
###### Activamos Cookie, User-agent, y Definimos la Ip Generada
$ua->cookie_jar(HTTP::Cookies->new(file => "cookie_07bux_catpcha.txt", autosave => 1));
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.13) Gecko/20080311 Firefox/2.0.0.13");
$ua->default_header("X-Forwarded-For" => $ip);
 
##########CATPCHA###################
####### Descargamos Imagen Catpcha ##########
$ua->mirror( $serv."/image.php", "captcha.jpg" );
####### Convertimos Jpg a ppm ##############
system ("convert.exe captcha.jpg -k");
####### OCR #########################
system ("ocr.exe -o  captcha.txt captcha.ppm");
#######Recogemos Valor Generado ############
open (C,"captcha.txt");  $codigo = <C>;close (C);
 
system ("cls");
### Mientras que el Codigo Obtenido del OCR tenga alguna "o", deve ser remplazada por 0 (cero),  *Regexp, Normal no daba los Resultados que queria.
while (convert($codigo) == 1){
	$codigo=~s/o/0/i;
	}
 
chop($codigo); 
###########################################
 
#####Iniciamos la Peticion POST
$req = HTTP::Request->new(POST => $serv."/register.php");
$req->content_type("application/x-www-form-urlencoded");
$req->content("username=$nombre&password=$password&cpassword=$password&email=$email&cemail=$email&pemail=$email&country=$ciudad&referer=$referer&tos=1&code=$codigo");
$response = $ua->request($req);
$content = $response->content(); 
guardar("resultado.html",$content);
#Cambiamos Hexa 
$email=~s/%40/@/;
 
if ($content=~m/(You have been registered correctly)/){
	print "Usuario Creado Satisfactoriamente\n\tWWW.NULLBYTES.NET\n\n
	USUARIO:> $nombre
	PASSWORD:> $password
	IP:> $ip
	EMAIL:> $email
	REFERER:> $referer
	REVISAR result.txt\n";
	$resultado = "$nombre\t$password\t$referer\t$ip\t$email\n#########################################################################\n";
	guardar("result.txt",$resultado);
}else{
	print "ERROR INTENTAR NUEVAMENTE(Revisar resultado.html)";
}
 
####Guardar 
sub guardar($archivo,$contenido){
$archivo=shift;
$contenido=shift;
open (C,">>".$archivo); 
print C $contenido;
close (C);
}
#### Indentifica Si todavia tiene una o  Vivo con Problema de Regexp, esta solucion FUNCIONA : =)
sub convert($){
$codigo=shift;
if ($codigo =~m/o/i){
	return 1;
	}else{
	return 2
	}
}
 
#END

use LWP::UserAgent;
use HTTP::Request;
 
# By OzX NullBytes.net  [NukE]
# Gracias a Tecn0x, Por ayudarme en la Logistica de Todas las PTC ¡
# A todo el Staff de NB ¡ 
 
 
$serv = $ARGV[0];
$user = $ARGV[1];
$pass = $ARGV[2];
$ip = $ARGV[3];
$tiempo_de_espera_entre_cada_ad = $ARGV[4];
 
 
unless ($ARGV[3]) {
	print "FakeTrafick 0.1 Bux to Clone  0.1 By OzX Nullbytes.net\n";
	print "Tiempo Recomendado entre Cada Ad (30)\n\n";
	print "USO:> script.pl <pagina> <user> <pass> <ip> <intervalo de tiempo entre cada Ad>\n";
	print "Ejemplo :> script.pl http://07bux.net OzX Null 111.111.111.111 30\n";
	exit 0;
}
 
print "##############################################################\n";
print "#  FakeTrafick 0.1 Bux to Clone  0.1 By OzX Nullbytes.net    #\n"; 
print "#	             WWW.NULLBYTES.NET                       #\n";
print "##############################################################\n";
#############################START ################################
@ad= craw($user,$pass,$ip);
$cantidad = scalar(@ad);
print "Cantidad de Links : $cantidad\n";
bots($cantidad,$tiempo_de_espera_entre_cada_ad);
 
sub bots($cantidad,$tiempo_de_espera_entre_cada_ad){
$cantidad= shift;
$tiempo_de_espera_entre_cada_ad = shift;
 
	while ($cantidad != 0 ){
	$time=$tiempo_de_espera_entre_cada_ad;
 
	$rand = int(rand(@ad)); ##elige un ad al azar
	$ad_rand = $ad[$rand]; ##############
 
	print robot($ad_rand)."\n";
	@sad = splice(@ad, $ad_rand, 1);
	print "Links : Visitado @sad";
	print "Links :@ad\n";
	$cantidad = $cantidad - 1 ;
	print "Links Por Visitar $cantidad\n";
	#Tiempo de Espera
	while($time -- ){sleep(1);syswrite STDOUT, "$time\t";}
 
	print "\n###################################################################################################\n";
  					}
 
 }
 
 
 
	sub craw($user,$pass,$ip){
	$user=shift;
	$pass=shift;
	$ip=shift;
	$browser = LWP::UserAgent->new();
	$browser->timeout(10);
	$browser->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14");
	$browser->default_header("Cookie" => "usNick=$user; usPass=$pass");
	$browser->default_header("X-Forwarded-For" => $ip);
 
	my $request = HTTP::Request->new(GET => $serv."/surf.php");
	my $response = $browser->request($request);
	if ($response->is_error()) {printf "%s\n", $response->