API do Bing para traduzir textos

Publicado por Perfil removido (última atualização em 08/10/2013)

[ Hits: 3.741 ]

Download tradutor.pl




A partir dessa API podemos traduzir textos em diferentes linguagens para o português.

  



Esconder código-fonte

#!/usr/bin/perl -w
# By MMxM
# http://goo.gl/YznD0X | http://goo.gl/IV8KUd

use strict;
use WWW::Mechanize;

our $RTTAppID;
print "[+] Aguarde ...\n";
my $mech = WWW::Mechanize->new();
$mech->get( 'http://www.bing.com/translator/' );

if($mech->content() =~ /Default.Constants.RTTAppID = '(.*)'/){
   $RTTAppID = $1;
} else {
   print "[-] Erro\n";
   exit(1);
}

while(1){
   print "\$ ";
   my $texto = <>;
   $texto =~ s/ /+/gi;
   chomp($texto);
   my $url = ( "http://api.microsofttranslator.com/v2/ajax.svc/TranslateArray2?appId=\"$RTTAppID\"&texts=[\"".$texto."\"]&from=\"\"&to=\"pt\"&oncomplete=_mstc1&onerror=_mste1" );
   $mech->get( $url );
   if($mech->content =~ /"TranslatedText":"(.*?)"/) { print "$1\n"; }
}

Scripts recomendados

SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP

AUTENTICACAO VELOX

Perl Check Port - Entenda melhor os sockets

Script para fazer buscas no arquivo de logs do squid

AUTENTICACAO VELOX


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts