Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

Participe do fórum, é rápido e fácil

Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/
Nylon Tecnologia
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[tutorial] enviar metodo get e post

Ir para baixo

[tutorial] enviar metodo get e post Empty [tutorial] enviar metodo get e post

Mensagem por hacker fts315 Qua Ago 22, 2012 5:22 pm

bom galera nesse tutorial vou ensinar a enviar requisiçao via metodo get e post com perl, para isso vamos usar a biblioteca LWP::UserAgent, antes disso vamos ver nosso script php para poder analisar melhor

Código:
<?php
  $login = $_GET["l"];
  $senha = $_GET["s"];
  $conc = $login . " " . $senha;
  if(!strcmp($conc,"hacker fts315"))
  {
      echo "acesso permitido";
  }
  else
  {
      echo "acesso negado";
  }
?>

no script ele ta esperando 2 dados via metodo get, q sao l e s, logo em seguida sao armazenados em variaveis e depois concatenado em outra, depois e comparado caso forme "hacker fts315" exibe a mensagem acesso permitido ou acesso negado, um geito para passar os dados seria criar um form em html e passar ou usar a url no caso ali ficaria assim


pronto agora q agente ja entendeu o script php vamos passar para o script perl, bom ja sabemos q temos q passar os dados atravez de l e s vamos chamar a biblioteca LWP::UserAgent e depois instanciar ela

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

use LWP::UserAgent;

$fts = LWP::UserAgent->new;

agora vamos definir o modo de passagem pra isso usamos a nossa variavel q no caso ali e $fts e colocamos get na frente e passamos como argumento o endereço do site como naquela url

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

use LWP::UserAgent;

$fts = LWP::UserAgent->new;
$fts->get("http://127.0.0.1/fts.php?l=hacker&s=fts315");

diferente do html ele nao vai t redirecionar para o php, entao vamos atribuir a parte q agente chama o get a uma variavel e depois agente ler essa variavel com content

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

use LWP::UserAgent;

$fts = LWP::UserAgent->new;
$hack = $fts->get("http://127.0.0.1/fts.php?l=hacker&s=fts315");
print $hack->content;

e pronto vai aparecer acesso permitido ^^ , agora vamos ver o metodo post q e parecido vamos aproveitar nosso script anterior e so mudar o get para post, passar como argumento o endereço do site e nossas informaçao dentro de conchetes assim ["l" => "hacker"], como e dois dados entao coloca virgula e coloca o outro ["l" => "hacker", "s" => "fts315"],

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

use LWP::UserAgent;

$fts = LWP::UserAgent->new;
$hack = $fts->post("http://127.0.0.1/fts.php", ["l" => "hacker" , "s" => "fts315"]);
print $hack->content;

so lembrando q no script tem q ta esperando o metodo post ao invez de get ^^

by hacker fts315
hacker fts315
hacker fts315
Membro

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

http://endoffile.umforum.net

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos