Mega Code Archive

 

Categories / Perl / String

 

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);