comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Project Kakilles 0.3

  • 0 Respuestas
  • 1370 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Enero 05, 2014, 06:59:38 pm »
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 :

Código: Perl
  1. #!usr/bin/perl
  2. #Project Kakilles 0.3
  3. #(C) Doddy Hackman 2014
  4.  
  5. use HTTP::Proxy;
  6. use HTTP::Proxy::BodyFilter::simple;
  7. use HTTP::Proxy::BodyFilter::complete;
  8.  
  9. my $port;
  10.  
  11. head();
  12.  
  13. if ( $ARGV[1] ne "" ) {
  14.     $port = $ARGV[1];
  15. }
  16. else {
  17.     $port = 8080;
  18. }
  19.  
  20. if ( $ARGV[0] eq "" ) {
  21.     sintax();
  22.     copyright();
  23. }
  24.  
  25. $SIG{INT} = \&copyright;
  26.  
  27. my $logs       = "logs.txt";
  28. my $leer_datos = "center.txt";
  29.  
  30. You are not allowed to view links. Register or Login "\n[+] Kakilles Online : $port ...\n";
  31.  
  32. my $server = HTTP::Proxy->new( port => $port );
  33. $server->host();
  34.  
  35. $server->push_filter(
  36.     mime     => You are not allowed to view links. Register or Login,
  37.     response => HTTP::Proxy::BodyFilter::complete->new()
  38. );
  39.  
  40. $server->push_filter(
  41.     mime     => You are not allowed to view links. Register or Login,
  42.     request  => HTTP::Proxy::BodyFilter::simple->new( \&enable ),
  43.     response => HTTP::Proxy::BodyFilter::simple->new( \&enable2 )
  44. );
  45.  
  46. $server->start();
  47.  
  48. sub enable {
  49.  
  50.     my @logs;
  51.  
  52.     my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
  53.  
  54.     if ( $ARGV[0] =~ /p/ ) {
  55.  
  56.         if ( $message->content ne "" and $message->method eq "POST" ) {
  57.  
  58.             You are not allowed to view links. Register or Login
  59. "\n########################################################################\n";
  60.             You are not allowed to view links. Register or Login "[+] Method : " . $message->method;
  61.             You are not allowed to view links. Register or Login "\n[+] Content : " . $message->content;
  62.             savefile( $leer_datos, $message->content );
  63.             You are not allowed to view links. Register or Login
  64. "\n########################################################################\n";
  65.  
  66.             You are not allowed to view links. Register or Login "\n[+] Change ? [y/n] : ";
  67.             You are not allowed to view links. Register or Login( my $rta = <stdin> );
  68.  
  69.             if ( $rta =~ /y/ ) {
  70.  
  71.                 system_leida($leer_datos);
  72.  
  73.                 my $source = abrir();
  74.                 $message->header( "content-length" => You are not allowed to view links. Register or Login($source) );
  75.                 $message->content($source);
  76.  
  77.                 You are not allowed to view links. Register or Login "\n[+] Changed !\n";
  78.  
  79.             }
  80.         }
  81.     }
  82.  
  83.     if ( $ARGV[0] =~ /g/ ) {
  84.  
  85.         if ( $message->uri =~ /(.*)\?(.*)/ ) {
  86.  
  87.             You are not allowed to view links. Register or Login
  88. "\n########################################################################\n";
  89.             You are not allowed to view links. Register or Login "[+] GET : " . $message->uri;
  90.             savefile( $leer_datos, $message->uri );
  91.             You are not allowed to view links. Register or Login
  92. "\n########################################################################\n";
  93.  
  94.             You are not allowed to view links. Register or Login "\n[+] Change ? [y/n] : ";
  95.             You are not allowed to view links. Register or Login( my $rta = <stdin> );
  96.  
  97.             if ( $rta =~ /y/ ) {
  98.  
  99.                 system_leida($leer_datos);
  100.  
  101.                 my $source = abrir();
  102.  
  103.                 $message->uri($source);
  104.  
  105.                 You are not allowed to view links. Register or Login "\n[+] Changed !\n";
  106.  
  107.             }
  108.  
  109.         }
  110.  
  111.     }
  112.  
  113.     if ( $ARGV[0] =~ /a/ ) {
  114.  
  115.         You are not allowed to view links. Register or Login
  116. "\n########################################################################\n";
  117.         You are not allowed to view links. Register or Login "[+] User-Agent : " . $message->header("user-agent");
  118.         savefile( $leer_datos, $message->header("user-agent") );
  119.         You are not allowed to view links. Register or Login
  120. "\n########################################################################\n";
  121.  
  122.         You are not allowed to view links. Register or Login "\n[+] Change ? [y/n] : ";
  123.         You are not allowed to view links. Register or Login( my $rta = <stdin> );
  124.  
  125.         if ( $rta =~ /y/ ) {
  126.  
  127.             system_leida($leer_datos);
  128.  
  129.             my $source = abrir();
  130.  
  131.             $message->header( "user-agent" => $source );
  132.  
  133.             You are not allowed to view links. Register or Login "\n[+] Changed !\n";
  134.  
  135.         }
  136.     }
  137.  
  138.     if ( $ARGV[0] =~ /o/ ) {
  139.  
  140.         You are not allowed to view links. Register or Login
  141. "\n########################################################################\n";
  142.         You are not allowed to view links. Register or Login "[+] Cookie : " . $message->header("cookie");
  143.         savefile( $leer_datos, $message->header("cookie") );
  144.         You are not allowed to view links. Register or Login
  145. "\n########################################################################\n";
  146.  
  147.         You are not allowed to view links. Register or Login "\n[+] Change ? [y/n] : ";
  148.         You are not allowed to view links. Register or Login( my $rta = <stdin> );
  149.  
  150.         if ( $rta =~ /y/ ) {
  151.  
  152.             system_leida($leer_datos);
  153.  
  154.             my $source = abrir();
  155.  
  156.             $message->header( "cookie" => $source );
  157.  
  158.             You are not allowed to view links. Register or Login "\n[+] Changed !\n";
  159.  
  160.         }
  161.     }
  162.  
  163. }
  164.  
  165. sub enable2 {
  166.     my ( $j, $k, $l, $m, $n ) = @_;
  167.  
  168.     if ( $ARGV[0] =~ /c/ ) {
  169.  
  170.         if ( $$k ne "" ) {
  171.  
  172.             You are not allowed to view links. Register or Login
  173.               "\n##########################################################\n";
  174.             You are not allowed to view links. Register or Login "[+] Content : " . $$k;
  175.             savefile( $leer_datos, $$k );
  176.             You are not allowed to view links. Register or Login
  177.               "\n##########################################################\n";
  178.  
  179.             You are not allowed to view links. Register or Login "\n[+] Change ? [y/n] : ";
  180.             You are not allowed to view links. Register or Login( my $rta = <stdin> );
  181.  
  182.             if ( $rta =~ /y/ ) {
  183.  
  184.                 system_leida($leer_datos);
  185.  
  186.                 my $source = abrir();
  187.  
  188.                 $$k = $source;
  189.  
  190.                 You are not allowed to view links. Register or Login "\n[+] Changed !\n";
  191.  
  192.             }
  193.  
  194.         }
  195.  
  196.     }
  197.  
  198. }
  199.  
  200. # Functions
  201.  
  202. sub system_leida {
  203.     my $os = $^O;
  204.     if ( $os =~ /Win/ig ) {
  205.         You are not allowed to view links. Register or Login( "start " . $_[0] );
  206.     }
  207.     else {
  208.         You are not allowed to view links. Register or Login( "sudo gedit " . $_[0] );
  209.     }
  210. }
  211.  
  212. sub abrir {
  213.     You are not allowed to view links. Register or Login my $FILE, You are not allowed to view links. Register or Login[<], $leer_datos;
  214.     my $word = You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login[], <$FILE>;
  215.     You are not allowed to view links. Register or Login $FILE;
  216.     You are not allowed to view links. Register or Login $word;
  217.     You are not allowed to view links. Register or Login $word;
  218. }
  219.  
  220. sub savefile {
  221.     You are not allowed to view links. Register or Login($leer_datos);
  222.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  223.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  224.     You are not allowed to view links. Register or Login SAVE;
  225. }
  226.  
  227. sub head {
  228.     You are not allowed to view links. Register or Login "\n-- == Project Kakilles 0.3 == --\n";
  229. }
  230.  
  231. sub copyright {
  232.     You are not allowed to view links. Register or Login "\n-- == (C) Doddy Hackman 2014 == --\n\n";
  233.     You are not allowed to view links. Register or Login(1);
  234. }
  235.  
  236. sub sintax {
  237.     You are not allowed to view links. Register or Login "\n[+] Sintax : $0 <options> <port>\n";
  238.     You are not allowed to view links. Register or Login "\n[?] Options ...\n\n";
  239.     You are not allowed to view links. Register or Login "-g : Form with GET\n";
  240.     You are not allowed to view links. Register or Login "-p : Form with POST\n";
  241.     You are not allowed to view links. Register or Login "-a : Edit User-Agent\n";
  242.     You are not allowed to view links. Register or Login "-c : Edit Content\n";
  243.     You are not allowed to view links. Register or Login "-o : Edit Cookie\n";
  244.     You are not allowed to view links. Register or Login "\n[+] Example : $0 -pc 666\n";
  245. }
  246.  
  247. # The End ?
  248.  

Si quieren bajar el codigo lo pueden hacer de You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3007
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1411
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1551
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1096
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear