#!/usr/bin/perl

use strict; use warnings; use 5.024; use utf8;

use Crypt::Passwd::XS;

my $salt = "SalzIstToll";
my $data = "test";

my @types = (
        "", 
        '$1$',
        '$2$', 
        '$2a$', 
        '$2b$', 
        '$2x$', 
        '$2y$',
        '$3$',
        '$5$',
        '$6$',
        '$y$'
);
foreach my $t (@types) {
        print "Typ $t: ", Crypt::Passwd::XS::crypt( $data, "$t" . $salt ), "\n";
}

Typ : SamulustSu6HQ
Typ $1$: $1$SalzIstT$NSMBRhm44QBhMA/3E/5Lf/
Typ $2$: 
Typ $2a$: 
Typ $2b$: 
Typ $2x$: 
Typ $2y$: 
Typ $3$: 
Typ $5$: $5$SalzIstToll$c.6VqJ9PYU2EAQvvN4vE..DpKUQPnQm.NeLCF6ujT29
Typ $6$: $6$SalzIstToll$VWE3GZioIfFROLD9bmKdtwudD2gp6v.IFCeB.d7uaeRTQwVhJ2k3DtgIRv3hsx5ALpr1litiSLr13nYurNtrw0
Typ $y$: