Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- use strict;
- use warnings;
- use feature 'switch';
- use CGI ':standard';
- use CGI::Carp 'fatalsToBrowser';
- use Crypt::FNA;
- print "Content-Type: text/html\n\n";
- my $q=CGI->new();
- my $data=$q->param('data');
- my $krypto=Crypt::FNA->new({
- r=> key,
- angle => [x,y,z,k],
- magic => n,
- salted => 'true'
- });
- given ($q->param('action')) {
- when ('encrypt') {
- my @encrypted=$krypto->encrypt_scalar($data);
- my $encrypted=join('\n',@encrypted);
- print $encrypted
- }
- when ('decrypt') {
- my @encrypted=split(/\\n/,$data);
- my $decrypted=$krypto->decrypt_scalar(@encrypted);
- print $decrypted
- }
- }
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement