desculpem a demora... fiquei um tempo sem ligar o micro em casa (onde esta o
script)
aqui vai ele:
(cuidado com quebras de linhas "falsas" do email)
- - - - 8< - - - corte aqui - - 8< - - - - -
#!/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: [EMAIL PROTECTED]
#
use IO::Socket;
my($sock, $request);
$usuario = "mascotehomossexual";
$senha = "1234561";
$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
- - - - 8< - - - corte aqui - - 8< - - - - -
� isso.
como eu disse... isso pode ser facilmente se voce nao tiver perl... um simples
wget
# wget
auth.ig.com.br:8000/servlets/autentica?action=login&url=&username=mascotehomosse
xual&password=1234561&x=17&y=7
s� isso...
[]s
Gabriel
ps: nao tenho nem ideia dq sejam as variaveis X e Y... quse sempre elas tem o
mesmo valor... simplesmente escolhi um a esmo dos que apareciam nos meus testes
e pronto
Assinantes em 23/12/2001: 2313
Mensagens recebidas desde 07/01/1999: 147568
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
