ClapTrap IRC Bot

[Fi8sVrs]

ClapTrap is an IRC bot written in perl that performs various attacks against web applications.

#!usr/bin/perl
#ClapTrap IRC Bot 0.5
#(C) Doddy Hackman 2014
#
#Commands to use :
#
#!sqli <page>
#!lfi <page>
#!panel <page>
#!locateip <web>
#!sqlifinder <page>
#!rfifinder <page>
#!crackit <hash>
#!tinyurl <page>
#!httpfinger <page>
#!md5 <text>
#!base64 <encode/decode> <string>
#!hex <encode/decode> <string>
#!ascii <encode/decode> <string>
#!help
#
#Thanks to Aceitunas & Explorer (perlenespanol)

Code:

Download:

#!usr/bin/perl

#ClapTrap IRC Bot 0.5

#© Doddy Hackman 2014

#

#Commands to use :

#

#!sqli <page>

#!lfi <page>

#!panel <page>

#!locateip <web>

#!sqlifinder <page>

#!rfifinder <page>

#!crackit <hash>

#!tinyurl <page>

#!httpfinger <page>

#!md5 <text>

#!base64 <encode/decode> <string>

#!hex <encode/decode> <string>

#!ascii <encode/decode> <string>

#!help

#

#Thanks to Aceitunas & Explorer (perlenespanol)

#

use IO::Socket;

use LWP::UserAgent;

use HTML::LinkExtor;

use URI::Split qw(uri_split);

use Digest::MD5 qw(md5_hex);

my @Links, values %b );

}

}

sub toma {

return $nave->get( $_[0] )->content;

}

sub tomar {

my ( $web, $var ) = @_;

return $nave->post( $web, [ %{$var} ] )->content;

}

sub tomados {

return $nave->get( $_[0] );

}

sub tomax {

return $nave->get( $_[0] );

}

sub savefile {

open( SAVE, ">>" . $_[0] );

print SAVE $_[1] . "\n";

close SAVE;

}

sub abrir {

open my $FILE, q[<], "config.txt";

my $word = join q[], <$FILE>;

close $FILE;

return $word;

}

sub head {

print qq(

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

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

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

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

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

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

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

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

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

);

}

sub copyright {

print "\n\n-- == © Doddy Hackman 2014 == --\n\n";

}

# The End ?

Source Files from Doddy Hackman ? Packet Storm

Edited September 24, 2014 by Fi8sVrs

[devianc3]

Nu stiu de voi, dar mie nu imi intra pe nici un canal.

[Htich]

perl sursabot chan irc.server.com port facproc ( cred ca asa era comanda )

[devianc3]

Nu despre asta e vorba. Am gasit in final unde e hiba. Cand serverul iti da PING, trebuie raspuns cu PONG si de-abia apoi poti intra pe canale. Asadar, am mai adauga linia "print $soquete "PONG $1\r\n";" inainte de linia 536 si a mers.