×
Ingresar
Recordarme.
menu
menu
Visitante
more_vert
Ingresar
Registrarse
NAVEGACION
Inicio
Ayuda
Buscar
Calendario
Ingresar
Registrarse
Esta es una respuesta al tema: Zone-H Reporter en
La plantilla. Bugs y Exploits
Underc0de - Hacking y seguridad informática
[In]Seguridad Informática
Bugs y Exploits
(Moderador:
sadfud
)
Zone-H Reporter
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies.
OK
Más Información
.
« anterior
próximo »
Imprimir
Páginas: [
1
]
Ir Abajo
Zone-H Reporter
0 Respuestas
2151 Vistas
0 Usuarios y 1 Visitante están viendo este tema.
Dedalo
Underc0der
Mensajes: 117
Actividad:
0%
Reputación 0
KUSH
Twitter: https://twitter.com/SeguridadBlanca
Zone-H Reporter
«
en:
Junio 30, 2012, 04:44:53 pm »
Esta t00l es un poco priv8 no muchos la tienen me la pasó un amigo hace un timesito y se las comparto para los que son defacers puedan reportar de manera mas rápida sus ataques...
Código: Perl
#!/usr/bin/perl
#####################################
# Zone-H Notify #
#####################################
############
use
LWP
::
UserAgent
;
############
system
(
'cls'
)
;
system
(
'title Powered By PrinceofHacking'
)
;
############
print
" #####################
\n
"
;
print
" # Zone-Notify #
\n
"
;
print
" # USO #
\n
"
;
print
" # [1] Single Deface #
\n
"
;
print
" # [2] Mass Deface #
\n
"
;
print
" # [3] Help & About #
\n
"
;
print
" #####################
\n
\n
"
;
$pick
=
<STDIN>
;
if
(
$pick
>
3
)
{
print
"Unknown Command
\n
"
;
}
if
(
$pick
==
1
)
{
print
"Mode : Single Deface
\n
\n
"
;
print
"Defacer [Nickname] :
\n
"
;
$Def
=
<STDIN>
;
print
"Dominio:
\n
"
;
$Dom
=
<STDIN>
;
if
(
$Dom
=~
/http:\/\//
)
{
$U
=
"http://zone-h.org/notify/single"
;
$lwp
=
LWP
::
UserAgent
->
new
;
$res
=
$lwp
->
post
(
$U
,
[
'defacer'
=>
$Def
,
'domain1'
=>
$Dom
,
'hackmode'
=>
'15'
,
'reason'
=>
'1'
,
'submit'
=>
'Send'
,
]
)
;
if
(
$res
->
content
=~
/color="red">(.*)<\/font><\/li>/
)
{
print
"Result => $1"
;
}
else
{
print
"Error
\n
"
;
}
}
else
{
$new
=
"http://"
.
"$Dom"
;
$U
=
"http://zone-h.org/notify/single"
;
$lwp
=
LWP
::
UserAgent
->
new
;
$res
=
$lwp
->
post
(
$U
,
[
'defacer'
=>
$Def
,
'domain1'
=>
$new
,
'hackmode'
=>
'15'
,
'reason'
=>
'1'
,
'submit'
=>
'Send'
,
]
)
;
if
(
$res
->
content
=~
/color="red">(.*)<\/font><\/li>/
)
{
print
"Result => $1"
;
}
else
{
print
"Error
\n
"
;
}
}
}
#############################################Mass###########################################
if
(
$pick
==
2
)
{
print
"Mode : Mass Deface
\n
\n
"
;
open
(
site
,
"owned.txt"
)
;
@ARRAY
=
<site>
;
close
site
;
print
"Defacer [Nickname] :
\n
"
;
$Def
=
<STDIN>
;
foreach
$mass
(
@ARRAY
)
{
if
(
$mass
!~
/http:/
)
{
$mass
=
'http://'
.
$mass
;
}
print
"$mass
\n
"
;
$U
=
"http://zone-h.org/notify/single"
;
$lwp
=
LWP
::
UserAgent
->
new
;
$res
=
$lwp
->
post
(
$U
,
[
'defacer'
=>
$Def
,
'domain1'
=>
$mass
,
'hackmode'
=>
'15'
,
'reason'
=>
'1'
,
'submit'
=>
'Send'
,
]
)
;
if
(
$res
->
content
=~
/color="red">(.*)<\/font><\/li>/
)
{
print
"Result => $1
\n
\n
"
;
}
else
{
print
"Error
\n
"
;
}
}
}
#####################About##############
if
(
$pick
==
3
)
{
print
"Para la opcion [2] crear un texto con las paginas y guardarlo como : owned.txt
\n
"
;
print
"Example
\n
"
;
print
"http://link.com
\n
"
;
print
"http://link2.com
\n
"
;
print
"http://link3.com
\n
\n
"
;
}
Saludos,
Dedalo
En línea
Imprimir
Páginas: [
1
]
Ir Arriba
« anterior
próximo »
¿Te gustó el post? COMPARTILO!