#!/usr/bin/perl use strict; use warnings; use diagnostics; use Crypt::CBC 2.30; my $text = <new( -key => 'schluessel', -cipher => 'Blowfish', ); my $verschl = $cipher_sender->encrypt($text); print "Salat: '$verschl'\n"; my $cipher_empfaenger = Crypt::CBC->new( -key => 'schluessel', -cipher => 'Blowfish', ); my $klar = $cipher_empfaenger->decrypt($verschl); print 'Klappt'.($klar ne $text ? ' NICHT' : '')."!\n";