bajate el active perl
luego
>script.pl <hash>
y seria
luego
>script.pl <hash>
y seria
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
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.
#122
Scripting / MultiCracker 0.1 MD5
5 Septiembre 2008, 01:40 AM
MultiCracker Md5 0.1
http://www.nullbytes.net/multicracker-md5-01/
Dentro del Marco del Hacking, muchas veces nos encontramos con hash en md5 que deseamos descifrar, y vamos a las Web mas conocidas en busca si existe en sus bases de datos la contraseña en cuestión.
Y como siempre es bueno ahorrar tiempo, desarrolle una tool que busca en las 6 Web que mejor resultados me dieron.
http://www.hashfind.info
http://md5decrypter.com
http://gdataonline.com
http://md5.hashcracking.com
http://milw0rm.com
http://md5search.org
Ideas Sugerencias Bienvenidas
www.nullbytes.net¡
http://www.nullbytes.net/multicracker-md5-01/
http://www.nullbytes.net/multicracker-md5-01/
Dentro del Marco del Hacking, muchas veces nos encontramos con hash en md5 que deseamos descifrar, y vamos a las Web mas conocidas en busca si existe en sus bases de datos la contraseña en cuestión.
Y como siempre es bueno ahorrar tiempo, desarrolle una tool que busca en las 6 Web que mejor resultados me dieron.
http://www.hashfind.info
http://md5decrypter.com
http://gdataonline.com
http://md5.hashcracking.com
http://milw0rm.com
http://md5search.org
Código (perl) [Seleccionar]
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;
}
}
}
Ideas Sugerencias
Bienvenidaswww.nullbytes.net¡
http://www.nullbytes.net/multicracker-md5-01/
#123
Scripting / Re: Extractor de Proxy Desde http://www.proxy-list.net/
1 Septiembre 2008, 21:34 PM
wow tantas visitas
ningun comentario XD¡
ningun comentario XD¡
#124
Scripting / Extractor de Proxy Desde http://www.proxy-list.net/
1 Septiembre 2008, 00:46 AM
Siempre es mas que útil tener una lista bastante extensa de Proxy para poder utilizar en distintas herramientas que estemos desarrollando, es por ello que desarrolle un script escrito en Perl el cual extrae todas los Proxy desde http://www.proxy-list.net/ , y los guarda en un archivo txt lista_proxy.txt.
Optimizado con fork().
Elimina Repetidos.
Saludos¡
Ideas¡ Dudas¡ Nuevas FOrmas, etc
COmentar¡
www.nullbytes.net¡
http://www.nullbytes.net/extractor-de-proxy-desde-httpwwwproxy-listnet/
Optimizado con fork().
Elimina Repetidos.
Código (perl) [Seleccionar]
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;
}
Citar143.248.139.171:3124
62.149.67.49:8080
62.149.112.38:8080
62.149.112.33:8080
213.253.169.130:808
208.117.131.115:3124
204.85.191.10:3124
204.8.155.226:3128
200.19.159.34:3124
194.36.10.154:3127
193.136.191.26:3128
193.136.191.25:3128
192.33.90.67:3124
192.33.210.16:3124
169.229.50.7:3124
169.229.50.5:3127
164.107.127.13:3124
164.107.127.12:3127
155.98.35.6:3128
155.246.12.164:3124
152.3.138.3:3127
141.76.45.17:3124
141.13.16.201:3127
136.145.115.196:3124
132.252.152.193:3128
132.239.17.226:3128
132.239.17.224:3124
131.247.2.242:3124
129.174.79.249:3124
128.8.126.111:3128
128.6.192.158:3127
128.223.8.112:3127
128.208.4.99:3124
128.208.4.199:3128
128.208.4.198:3127
128.2.223.63:3127
128.112.139.75:3127
194.36.10.156:3127
130.192.157.132:3128
130.92.70.252:3128
132.252.152.194:3127
134.34.246.4:3124
134.76.81.91:3124
136.145.115.196:3128
138.23.204.232:3124
141.24.33.162:3124
152.3.138.4:3124
160.94.220.241:3127
169.229.50.11:3127
169.229.50.5:3128
169.229.50.16:3127
128.113.226.235:3124
128.223.8.112:3128
128.233.252.11:3124
128.4.36.12:3124
129.59.88.180:3124
130.192.157.131:3124
192.33.90.195:3128
192.33.90.66:3128
192.33.90.67:3127
192.42.43.23:3127
133.1.74.162:3124
141.76.45.18:3128
142.150.238.12:3124
152.3.138.1:3124
193.55.112.41:3128
165.230.49.115:3128
169.229.50.10:3124
195.130.121.204:3128
198.82.160.220:3124
200.132.0.70:3127
200.19.159.34:3127
147.102.3.101:3128
128.111.52.61:3128
128.252.19.20:3124
128.163.142.20:3128
152.3.138.5:3128
128.163.142.21:3127
128.195.54.161:3128
130.75.87.83:3124
131.246.191.42:3127
133.1.74.163:3127
138.23.204.133:3124
169.229.50.15:3128
192.33.210.16:3128
193.136.227.163:3127
131.247.2.241:3124
128.135.11.152:3124
128.113.226.236:3127
128.208.4.197:3127
128.208.4.198:3128
137.226.138.156:3124
193.167.187.188:3127
128.252.19.22:3127
129.69.210.96:3127
141.24.249.130:3128
155.98.35.3:3128
155.98.35.6:3127
169.229.50.14:3124
192.197.121.3:3128
129.186.205.77:3124
130.75.87.84:3124
132.187.230.1:3124
136.145.115.194:3124
137.226.138.154:3124
204.8.155.227:3128
156.17.10.52:3128
142.150.238.13:3128
137.99.11.87:3127
198.82.160.220:3128
136.145.115.194:3128
149.169.227.129:3124
155.225.2.72:3128
169.229.50.15:3127
61.110.143.2:808
61.145.121.124:847
64.34.173.112:8888
165.193.47.39:80
192.54.45.201:8000
200.62.15.67:8080
202.75.144.62:8080
202.108.28.23:8080
203.158.221.226:443
216.191.142.125:80
218.27.148.66:8080
219.159.67.187:808
129.174.79.249:3128
128.112.139.80:3128
131.247.2.242:3127
72.36.112.71:3124
128.223.8.111:3127
129.10.120.193:3127
155.246.12.163:3127
169.229.50.14:3128
169.229.50.6:3128
169.229.50.9:3124
169.229.50.15:3124
169.229.50.7:3128
72.36.112.74:3128
128.59.20.228:3124
208.117.131.115:3128
165.91.83.22:3124
169.229.50.13:3127
129.74.74.16:3124
164.107.127.12:3128
128.151.65.101:3127
128.187.223.212:3127
128.238.88.64:3128
128.31.1.12:3128
128.4.36.11:3127
129.186.205.71:3128
129.186.205.77:3128
129.24.211.26:3128
152.15.98.226:3124
152.3.138.2:3124
128.112.139.73:3124
128.112.139.78:3124
204.56.0.137:3128
206.207.248.34:3124
128.8.126.112:3124
131.247.2.241:3128
128.59.20.227:3128
66.27.206.26:6406
138.238.250.157:3124
129.24.211.25:3128
155.225.2.72:3124
72.36.112.72:3127
204.85.191.10:3128
204.85.191.11:3128
156.17.10.52:3127
141.24.33.192:3127
147.102.3.102:3124
129.59.88.180:3128
160.94.220.241:3124
198.82.160.221:3128
128.8.126.111:3127
200.132.0.70:3128
128.232.103.202:3128
203.177.193.102:3128
193.136.227.163:3124
164.73.47.244:3128
138.246.99.250:3124
192.33.90.67:3128
143.215.129.117:3128
134.76.81.92:3124
132.68.237.36:3124
198.82.160.220:3127
131.175.17.10:3128
192.41.135.218:3128
131.247.2.241:3127
194.29.178.13:3124
155.246.12.163:3124
212.24.238.155:80
201.95.124.101:6588
201.68.4.187:6588
200.207.47.209:6588
200.161.108.144:6588
189.53.70.22:6588
189.19.195.251:8080
118.175.255.10:80
87.23.22.9:8080
85.172.120.214:3128
77.247.209.19:3128
72.55.191.6:3128
68.167.209.90:8000
189.3.11.12:8080
62.149.112.37:8080
80.63.1.213:80
82.5.185.111:7212
80.86.200.172:6649
24.188.58.1:8800
128.2.223.63:3128
128.6.192.156:3127
128.59.20.228:3128
143.215.129.117:3124
129.74.74.16:3128
128.187.223.212:3124
194.36.10.154:3128
128.232.103.201:3124
128.232.103.203:3128
192.33.90.68:3128
192.33.90.69:3127
192.42.43.22:3128
130.92.70.251:3128
192.33.90.196:3127
192.33.90.195:3127
192.42.43.23:3124
193.136.191.26:3127
193.136.191.25:3127
195.116.60.34:3124
156.17.10.51:3127
130.37.198.243:3127
163.221.11.73:3124
133.1.74.162:3128
130.136.254.21:3127
131.175.17.9:3128
195.130.121.205:3128
147.102.3.102:3127
137.226.138.154:3128
132.252.152.193:3124
141.24.33.192:3128
129.69.210.97:3128
137.226.138.156:3128
141.76.45.18:3127
129.69.210.96:3128
141.24.33.161:3124
138.246.99.249:3128
141.24.33.162:3128
213.205.99.185:80
213.205.99.182:80
213.205.99.181:80
193.167.182.130:3127
193.167.187.188:3128
121.14.139.147:8088
142.150.238.12:3128
192.197.121.3:3124
198.163.152.230:3127
200.132.0.70:3124
143.107.111.195:3124
200.207.88.222:6588
128.232.103.203:3124
169.229.50.8:3128
128.4.36.12:3128
128.4.36.11:3128
128.208.4.197:3128
128.252.19.21:3128
206.117.37.4:3128
206.207.248.34:3128
128.135.11.152:3128
142.150.238.13:3124
129.59.88.179:3128
164.73.47.242:3128
123.243.252.73:80
210.19.71.89:80
204.8.155.227:3127
129.24.211.26:3124
194.117.20.214:3128
164.107.127.13:3127
132.187.230.1:3127
81.192.52.62:80
218.139.64.79:8080
195.130.121.204:3127
195.113.161.83:3127
193.136.227.163:3128
192.42.43.22:3127
169.229.50.10:3127
165.230.49.115:3124
160.94.220.241:3128
141.24.249.130:3124
129.41.69.20:80
128.59.20.227:3124
128.192.101.218:3128
128.187.223.211:3127
128.163.142.20:3124
128.112.139.97:3128
202.105.182.87:808
129.59.88.179:3124
152.3.138.5:3124
193.174.67.186:3128
138.23.204.232:3127
152.3.138.2:3127
169.229.50.10:3128
138.23.204.133:3128
128.187.223.211:3128
132.239.17.225:3124
128.223.8.111:3128
128.59.20.226:3128
152.3.138.4:3128
72.36.112.71:3128
122.169.241.78:6409
203.121.133.124:80
61.144.217.173:80
155.98.35.5:3128
164.107.127.12:3124
128.192.101.217:3128
125.46.34.52:8088
193.251.181.135:8080
134.34.246.5:3124
193.167.187.187:3127
128.232.103.202:3124
128.232.103.201:3128
129.24.211.25:3124
204.56.0.137:3124
128.252.19.21:3127
128.238.88.64:3127
62.38.189.214:8080
Saludos¡
Ideas¡ Dudas¡ Nuevas FOrmas, etc
COmentar¡
www.nullbytes.net¡
http://www.nullbytes.net/extractor-de-proxy-desde-httpwwwproxy-listnet/
#125
.NET (C#, VB.NET, ASP) / Re: Espameando a fotolog en C#
23 Agosto 2008, 22:28 PM
buen articulo Brota¡
:=) lo tenias con unas ganas de postearlo ejejjejeje
:=) lo tenias con unas ganas de postearlo ejejjejeje
#126
Scripting / Re: Extractor de Proxy [ProxyCheck Incluido] by OzX (python)
8 Agosto 2008, 23:08 PM
hay que instalar el active python, y luego "ejecutarlo" via cmd.
Saludos¡
Saludos¡
#127
Scripting / Re: Extractor de Proxy [ProxyCheck Incluido] by OzX (python)
8 Agosto 2008, 04:43 AM
#128
Scripting / Extractor de Proxy [ProxyCheck Incluido] by OzX (python)
8 Agosto 2008, 04:34 AM
Extrae los Proxy, los Comprueba que esten "vivos", y los Guarda en un Txt.
Código (python) [Seleccionar]
#Extractor Proxy http://www.digitalcybersoft.com/ProxyList/fresh-proxy-list.shtml #OzX NB Labs
# Thanx NB STAFF
import urllib2, sys, re, httplib, socket
socket.setdefaulttimeout(20)
peticion='www.digitalcybersoft.com'
path = '/ProxyList/fresh-proxy-list.shtml'
headers = {
"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",
"Accept-Charset": "ISO-8859-1,utf-8;q=0.7,*;q=0.7",
"Connection": "keep-alive"
}
conn = httplib.HTTPConnection(peticion)
conn.request("GET", path,None,headers)
r1 = conn.getresponse()
data1 = r1.read()
conn.close()
ip = re.compile ('\d+\.\d+\.\d+\.\d+:\d{1,4}')
proxys = ip.findall(data1)
file_proxy = open("proxys.txt", "w")
for proxy in proxys:
try:
if proxy != "None":
print "\n[+] Testing Proxy..."
h2 = httplib.HTTPConnection(proxy)
h2.connect()
print "[+] Proxy:",proxy,"[OK]"
file_proxy.write(proxy+"\n")
except(socket.timeout):
print "\n[-] Proxy Timed Out"
sys.exit(1)
except:
print "\n[-] Proxy Failed"
sys.exit(1)
file_proxy.close() #129
Scripting / [Perl] Funcion rand (Random:Numero & Caracteres Aleatoreos)
25 Abril 2008, 21:23 PM
La Funcion rand Es Ocupada para generar Numeros Aleatoreos, y asi tambien poder generar caracteres aleatoreos previamente declarados.
rand num
Por Default (o Por Defecto) la Funcion Si no es Declarada el valor "num" Entregara Valores entre 0 y 1. (Emplearemos un For Para Repetir el Procedimiento 10 veces para hacer notar la funcion )
Resultado:
int (rand(10))
Int: Quiere Decir Entero.
Resultado:
$rand= int(rand(200)) + 50;
Entre 30 y 40
$rand= int(rand(30)) + 10;
Entre 500 y 1200
$rand= int(rand(500)) + 600;
No Se deve Ingresar el Numero Inicial y el Final, Sino Mas Bien lo que le Falta al Valor de num para llegar al otro parametro.
500+600= 1200.
Por Ende Generara Numeros Entre 500 y 1200.
Generar Caracteres Aleatoreos.
Luego $caracter_rand , contiene la variable $caracteres que esta relacionada con el array @caractereres.. Me detendre un Momento para Explicar Algo QUe esta dentro de los Conceptos Basico pero Nunca esta demas Volvera a Explicarlo .
Por Ej Tenemos
0=uno
1=dos
3=tres
4=cuatro
5=cinco
6=seis
Ya teniendo ese Concepto Claro, Volvamos con los Random.
$caracter_rand = $caracteres[$rand];
Aqui Tomara el Valor de $rand (valor aleatoreo tomado de 0 y la cantidad total de caracteres del array @caracteres) y lo ingresara dentro de las casillas,si por ej, $rand tomo el valor de 5.
Con Esta Funcion y con Imaginacion se Puede hacer Muchas Cosas...
Por Ejemplo:
Gracias a La ProxyList.new-bytes.net Podemos Ocupar Nuestras Aplicacion Con Proxy. y Tener en una variable Cada Proxy.
rand num
Por Default (o Por Defecto) la Funcion Si no es Declarada el valor "num" Entregara Valores entre 0 y 1. (Emplearemos un For Para Repetir el Procedimiento 10 veces para hacer notar la funcion )
Código [Seleccionar]
#!/usr/bin/perl <new-bytes.net>
for ($x=0;$x<=10;$x++){
$rand= (rand);
print "$rand\n";
} Resultado:CitarC:\Documents and Settings\Administrador\Escritorio\Perl Example>rand.plDeclarando el Valor Num.
0.14404296875
0.146453857421875
0.6453857421875
0.147125244140625
0.595123291015625
0.045440673828125
0.850067138671875
0.8536376953125
0.437652587890625
0.86004638671875
0.694091796875
Código [Seleccionar]
#!/usr/bin/perl <new-bytes.net>
for ($x=0;$x<=10;$x++){
$rand= (rand(10));
print "$rand\n";
}Resultado:
CitarAhora Bien que pasa si no Queremos Numeros Decimales Sino mas Bien Numeros Enteros?
C:\Documents and Settings\Administrador\Escritorio\Perl Example>rand.pl
8.53668212890625
6.02081298828125
3.3087158203125
5.16754150390625
4.58984375
7.8265380859375
9.10797119140625
0.7781982421875
8.75030517578125
2.305908203125
4.96124267578125
int (rand(10))
Int: Quiere Decir Entero.
Código [Seleccionar]
#!/usr/bin/perl <new-bytes.net>
for ($x=0;$x<=10;$x++){
$rand= int(rand(10));
print "$rand\n";
}Resultado:CitarC:\Documents and Settings\Administrador\Escritorio\Perl Example>rand.plPero Que Pasa si quiero Generar Numeros Aleatoreos Entre Dos Valores?. Por Ejemplos Numeros Entre 15 y 20 ?
6
8
9
7
8
5
8
9
0
7
4
Código [Seleccionar]
#!/usr/bin/perl <new-bytes.net>
for ($x=0;$x<=10;$x++){
$rand= int(rand(15)) + 5;
print "$rand\n";
}Resultado:
CitarC:\Documents and Settings\Administrador\Escritorio\Perl Example>rand.plAlgo que me Gustaria Aclarar, Si tu Quieres un Random Entre por ej 200 y 250.
13
7
11
15
9
18
19
8
14
19
17
$rand= int(rand(200)) + 50;
Entre 30 y 40
$rand= int(rand(30)) + 10;
Entre 500 y 1200
$rand= int(rand(500)) + 600;
No Se deve Ingresar el Numero Inicial y el Final, Sino Mas Bien lo que le Falta al Valor de num para llegar al otro parametro.
500+600= 1200.
Por Ende Generara Numeros Entre 500 y 1200.
Generar Caracteres Aleatoreos.
Citar#!/usr/bin/perl <new-bytes.net>Resultado:
@caracteres = qw (a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z @ < > ¡ ? ¿ ~);
for ($x=0;$x<=10;$x++){
$rand = int(rand( @caracteres));
$caracter_rand = $caracteres[$rand];
print "$caracter_rand\n";
}
CitarC:\Documents and Settings\Administrador\Escritorio\Perl Example>rand.plAhora Veamos Por Parte:
w
q
H
?
R
a
z
B
l
┐
G
Citar@caracteres = qw (a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z @ < > ¡ ? ¿ ~);Matriz o array llamada Caracteres, en donde puede contener en si multiples datos, con los parametros qw hacemos que los datos sean tomados por separado por espacios, porque si no tuviera esos dos parametros tendria que separar cada dato por una coma. y se hace algo lioso.
Citarfor ($x=0;$x<=10;$x++){Ciclo For Empieza en 0 y Termina en 10, En Cada Pasada Se va Sumando 1.
Citar$rand = int(rand( @caracteres));la variable $rand recorre todo el array y cuenta cuantos datos tiene el array, luego de eso seleciona entre 0 y el la cantidad total de datos del array un numero al azar. y la guarda.
$caracter_rand = $caracteres[$rand];
Luego $caracter_rand , contiene la variable $caracteres que esta relacionada con el array @caractereres.. Me detendre un Momento para Explicar Algo QUe esta dentro de los Conceptos Basico pero Nunca esta demas Volvera a Explicarlo .
Por Ej Tenemos
CitarAhora como Puedo Llamar o imprimir en pantalla el cuarto valor? (Ojo cuarto valor no el valor que dice cuatro¡)
@letras = qw (uno dos tres cuatro cinco seis);
CitarResultado:
$letras[4];
CitarcincoPorque? Porque los Arrays Empiezan Desde 0.
0=uno
1=dos
3=tres
4=cuatro
5=cinco
6=seis
Ya teniendo ese Concepto Claro, Volvamos con los Random.
$caracter_rand = $caracteres[$rand];
Aqui Tomara el Valor de $rand (valor aleatoreo tomado de 0 y la cantidad total de caracteres del array @caracteres) y lo ingresara dentro de las casillas,si por ej, $rand tomo el valor de 5.
Citar$caracter_rand = $caracteres[5];
Citar}Cierra el Ciclo.
Con Esta Funcion y con Imaginacion se Puede hacer Muchas Cosas...
Por Ejemplo:
Gracias a La ProxyList.new-bytes.net Podemos Ocupar Nuestras Aplicacion Con Proxy. y Tener en una variable Cada Proxy.
Citaruse LWP::Simple;
system ("cls");
#============================================SUB PROXY============================================================#
syswrite STDOUT, "\n
- Carganndo Proxy: ";
$url="http://proxylist.new-bytes.net/list.txt";
$fichero = "proxy.txt";
mirror("$url", $fichero);
open(ARCHIVOPROXY,"$fichero");
@proxy=<ARCHIVOPROXY>;
$x=0;
foreach ( @proxy)
{
# print " Numero : $x : $proxy[$x]";
$x++;
}
close (ARCHIVOPROXY);
$y=$x-2;
#$x cantidad de proxy
print "$x Obtenidos \n ";
#===============================================FIN SUB PROXY====================================================#
$num = int(rand( @proxy));
$proxy_rand = $proxy[$num];
print "Proxy Selecionado Por Rand: $proxy_rand\t <www.new-bytes.net>";
#130
Nivel Web / Re: Html Injection
9 Diciembre 2007, 21:17 PMCita de: sirdarckcat en 9 Diciembre 2007, 01:41 AM
Ozx, es "inyecciones", no "injecciones", en ingles se dice "injection", pero no vale combinar los 2 idiomas
741852, cuando se afecta en el servidor es un ataque de XSS directo o "persistente", cuando es desde un campo no persistente, se les llama XSS indirecto, o "reflejado".
Saludos!!
XD¡¡¡¡
bue pero igual se entiende aunque me enrede xD¡