How to Recover KDB password from IBM HTTP server

Forgot the KDB pass ?

Create a .pl file in the web-server using V I editor [PuTTy].

1) vi unlock.pl

2) and paste this in to it

#!/usr/bin/perl -w

use strict;

die "Usage: $0 <stash file>n" if $#ARGV != 0;

my $file=$ARGV[0];

open(F,$file) || die "Can't open $file: $!";

my $stash;

read F,$stash,1024;

my @unstash=map { $_^0xf5 } unpack("C*",$stash);

foreach my $c (@unstash) {

last if $c eq 0;

printf "%c",$c;

}

printf "n";

3) Save the file.

4) now give full perminssion to the file 

chmod 777 unlock.pl

5) unlock it using below command now.

./unlock.pl   /opt/IBM/HTTPServer/cert/certificate.sth

It will give the stash file password