#!/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;
}