Hello,<br>I have been trying to develop a subdomain scanner for nikto however Ive never coded in Perl and have now come to a dead end.<br><br>Here is the code which is in the Plugins directory in a file called &quot;nikto_subdomain.plugin&quot;:<br>
<br>sub nikto_subdomain<br>{<br><br> <br> my @subdomain = (&quot;ftp&quot;, &quot;mail&quot;, &quot;email&quot;, &quot;webmail&quot;, &quot;mailboxes&quot;, &quot;ns&quot;, &quot;ns1&quot;, &quot;ns2&quot;, &quot;ns3&quot;, &quot;forum&quot;, &quot;forums&quot;, &quot;admin&quot;, &quot;login&quot;, &quot;secret&quot;, &quot;dev&quot;, &quot;demo&quot;, &quot;apps&quot;, &quot;iphone&quot;, &quot;test&quot;, &quot;testing&quot;, &quot;testing123&quot;, &quot;backup&quot;, &quot;adm&quot;, &quot;intranet&quot;, &quot;extranet&quot;, &quot;net&quot;, &quot;cust&quot;, &quot;customer&quot;, &quot;wap&quot;, &quot;www&quot;, &quot;blog&quot;, &quot;images&quot;, &quot;news&quot;, &quot;desktop&quot;, &quot;local&quot;, &quot;directory&quot;, &quot;print&quot;, &quot;printer&quot;, &quot;services&quot;, &quot;code&quot;, &quot;finance&quot;, &quot;mobile&quot;, &quot;download&quot;, &quot;downloads&quot;, &quot;upload&quot;, &quot;uploads&quot;, &quot;dir&quot;, &quot;support&quot;, &quot;vpn&quot;, &quot;stats&quot;, &quot;shop&quot;, &quot;web&quot;, &quot;db&quot;);
<br><br><br> foreach $subdomain (@subdomain)<br> {<br>  <br>  LW2::http_close(\%request);    # force-close any old connections<br>  LW2::http_reset();<br>  <br>  my $wh = $request{&#39;whisker&#39;}{&#39;Host&#39;};<br>  my $h  = $request{&#39;Host&#39;};<br>
  delete $request{&#39;whisker&#39;}{&#39;Host&#39;};<br>  delete $request{&#39;Host&#39;};<br><br> $request{&#39;whisker&#39;}-&gt;{&#39;uri_prefix&#39;} = $subdomain;<br> $request{&#39;whisker&#39;}-&gt;{&#39;method&#39;} = HEAD;<br>
 $request{&#39;whisker&#39;}{&#39;version&#39;}  = 1.0;<br> $request{&#39;whisker&#39;}-&gt;{&#39;http_eol&#39;};<br><br> LW2::http_do_request(\%request, \%result);<br><br>  if (($result{&#39;whisker&#39;}-&gt;{&#39;code&#39;} == 200) || ($result{&#39;whisker&#39;}-&gt;{&#39;code&#39;} == 302))<br>
   {<br>    $TESTS{999999}{message} = &quot;Subdomain $subdomain found&quot;;<br>    $TESTS{999999}{osvdb} = 0;<br>    nprint(&quot;+ OSVDB-$TESTS{999999}{osvdb}: $TESTS{999999}{message}&quot;);<br>   } # End if<br><br><br>
 } # End foreach<br>} # End sub<br><br><br>Thanks in adavance.<br>