seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Servidores / Cliente » FTP / HTTP » [tutorial] servidor http basico em perl

[tutorial] servidor http basico em perl

Ir em baixo  Mensagem [Página 1 de 1]

1 [tutorial] servidor http basico em perl em Sex Abr 05, 2013 4:57 pm

Kodo no Kami

avatar
master
master
bom galera nesse tutorial vou ensinar como criar um servidor basico de http com a linguagem perl, para começar vamos ter que fazer nosso servidor esperar uma conexao entao vamos declarar os modulos para usar socket

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

use IO::Socket::INET;

agora instanciamos ela e colocamos para esperar a conexao

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

use IO::Socket::INET;

$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>"10315",Listen=>"2",Proto=>"tcp",Reuse=>1);
$hack = $fts->accept();

no exemplo acima ele vai ta esperando uma conexao na port 10315, agora vamos enviar as seguintes informaçao "HTTP/1.0 200 accept", "Connection: close", "Allow: GET,POST,HEAD,OPTIONS", "Server: nome do seu servidor" ,"Content-Type: text/html", Content-Length: tamanho da pagina", damos 2 quebras de linha e a nossa pagina html, para ficar mais organizado eu criei o cabeçalho em uma variavel e o html em outra

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

use IO::Socket::INET;

$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>"10315",Listen=>"2",Proto=>"tcp",Reuse=>1);
$hack = $fts->accept();


$lol = "HTTP/1.0 Accept 200 " .
      "Connection: close " .
      "Server: fts " .
      "Allow: GET,POST,HEAD,OPTIONS " .
      "Content-Type: text/html " .
      "Content-Length: ";

$pagina = "\n\n<html>" .
         "<head>" .
         "<title>by hacker fts315</title>" .
         "</head>" .
         "<body bgcolor=black text=white>" .
         "<center><font color=red><h1>SERVIDOR FTS HTTP LOL</h1></font><hr>" .
         "testando um servidor http basico criado em perl by hacker fts315</center>" .
         "</body>" .
         "</html>";

$tam = length($pagina);

$servidor = $lol . $tam . $pagina;

$hack->send($servidor);
$hack->close

agente poderia melhorar e muito nosso servidor fazendo ele carregar um arquivo html, salvar logs de conexao, criar um loop para ele conectar denovo etc ^^

[Você precisa estar registrado e conectado para ver esta imagem.]

by hacker fts315


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

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