Advertisement
Anakthewolf

Crypt::FNA service

Oct 24th, 2014
205
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.63 KB | None | 0 0
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use warnings;
  5. use feature 'switch';
  6. use CGI ':standard';
  7. use CGI::Carp 'fatalsToBrowser';
  8. use Crypt::FNA;
  9.  
  10. print "Content-Type: text/html\n\n";
  11.  
  12. my $q=CGI->new();
  13.  
  14. my $data=$q->param('data');
  15. my $krypto=Crypt::FNA->new({
  16.     r=> key,
  17.     angle =>  [x,y,z,k],
  18.     magic => n,
  19.     salted => 'true'
  20. });
  21.  
  22. given ($q->param('action')) {
  23.     when ('encrypt') {
  24.         my @encrypted=$krypto->encrypt_scalar($data);
  25.         my $encrypted=join('\n',@encrypted);
  26.         print $encrypted
  27.     }
  28.     when ('decrypt') {
  29.         my @encrypted=split(/\\n/,$data);
  30.         my $decrypted=$krypto->decrypt_scalar(@encrypted);
  31.         print $decrypted
  32.     }
  33. }
  34. exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement