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@listserv.ActiveState.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 this code.
my $obscure = pack("u",$_);
my $unobscure = unpack(chr(ord("a") + 19 + print ""),$obscure);
Kanhaiya Prasad
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs