Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
send o2 SMS via shell
#!/usr/bin/perl
################################################################
#
# o2-sms.pl, v2.1 *** EARLY-BETA ***
#
# Copyright (c) 2002-06, Leonhard Fellermayr <leo@slacky.de>
# All rights reserved.
#
################################################################
# -------------- used packages
use strict;
use URI::Escape;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
# --------------- your login data at O2 - please set
my $o2_vorwahl = '0176';
my $o2_nummer = '1485281';
my $o2_kennwort = 'passo2word';
# --------------- URLs of O2 online interface
my $base_url = 'http://web2sms.o2online.de/';
my $login_url = 'https://login.o2online.de/loginRegistration/loginAction.do';
my $sms_main_url = 'https://email.o2online.de/smscenter_new.osp?Autocompletion=1&MsgContentID=-1';
my $sms_post_url = 'https://email.o2online.de/smscenter_send.osp';
my $text_maxlen = 780; # max length when sending to other cellphones
my $text_maxlen_wired = 160; # max length when doing "Text-to-speech"
# known german cellphone prefixes (everything else is assumed "wired")
my @mobilePrefixes = qw ('0179','0176','0160','0162','0163','0170','0171','0172','0173','0174','0175','0177','0178','01505','01511','01520','01566','0151');
# --------------- fake one of these user agents via rand() call below
my %agents = ( 0 => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',
1 => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)',
2 => 'Mozilla/5.0 Galeon/1.2.5 (X11; Linux i686; U;) Gecko/20020606',
3 => 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 6.04 [en]',
4 => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)',
5 => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de-DE; rv:1.7b) Gecko/20040421',
6 => 'Mozilla 4.0 (compatible; MSIE 5.01; Windows NT 5.0)',
7 => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)',
8 => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 4.0; LVR)',
9 => 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)',
10 => 'Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.1b) Gecko/20020722'
);
# --------------- get command line arguments
if ($#ARGV < 0) {
&syntax ();
exit (0);
}
my $send_flash = '';
if ($ARGV[0] =~ /-f/) {
$send_flash = 'true';
shift (@ARGV);
}
my $send_prefix = $ARGV[0];
my $send_number = $ARGV[1];
shift (@ARGV); shift (@ARGV);
my $send_messagetext = join (" ", @ARGV);
# --------------- check if this message goes to wired network
my $wired = 0;
foreach (@mobilePrefixes) {
$wired = 1 if ($_ == $send_prefix);
}
# --------------- perform some checks on given data
if (($wired) && (length($send_messagetext)) > $text_maxlen_wired) {
raiseErr (1, 'Message goes as Message-To-Speech to wired network - message text only can have up to ' . $text_maxlen_wired . ' chars.');
}
elsif (length ($send_messagetext) > $text_maxlen) {
raiseErr (2, 'Message text is too long - can have up to ' . $text_maxlen . ' chars.');
}
elsif ($send_prefix =~ /^[^0]/) {
raiseErr (3, 'Prefix must start with 0.');
}
elsif ($send_prefix =~ /^\d0/) {
raiseErr (4, 'Only can send nationally.');
}
elsif ((length($send_prefix) < 3) || (length($send_prefix) > 5)) {
raiseErr (5, 'Please enter a prefix between 3 and 5 digits.');
}
elsif ((length($send_number) < 4) || (length($send_number) > 12)) {
raiseErr (6, 'Please enter a number between 4 and 12 digits.'),
}
elsif ($send_prefix =~ /[^0-9]/) {
raiseErr (7, 'Prefix may contain only digits.');
}
elsif ($send_number =~ /[^0-9]/) {
raiseErr (8, 'Number may contain only digits.');
}
# --------------- set up a new user agent object
my $ua = new LWP::UserAgent;
my $response;
# --------------- fake a real user agent
my $max = -1;
$max++ foreach (keys %agents);
$ua->agent ($agents{int (rand ($max))});
# --------------- enable cookie transport
my $cookies = new HTTP::Cookies;
$ua->cookie_jar ($cookies);
# # --------------- 1. get base URL
$response = $ua->request (GET $base_url);
$response = $ua->request (GET $login_url);
$response->content =~ /"_flowExecutionKey" value="([^"]+)"/;
my $key = $1;
# --------------- 2. post LOGIN data
$response = $ua->post ( $login_url,
[
'loginName' => $o2_vorwahl.$o2_nummer,
'password' => $o2_kennwort,
'_eventId_login' => 'Einloggen',
'_flowExecutionKey' => $key,
],
);
# --------------- 3. go to SMS main page (meta redir)
$response = $ua->request (GET $base_url);
$response->content =~ /&SID=([^']+)'/;
my $sid = $1;
# --------------- 4. post SMS data
print $send_prefix.$send_number;
exit;
my $response = $ua->post (
$sms_post_url,
[
'SMSTo' => $send_prefix.$send_number,
'SMSText' => $send_messagetext,
'SID' => $sid,
],
);
print $response->content;
########################################################################################
sub syntax ()
{
print<<EOT;
Syntax: o2-sms.pl [-f] <prefix> <number> <message text>
This script is intended for customers of O2 Germany that have an account at
www.o2online.de. These are able to send SMS via the WWW gateway at less
cost. o2-sms.pl brings this service down to your UNIX shell.
Use -f option to send flash SMS (will pop up on the recipient's display
immediately).
Message text can have up to 780 chars. NOTE: SMS to wired recipients are
limited to 160 chars, as they are being sent as "text-to-speech".
USE AT YOUR OWN RISK !!!
EOT
}
sub raiseErr ($$)
{
my $exitNo = shift;
my $errText = shift;
&syntax ();
print "ERROR: $errText\n\n";
exit ($exitNo);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.