#!/usr/bin/perl
#       IGanador.pl v1.0
# Script para evitar a aporrinhação da autenticação
# do IG.
# Não pode ser considerado ilegal/imoral pois apenas
# automatiza o processo, e NÃO burla a indentificação
# do usuario.
# Recomendo colocar um link no Cron para rodá-lo hourly
# se for deixar a conexão aberta varios dias.
#   comentários para: gabriel.barros@folha.com.br
#

use IO::Socket;
my($sock, $request);
$usuario = "NOME_DO_USUARIO";
$senha = "SUA_SENHA";
$sock = IO::Socket::INET->new(
        Proto => 'tcp',
        PeerPort => '8000',
        PeerAddr => 'auth.ig.com.br',
        ) || die($!);

        $request = "POST /servlets/autentica HTTP/1.1\nAccept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*\nReferer: http://192.168.1.2/\nAccept-Language: pt-br\nContent-Type: application/x-www-form-urlencoded\nAccept-Encoding: gzip, deflate\nUser-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\nHost: 192.168.1.2\nContent-Length: 71\nConnection: Keep-Alive\n\naction=login&url=&username=$usuario&password=$senha&x=17&y=7\n\n";
        print $sock "$request";
end