view release on metacpan or  search on metacpan

lib/Crypt/MySQL.pm  view on Meta::CPAN

    } else {
        require DynaLoader;
        @ISA = qw(DynaLoader);
        __PACKAGE__->bootstrap;
    }
    require Exporter;
    push @ISA, 'Exporter';
    @EXPORT_OK = qw(password password41);
}

sub password41($) { "*".uc(sha1_hex(sha1($_[0]))); }

1;
__END__

=head1 NAME

Crypt::MySQL - emulate MySQL PASSWORD() function.

=head1 SYNOPSIS