Skip to content

Instantly share code, notes, and snippets.

@beezly

beezly/gist:3121789

Created July 16, 2012 09:28
Show Gist options
  • Save beezly/3121789 to your computer and use it in GitHub Desktop.
Save beezly/3121789 to your computer and use it in GitHub Desktop.
Download ZIP
SHA512 crypt function
Raw
gistfile1.pl
use String::Random qw(random_regex);
sub encrypt {
my $password = shift;
my $salt = random_regex('[0-9A-Za-z./]{16}');
return crypt($password,'$6$'.$salt);
}
@beezly
Copy link
Author

beezly commented Jul 16, 2012

If you want a cross platform implementation that doesn't depend on the libc crypt, it's probably worth looking at this: http://stackoverflow.com/questions/11017330/creating-glibc-2-7-style-sha-512-crypt-hashes-in-perl

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment