perl "login.pl"

##</code><code>##

#!/usr/bin/perl
$SIG{TSTP} = 'IGNORE';

system "stty -echo";
system "clear";

print "Enter Password: ";
$input = <STDIN>;
chomp $input;

open FILE, "<.admin";
@passwd = <FILE>;
chomp @passwd;
close FILE;

($nil, $passwd) = split(":", $passwd[0]);
$input = crypt($input, substr($passwd, 0, 2));

if ($input ne $passwd) {
system "clear";
system "stty echo";
print "Enter URL: ";
$url = <STDIN>;
chomp $url;
system "lynx $url";
exec "login.pl";

} else {

for $i (1 .. $#passwd) {
system "clear";
print "Enter Password: ";
$input = <STDIN>;
chomp $input;
($nil, $passwd) = split(":", $passwd[$i]);
$input = crypt($input, substr($passwd, 0, 2));
if ($input ne $passwd) { while (1) { system "clear"; print "Enter Password: "; $
a = <STDIN>; } }
}

system "stty echo";
system "clear";
print "Passwords Correct\n\n";
exit;
}

##</code><code>##

user1:password1
user2:password2
user3:password3
user4:password4
user5:password5