Netsol
From Hackepedia
Jump to navigationJump to searchA 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');