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
agora instanciamos ela e colocamos para esperar a conexao
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
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 ^^
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
by hacker fts315
- 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 ^^
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
by hacker fts315