AI时代，找源码已成为过去式，纪念我过去的十年0(回)
80天前
还有人吗2(回)
98天前会python真的可以为所欲为0(回)
578天前
这里还有人吗2(回)
763天前这里还有人吗0(回)
763天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
987天前#----------------------------- |
use Term::ReadKey; |
ReadMode ( 'noecho' ); |
$password = ReadLine ( 0 ); |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl -w |
# checkuser - demonstrates reading and checking a user's password |
use Term::ReadKey; |
print "Enter your password: "; |
ReadMode 'noecho'; |
$password = ReadLine 0; |
chomp $password; |
ReadMode 'normal'; |
print "\n"; |
($username, $encrypted) = ( getpwuid $< )[0,1]; |
if (crypt($password, $encrypted) ne $encrypted) { |
die "You are not $username\n"; |
} else { |
print "Welcome, $username\n"; |
} |
#----------------------------- |
