#!/usr/bin/perl
#
# This is a simple way to send free-sms's
# through a simple FUCK1NG perl script.
# I made it because is so f*cking bored
# to send a SMS in a single URL on the
# browser... so, enjoy it ! ;)
#
# keep it undergr0und ! d0gzzzzzz !
#
# nitr0us
# nitrousenador *fuckSPAM* gmail.com
# México
# 05/May/2008
#
# Tnx zeus for this VERY USEFUL!!!! STUFF =)

use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;

my $customer = 20494;
my $key = 37542727;
my $sms_gateway = "http://smsgateway.servage.net/sms.php";

print <<HDR;
##################################
# PRIV8 - PRIV8 - PRIV8 - PRIV8  #
##################################
###      Free SMS Sender      ####
###        by nitr0us         ####
##################################
# Keep it FUCK1NG ! UNDERGROUND  #
##################################
##################################

HDR

print "ph0ne number #: ";
chomp(my $phone = <>);
die "Asshole ! invalid ph0ne number !\n" if (length($phone) != 10); # in Mexico: 3 digits for LADA and 7 for number

print "Message: ";
chomp(my $msg = <>);

print "\n[+] Sending message t0 52$phone\n\n";

my $url = $sms_gateway . "?customer=" . $customer . "&key=" . $key;
$url .= "&number=52" . $phone . "&message=" . $msg;	# 52 = Mexican Area Code

my $request = HTTP::Request->new(
			GET => $url,
			HTTP::Headers->new(
				'X-Forwarded-For' => '1.3.3.7', # Jejeje a little trick ;)
				'Accept' => 'text/html',
				'Accept-Language' => 'es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3',
				'Accept-Charset' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7'));

my $agent = LWP::UserAgent->new(
			agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; es-AR; rv:1.8.1.13) Firefox/2.0.0.13',
			timeout => 15);

my $response = $agent->request($request);
die $response->status_line unless $response->is_success;

print "[+] Server Resp0nse: " . $response->content() . "\n";