The Road to Elysium

April 24, 2007

encrypt

Filed under: Snippets — jorge @ 14:42
#!/usr/bin/perl
 
# Shows your encrypted password
 
print "Enter your password: ";
chomp($password = <STDIN>);
$salt = sprintf("%02x",($$^time^rand)&0xFF);
print "Your encrypted password is: ".crypt($password,$salt)."\n";

No Comments »

No comments yet.

RSS feed for comments on this post. TrackBack URL

Leave a comment

Powered by WordPress