in reply to Thanks!
in thread P@$$w0rd$ in perl?

Actually, the Everything Engine (last time I checked) doesn't encrypt passwords at all.

Assuming you keep your database properly secured, that shouldn't be a problem. Otherwise, you'll need a two-way encryption scheme, maybe a rotation cipher?

my $password = "foobar+"; my $salt = 11; my $newpass = ""; sub encrypt { my $password = shift; my @letters = split '', $password; foreach my $letter (@letters) { my $value = ord($letter) + $salt; while ($value > 255) { $value -= 255; } $newpass .= chr($value); } } sub decrypt { my $password = shift; my @letters = split '', $password; foreach my $letter (@letters) { my $value = ord($letter) - $salt; while ($value < 0) { $value += 255; } $newpass .= chr($value); } }
Not very secure, but better than plain text, if you keep your salt hidden. Keep your database more secure.