#!/usr/bin/perl
#
# (c)2012 speaker
use strict;
use warnings;
use LWP::UserAgent;
use Encode;
use Digest::MD5 qw(md5_hex);
my $ua = LWP::UserAgent->new;
### start of config section
# if you don't want to store your credentials within this script just keep the
# following three dummy values and set $ask_auth = 1
my $httpuser = "<http auth user>";
my $httppass = "<http auth password>";
my $fritzpass = "<fritzbox admin password>";
my $ask_auth = 0;
my $host = "<hostname or ip>";
my $port = 443;
my $mac = "<mac for wake up>"; # use mac format 01:23:45:67:89:AB
# uncomment the following line if you get ssl certificate warnings
#$ua->ssl_opts(verify_hostname => 0);
### end of config section
### do not change anything below!
sub readcreds() {
use Term::ReadKey;
print "http auth user: "; chomp($httpuser = ReadLine(0));
ReadMode('noecho');
print "http auth pass: "; chomp($httppass = ReadLine(0));
print "\nfritzbox pass: "; chomp($fritzpass = ReadLine(0));
ReadMode('restore');
print "\n\n";
}
readcreds if ($ask_auth);
$ua->timeout(30);
push @{$ua->requests_redirectable}, 'POST';
$ua->credentials($host.":".$port, "HTTPS Access", $httpuser, $httppass);
my $url_base = "https://".$host;
my $url_login = $url_base."/login.lua";
my $url_wakeup = $url_base."/cgi-bin/webcm";
my $r = $ua->get($url_login);
if ($r->is_success) {
my $c = $r->decoded_content;
if ($c =~ m#(?:g_challenge|var challenge|\["security:status/challenge"\]) = "([a-f0-9]+)"#) {
my $challenge = $1;
my %data = (
username => $httpuser,
response => sprintf "%s-%s", $challenge, md5_hex(encode("UTF16-LE", sprintf "%s-%s", $challenge, $httppass))
);
$r = $ua->post($url_login, \%data);
$c = $r->decoded_content;
if ($c =~ m#(?:home|logout)\.lua\?sid=([a-f0-9]+)#) {
my $sid = $1;
%data = (sid => $sid, "wakeup:settings/mac" => $mac);
$r = $ua->post($url_wakeup, \%data);
if ($r->is_success) {
print "wakeup done.\n";
} else {
printf "error: %s\n", $r->status_line;
}
} else {
print "error: could not find a session id\n";
}
} else {
print "error: could not find a challenge\n";
}
} else {
printf "error: could not login - %s\n", $r->status_line;
}
exit 0;
