Advertisement
Anakthewolf

FNA - Fractal Numerica Algorithm

May 12th, 2014
348
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl --
  2.  
  3. # FNA Cryptography
  4. # author: Mario Rossano aka Anak, anak@cpan.org
  5. # EXAMPLES FILE
  6.  
  7. use strict;
  8. use warnings;
  9. use Crypt::FNA;
  10.    
  11. my $krypto=Crypt::FNA->new(
  12.     {
  13.         r=> 4,
  14.         angle =>  [42,123,-50],
  15.         square => 2048,
  16.         background => [255,255,255],
  17.         foreground => [0,0,0],
  18.         magic => 1,
  19.         salted => 'false'
  20.     }
  21. );
  22.  
  23. print "Cifratura di pong.swf in corso...\n";
  24.  
  25. my $startTime=time();
  26.    
  27. $krypto->encrypt_file('pong.swf','pong.fna');
  28.    
  29. my $timeInterval=time()-$startTime;
  30.    
  31. print 'criptato pong.swf in pong.fna ('.$timeInterval." sec.)\n";
  32.        
  33. exit
Advertisement
RAW Paste Data Copied
Advertisement