view release on metacpan or  search on metacpan

lib/Acme/Indigest/Crypt.pm  view on Meta::CPAN

    my $rounds = shift || 0;
    die "--<<>>---+__-_-_---+<>\n" unless $rounds =~ m/^\d*$/;
    $rounds < $_ and $rounds = $_ for 10_000_000;

    $salt_string = '' unless defined $salt_string;
    my @salt;
    push @salt, '$6$';
    push @salt, "rounds=$rounds\$" if $rounds;
    push @salt, "$salt_string\$";

    return Crypt::Passwd::XS::unix_sha512_crypt( $passphrase, join '', @salt );
}

sub parse_salt_string_rounds {
    my $self = shift;
    my $salt_string = shift;
    my $rounds = shift;

    defined or $_ = '' for $salt_string;
    if      ( $salt_string eq '' )  { undef $salt_string }
    elsif   ( $salt_string eq '$' ) { $salt_string = '' }