#!/usr/bin/perl
use strict;
use warnings;

use Crypt::Twofish;

my $key = "oe" x 8;
my $cipher = Crypt::Twofish->new($key);
my $passwd = 'eins' x 4;

print "Passwort ist gültig\n" if($cipher->blocksize() == length($passwd));
print $cipher->encrypt($passwd). "\n";