会python真的可以为所欲为0(回)
359天前
这里还有人吗1(回)
544天前这里还有人吗0(回)
544天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
769天前到处都是羊，不想上班0(回)
849天前
鸽子
0(回)
853天前#----------------------------- |
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"; |
} |
#----------------------------- |
