Autor
tenia ganas de probar con LWP y llegue a esto:
Código:
use LWP::Simple;
open (IN, 'accounts.txt');
while (<IN>) {
chomp;
$user=substr($_,0,5);
$pass=substr($_,6,6);
print "\n";
while()
{
sleep(3);
my $rap = get("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login="."$user"."&password="."$pass");
if ($rap=~/Account found, but password is incorrect/)
{
print "Password incorrect";
}
elsif($rap=~/Account not found/)
{
print "Account not found";
}
}
}
close (IN);
el archivo accounts.txt es asi:
Código:
11111:222222
11111:222222
11111:222222
11111:222222
11111:222222
es para chequear si una cuenta premium esta activa y si el password es correcto.
... ya lo solucione
En línea
