SoloCodigo

#!/usr/bin/perl -w
use strict;
print "User =>  ";
chomp(my $a = <STDIN>);
print "Password =>  ";
system "stty -echo";
chomp(my $b = <STDIN>);
if ($a eq 'mall' && $b eq 'nopo'){print "Funciona\n";}
if ($a eq 'root' && $b eq 'lll'){print "funciona!\n";}
if ($a eq 'mall' && $b ne 'nopo' ){print "Permizo denegado\n";};
if ($a eq 'root' && $b ne 'llll'){print "acces denieg\n";}
system "stty echo";

#!/usr/bin/perl -w
use strict; print "User =>  ";
my $a = <STDIN>;
chop $a;
print "Password =>  ";
my $b = <STDIN>;
chop $b;

Pos creo que a todos nos gusta el Open source pero caemos en la pirateria jajajajajaja   

Impresionante su -.....Creo que me llegó la hora de aprender Perl    Como ya se PHP, no creo que se me haga muy complicado....así que ahí vamos!!!    Saludos,  Blag