IP3 NetAccess password decoder.
007ccb7e31d98a988f6328dd6b9ad29e032e5b20fe0f53d46bf737c7f50071bb
#!/usr/bin/perl
# $Id: ip3pwdec.pl,v 1.1 2005/03/24 21:07:46 negative Exp $
#
# IP3 NetAccess password decoder
# by negative@segfault.net
#
# Example config file:
# ...
# controlpanel 1 username admin password 420%448%204%388%396%396%404%460%460%
# controlpanel 2 username shannon password 476%444%456%436%192%224%192%224%
# controlpanel 3 username patrick password 480%448%388%464%456%420%396%428%
# ...
#
# Run:
# $ ip3pwdec.pl < file
#
# Credits: skyper, fygrave, gaius
#
while (<>) {
if (/password\s([\d\d\d%]+)/) {
$ep = $1;
$dp = "";
@ch = split(/%/, $ep);
foreach (@ch) {
$dp .= sprintf "%s", map{chr} $_ / 4;
}
s/$ep/$dp/;
}
print;
}