> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > my $plaintext = do { local $/ = undef; <> };
> > my $pad = "X" x length $plaintext;
> >
> > my $encryptedtext = $plaintext ^ $pad;
> > my $decryptedtext = $encryptedtext ^ $pad;
> > print
>
"plaintext:\n$plaintext\n\nencryptedtext:\n$encryptedtext\n\n",
> > "decryptedtext:\n$decryptedtext\n";
> >
>
> I like it! I just need a simple way to encypt text
> to store in a text
> file. To protect sensitive info.
> Thanks
>
I like it to, but dont understand how it is
encrypting.
Will you kindly expalin?
____________________________________________________________________________________
Pinpoint customers who are looking for what you sell.
http://searchmarketing.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
