Re: Simple Encryption - what function/module could I use? > >  > > > > #!/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 Also noticed I could use binary & and | $ perl -le 'print "hello" & "XXXXX";' H@HHH $ perl -le 'print "hello" | "XXXXX";' x}||â but these were not decrypted.  Why not?         ____________________________________________________________________________________ Got a little couch potato?  Check out fun summer activities for kids. http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz  --  To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org http://learn.perl.org/