Password Recovery from Stash File

quando si dimentica la password , o chi crea il file per le richiesta del certificato ssl non la scirve un breve script perl
può aiutarci.......

#!/usr/bin/perl
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";



è sufficente salvarlo in una cartella avere l'interprete Perl installato

ed eseguirlo passandogli il file .sth da decriptare

es:

RecoveryPwd.pl <mioFile.sth>

alla prossima

Andrea Fontana