Un simple script que hice como parodia del famoso programa Achilles , el kakilles viene por lo caca del programa.
Les dejo un video que tiene 3 ejemplos de uso :
* HTTP Header Injection
* Bypass Uploaders
* Cookie Handling
El video :
El codigo :
Si quieren bajar el codigo lo pueden hacer de aca
Les dejo un video que tiene 3 ejemplos de uso :
* HTTP Header Injection
* Bypass Uploaders
* Cookie Handling
El video :
El codigo :
Código:
#!usr/bin/perl
#Project Kakilles 0.3
#(C) Doddy Hackman 2014
use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
my $port;
head();
if ( $ARGV[1] ne "" ) {
$port = $ARGV[1];
}
else {
$port = 8080;
}
if ( $ARGV[0] eq "" ) {
sintax();
copyright();
}
$SIG{INT} = \©right;
my $logs = "logs.txt";
my $leer_datos = "center.txt";
print "\n[+] Kakilles Online : $port ...\n";
my $server = HTTP::Proxy->new( port => $port );
$server->host();
$server->push_filter(
mime => undef,
response => HTTP::Proxy::BodyFilter::complete->new()
);
$server->push_filter(
mime => undef,
request => HTTP::Proxy::BodyFilter::simple->new( \&enable ),
response => HTTP::Proxy::BodyFilter::simple->new( \&enable2 )
);
$server->start();
sub enable {
my @logs;
my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
if ( $ARGV[0] =~ /p/ ) {
if ( $message->content ne "" and $message->method eq "POST" ) {
print
"\n########################################################################\n";
print "[+] Method : " . $message->method;
print "\n[+] Content : " . $message->content;
savefile( $leer_datos, $message->content );
print
"\n########################################################################\n";
print "\n[+] Change ? [y/n] : ";
chomp( my $rta = <stdin> );
if ( $rta =~ /y/ ) {
system_leida($leer_datos);
my $source = abrir();
$message->header( "content-length" => length($source) );
$message->content($source);
print "\n[+] Changed !\n";
}
}
}
if ( $ARGV[0] =~ /g/ ) {
if ( $message->uri =~ /(.*)\?(.*)/ ) {
print
"\n########################################################################\n";
print "[+] GET : " . $message->uri;
savefile( $leer_datos, $message->uri );
print
"\n########################################################################\n";
print "\n[+] Change ? [y/n] : ";
chomp( my $rta = <stdin> );
if ( $rta =~ /y/ ) {
system_leida($leer_datos);
my $source = abrir();
$message->uri($source);
print "\n[+] Changed !\n";
}
}
}
if ( $ARGV[0] =~ /a/ ) {
print
"\n########################################################################\n";
print "[+] User-Agent : " . $message->header("user-agent");
savefile( $leer_datos, $message->header("user-agent") );
print
"\n########################################################################\n";
print "\n[+] Change ? [y/n] : ";
chomp( my $rta = <stdin> );
if ( $rta =~ /y/ ) {
system_leida($leer_datos);
my $source = abrir();
$message->header( "user-agent" => $source );
print "\n[+] Changed !\n";
}
}
if ( $ARGV[0] =~ /o/ ) {
print
"\n########################################################################\n";
print "[+] Cookie : " . $message->header("cookie");
savefile( $leer_datos, $message->header("cookie") );
print
"\n########################################################################\n";
print "\n[+] Change ? [y/n] : ";
chomp( my $rta = <stdin> );
if ( $rta =~ /y/ ) {
system_leida($leer_datos);
my $source = abrir();
$message->header( "cookie" => $source );
print "\n[+] Changed !\n";
}
}
}
sub enable2 {
my ( $j, $k, $l, $m, $n ) = @_;
if ( $ARGV[0] =~ /c/ ) {
if ( $$k ne "" ) {
print
"\n##########################################################\n";
print "[+] Content : " . $$k;
savefile( $leer_datos, $$k );
print
"\n##########################################################\n";
print "\n[+] Change ? [y/n] : ";
chomp( my $rta = <stdin> );
if ( $rta =~ /y/ ) {
system_leida($leer_datos);
my $source = abrir();
$$k = $source;
print "\n[+] Changed !\n";
}
}
}
}
# Functions
sub system_leida {
my $os = $^O;
if ( $os =~ /Win/ig ) {
system( "start " . $_[0] );
}
else {
system( "sudo gedit " . $_[0] );
}
}
sub abrir {
open my $FILE, q[<], $leer_datos;
my $word = join q[], <$FILE>;
close $FILE;
chomp $word;
return $word;
}
sub savefile {
unlink($leer_datos);
open( SAVE, ">>" . $_[0] );
print SAVE $_[1] . "\n";
close SAVE;
}
sub head {
print "\n-- == Project Kakilles 0.3 == --\n";
}
sub copyright {
print "\n-- == (C) Doddy Hackman 2014 == --\n\n";
exit(1);
}
sub sintax {
print "\n[+] Sintax : $0 <options> <port>\n";
print "\n[?] Options ...\n\n";
print "-g : Form with GET\n";
print "-p : Form with POST\n";
print "-a : Edit User-Agent\n";
print "-c : Edit Content\n";
print "-o : Edit Cookie\n";
print "\n[+] Example : $0 -pc 666\n";
}
# The End ?