Thanks for your reply.
Actually my system has been used by number of users and anybody can change
my coding of other valuable script (.pl or .plx).
All script will be kept encoded rather than open code, I'll decrypt again as
and when it's required.
Is there any better option which can be used for this purpose?
Kanhaiya
----- Original Message -----
From: "Rafał Pocztarski" <r.pocztar...@gmail.com>
To: "Kprasad" <kpra...@aptaracorp.com>
Cc: <perl-win32-users@listserv.activestate.com>
Sent: Monday, October 19, 2009 5:57 PM
Subject: Re: Text Encrypt and Decryption
> 2009/10/19 Kprasad <kpra...@aptaracorp.com>:
>> 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.
>
> Who do you want to hide it from? Someone who gets the code?
>
>> my $obscure = pack("u",$_);
>> my $unobscure = unpack(chr(ord("a") + 19 + print ""),$obscure);
>
> First of all, this text is uuencoded, not encrypted. See:
> http://en.wikipedia.org/wiki/Uuencoding
> This encoding is used for sending binary data over text links, not for
> encryption.
>
> Even if the value of (chr(ord("a") + 19 + print "") was hard to guess
> - and it isn't, it's basically 19th letter after "a" and then one next
> - it wouldn't matter because pack/unpack don't have that many options
> for encoding strings of text, and even if it did you still have to
> include something that evaluates to the correct value in your code
> that enyone can evaluate to see what that secret value is without even
> any need to understand the code used to hide it.
>
> Rafał Pocztarski
>
>
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
