Domanda [PERL] Sms gratis vodafone

[Leprechaun]

Ora non so se va xk non lo testato, ma se va è un colpaccio!

    #usr/bin/perl

     

     

          use Net::SMTP;

          use Tk;

     

     

    $pl = rand(@rand);

    $prov = 'smtp-sms.vodafone.it';

    $from = '<gevw'."$pl".'[email protected]>';

    $in = '<ukurswf.bs'."$pl".'[email protected]>';

    @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 errorn";

    $smtp->mail("$from") || die "[-]Indirizzo di origine non validon";

    $smtp->to("$to".'@sms.vodafone.it') || die "[-]Destinazione non validan";

    $smtp->data();

    $smtp->datasend("Message-ID: $inn");

    $smtp->datasend("From: $from1 $fromn");

    $smtp->datasend("To: $to".'@sms.vodafone.it');

    $smtp->datasend("nMime-Version: 1.0nn");

    $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;

AGGIORNAMENTO:

Preddyno mi ha detto che andava 6 mesi fa... sono moolto demotivato XD
A scopo di studio leggetevelo se vi va...

 

[Skidrow™]

basta che ti registri sul sito della vodafone da li puoi mandare messaggi gratis

 

[Leprechaun]

basta che ti registri sul sito della vodafone da li puoi mandare messaggi gratis

ma anche no....

1) per registrarti devi associare una sim
2) la sim deve essere esistente e tua o di un amico che ti da la pass che arriva per mex
3) i messaggi che poi invii risultano inviati da quella sim e quindi potrebbero rispondere all'amico/parente
4) se registri solo la tua sim sono 10 messaggi gratis al giorno, mica infiniti...

il codice quì sopra li mandava INFINITI.....

Se vuoi mandarli da pc senza limiti scarichi il widget della zero limits e la attivi sul tuo cell, ma sappi che se il messaggio sfora i caratteri e diventano 2 non me manda uno consecutivo ma 2 e mai nell ordine giusto, pensa se sono 3 o 4...

 

[Maestro Yoda]

Sul sito della Vodafone c'è un widget,scaricabile gratuitamente,che è in grado di farti inviare 10 sms gratis al giorno ,naturalmente associando una sim alla registrazione.
Poi per mandarli infiniti ci sono siti ma non vorrei andare in discorsi "illegali" diciamo...

 

[Colonnello Casey]

Ora non so se va xk non lo testato, ma se va è un colpaccio!

    #usr/bin/perl

     

     

          use Net::SMTP;

          use Tk;

     

     

    $pl = rand(@rand);

    $prov = 'smtp-sms.vodafone.it';

    $from = '<gevw'."$pl".'[email protected]>';

    $in = '<ukurswf.bs'."$pl".'[email protected]>';

    @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 errorn";

    $smtp->mail("$from") || die "[-]Indirizzo di origine non validon";

    $smtp->to("$to".'@sms.vodafone.it') || die "[-]Destinazione non validan";

    $smtp->data();

    $smtp->datasend("Message-ID: $inn");

    $smtp->datasend("From: $from1 $fromn");

    $smtp->datasend("To: $to".'@sms.vodafone.it');

    $smtp->datasend("nMime-Version: 1.0nn");

    $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;

AGGIORNAMENTO:

Preddyno mi ha detto che andava 6 mesi fa... sono moolto demotivato XD
A scopo di studio leggetevelo se vi va...

Ma lo hai compilato tu? Se sì i miei complimenti

 

[Leprechaun]

Sul sito della Vodafone c'è un widget,scaricabile gratuitamente,che è in grado di farti inviare 10 sms gratis al giorno ,naturalmente associando una sim alla registrazione.
Poi per mandarli infiniti ci sono siti ma non vorrei andare in discorsi "illegali" diciamo...

lo detto anche sopra =)

Ma lo hai compilato tu? Se sì i miei complimenti

Purtroppo no non lo fatto io =)