Smoking Sms Sender

[Gonzalez]

hotel regim hotelier

hotel yahoo domain

A simple perl program coded by me and smoking skull.

you can send free sms to vodafone IT Sim card

'njoy this

   1. #usr/bin/perl  
   2.   
   3. #Descrizione: Smoking Sms Sender  
   4. #Autore: Smoking Skull && Spoof  
   5. #E-mail: priv.  
   6. #Sito: <a href="http://www.securityspl0its.com" target="_blank">www.securityspl0its.com</a> - sskull.wordpress.com  
   7.   
   8.       use Net::SMTP;  
   9.       use Tk;  
  10.   
  11.   
  12. $pl = rand(@rand);  
  13. $prov = \'smtp-sms.vodafone.it\';  
  14. $from = \'<gevw\'.\"$pl\".\'<a href="[Doar userii inregistrati pot vedea linkurile. ][Doar userii inregistrati pot vedea linkurile. ]

[diablo2323]

scuza-ma Gonzalez , eu nu m-am prins cum sa-l folosesc ??

[remuszica]

merge ...sau il descarc degeaba ?

[sonyx]

ce sa descarci ?

[skipper]

) ce sa descarci ?

[dragosmk]

e script perl..salvati in notepad cu extensia .pl si rulati

[Church]

C:\strawberry\perl\bin>perl sms.pl
Can't find string terminator "'" anywhere before EOF at sms.pl line 6.

C:\strawberry\perl\bin>

mie nu imi merge.. da erroare..
linia 6 fiind :

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

LE : am rezolvat.. :

#usr/bin/perl

#Descrizione: Smoking Sms Sender
#Autore: Smoking Skull && Spoof
#E-mail: priv.
#Sito: www.securityspl0its.com - sskull.wordpress.com

      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=>"Smoking Sms Sender  by Smoking 

Skull",-background=>"black",-foreground=>"green")->pack(-anchor=>"n");
$mw->Label(-text=>"Inserisci il 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 "[-]La 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=>"Il messaggio è 

inviato.",-background=>"black",-foreground=>"Green")->pack(-anchor=>"n");})->pack(-anchor=>"n");

MainLoop;

Cel putin mie nu imi ajung smsurile... o fi de la mine...

[mahbola.bien]

Good Habibi on the subject distinguished