Smoking Sms Sender

[Gonzalez]

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="mailto:jkqcl@omnitel.it">jkqcl@omnitel.it</a>>\';  
  15. $in = \'<ukurswf.bs\'.\"$pl\".\'<a href="mailto:jbdsr@omnitel.it">jbdsr@omnitel.it</a>>\';  
  16. @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\");  
  17.   
  18. $mw=MainWindow->new(-background=>\"black\");  
  19. $mw->title(\"Sms sender gratis to vodafone\");  
  20. $mw->minsize(270,200);  
  21. $mw->maxsize(270,200);  
  22. $mw->Label(-text=>\"Smoking Sms Sender  by Smoking Skull\",-background=>\"black\",-foreground=>\"green\")->pack(-anchor=>\"n\");  
  23. $mw->Label(-text=>\"Inserisci il tuo nome o numero :\",-background=>\"black\",-foreground=>\"green\")->pack(-anchor=>\"n\");  
  24. $mw->Entry(-textvariable=>\\$from1)->pack(-anchor=>\"n\");  
  25. $mw->Label(-text=>\"Inserire il numero del destinatario :\",-background=>\"black\",-foreground=>\"green\")->pack(-anchor=>\"n\");  
  26. $mw->Entry(-textvariable=>\\$to)->pack(-anchor=>\"n\");  
  27. $mw->Label(-text=>\"Scrivere il messaggio da inviare :\",-background=>\"black\",-foreground=>\"green\")->pack(-anchor=>\"n\");  
  28. $mw->Entry(-textvariable=>\\$mex)->pack(-anchor=>\"n\");  
  29.   
  30. $mw->Button(-text=>\"Invia\",-background=>\"black\",-foreground=>\"green\",-command=>sub{$sw=MainWindow->new(-background=>\"black\");  
  31.   
  32. $smtp = Net::SMTP->new(\"$prov\", Hello => \"provider\", Timeout => 50) || die \"[-]Socket error\\n\";  
  33. $smtp->mail(\"$from\") || die \"[-]Indirizzo di origine non valido\\n\";  
  34. $smtp->to(\"$to\".\'@sms.vodafone.it\') || die \"[-]La destinazione non è valida\\n\";  
  35. $smtp->data();  
  36. $smtp->datasend(\"Message-ID: $in\\n\");  
  37. $smtp->datasend(\"From: $from1 $from\\n\");  
  38. $smtp->datasend(\"To: $to\".\'@sms.vodafone.it\');  
  39. $smtp->datasend(\"\\nMime-Version: 1.0\\n\\n\");  
  40. $smtp->datasend(\"$mex\");  
  41. $smtp->datasend(\"\\n\");  
  42. $smtp->dataend();  
  43. $smtp->quit;  
  44.   
  45. $sw->title(\"Sms Sender : \");  
  46. $sw->minsize(200,20);  
  47. $sw->maxsize(200,20);  
  48. $sw->Label(-text=>\"Il messaggio è inviato.\",-background=>\"black\",-foreground=>\"Green\")->pack(-anchor=>\"n\");})->pack(-anchor=>\"n\");  
  49.   
  50. MainLoop;  

[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...

Edited February 2, 2010 by Church

[mahbola.bien]

Good Habibi on the subject distinguished

[XAnother]

This Error!

C:\Perl\bin>sms.pl

Can't locate Tk.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at C:

\Perl\bin\sms.pl line 9.

BEGIN failed--compilation aborted at C:\Perl\bin\sms.pl line 9.

C:\Perl\bin>