Hi

Can anyone explain here that how pack and unpack is working here?
I'm unable to understand the syntax of these function, however it's working fine.

Kanhaiya 
----- Original Message ----- 
From: Kprasad 
To: perl-win32-users@[...].com 
Sent: Monday, October 19, 2009 3:17 PM
Subject: Text Encrypt and Decryption


Hi

Can I encrypt our perl script by using these codes?
I need suggestion that it's safe or not do encrypt and decrypt our .pl or .plx file with thi
s code.

my $obscure =  pack("u",$_);

my $unobscure = unpack(chr(ord("a") + 19 + print ""),$obscure);

Kanhaiya Prasad