Ledger Nano X - The secure hardware wallet
SHARE
TWEET

FNA - Fractal Numerica Algorithm

Anakthewolf May 12th, 2014 201 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top