Página 2 de 3 PrimeiroPrimeiro 123 ÚltimoÚltimo
+ Responder ao Tópico



  1. #6
    Uso o Mandrake e até semana ontem acessava direitinho mas agora depois que mudaram a página de autenticação está um problema sério, a qual ele disca conecta mas não acha a página de autenticação e nem ping em nenhum endereço Ip...

    <IMG SRC="images/forum/icons/icon_frown.gif">

  2. veloxzone.com.br ?



  3. #8
    Exatamente não acha a página ...

  4. Eita, liga lá e verifica o DNS, as vezes eles mudaram..



  5. #10
    AndrewAmorimdaSilva
    Olá, segue o novo script EM PERL para autenticação, pois telemar mudou ded novo!
    Visite a página do criador do script, lá ele expkica direito!
    http://www.isec.com.br/velox/


    #!/usr/bin/perl
    #
    # ---------------------------------------------------------------------------
    # ID-Velox v2.00 [01/11/2003] - http://www.isec.com.br/velox
    # Por Fabio Vilan aka/nick Duwde, fabio -arroba- isec -ponto- com -ponto- br
    # ---------------------------------------------------------------------------
    #
    # [-=> Alteracoes <=-]
    #
    # v2.00 - [01/11/2003]
    #
    # - Versao totalmente rescrita do script, agora em perl, totalmente
    # independentenao do sh, fetch, lynx ou ping !!
    #
    # - Suporta o novo esquema de autenticacao do Velox da Telemar
    # tanto no modo comercial, como residencial, via o metodo CGI POST,
    # e permite mais flexibilidade nas futuras *inesperadas* mudancas
    #
    # - Lista dos provedores residenciais atualizada.
    #
    # -------------
    # Configuracao
    # -------------

    # Define se seu velox e&acute; residencial ou comercial, se for residencial,
    # voce precisa de um login/senha em um provedor, se for comercial,
    # acessa diretamente pela telemar.
    #
    # Valores : &acute;RES&acute; = Residencial
    # &acute;COM&acute; = Comercial

    $VELOX = &acute;COM&acute;;

    # Caso use o sistema comercial, pode ser necessario alterar a string
    # abaixo de acordo com a sua regiao (esta e&acute; a string de conexao
    # para a regiao da Bahia, outras opcoes comentadas abaixo, veja no codigo
    # fonte html da autenticacao velox de sua regiao, caso tenha duvidas)
    #
    # Somente uma das opcoes deve estar descomentada ! Essa opcao so eh
    # util se voce estiver usando o modo COMERCIAL, caso esteja no modo
    # residencial, nao surtira qualquer efeito, pode ignorar esta opcao.
    #

    $COMERCIAL=&acute;AABA&acute;;
    # $COMERCIAL=&acute;AAMG&acute;;
    # $COMERCIAL=&acute;AARJ&acute;;

    # Caso use o sistema residencial, voce precisa definir
    # o nome do seu provedor, o nome tem que ser EXATAMENTE como
    # esta na pagina de autenticacao no velox, aqui estao alguns
    # exemplos, (aparentemente agora varia o final, por regiao,
    # em alguns provedores com o TERRA)
    #
    # Somente uma das opcoes deve estar descomentada ! Essa opcao so eh
    # util se vc estiver usando o modo RESIDENCIAL, caso esteja no modo
    # comercial, nao surtira qualquer efeito, pode ignorar esta opcao.
    #

    $PROVEDOR=&acute;TERRAMG2&acute;;

    # $PROVEDOR=&acute;AOL&acute;;
    # $PROVEDOR=&acute;ATARDE&acute;;
    # $PROVEDOR=&acute;ATT&acute;;
    # $PROVEDOR=&acute;BIOHARD&acute;;
    # $PROVEDOR=&acute;BITNET&acute;;
    # $PROVEDOR=&acute;BRFAST&acute;;
    # $PROVEDOR=&acute;BRIDGE&acute;;
    # $PROVEDOR=&acute;BRTURBO&acute;;
    # $PROVEDOR=&acute;CPUNET&acute;;
    # $PROVEDOR=&acute;DDN&acute;;
    # $PROVEDOR=&acute;DH&acute;;
    # $PROVEDOR=&acute;DIGIZAP&acute;;
    # $PROVEDOR=&acute;FACILINTERNET&acute;;
    # $PROVEDOR=&acute;GD&acute;;
    # $PROVEDOR=&acute;GLOBO&acute;;
    # $PROVEDOR=&acute;HOTLINK&acute;;
    # $PROVEDOR=&acute;INTERCALL&acute;;
    # $PROVEDOR=&acute;INTERDOTNET&acute;;
    # $PROVEDOR=&acute;INTERNETRJ&acute;;
    # $PROVEDOR=&acute;INTERNETT&acute;;
    # $PROVEDOR=&acute;MICROECIANET&acute;;
    # $PROVEDOR=&acute;NUXNET&acute;;
    # $PROVEDOR=&acute;OLIMPO&acute;;
    # $PROVEDOR=&acute;OXENTENET&acute;;
    # $PROVEDOR=&acute;POWERTRIX&acute;;
    # $PROVEDOR=&acute;PRODASAL&acute;;
    # $PROVEDOR=&acute;SEVEN&acute;;
    # $PROVEDOR=&acute;SKNET&acute;;
    # $PROVEDOR=&acute;STL&acute;;
    # $PROVEDOR=&acute;SUPERIG&acute;;
    # $PROVEDOR=&acute;SUPRANET&acute;;
    # $PROVEDOR=&acute;TERRAMG2&acute;;
    # $PROVEDOR=&acute;TERRAMG4&acute;;
    # $PROVEDOR=&acute;WAVENET&acute;;

    # Seu Login no Provedor (!! somente se for residencial !!)
    $LOGIN = &acute;seulogin&acute;;

    # Sua Senha no Provedor (!! somente se for residencial !!)
    $SENHA = &acute;suasenha&acute;;

    # ----------------------------------------
    # -=*=- FIM DA SECAO DE CONFIGURACAO -=*=-
    # ----------------------------------------
    # Nao altere mais nada abaixo, toda configuracao pode ser feita,
    # alterando as variaveis acima, qualquer alteracao abaixo pode
    # tornar seu script nao funcional.

    $HOST = &acute;www.veloxzone.com.br&acute;;
    $PORTA = 80;
    @HOSTS =(&acute;mx.uol.com.br&acute;,&acute;mx.terra.com.br&acute;,&acute;mail.telemar.net.br&acute;
    $HOSTPORTA = 25;
    $HOSTTIMEOUT = 2;
    $RES_URL="/serviceLogon";
    $RES_POST="service=internet_$PROVEDOR&fcn=serviceLogon&ac=home&usr=&username=$LOGIN&password=$SENHA&OK=OK";
    $COM_URL="/serviceStart?service=internet_$COMERCIAL";
    $COM_POST="confirmed=true";

    print "-----------------------------------------------------------------------------\n";
    print " ID-Velox v2.00 [01/11/2003] - http://www.isec.com.br/velox\n&quot;;
    print " Por Fabio Vilan aka/nick Duwde, fabio -arroba- isec -ponto- com -ponto- br\n";
    print "-----------------------------------------------------------------------------\n";

    if ($VELOX eq &acute;RES&acute
    {
    print "!CONFIG! Modo Residencial\n";
    print "!CONFIG! Provedor : $PROVEDOR\n";
    print "!CONFIG! Login : $LOGIN\n";
    $URL=$RES_URL;
    $POST=$RES_POST;
    }
    elsif ($VELOX eq &acute;COM&acute
    {
    print "!CONFIG! Modo Comercial\n";
    print "!CONFIG! Regiao : $COMERCIAL\n";
    $URL=$COM_URL;
    $POST=$COM_POST;
    }
    else
    {
    print "!ERRO! Tipo do velox mal configurado, edite o script !!\n";
    print "!ERRO! Somente as opcoes \"RES\" ou \"COM\" sao possiveis!!\n";
    exit 2;
    }

    use IO::Socket;

    sub autentica()
    {
    $sock = new IO::Socket::INET ( PeerAddr => $HOST, PeerPort => $PORTA, Proto => &acute;tcp&acute;
    die("!ERRO! Nao e&acute; possivel conectar em $HOST !!\n&quot<IMG SRC="images/forum/icons/icon_wink.gif"> unless $sock;

    print "!OK! Conexao estabelecida com $HOST.\n";
    $sock->print("POST $URL HTTP/1.0\r\n&quot<IMG SRC="images/forum/icons/icon_wink.gif">;
    $sock->print("Content-Type: application/x-www-form-urlencoded\r\n&quot<IMG SRC="images/forum/icons/icon_wink.gif">;
    $sock->print("Host: $HOST\r\n&quot<IMG SRC="images/forum/icons/icon_wink.gif">;
    $sock->print("Content-Length: " . length($POST) . "\r\n&quot<IMG SRC="images/forum/icons/icon_wink.gif">;
    $sock->print("\r\n$POST\r\n\r\n\r\n&quot<IMG SRC="images/forum/icons/icon_wink.gif">;
    print "!OK! Aguardando resposta do servidor....\n";
    while ($sock->getline()) {}
    $sock->close();
    }

    sub ping($)
    {
    $x=0;
    foreach (@HOSTS)
    {
    if (($_[0] eq &acute;rapido&acute && ($x>0))
    { return 0; }

    $c = new IO::Socket::INET ( PeerAddr => "$_" , PeerPort => $HOSTPORTA, Proto => &acute;tcp&acute;, Timeout => $HOSTTIMEOUT);
    if ($c)
    {
    $c->close();
    return 1;
    }
    $x++;
    }
    }

    print "-----------------------------------------------------------------------------\n";

    print "!OK! Verificando se voce ja esta autenticado...\n";
    if ( ping(&acute;rapido&acute )
    {
    print "!OK! Voce JA esta autenticado !\n";
    exit 0;
    }

    print "!OK! Voce ainda nao esta autenticado.\n";

    autentica();
    while ( not ping(&acute;completo&acute )
    {
    print "!ERRO! Servidor nao liberou acesso, possivel senha ou configuracao incorreta...\n";
    print "!OK! Tentando novamente...\n";
    autentica();
    }

    print "!OK! Autenticado com sucesso !!\n";

    # EOF




    falow!






Tópicos Similares

  1. pptp-linux com velox, ajuda!
    Por Brenno no fórum Servidores de Rede
    Respostas: 8
    Último Post: 01-04-2005, 09:09
  2. Linux com Novell Netware 5.11
    Por BETAO no fórum Servidores de Rede
    Respostas: 1
    Último Post: 27-01-2003, 09:02
  3. Linux com linha privada de dados.
    Por ncferreira10 no fórum Servidores de Rede
    Respostas: 8
    Último Post: 10-09-2002, 19:26
  4. Workstation Linux com WinBind
    Por no fórum Servidores de Rede
    Respostas: 0
    Último Post: 10-09-2002, 15:37
  5. Espelhamento no Linux com hd´s IDE
    Por clmr no fórum Servidores de Rede
    Respostas: 1
    Último Post: 09-04-2002, 22:09

Visite: BR-Linux ·  VivaOLinux ·  Dicas-L