package HI::PasswordCrypt;

use strict;
use warnings;
use MIME::Base64;
use Crypt::OpenSSL::Random;
use Exporter 'import';

our @EXPORT_OK = qw(
        crypt_password
);


sub crypt_password {
	my $password = shift;
	my $password_crypted;

        if(!$password) {
                $password = MIME::Base64::encode(Crypt::OpenSSL::Random::random_bytes(9),'');
                warn("password is $password\n");
        }

        if($password =~ /^\$.+\$/) {
                $password_crypted = $password;
        } else {
		my $salt = MIME::Base64::encode(Crypt::OpenSSL::Random::random_bytes(6),'');
                $password_crypted = crypt($password, ('$6$' . $salt));
        }
        return ($password, $password_crypted);
}

1