[Israel.pm] salsa20 encryption

[Chanan Berler]

Hi All,

has anyone use salsa20 encryption chipper code?
I have tried to following but failed:
Q: does anyone knows why I cannot decipher the value back?

thanks
Chanan

#!/usr/bin/perl +x
use warnings;
use strict;
use warnings;
use strict;

use Crypt::Salsa20;

my $key = 'aaaaaaaaaaaaaaaa';
my $nonce = 'bbbbbbbb';
my $value = 'Chanan';

my $C = Crypt::Salsa20->new(-key => $key, -iv => $nonce);

my $encrypted_value = $C->encrypt($value);
my $value_new = $C->decrypt($encrypted_value);

print $value_new;

-- 
===================
----     Chanan Berler    ----
===================

_______________________________________________
Perl mailing list
Perl@perl.org.il
http://mail.perl.org.il/mailman/listinfo/perl