#!/usr/bin/perl
# encrypted hash generator for AIM Admin
# by grimR@crypt.cc
print 'Password: ';
chomp($pass = <STDIN>);
$try = "$pass";
$encrypted = crypt $try,MD5;
print 'Your hash is: ';
print "\n";
print $encrypted;
print "\n";