use Digest::MD5 qw(md5_hex);

sub tep_perl_validate_password {
    my ($plain, $encrypted) = @_;
    return 0 unless defined($plain) && defined($encrypted);

    my @stack = split ':', $encrypted;
    return 0 if(scalar(@stack) != 2);

    return md5_hex( $stack[1] . $plain ) eq $stack[0];
}