Für alle Interessierten:
So kann man das in Perl realisieren
Code:
#!/usr/bin/perl -w
use Shell;
if (!defined($ARGV[0]) || !defined($ARGV[1]))
{
print("command usage:\n");
print("auth.pl USER, PATH, PORT, TIMEOUT, TICKET\n");
0;
}
else
{
$userIN = $ARGV[0];
$pwdIN = $ARGV[1];
chomp($pwdIN);
@passwdStruct = getpwnam($userIN);
if (@passwdStruct == 0)
{
print("invalid user name\n");
0;
}
else
{
$passwd=$passwdStruct[1];
$encryptedPWD = crypt($pwdIN, $passwd);
if ($passwd eq $encryptedPWD)
{
print("success\n");
1;
}
else
{
print("incorrect password\n");
0;
}
}
}
Gruß,
gorgophol
Lesezeichen