Netsol: Difference between revisions
From Hackepedia
Jump to navigationJump to search
New page: A response to [http://slashdot.org/article.pl?sid=08/01/08/1920215 the slashdot article] about Network solutions registering every domain checked: #!/usr/bin/perl use LWP::UserAgent; m... |
No edit summary |
||
| Line 2: | Line 2: | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
# <mock> give me cred ... | |||
use LWP::UserAgent; | use LWP::UserAgent; | ||
my $domains; | my $domains; | ||
Latest revision as of 00:22, 9 January 2008
A response to the slashdot article about Network solutions registering every domain checked:
#!/usr/bin/perl
# <mock> give me cred ...
use LWP::UserAgent;
my $domains;
my @chars = (a .. z, 0 .. 9, '-');
my $len = int(rand(64));
foreach (0 .. $len) {
$domains .= $chars[int(rand(scalar(@chars)))];
}
my $ua = LWP::UserAgent->new;
my $res = $ua->post('http://www.networksolutions.com/domainSearch.do',{
'domainNames' => $domains,
'TLDs' => '.com',
'method-submit' => ,
'Search' => '/domain-name-registration/domain-name-search-results.jsp',
'allowBulk' => 'false',
'currentPage' => '/home.jsp?layoutIdIndex=1',
'formTargetPage' => '/domain-name-registration/index.jsp',
});
system('nslookup', $domains.'.com');
