# Felicitari! Eu credeam despre scriptul meu ca e dragutz.
# Mi-am pierdut mana la Perl... Nu l-am incercat in toate
# felurile, dar ideea e super.
#
# Ma chiar gandeam ca pentru a explica ce face scriptul
# (ce, nu cum) e nevoie de mai multe caractere decat sunt
# in script.
Thanks :) Ideea principala era:
@l=getpwnam($ARGV[1]); if(!$l[1]) { print(0); exit }
print((!(crypt($ARGV[0],$l[1]) ne $l[1]))||0);
... dar am mai dezvoltat-o un pic :)
# Mihai
--
Radu <[EMAIL PROTECTED]> www.littledragon.f2s.com
It is the weak who are cruel, only the stong can be truly gentle.
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
