active perl rundaladen
script nehmen
"# Irgendwas-exploit by cyrusthevirus
# 4 epvp
use IO::Socket;
$serv = 'gh.ffshrine.org';
$dir = '/';
$id = deinerefid;
$serv =~ s/(http:\/\/)//eg;
$path = $dir.'?r='.$id;
for( $i=1; $i < 9999; $i++ )
{
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80");
print $socket "GET $path HTTP/1.1\n";
print $socket "Host: $serv\n";
print $socket "Accept: */*\n";
print $socket "Connection: close\n";
print $socket "Cookie:\n\n";
close $socket;
}
"
als .pl datei speichern
start->ausführen
cmd ->in den ordner wechseln wo die datei ist und den namen der datei ausschreiben z.B "cyrus.pl"
sollte eigtl so sein