#!/usr/bin/perl
# Hash Analyzer 0.1 (c) 2006 by eSpy

# use module
use strict;
use warnings;
use XML::Simple;

# variables
my $file = 'hashdb.xml';
my $hash = '4TKMer2ittZ7c';

# create object
my $xml  = XML::Simple->new();

# read xml file
my $hashdb = $xml->XMLin($file);

# parsing hash
foreach my $entry (@{$hashdb->{hash}})
{  
  if ($hash =~ /$entry->{regexp}/)
  {
     print "\nPossible Hash types:\n\n";
     
     foreach my $type (@{$entry->{type}})
     {
       print $type."\n";
     }
   last;     
  }
}