#!/bin/perl -w
use LWP::Simple;

# passwort recovery tool for SMC 2804 wbr routers.
#
# config retrieval seems to work with a lot of SMC routers.
#
# idea from a usenet posting in de.soc.misc.wlan o.ae.
#
# usage: 2804pwd_rec.pl 192.168.2.1
 
($ip) = @ARGV or die "please specify IP address of your 2804 router. Use:\n$0 ip_address\n";

$content = get("http://$ip/2804wbr_backup.dlf");
$pwd = substr($content,2673);
@fields = split(/\0/, $pwd);

print "password of $ip is: $fields[0]\n";

-- FrankHartmann - 23 Mar 2004