#usr/bin/perl
#[][][][][][][][][][][][][][][][]
#() ()
#() Ciro1992 ()
#() MSN:ciro1992@nasa.gov ()
#() ()
#() www.ciro1992.org ()
#() ()
#[][][][][][][][][][][][][][][][]
use Net::SMTP;
use Tk;
$pl = rand(@rand);
$prov = 'smtp-sms.vodafone.it';
$from = '<gevw'."$pl".'jkqcl@omnitel.it>';
$in = '<ukurswf.bs'."$pl".'jbdsr@omnitel.it>';
@rand =("a","b","v","b","n","m","l","k","j","h","g","f","d","s","s","a","p","o","i","u","y","t","r","e","w","q");
$mw=MainWindow->new(-background=>"black");
$mw->title("Sms sender gratis to vodafone");
$mw->minsize(270,200);
$mw->maxsize(270,200);
$mw->Label(-text=>"Sms Sender by Ciro1992",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Label(-text=>"Tuo nome o numero :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$from1)->pack(-anchor=>"n");
$mw->Label(-text=>"Inserire il numero del destinatario :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$to)->pack(-anchor=>"n");
$mw->Label(-text=>"Scrivere il messaggio da inviare :",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Entry(-textvariable=>\$mex)->pack(-anchor=>"n");
$mw->Button(-text=>"Invia",-background=>"black",-foreground=>"green",-command=>sub{$sw=MainWindow->new(-background=>"black");
$smtp = Net::SMTP->new("$prov", Hello => "provider", Timeout => 50) || die "[-]Socket error\n";
$smtp->mail("$from") || die "[-]Indirizzo di origine non valido\n";
$smtp->to("$to".'@sms.vodafone.it') || die "[-]Destinazione non valida\n";
$smtp->data();
$smtp->datasend("Message-ID: $in\n");
$smtp->datasend("From: $from1 $from\n");
$smtp->datasend("To: $to".'@sms.vodafone.it');
$smtp->datasend("\nMime-Version: 1.0\n\n");
$smtp->datasend("$mex");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
$sw->title("Sms Sender : ");
$sw->minsize(200,20);
$sw->maxsize(200,20);
$sw->Label(-text=>"Messaggio inviato.",-background=>"black",-foreground=>"Green")->pack(-anchor=>"n");})->pack(-anchor=>"n");
MainLoop;
