Resultados 1 a 5 de 5

Tópico: Simples Servidor Proxy

  1. #1
    Membro ingresso
    Data de Ingresso
    Apr 2012
    Posts
    70
    Post Thanks / Like

    Simples Servidor Proxy

    É só uma versão beta !
    http proxy server

    http://www.youtube.com/watch?v=_26cpBOZRI0

    Código PHP:
    #!/usr/bin/perl -w
     
    # c0der => MMxM
     
    use strict;
    use 
    IO::Socket;
     
    sub received {
        
    my $bind IO::Socket::INET->new(
            
    LocalAddr => '0.0.0.0',
            
    LocalPort => 1234# Mude caso queira
            
    Type => SOCK_STREAM,
            
    Reuse => 1,
            
    Listen => 10
    ) || die "[-] Erro ao criar socket : $!\n";
     
        
    my $req;
        while(
    my $cmd $bind->accept()){
            while(
    my $pass = <$cmd>){
                
    $req .= $pass;
                if(
    $pass =~ /Connection: (.*)/i){
                    
    my $source sendd($req);
                    print 
    $cmd $source;
                    
    last;
                }
            }
            
    last;
        }
        
    }
     
    sub sendd {
        
    our $host;
        
    my $body;
        
    my $req $_[0];
        if(
    $req =~ /Host: (.*)/i){
            
    $host = $1;
        }
        
    my $ss IO::Socket::INET->new(
            
    PeerAddr => $host,
            
    PeerPort => 80,
            
    Proto => 'tcp',
            
    Timeout => 10
        
    );
        print 
    $ss $req;
        print 
    $ss "\r\n\r\n";
        while(
    my $line = <$ss>){
            
    $body .= $line;
        }
        return(
    $body);
    }
     
    &
    received while(1); 

  2. #2
    Membro Avatar de netsoul
    Data de Ingresso
    Dec 2007
    Localização
    CDE
    Posts
    152
    Post Thanks / Like
    Eu vou favoritar este thread aqui

  3. #3
    Hacker ingresso Avatar de guedes.acp
    Data de Ingresso
    Sep 2010
    Localização
    #!/usr/bin/env perl
    Posts
    1.444
    Post Thanks / Like
    Citação Postado originalmente por netsoul Ver Post
    Eu vou favoritar este thread aqui
    Pensei que você tinha sido preso.
    Sumidão em....
    Como vc ta?
    So respondo se a consiencia perguntar!!!
    Não Respondo MP's de perguntas, as faça em um tópico!

    Perl User, Bioinformatcs Programmer!


    just another biomedical perl hacker try to learn Delphi

  4. #4
    Moderador ingresso Avatar de .Nero
    Data de Ingresso
    Feb 2012
    Localização
    Earth
    Posts
    699
    Post Thanks / Like
    Citação Postado originalmente por guedes.acp Ver Post
    Pensei que você tinha sido preso.
    Sumidão em....
    Como vc ta?
    Isso que é amizade, "Pensei que vc tinha sido preso"...
    - kiss principle -
    - repeat after me: harem -


  5. #5
    Membro Avatar de netsoul
    Data de Ingresso
    Dec 2007
    Localização
    CDE
    Posts
    152
    Post Thanks / Like
    Citação Postado originalmente por guedes.acp Ver Post
    Pensei que você tinha sido preso.
    Sumidão em....
    Como vc ta?
    Rapaz, a mulher é o própio demonio, rs... Tive problemas com a namorada, mas agora to bem...

    Amizade é isso... linguagem (Perl) que nos une

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •