Using php Syntax Highlighting
$passwd = system ("/usr/bin/perl /var/www/conSSL/web/includes/crypt.pl {$_SESSION['username']} $pass", $retval);
Coloreado en 0.017 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
#!/usr/bin/perl
use Crypt::SmbHash;
$username = $ARGV[0];
$password = $ARGV[1];
if ( !$password ) {
print "Not enough arguments\n";
print "Usage: $0 username password\n";
exit 1;
}
$uid = (getpwnam($username))[2];
my ($login,undef,$uid) = getpwnam($ARGV[0]);
ntlmgen $password, $lm, $nt;
#FUNCIONA PERO MUESTRA RESULTADO EN PANTALLA
#printf "%s:%s:", $lm, $nt;
#INTENTO ESTO OTRO PERO NO LOGRO COGER LOS DATOS
$returnval = $lm, $nt;
return ($returnval);
use Crypt::SmbHash;
$username = $ARGV[0];
$password = $ARGV[1];
if ( !$password ) {
print "Not enough arguments\n";
print "Usage: $0 username password\n";
exit 1;
}
$uid = (getpwnam($username))[2];
my ($login,undef,$uid) = getpwnam($ARGV[0]);
ntlmgen $password, $lm, $nt;
#FUNCIONA PERO MUESTRA RESULTADO EN PANTALLA
#printf "%s:%s:", $lm, $nt;
#INTENTO ESTO OTRO PERO NO LOGRO COGER LOS DATOS
$returnval = $lm, $nt;
return ($returnval);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Saludos y gracias
