Without more information about why you want to encrypt something we can give no good advice; so here's some bad advice#!/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 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
