Tradutor Google
Publicado por Fábio Berbert de Paula 11/12/2002
[ Hits: 24.951 ]
Homepage: https://fabio.automatizando.dev
Script usado para traduzir texto em diversos idiomas usando a engine do translate.google.com como fonte de pesquisa.
<!-- tr.google.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 translate.google.com como fonte de pesquisa. Rio de Janeiro, 25/09/2002 ------------------------------------------------------------------- */ $traducao = '-'; // se text está definido, temos texto a traduzir if ($text) { $traducao = traduzir($text,$langpair); } ?> <html> <head> <title>tr.google.php</title> <style> <!-- body {margin-right: 1em; margin-left: 1em;} --> </style> </head> <body bgcolor="#ffffff" text="#000000" link="#0000cc" vlink="551a8b" alink="#ff0000"> <table width="100%" border=0 cellspacing=0 cellpadding=1> <tr bgcolor=#ffffff> <td> <form method=post> <font face="arial,sans-serif" size=-1>Traduzir texto:</font> <br> <textarea name=text rows=5 cols=45 wrap=PHYSICAL><? echo $text; ?></textarea><br> <font face="arial,sans-serif" size=-1>De</font> <select name=langpair> <option value="en|de">Inglês para Alemão</option> <option value="en|es">Inglês para Espanhol</option> <option value="en|fr">Inglês para Francês</option> <option value="en|it">Inglês para Italiano</option> <option value="en|pt" selected>Inglês para Português</option> <option value="de|en">Alemão para Inglês</option> <option value="de|fr">Alemão para Francês</option> <option value="es|en">Espanhol para Inglês</option> <option value="fr|en">Francês para Inglês</option> <option value="fr|de">Francês para Alemão</option> <option value="it|en">Italiano para Inglês</option> <option value="pt|en">Português para Inglês</option> </select> <input type=hidden name=hl value="en"> <input type=hidden name=ie value="Unknown"> <input type=hidden name=oe value="ASCII"> <input type=submit value=" Traduzir "> </form> </td></tr> <tr><td> <br><br> <font face="arial,sans-serif" size=-1> Texto traduzido:<Br> <pre><? echo $traducao; ?></pre> </font> </table> </body> </html> <? function traduzir($text,$langpair) { // definição de variáveis $host = 'translate.google.com'; $vars = "hl=en&ie=Unknown&oe=ASCII&langpair=$langpair&text=" . urlencode($text); $url = "/translate_t?$vars"; // efetuando conexão com o google $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 { $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 traduzido ereg("name=q rows=[0-9]* cols=[0-9]* wrap=PHYSICAL>(.*)</textarea>",$html,$saida); $traducao = $saida[1]; $traducao = ereg_replace(">.*$","",$traducao); return($traducao); } ?>
Monitoramento simples de servidores
Script PHP para fazer UPLOAD de arquivos
Script PHP para autenticacao web dos usuarios do proprio linux
PortScan em PHP com post usando fsockopen
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
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta