TÄmä on alunperin suunniteltu käytettäväksi windows komentoriviltä,
mutta linuxin cmd:ssä pitäisi toimia ihan yhtä hyvin. Jos selaimella ajat,
 kannattanee varmaan ottaa tulostukset pois tai vähintäänkin pistää koko
mokoma <pre> tagien sisälle.

Tarvitsee toimiakseen evästeet JSESSIONID, USERID ja SOLauth. Kun
evästeet on laitettu ja systeemi käy sivuilla, ei kannattane kirjauutua ulos,
sillä silloin suomi24 poistaa istunnon eikä tämä silloin enään toimi.

<?php
set_time_limit(0);

//************ASETUKSET ******************************************************

$maara = 6000;    //Monenko käyttäjän sivun kaikki tunnukset käydää låäpi?

$alku = '';               //Oma tunnuksesi
                                        //EVästeet :
$JSESSIONID = '';       
$USERID = '';
$SOLauth = '';

//****************************************************************************


function kay($tunnus) { //vierailee parametrinä annetun käyttäjän sivulla
    global $evaste;
    $uudestaan = false;
   
    do {
        $yhteys = fsockopen("galleria.suomi24.fi", 80, $errno, $errstr, 10);
        if (!$yhteys) {
            echo "Yhteyden muodostamisen aikaraja!\n";
            echo "Odotetaan 30sek.....\n\n";
            $uudestaan = true;
                        @fclose($yhteys);
            sleep(30);
        }
    } while ($uudestaan);
   
    $paketti = "GET /$tunnus HTTP/1.1\n";
    $paketti .= "Host: galleria.suomi24.fi\n";
    $paketti .= "Cookie: $evaste\n";
    $paketti .= "Keep-Alive: 300\n";
    $paketti .= "Connection: close\n\n";
   
    fputs($yhteys, $paketti);
    fclose($yhteys);
}

function hae($tunnus) { //tämä funktio hakee parametrinä annetun käyttäjän sivulta 10 viimeisintä kävijää ja palauttaa taulukossa ne
    global $evaste;
    global $alku;
    $uudestaan = false;
   
    do {
        $yhteys = fsockopen("galleria.suomi24.fi", 80, $errno, $errstr, 10);
        if (!$yhteys) {
            echo "Yhteyden muodostamisen aikaraja!\n";
            echo "Odotetaan 30sek.....\n\n";
            $uudestaan = true;
                        @fclose($yhteys);
            sleep(30);
        }
    } while ($uudestaan);
   
    $paketti = "GET /$tunnus HTTP/1.1\n";
    $paketti .= "Host: galleria.suomi24.fi\n";
    $paketti .= "Cookie: $evaste\n";
    $paketti .= "Keep-Alive: 300\n";
    $paketti .= "Connection: keep-alive\n\n";

    fputs($yhteys, $paketti); //lähetetään paketti

    while(!feof($yhteys)) {
        $vastaus = fgets($yhteys, 2048);
        //echo $vastaus;
        if (preg_match('/\<a href="\/.{0,}"\>[a-z|A-Z|0-9|\_]{0,}\<\/a\>/', $vastaus) AND !preg_match('/'.$alku.'/i', $vastaus)) {
            $m = preg_replace('/(\<a href=".{0,}"\>)(.{0,})(\<\/a\>)/', "$2", $vastaus);
            $m = trim($m);
            $tunnukset[] = $m;
        }
        elseif (preg_match('/Tämä Galleria-sivu ei ole julkinen./', $vastaus)) { //jos näin
            fclose($yhteys);
            $m = array($alku, $alku);
            return $m; //lopetetaan koko touhu mahollisimman nopeasti ja etitään käyttäjä jonka päässä on edes vähän älliä
            break;
        }
    }
    fclose($yhteys);
    return $tunnukset;
}
$evaste = "JSESSIONID=$JSESSIONID;USERID=$USERID;SOLauth=$SOLauth;";

for ($i = 0; $i < $maara; $i++) { //pääsilmukka
   
    if ($sattuma == NULL) { //virheenkorjausmekanismia
        $sattuma = $alku;
    }
   
    $taulu = hae($sattuma);
    $rand = rand(0, count($taulu)); //arvotaan satunainen alkio käyttäjätaulusta väliltä 0 - MONTAKO KÄYTTÄJÄÄ OLI VIERAILLUTSIVULLA
    $sattuma = $taulu[$rand];

    foreach ($taulu As $a) { //Silmukoidaan käyttäjätaulukko läpi
        kay($a);
        echo "K\x84yty: $a\n";
    }
    echo "****** Seuraava kierros nro $i *********\n\n";
    echo "Arpaonni: $sattuma @ $rand\n\n";
}

?>