File Coverage

blib/lib/Acme/Indigest/Crypt.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	9	14	64.2
condition	6	8	75.0
subroutine	7	7	100.0
pod	0	3	0.0
total	64	75	85.3

package Acme::Indigest::Crypt;
BEGIN {
  $Acme::Indigest::Crypt::VERSION = '0.0011';
}
# ABSTRACT: Acme::Indigest::Crypt

use strict;
use warnings;

use Crypt::Passwd::XS;

sub digest {
    my $self = shift;
    my $passphrase = shift;
    my $salt_string = shift;
    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 = '' }
    defined and $_ = eval "$_" for $rounds;

    return ( $salt_string, $rounds );
}

sub digest_multiple {
    my $self = shift;
    my $input = shift;
    my $output = "";
    for ( split m/\n+/, $input ) {
        chomp;
        next if m/^\s*#/;
        next unless m/\S/;
        my ( $identifier, $salt_string, $rounds, $passphrase ) = split ':', $_, 4;
        ( $salt_string, $rounds ) = Acme::Indigest::Crypt->parse_salt_string_rounds( $salt_string, $rounds );
        my $ciphertext = Acme::Indigest::Crypt->digest( $passphrase, $salt_string, $rounds );
        $output .= "$identifier => $ciphertext\n";
    }
    return $output;
}


1;

__END__