String Perl

  1. Home
  2. Perl
  3. String
  4. Use the crypt() operator to store passwords in an unbreakable format
#!/usr/bin/perl
use warnings;
use strict;
my $passwd = "password";
my $salt = join '',('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
$passwd = crypt($passwd, $salt);