#!/usr/bin/perl 
use LWP::UserAgent;
    #Erzaehl woher du kommst 
sub getReferer{
    return $ref[int(rand(@ref))];
}
    #Tarn dich als Browser
sub getUserAgent{
    my @ua = ( "Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)",
             "Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)",
            "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)",
            "Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)",
            "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)",
            "Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)",
            "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
            "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
            "Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929",
            "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox",
            "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4",
            "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6",
            "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6",
            "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b",
            "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b",
            "Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0",
            "Opera/9.00 (Macintosh; PPC Mac OS X; U; en)",
            "Opera/8.51 (Windows NT 5.1; U; en)",
            "Opera/8.51 (Windows NT 5.1; U; en)",
            "Mozilla/5.0 (Windows NT 5.1; U; en) Opera 8.50",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en) Opera 8.50",
            "Opera/8.50 (Windows NT 5.1; U; en)",
            "Opera/8.50 (Windows NT 5.1; U; en)",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Opera/8.50 (Windows NT 5.1; U; en)",
            "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/412 (KHTML, like Gecko) Safari/412",
            "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
            "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/412 (KHTML, like Gecko) Safari/412",
            "Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-US; rv:1.8) Gecko/20051107 Camino/1.0b1"
       );
    return $ua[int(rand(54))];
}
    #Leg dich Schlafen
sub goSleep {
    my $zufallsZahl = rand($maxZeit);
    my $zeit = $minZeit+$zufallsZahl;
    print "Hau mich aufs Ohr fuer:", $zeit/60, " Minuten.\n";  
    sleep($zeit);
    print "Guten Morgen bin wieder da!\n";
}
    #Bau mir ein User-Agent zusammen
sub buildUserAgent{
    $userAgent = LWP::UserAgent->new();
    $userAgent->agent(&getUserAgent);
    $userAgent->proxy(['http'], 'http://localhost:8118/');
    return $userAgent;
}
    #Bau mir eine Anfrage
sub getRequest{
    $Anfrage= HTTP::Request->new('GET', $url);    
    $Anfrage->protocol('HTTP/1.0');
    $Anfrage->referer(&getReferer);
    return $Anfrage; 
}
print " ----------------------------\n";
print "|     VirtualSiteVisitor     |\n"; 
print "|  for simulating visits on  |\n"; 
print "|         a website          |\n";  
print "|  by Bahtiar \@lias Blase16  |\n"; 
print "|       www.blase16.de       |\n";
print " ----------------------------\n";
print "Was soll ich klicken? \n";
$url =<STDIN>;
print "Wie oft soll ich klicken? \n";
$soOft = <STDIN>;
print "Wie gross soll die minimale Wartezeit sein in Minuten?\n";
$minZeit = (<STDIN> * 60);
print "Wie gross soll die miaximale Wartezeit sein in Minuten?\n";
$maxZeit = (<STDIN> * 60) - $minZeit;
print "Welche Referer sollen es sein?(CTRL + D)\n";
@ref = <STDIN>;
$shonGeklickt=0;
for(my $i=0; $i<=$soOft; $i++) {
    $shonGeklickt++; 
    $Antwort = &buildUserAgent->request(&getRequest);
    print $Antwort->content() , "\n";
    print "Schon geklickt : $shonGeklickt mal\n";
    &goSleep;
}