FNA - Fractal Numerica Algorithm

#!/usr/bin/perl --

# FNA Cryptography
# author: Mario Rossano aka Anak, anak@cpan.org
# EXAMPLES FILE

use strict;
use warnings;
use Crypt::FNA;

my $krypto=Crypt::FNA->new(
    {
        r=> 4,
        angle =>  [42,123,-50],
        square => 2048,
        background => [255,255,255],
        foreground => [0,0,0],
        magic => 1,
        salted => 'false'
    }
);

print "Cifratura di pong.swf in corso...\n";

my $startTime=time();

$krypto->encrypt_file('pong.swf','pong.fna');

my $timeInterval=time()-$startTime;

print 'criptato pong.swf in pong.fna ('.$timeInterval." sec.)\n";

exit