Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

[tutorial] socket em perl - cliente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[tutorial] socket em perl - cliente

Mensagem por hacker fts315 em Qui Ago 16, 2012 7:09 am

continuando o tutorial anterior q agente fez um servidor, agora vamos fazer o cliente veja o codigo do nosso servidor

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>315,Proto=>"tcp",Listen=>2);
$hack = $fts->accept();
while(1)
{
  $hack->recv($lol,1000);
  print $lol;
}

vamos aproveitar o codigo ate a parte new(), ao invez da gente passar LocalAddr agente passa PeerAddr, LocalPort e PeerPort, protocolo e o mesmo, e tiramos o limite de conexao colocamos no Timeout q e o tempo q ele fica aguardado a conexao

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);

ja ta pronto a parte cliente ^^, so enviar os dados com $fts->send()

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);
$fts->send("fts");

para digitar os dados e enviar direto basta criar um loop e atribuir a uma variavel a entrada de dados depois enviar a variavel

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);
while(1)
{
  $hack = <stdin>;
  $fts->send($hack);
}

bom galera e isso ^^

by hacker fts315


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
hacker fts315
Membro

Mensagens : 53
Pontos : 4035
Reputação : 32
Data de inscrição : 12/08/2012

Ver perfil do usuário http://endoffile.umforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum