Tradutor Google
Publicado por Fábio Berbert de Paula 11/12/2002
[ Hits: 24.801 ]
Homepage: https://www.instagram.com/alexabolada/
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); } ?>
php-scan-rede - scanner de rede simples em PHP
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Placamae Asus H510M-E Aceita Linux? [RESOLVIDO] (8)
erro ao clonar repo github (3)
Clamav e suas atualizações (25)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (23)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba