Babelfish Translator 2.0

Publicado por Fábio Berbert de Paula 20/07/2004

[ Hits: 11.100 ]

Homepage: https://youtube.com/c/cotidianohackeado

Download babelfish.php




Script usado para traduzir texto em diversos idiomas usando a engine do babelfish.altavista.com como fonte de pesquisa.

Versão atualizada com a correção do bug que o limitava a traduzir textos com menos de 30 caracteres.

  



Esconder código-fonte

<!-- babelfish.php -->
<?
/*
Programado por Fábio Berbert de Paula <[email protected]>
http://www.vivaolinux.com.br/~fabio

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
Alterado em 20/07/2004
*/



// 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); // antiga regexp
   ereg("<div style=padding:10px;>(.*)<.div>",$html,$saida); // nova regexp
   $traducao = $saida[1];
   $traducao = ereg_replace(">.*$","",$traducao);
   // decodificar a string
   $traducao = utf8_decode($traducao);
   $fp = fopen("saida.txt", "w");
   fputs($fp, $html);
   fclose($fp);
   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" target="new">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>

Scripts recomendados

Script PHP para fazer UPLOAD de arquivos

Firewall Admin 0.2b

ZPanel

PHPsysInfo 2.1

Cria gráficos para monitoramento de consumo de CPU e Memória a partir de arquivos [Atualização].


  

Comentários
[1] Comentário enviado por RodrigoKulb em 07/07/2008 - 17:46h

Ola Fábio o script não funca mais, andei pesquisando e não achei a solução.

Tentei trocar o host:
de
$host = 'babelfish.altavista.com';
para
$host = 'br.babelfish.yahoo.com';
mais não funcou !!!

vc saberia me dizer o q podemos fazer para arrumar este script ??


Contribuir com comentário