--- oryann9 <[EMAIL PROTECTED]> wrote:
>
> > > #!/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
> >
Please ignore last message and read this one.
So you are using the binary ^ to encrypt with XORED
together bit by bit? Please explain?
thank you.
$/etc/skel
$ perl -le 'print "hello" ^ "XXXXX";'
0=447
$ perl encrypt.plx file2
plaintext:
hello
encryptedtext:
0=447R
decryptedtext:
hello
____________________________________________________________________________________
Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s user panel
and lay it on us. http://surveylink.yahoo.com/gmrs/yahoo_panel_invite.asp?a=7
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
