#!/usr/bin/perl
#
# This is GPL!
#
# Writen by Mikkel Christensen, Mikjaer Aps
#
chdir(“/var/www/ispcp/engine”);
require ‘/var/www/ispcp/engine/ispcp_common_code.pl’;
my ($rs, $real_password);
my $pass = $ARGV[0];;
($rs,$real_password) = decrypt_db_password($pass);
printf (“%s”,$real_password);
exit(0);
~