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] KingSpam 0.8

  • 0 Respuestas
  • 2053 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 24, 2014, 01:16:59 pm »
Un simple script para spammear cuentas de correo y canales IRC.

El codigo.

Código: Perl
  1. #!usr/bin/perl
  2. #King Spam 0.8
  3. #(C) Doddy Hackman 2014
  4.  
  5. use IO::Socket;
  6. use Win32::OLE;
  7.  
  8. menu();
  9. copyright();
  10.  
  11. sub menu {
  12.  
  13.     head();
  14.  
  15.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  16.  
  17. [++] Options
  18.  
  19. [+] 1 : Spam IRC Channel
  20. [+] 2 : Spam E-mail Address
  21. [+] 3 : About
  22. [+] 4 : Exit
  23.  
  24. );
  25.  
  26.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Option : ";
  27.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $op = <stdin> );
  28.  
  29.     $SIG{INT} = \&volver;
  30.  
  31.     if ( $op eq "1" ) {
  32.  
  33.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == IRC Spammer == --\n\n";
  34.  
  35.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Hostname : ";
  36.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $hostname = <stdin> );
  37.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Port : ";
  38.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $port = <stdin> );
  39.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Channel : ";
  40.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $canal = <stdin> );
  41.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Nickname : ";
  42.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $nombre = <stdin> );
  43.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Spam : ";
  44.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $archivo = <stdin> );
  45.  
  46.         my @spamnow = cargarword($archivo);
  47.  
  48.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Connecting\n\n";
  49.  
  50.         if (
  51.             my $socket = new IO::Socket::INET(
  52.                 PeerAddr => $hostname,
  53.                 PeerPort => $port,
  54.                 Proto    => "tcp"
  55.             )
  56.           )
  57.         {
  58.  
  59.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket "NICK $nombre\r\n";
  60.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket "USER $nombre 1 1 1 1\r\n";
  61.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket "JOIN $canal\r\n";
  62.  
  63.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Spammer Online\n\n";
  64.  
  65.             while ( my $log = <$socket> ) {
  66.  
  67.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta $log;
  68.  
  69.                 if ( $log =~ /^PING(.*)$/i ) {
  70.                     No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket "PONG $1\r\n";
  71.                 }
  72.  
  73.                 if ( $log =~ m/:(.*) 353 (.*) = (.*) :(.*)/ig ) {
  74.  
  75.                     while (true) {
  76.  
  77.                         my $pro = $4;
  78.  
  79.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta 10;
  80.  
  81.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket "PRIVMSG $canal "
  82.                           . $spamnow[ No tienes permisos para ver links. Registrate o Entra con tu cuenta(@spamnow) ] . "\r\n";
  83.                         my @nicks = No tienes permisos para ver links. Registrate o Entra con tu cuenta " ", $pro;
  84.  
  85.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta 3;
  86.  
  87.                         foreach $names (@nicks) {
  88.                             unless ( $nombre eq $names ) {
  89.                                 $names =~ s/\@//;
  90.                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta $socket
  91.                                   "MSG $names $spamnow[rand(@spamnow)]\r\n";
  92.                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Spam : $names !\n";
  93.                             }
  94.                         }
  95.                     }
  96.                 }
  97.             }
  98.         }
  99.         else {
  100.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n";
  101.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Finished\n";
  102.             <stdin>;
  103.             menu();
  104.         }
  105.  
  106.     }
  107.     elsif ( $op eq "2" ) {
  108.  
  109.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == Spam Mails == --\n\n";
  110.  
  111.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Host : ";
  112.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $host = <stdin> );
  113.  
  114.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Port : ";
  115.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $puerto = <stdin> );
  116.  
  117.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Username : ";
  118.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $username = <stdin> );
  119.  
  120.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Password : ";
  121.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $password = <stdin> );
  122.  
  123.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Count Message : ";
  124.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $count = <stdin> );
  125.  
  126.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] To : ";
  127.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $to = <stdin> );
  128.  
  129.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Subject : ";
  130.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $asunto = <stdin> );
  131.  
  132.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Body : ";
  133.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $body = <stdin> );
  134.  
  135.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] File to Send : ";
  136.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $file = <stdin> );
  137.  
  138.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Starting ...\n\n";
  139.  
  140.         for my $num ( 1 .. $count ) {
  141.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Sending Message : $num\n";
  142.             sendmail(
  143.                 $host,     $puerto,   $username, $password,
  144.                 $username, $username, $username, $to,
  145.                 $asunto,   $body,     $file
  146.             );
  147.         }
  148.  
  149.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Finished\n";
  150.         <stdin>;
  151.         menu();
  152.  
  153.     }
  154.     elsif ( $op eq "3" ) {
  155.         No tienes permisos para ver links. Registrate o Entra con tu cuenta
  156. "\n\n[+] This program was written by Doddy Hackman in the summer of the 2014\n";
  157.         <stdin>;
  158.         menu();
  159.     }
  160.     elsif ( $op eq "4" ) {
  161.         copyright();
  162.         <stdin>;
  163.         No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  164.     }
  165.     else {
  166.         menu();
  167.     }
  168.  
  169. }
  170.  
  171. #Functions
  172.  
  173. sub sendmail {
  174.  
  175. ## Function Based on : http://code.activestate.com/lists/pdk/5351/
  176. ## Credits : Thanks to Phillip Richcreek and Eric Promislow
  177.  
  178.     my (
  179.         $host, $port, $username, $password, $from, $cc,
  180.         $bcc,  $to,   $asunto,   $mensaje,  $file
  181.     ) = @_;
  182.  
  183.     $correo = Win32::OLE->new('CDO.Message');
  184.  
  185.     $correo->Configuration->Fields->SetProperty( "Item",
  186.         'http://schemas.microsoft.com/cdo/configuration/sendusername',
  187.         $username );
  188.     $correo->Configuration->Fields->SetProperty( "Item",
  189.         'http://schemas.microsoft.com/cdo/configuration/sendpassword',
  190.         $password );
  191.     $correo->Configuration->Fields->SetProperty( "Item",
  192.         'http://schemas.microsoft.com/cdo/configuration/smtpserver', $host );
  193.     $correo->Configuration->Fields->SetProperty( "Item",
  194.         'http://schemas.microsoft.com/cdo/configuration/smtpserverport',
  195.         $port );
  196.     $correo->Configuration->Fields->SetProperty( "Item",
  197.         'http://schemas.microsoft.com/cdo/configuration/smtpusessl', 1 );
  198.     $correo->Configuration->Fields->SetProperty( "Item",
  199.         'http://schemas.microsoft.com/cdo/configuration/sendusing', 2 );
  200.     $correo->Configuration->Fields->SetProperty( "Item",
  201.         'http://schemas.microsoft.com/cdo/configuration/smtpauthenticate', 1 );
  202.     $correo->Configuration->Fields->Update();
  203.  
  204.     if ( -f $file ) {
  205.         $correo->AddAttachment($file);
  206.     }
  207.  
  208.     $correo->{From}     = $from;
  209.     $correo->{CC}       = $cc;
  210.     $correo->{BCC}      = $bcc;
  211.     $correo->{To}       = $to;
  212.     $correo->{Subject}  = $asunto;
  213.     $correo->{TextBody} = $mensaje;
  214.     $correo->Send();
  215.  
  216. }
  217.  
  218. sub volver {
  219.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] Finished\n";
  220.     <stdin>;
  221.     menu();
  222. }
  223.  
  224. sub cargarword {
  225.     my @words;
  226.     my @r;
  227.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( FILE, $_[0] );
  228.     @words = <FILE>;
  229.     No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE;
  230.     for (@words) {
  231.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @r, $_ );
  232.     }
  233.     No tienes permisos para ver links. Registrate o Entra con tu cuenta (@r);
  234. }
  235.  
  236. sub limpiarpantalla {
  237.     if ( $^O =~ /Win/ ) {
  238.         No tienes permisos para ver links. Registrate o Entra con tu cuenta("cls");
  239.     }
  240.     else {
  241.         No tienes permisos para ver links. Registrate o Entra con tu cuenta("clear");
  242.     }
  243. }
  244.  
  245. sub head {
  246.  
  247.     limpiarpantalla();
  248.  
  249.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  250.  
  251.  
  252.  @   @  @  @    @   @@@@       @@@   @@@@@    @    @     @
  253.  @  @   @  @@   @  @    @     @   @  @    @   @    @     @
  254.  @ @    @  @@   @  @          @      @    @  @ @   @@   @@
  255.  @@     @  @ @  @  @          @      @    @  @ @   @@   @@
  256.  @@     @  @ @  @  @  @@@      @@@   @@@@@  @   @  @ @ @ @
  257.  @ @    @  @  @ @  @    @         @  @      @   @  @ @ @ @
  258.  @  @   @  @   @@  @    @         @  @      @@@@@  @  @  @
  259.  @   @  @  @   @@  @   @@     @   @  @     @     @ @  @  @
  260.  @    @ @  @    @   @@@ @      @@@   @     @     @ @     @
  261.  
  262.  
  263. );
  264. }
  265.  
  266. sub copyright {
  267.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == (C) Doddy Hackman 2014 == --\n";
  268. }
  269.  
  270. # The End ?
  271.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3237
Ú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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1399
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1140
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear