Inicio
Buscar
Ingresar
Registrarse
Starfield: el juego que revolucionará el espacio y la tecnología
Hack x Crack - Comunidad de Seguridad informática
»
Programación
»
Scripting
»
Perl
»
[Perl] DH Sniffer 0.3
Imprimir
Páginas: [
1
]
Ir Abajo
Autor
Tema: [Perl] DH Sniffer 0.3 (Leído 4880 veces)
BigBear
{ L5 } Smurf
Mensajes: 594
[Perl] DH Sniffer 0.3
«
en:
Enero 18, 2014, 11:56:45 pm »
Un simple sniffer en perl para capturar todo lo que pasa en los metodos GET y POST
El codigo :
Código: Perl
#!usr/bin/perl
#DH Sniffer 0.3
#(C) Doddy Hackman 2014
#Credits :
#Based on :
#http://stackoverflow.com/questions/4777042/can-i-use-tcpdump-to-get-http-requests-response-header-and-response-body
#http://www.perlmonks.org/?node_id=656590
#http://stein.cshl.org/~lstein/talks/WWW6/sniffer/
#http://perlenespanol.com/foro/post36051.html
#Thanks to : Lincoln D. Stein , paulz and Explorer
use
CGI
;
use
threads
;
use
URI
::
Escape
;
$|
=
1
;
my
$control
=
shift
;
head
(
)
;
if
(
$control
eq
""
)
{
print
"
\n
[+] Sintax : $0 <option>
\n
"
;
print
"
\n
[++] Options :
\n
"
;
print
"
\n
[+] -g : Capture method GET
\n
"
;
print
"[+] -p : Capture method POST
\n
"
;
print
"
\n
[+] Example : sudo perl $0 -pg
\n
"
;
copyright
(
)
;
}
print
"
\n
"
;
my
$hilo_get
=
threads
->
new
(
\&sniffer_get
)
;
my
$hilo_post
=
threads
->
new
(
\&sniffer_post
)
;
$hilo_get
->
join
;
$hilo_post
->
join
;
sub
sniffer_get
{
if
(
$control
=~
/g/
)
{
open
(
GET
,
"/usr/sbin/tcpdump -lnx -s 1024 dst port 80 |"
)
;
while
(
<GET>
)
{
if
(
/^\S/
)
{
while
(
$contenido
=~
/(GET|POST|WWW-Authenticate|Authorization).+/g
)
{
print
"
\n
[+] $ip = $name "
.
uri_unescape
(
$&
)
;
savefile
(
"logs"
,
"
\n
[+] $ip = $name "
.
uri_unescape
(
$&
)
)
;
}
undef
$ip
;
undef
$name
;
undef
$contenido
;
(
$ip
,
$name
)
=
/IP (\d+\.\d+\.\d+\.\d+).+ > (\d+\.\d+\.\d+\.\d+)/
;
}
s/\s+//g
;
s/0x[abcdef\d]+://i
;
s/([0-9a-f]{2})/chr(hex($1))/eg
;
tr/\x1F-\x7E\r\n//cd
;
$contenido
.=
$_
;
}
}
}
sub
sniffer_post
{
if
(
$control
=~
/p/
)
{
open
(
POST
,
"tcpdump -A -s 0 'tcp port 80 and (((ip[2:2] - ((ip[0]&0xf)<<2)) - ((tcp[12]&0xf0)>>2)) != 0)' |"
)
;
while
(
<POST>
)
{
if
(
/^\S/
)
{
my
$code
=
$_
;
$buscando
=
CGI
->
new
(
$code
)
;
my
@params
=
$buscando
->
param
;
foreach
$par
(
@params
)
{
if
(
$par
=~
/\./
)
{
next
;
}
else
{
my
$dataf
=
$buscando
->
param
(
$par
)
;
print
"
\n
[+] $par "
.
" : "
.
$dataf
;
savefile
(
"logs"
,
"
\n
[+] $par "
.
" : "
.
$dataf
)
;
}
}
}
}
}
}
sub
savefile
{
open
(
SAVE
,
">>"
.
$_
[
0
]
)
;
print
SAVE
$_
[
1
]
;
close
SAVE
;
}
sub
head
{
print
"
\n
-- == DH Sniffer 0.3 == --
\n
"
;
}
sub
copyright
{
print
"
\n
-- == (C) Doddy Hackman 2014 == --
\n
\n
"
;
exit
(
1
)
;
}
# The End ?
Eso es todo.
En línea
deni_celine
{ L1 } Newbie
Mensajes: 66
Re:[Perl] DH Sniffer 0.3
«
Respuesta #1 en:
Enero 22, 2014, 01:36:25 am »
interesante
lastima que yo siga pegado en windows
En línea
BigBear
{ L5 } Smurf
Mensajes: 594
Re:[Perl] DH Sniffer 0.3
«
Respuesta #2 en:
Enero 22, 2014, 11:05:16 pm »
si queres podes dividir el disco en dos.
En línea
deni_celine
{ L1 } Newbie
Mensajes: 66
Re:[Perl] DH Sniffer 0.3
«
Respuesta #3 en:
Enero 23, 2014, 04:04:40 am »
es una buena opción, tengo backtrack en una maquina virtual y tenía pensado probar kali, que distro usas o recomiendas ?
En línea
BigBear
{ L5 } Smurf
Mensajes: 594
Re:[Perl] DH Sniffer 0.3
«
Respuesta #4 en:
Enero 23, 2014, 03:03:47 pm »
uso Ubuntu.
En línea
Imprimir
Páginas: [
1
]
Ir Arriba
Hack x Crack - Comunidad de Seguridad informática
»
Programación
»
Scripting
»
Perl
»
[Perl] DH Sniffer 0.3
Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso...
OK
Learn more