Oshte po ZIP
http://www.faqs.org/faqs/compression-faq/part1/section-32.html
Po tozi povod imam i az edin vupros. Imam edin perl script za
extractvane na parolite na potrebitelite na mojta Linux mashina,
no toj po njakakva prichina ne raboti. Bihte li mi preporuchali njakoe
prilozhenie za tova che mi e trudno da upravljavam 50 accounta
bez da moga da vidja tekushtoto sustojanie.
Tova e moja script ako na njakoj mu se zanimava:
#!/usr/bin/perl
@shadow_entries=`cat /etc/shadow | cut -d: -f1,2`;
chomp( @shadow_entries );
foreach $shadow (@shadow_entries) {
my ($name,$passwd) = split(/\:/, $shadow);
$user_passwd{ $name } = $passwd;
}
while ($user = <STDIN>) {
chomp( $user );
$passwd = $user_passwd{ $user };
if ($passwd) {
print "$user:$passwd\n";
}
}
Yavor Atanasov
----- Original Message -----
From: "Vasko Tomanov" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, August 31, 2001 3:28 PM
Subject: Re: lug-bg: RAZKODIRANE NA ZIP PAROLI
> losho losho.......
>
> az nimam WIN w ofisa.........
>
===========================================================================
> A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers)
> http://www.linux-bulgaria.org/ Hosted by Internet Group Ltd. - Stara
Zagora
===========================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers)
http://www.linux-bulgaria.org/ Hosted by Internet Group Ltd. - Stara Zagora
