Skip to content

Instantly share code, notes, and snippets.

@igorhrq

igorhrq/emailpass.pl

Created October 21, 2016 01:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save igorhrq/9e13a2b30e29f80bda8209f839ade9f4 to your computer and use it in GitHub Desktop.
Save igorhrq/9e13a2b30e29f80bda8209f839ade9f4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
emailpass.pl
use Getopt::Std;
getopts("u:p:",\%options);
$user = $options{'u'};
$password = $options{'p'};
$data = crypt($password,'$1$'.crypt($password,rand(100)).'$');
print $user . ":" . $data . ":::::::\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment