use Crypt::CBC;  # Blowfish
use IO::Socket;
use MIME::Base64;


# zum bsp  die send func ein kleiner ausschnit
    if( $self->{cipher} )
    {
        $send_mesg = $self->{cipher}->encrypt( $send_mesg );
        $self->{cipher}->finish;
    }
    
    $send_mesg = encode_base64( $send_mesg );
    
    print $con "$send_mesg";