Re: lug-bg: RAZKODIRANE NA ZIP PAROLI

[qsin@xxxxxxxxxxxx (Yavor Atanasov)]

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" <vasko@xxxxxx>
To: <lug-bg@xxxxxxxxxxxxxxxxxx>
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