I'm looking for a sms sender that can sends sms messages to any country and phone without having to be contected to a spesific host.
I have been on every page on the net, but no one have what I need.
I got a small script I found on a page, but that only sends to a spesial phone numbers.
Here's the script:
----------------------------
#!/usr/bin/perl
$mailprog = '/usr/lib/sendmail';
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@Datain = split(/&/, $buffer);
$nr=-1;
foreach (@Datain) {
$nr ++;
@Datain[$nr] =~ s/\+/ /g;
@Datain[$nr] =~ s/%(..)/pack("c",hex($1))/ge;
($name, $value) = split(/=/, @Datain[$nr], 2);
if (lc($name) eq "mail_til") {
$email = $value;
}
if (lc($name) eq "mail_emne") {
$emne = $value;
}
if (lc($name) eq "ok_html") {
$ok_html = $value;
}
if (lc($name) eq "ok_html") {
$fejl_html = $value;
}
if (lc($name) eq "mail_fra") {
$fra = $value;
}
}
$udbyd = "fejl";
if ($email >= 90000000 && $email < 91999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 92000000 && $email < 94000000) {
$udbyd = "sms.netcom.no";
}
if ($email >= 95000000 && $email < 97999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 98000000 && $email < 98999999) {
$udbyd = "sms.netcom.no";
}
if ($email >= 99000000 && $email < 99999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 40000000 && $email < 46000000) {
$udbyd = "mobilpost.com";
}
if ($udbyd eq "fejl") {
$ud_html = $fejl_html;
}
else {
$email = "$email\@$udbyd";
open(MAIL,"|$mailprog -t");
print MAIL "To: $email\n";
print MAIL "From: $fra\n";
print MAIL "Subject: $emne\n\n";
print MAIL "\n";
close (MAIL);
$ud_html = $ok_html;
}
#print "Content-type: text/html\n\n";
print "Location: $ud_html\n\n";
----------------------------------
There includes two templates.
One that shows the form and one that shows when the message is sent.
Is there anyway that I can modify this script to send SMS messages to anyone?
I can't pay anyone so I'm hoping there is a genius out there how don't need money!
I have been on every page on the net, but no one have what I need.
I got a small script I found on a page, but that only sends to a spesial phone numbers.
Here's the script:
----------------------------
#!/usr/bin/perl
$mailprog = '/usr/lib/sendmail';
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@Datain = split(/&/, $buffer);
$nr=-1;
foreach (@Datain) {
$nr ++;
@Datain[$nr] =~ s/\+/ /g;
@Datain[$nr] =~ s/%(..)/pack("c",hex($1))/ge;
($name, $value) = split(/=/, @Datain[$nr], 2);
if (lc($name) eq "mail_til") {
$email = $value;
}
if (lc($name) eq "mail_emne") {
$emne = $value;
}
if (lc($name) eq "ok_html") {
$ok_html = $value;
}
if (lc($name) eq "ok_html") {
$fejl_html = $value;
}
if (lc($name) eq "mail_fra") {
$fra = $value;
}
}
$udbyd = "fejl";
if ($email >= 90000000 && $email < 91999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 92000000 && $email < 94000000) {
$udbyd = "sms.netcom.no";
}
if ($email >= 95000000 && $email < 97999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 98000000 && $email < 98999999) {
$udbyd = "sms.netcom.no";
}
if ($email >= 99000000 && $email < 99999999) {
$udbyd = "mobilpost.com";
}
if ($email >= 40000000 && $email < 46000000) {
$udbyd = "mobilpost.com";
}
if ($udbyd eq "fejl") {
$ud_html = $fejl_html;
}
else {
$email = "$email\@$udbyd";
open(MAIL,"|$mailprog -t");
print MAIL "To: $email\n";
print MAIL "From: $fra\n";
print MAIL "Subject: $emne\n\n";
print MAIL "\n";
close (MAIL);
$ud_html = $ok_html;
}
#print "Content-type: text/html\n\n";
print "Location: $ud_html\n\n";
----------------------------------
There includes two templates.
One that shows the form and one that shows when the message is sent.
Is there anyway that I can modify this script to send SMS messages to anyone?
I can't pay anyone so I'm hoping there is a genius out there how don't need money!

