#! /usr/bin/perl use Digest::SHA 'sha256'; use MIME::Base64; use Data::Dumper; $Data::Dumper::Useqq = 1; my ($hash, $salt) = unpack("a32 a*", decode_base64("KGOnPYya2qwhF9w4xK157EZZ/RqIxParohltZWU7h2T/VGjNRA==")); print Dumper {SALT => $salt, DIGEST => $hash}; my $guess = "VMware1234!"; print Dumper {SALT => $salt, DIGEST => sha256($salt . $guess), TEST => $guess};