Die meisten FRITZ!Box-Modelle bringen eine “Wake on Lan”-Funktion mit, über die sich ein ausgeschalteter Heimrechner starten läßt, wenn beispielsweise gerade Zugriff vom Büro aus notwendig ist. Solange der Rechner zu Hause am (verkabelten) LAN hängt, funktioniert das Ganze einwandfrei. Allerdings muß man sich auf der FRITZ!Box zunächst per HTTP-Auth und anschließend mit Admin-Paßwort anmelden, ins entsprechende Menü navigieren, dort den Rechner auswählen, der aufgeweckt werden soll, und schließlich den finalen Button drücken. Da das alles unglaublich viel Zeit frißt (bestimmt volle 1-2 Minuten!), hier ein Perl-Script, das den Kram automatisiert: Einmalig anpassen, starten, fertig.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
#!/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; |
Getestet wurde das Ganze mit einer FRITZ!Box 7170 und einer 7390.
Update:
Das Script wurde an die aktuelle Firmware der 7390 angepaßt.
Tags: Coding
Es wäre schön, wenn du das Script so umschreiben könntest, das es dich zur Eingabe des Usernames und der Passwörter bittet. Ich fühle mich nicht so richtig wohl, wenn ich diese sensiblen Daten in Klartext abspeichere. Vielleicht gibt es auch noch eine andere Möglichkeit. Trotzdem vielen Dank.
Grüße Tristan
@Tristan: Ich habe das Script angepaßt und eine entsprechende Abfrage eingebaut.
Vielen Dank. Noch schöner wäre natürlich eine Keychainabfrage wie beim Encfs Script von http://widerin.org/blog/secure-your-dropbox
@Tristan: Man kann’s auch übertreiben.
Hallo
Eine super Idee dieses Script!
Hab es sofort ausprobiert!Leider funktioniert es bei mir auf der 7390
mit der aktuellen Firmware 84.05.50 nicht.
Bekomme ständig die Meldung “login error”.
Ich vermute,dass sich die Adressen der Websites geändert haben oder die
Reihenfolge der Abfrage der Passwörter!
Leider bin ich kein Perl und Fritzbix-Experte.
Hat jemand Tipps?
Vielen Dank für jeden Tipp
@Chris: Hast du den Kommentar am Ende der Config-Sektion geprüft (SSL-Zertifikatsüberprüfung abschalten)?
Hallo
Ja, habe ich aktiviert bzw. die Kommentarraute entfernt. Zeile sieht so aus:
$ua->ssl_opts(verify_hostname => 0);
An der neuen Firmware liegts auch nicht. Habe die 84.05.05 und die 84.05.22 auch probiert. Leider ohne Erfolg. Mein Verdacht ist auch das Zertifikat, da laut Fritzbox Logs auch nie ein Login-Vorgang stattfindet. Das heisst, er müsste sich an der Zertifikatswarnung aufhängen (die kommt auch, wenn ich es manuell mache).
Hast du noch eine Idee, bzw. einen Tipp für mich? Verzweifle langsam, weil das echt ne coole Sache wäre.
Vielen Dank!
@Chris: Ich habe das Script an die aktuelle 7390-Firmware angepaßt. Nun sollte alles funktionieren.
Vielen Dank. Läuft jetzt alles super. Lag also doch an der Firmware und nicht am Zertifikat. Danke für den Support. Viele Grüsse!