Babelfish Translator
Publicado por Fábio Berbert de Paula 11/12/2002
[ Hits: 11.543 ]
Homepage: https://fabio.automatizando.dev
Script usado para traduzir texto em diversos idiomas usando a engine do babelfish.altavista.com como fonte de pesquisa.
<!-- babelfish.php --> <? /* Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br> http://www.vivaolinux.com.br Script usado para traduzir texto em diversos idiomas usando a engine do babelfish.altavista.com como fonte de pesquisa. Rio de Janeiro, 29/07/2002 */ // definição de constantes //setlocale('LC_ALL','nl_NL'); $DOIT = 'done'; $TT = 'urltext'; // se o formulário foi submetido, teremos urltext diferente de vazio if ($urltext) { $traducao = traduzir($urltext,$lp); } else { $traducao = '-'; } // função usada para traduzir um texto function traduzir($urltext,$lp) { // definição de variáveis $host = 'babelfish.altavista.com'; $vars = "doit=$DOIT&tt=$TT&urltext=" . urlencode(utf8_encode($urltext)) . "&lp=$lp"; $url = "/tr?$vars"; // efetuando conexão com o babelfish $fp = fsockopen ($host, 80, $errno, $errstr, 30); if (!$fp) { echo "Ocorreu um erro ao tentar conexão com $host: $errstr ($errno)<br>\n"; exit; } else { // Accept-Language: en // Accept-Charset: iso-8859-1,*,utf-8 $addinfo .= "Accept-Language: en\r\nAccept-Charset: iso-8859-1,*,utf-8\r\n"; fputs ($fp, "GET $url HTTP/1.1\r\nHost: $host\r\n$addinfo\r\n"); while (!feof($fp)) { $html .= fgets ($fp,128); } fclose ($fp); } // removendo quebras de linhas do resultado $html = ereg_replace("\n"," ",$html); // capturando o texto rtaduzido ereg("name=\"q\" value=(.*)>",$html,$saida); $traducao = $saida[1]; $traducao = ereg_replace(">.*$","",$traducao); // decodificar a string $traducao = utf8_decode($traducao); return($traducao); } ?> <html> <style type="text/css"> td,textarea,select,input { font-family: Arial,Helvetica,Sans-Serif; font-size: 11px; color: #000000; } </style> <body style="margin-left: 20px; margin-top: 20px"> <form name="form1" action="<? echo $PHP_SELF ?>"> <table width="400" bgcolor="#000000" cellpadding=1 cellspacing=0> <tr><td> <table width="100%" bgcolor="#ffffff" cellpadding=3 cellspacing=0> <tr> <td bgcolor="#cccccc" nowrap><b><big>BabelFish Translator</big></b></td> <td bgcolor="#cccccc" align="right"> <a href="http://www.altavista.com">Powered by AltaVista</a> </td> </tr> <tr><td colspan=2> Texto: <br> <textarea name="urltext" style="width: 100%;"><? echo $urltext ?></textarea> </td></tr> <tr> <td width="1%" nowrap>Selecione uma linguagem:</td> <td> <select name="lp" style="width: 100%;"> <option value="en_zh">Inglês para Chinês <option value="en_fr">Inglês para Francês <option value="en_de">Inglês para Alemão <option value="en_it">Inglês para Italiano <option value="en_ja">Inglês para Japonês <option value="en_ko">Inglês para Koreano <option value="en_pt">Inglês para Português <option value="en_es">Inglês para Espanhol <option value="zh_es">Chinês para Inglês <option value="fr_en">Francês para Inglês <option value="fr_de">Francês para Alemão <option value="de_en">Alemão para Inglês <option value="de_fr">Alemão para Francês <option value="it_en">Italiano para Inglês <option value="ja_en">Japonês para Inglês <option value="ko_en">Koreano para Inglês <option value="pt_en" SELECTED>Português para Inglês <option value="ru_en">Russo para Inglês <option value="es_en">Espanhol para Inglês </select> </td> </tr> <tr> <td align="right">Tradução </td> <td><? echo $traducao ?></td> </tr> <tr><td colspan=2 align="center"> <br> <input type="submit" value=" Traduzir agora ! " style="width: 100%;"> </td></tr> </table> </td></tr> </table> </form> </body> </html>
PortScan em PHP com post usando fsockopen
Monitoramento simples de servidores
php-scan-rede - scanner de rede simples em PHP
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)