February 2020 – ControllingTheInter.net

Soapcalls from PHP to .NET Web services

#!/usr/bin/php -q
    &lt;?php
    //Creates a check for HTTP and HTTPS services. Also creates a SSL cert check.
    //Every host is scanned for the ports listed below, and if an web service is found, a service check is created for it.
    $database_folder = "/etc/nagios/scripts/auto_generate_database/"; //Folder of the SQLLite databases to use for host lookup.
    $outputfile = "autoconfig_Custom-services.cfg";
    #$outputfile = "/etc/nagios/conf.d/auto_generated/autoconfig_http-services.cfg";
    $check_http = "/etc/nagios/plugins/check_http"; //Location of Nagios check_http command. This command does all the work and the config is bases on what this command returns.
    $servicehttps_ports_array = array("443","8443","9443","18200","18201","18202","18203","18204","18205","18206","18207","18208","18209","18210");// array of ports for SSL/TLS checks. Also creates a cert check for each ones of these.
    $servicehttp_ports_array = array("80","8080","8888");// array of ports for normal HTTP checks
    $httpcodes = "200,301,302,403,404"; //HTTP codes that are OK
    //////////////////////////// MAIN  ////////////////////////////
    #var_dump($argv);
    #exit();
    include_once("/etc/nagios/scripts/lib/check_for_custom_config_lib.php"); //Load check for custom config library.
    $servicegroups_array = array();// Servicegroup array
    $servicehttp_array = array();// http service array
    $servicehttps_array = array();// https service array
    //Open the database with a list of servers.
    $dbh  = new PDO("sqlite:$database_folder/servers.sqlite3") or die("cannot open the database");
    //Build the arrays
    foreach($servicehttps_ports_array as $port) {
        $servicehttps_array["$port"] = array();
    }
    foreach($servicehttp_ports_array as $port) {
        $servicehttp_array["$port"] = array();
    }
    $stmt = $dbh-&gt;query("SELECT * FROM servers;");
    $debug_count = 0;
    if($argc&gt;1)
    {
        echo "Pinging $argv[1]       \r\n";
        //ping to see if the host is up.
        exec("ping -c 1 $argv[1]", $null, $result);
        if (!($result == 0)){ continue;}
        echo "Checking $argv[1] with ISPortal      \r";
        $Output = NagiosServiceCheck($argv[1]);
        echo $Output;
        $fh= fopen($argv[1],'w');
        fwrite($fh, $Output);
        fclose($fh);
    }
    else
    {
        //Loop over the list of servers.
        foreach ($stmt as $row) {
            $host = $row["hostname"];
            $ip = $row["ip"];
            echo "Pinging $host       \r\n";
            //ping to see if the host is up.
            exec("ping -c 1 $ip", $null, $result);
            if (!($result == 0)){ continue;}
            echo "Checking $host with ISPortal      \r";
            #httpChecks($host,$ip); //Check for HTTP and HTTPS ports
            $Output = NagiosServiceCheck($host);
            echo $Output;
            $fh= fopen($host,'w');
            fwrite($fh, $Output);
            fclose($fh);
            $debug_count++;
        #    if ($debug_count &gt; 50) {break 1;} //Stop after X servers for testing
        }
    }
    exit();
    function ServiceCheck($ServiceName) {
        switch ($i)
        {
            case 0:
                echo "i equals 0";
                break;
            case 1:
                echo "i equals 1";
                break;
            case 2:
                echo "i equals 2";
                break;
        }
    }
    function NagiosServiceCheck($host)
    {
        try
        {
            #$client = new SoapClient("https://IsPortal/API.asmx?WSDL", array('login' =&gt; "EID@FQDN.COM", 'password' =&gt; "MyPasswordGoesHere", 'user_agent' =&gt; 'PHPSoapClient'));
            $client = new SoapClient("https://IsPortal/API.asmx?WSDL", array('user_agent' =&gt; 'PHPSoapClient', 'cache_wsdl' =&gt; WSDL_CACHE_NONE));
            #var_dump($client-&gt;__getFunctions());
            #$result = $client-&gt;HelloWorld()-&gt;HelloWorldResult;
            #$result = $client-&gt;Testing_HelloWorld()-&gt;Testing_HelloWorldResult;
            #$result = $client-&gt;Nagios_GenerateCustomServices($host, "true")-&gt;Nagios_GenerateCustomServicesResult;
            #$result = $client-&gt;__soapCall(Nagios_GenerateCustomServices, 'Hostname' =&gt; '$host', 'MustBeSetToAutomatic', =&gt; 'True')-&gt;Nagios_GenerateCustomServicesResult;
            #$result = $client-&gt;Nagios_GenerateCustomServices(new SoapParam('Hostname', $Hostname), new SoapParam("True", $MustBeSetToAutomatic))-&gt;Nagios_GenerateCustomServicesResult;
            #$result = $client-&gt;Nagios_GenerateCustomServices(array('parameters' =&gt; $params))-&gt;Nagios_GenerateCustomServicesResult;
            $params = array('Hostname' =&gt; $host, 'MustBeSetToAutomatic' =&gt; 'True');
            $result = $client-&gt;__soapCall('Nagios_GenerateCustomServices', array('parameters' =&gt; $params))-&gt;Nagios_GenerateCustomServicesResult;
            #echo $result;
            return $result;
        }
        catch (Exception $e)
        {
            echo 'caught execption: ', $e-&gt;getMessage(), "\n";
        }
    }
    function httpChecks($host,$ip) {
            global $httpcodes,$check_http,$servicehttp_array,$servicehttps_array,$servicehttps_ports_array,$servicehttp_ports_array;
            //Check for an active HTTP service on an array of ports.
            foreach($servicehttp_ports_array as $port) {
                ///Check for an active HTTP service on an array of ports.
                $output_array = array();
                exec ($check_http." -p $port -H $ip --expect=$httpcodes -t 2", $output_array); //Use the Nagios check_http to probe the ports.
                if( preg_match("/HTTP OK:/",$output_array[0]) ) {
                    echo "HTTP $port found for $host                         \n";
                    array_push($servicehttp_array["$port"], $host); //dump found host and port into array
                    //var_dump($servicehttps_array);
                }
            }
            //Check for an active HTTPS service on an array of ports.
            foreach($servicehttps_ports_array as $port) {
                $output_array = array();
                exec ($check_http." -p $port -H $ip -S --expect=$httpcodes -t 2", $output_array); //Use the Nagios check_http to probe the ports.
                if( preg_match("/HTTP OK:/",$output_array[0]) ) {
                    echo "HTTPS $port found for $host                         \n";
                    array_push($servicehttps_array["$port"], $host); //dump found host and port into array
                    //var_dump($servicehttps_array);
                }
            }
    }
    function generateServiceGroups($servicegroups_array) {
        //Create a service group for each new service monitored.
        $output_group = "";
        $servicegroups_array = array_unique($servicegroups_array);
        foreach($servicegroups_array as $name) {
            echo "servicegroup:$name\n";
            $output_group .= "define servicegroup{\n";
            $output_group .= "      servicegroup_name       $name\n";
            $output_group .= "      alias\n";
            $output_group .= "}\n";
        }
        return($output_group);
    }
    function generateServiceHTTP($servicehttp_array,$servicehttp_ports_array){
        $service_list = "";
        $service = "";
        global $servicegroups_array,$httpcodes;
        //loop over each port.
        foreach($servicehttp_ports_array as $port) {
            $service_list = "";
            if (count($servicehttp_array[$port]) &gt; 0) {
                //loop over the array
                foreach($servicehttp_array[$port] as $host) {
                    //skip if there is a custom config.
                    if (checkForCustomConfig($host,"HTTP $port")) {
                    continue;
                    }
                    //Put additional check here.
                    //Service is good, add it to the list.
                    $service_list .= $host . ",";
                }
                $service_list=substr_replace($service_list,"",-1); //remove ending comma
                $service .="define service{\n";
                $service .="        use                             generic-service\n";
                $service .="        host_name                       $service_list\n";
                $service .="        service_description             HTTP $port\n";
                $service .="        check_command                   check_web! --expect=$httpcodes -p $port -w 8 -c 9\n";
                $service .="        check_interval                  5\n";
                $service .="        flap_detection_enabled          0\n";
                $service .="        retry_interval                  1\n";
                $service .="        notifications_enabled           0\n";
                $service .="        servicegroups                   http-checks-$port\n";
                $service .="        contact_groups                  OpsSysadmin\n";
                $service .="        notes                           HTTP $port Website checks\n";
                $service .="}\n";
                array_push($servicegroups_array,"http-checks-$port");
            }
        }
        return($service);
    }
    function generateServiceHTTPS($servicehttps_array,$servicehttps_ports_array){
        $service_list = "";
        $service = "";
        global $servicegroups_array,$httpcodes;;
        //loop over each port.
        foreach($servicehttps_ports_array as $port) {
            $service_list = "";
            if (count($servicehttps_array[$port]) &gt; 0) {
                //loop over the array
                foreach($servicehttps_array[$port] as $host) {
                    //skip if there is a custom config.
                    if (checkForCustomConfig($host,"HTTPS $port")) {
                    continue;
                    }
                    //Put additional check here.
                    //Service is good, add it to the list.
                    $service_list .= $host . ",";
                }
                $service_list=substr_replace($service_list,"",-1); //remove ending comma
                $service .="define service{\n";
                $service .="        use                             generic-service\n";
                $service .="        host_name                       $service_list\n";
                $service .="        service_description             HTTPS $port\n";
                $service .="        check_command                   check_web! --expect=$httpcodes -p $port -w 8 -c 9 --ssl\n";
                $service .="        check_interval                  5\n";
                $service .="        flap_detection_enabled          0\n";
                $service .="        retry_interval                  1\n";
                $service .="        notifications_enabled           0\n";
                $service .="        servicegroups                   https-checks-$port\n";
                $service .="        contact_groups                  OpsSysadmin\n";
                $service .="        notes                           HTTPS $port Website checks\n";
                $service .="}\n";
                array_push($servicegroups_array,"https-checks-$port");
            }
        }
        return($service);
    }
    function generateServiceHTTPSCert($servicehttps_array,$servicehttps_ports_array){
        $service_list = "";
        $service = "";
        global $servicegroups_array,$httpcodes;
        //loop over each port.
        foreach($servicehttps_ports_array as $port) {
            $service_list = "";
            if (count($servicehttps_array[$port]) &gt; 0) {
                //loop over the array
                foreach($servicehttps_array[$port] as $host) {
                    //skip if there is a custom config.
                    if (checkForCustomConfig($host,"HTTPS $port SSL Cert Expiration")) {
                    continue;
                    }
                    //Put additional check here.
                    //Service is good, add it to the list.
                    $service_list .= $host . ",";
                }
                $service_list=substr_replace($service_list,"",-1); //remove ending comma
                $service .="define service{\n";
                $service .="        use                             generic-service\n";
                $service .="        host_name                       $service_list\n";
                $service .="        service_description             HTTPS $port SSL Cert Expiration\n";
                $service .="        check_command                   check_web!--expect=$httpcodes -p $port -w 8 -c 9 --ssl -C 20\n";
                $service .="        check_interval                  5\n";
                $service .="        flap_detection_enabled          0\n";
                $service .="        retry_interval                  1\n";
                $service .="        notifications_enabled           0\n";
                $service .="        servicegroups                   https-cert-checks-$port\n";
                $service .="        contact_groups                  OpsSysadmin\n";
                $service .="        notes                           HTTPS $port SSL Cert Expiration checks\n";
                $service .="}\n";
                array_push($servicegroups_array,"https-cert-checks-$port");
            }
        }
        return($service);
    }
    //------------------------------End of script. Functions below -------------------------

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

#!/usr/bin/php -q

<?php

//Creates a check for HTTP and HTTPS services. Also creates a SSL cert check.

//Every host is scanned for the ports listed below, and if an web service is found, a service check is created for it.

$database_folder = "/etc/nagios/scripts/auto_generate_database/"; //Folder of the SQLLite databases to use for host lookup.

$outputfile = "autoconfig_Custom-services.cfg";

#$outputfile = "/etc/nagios/conf.d/auto_generated/autoconfig_http-services.cfg";

$check_http = "/etc/nagios/plugins/check_http"; //Location of Nagios check_http command. This command does all the work and the config is bases on what this command returns.

$servicehttps_ports_array = array("443","8443","9443","18200","18201","18202","18203","18204","18205","18206","18207","18208","18209","18210");// array of ports for SSL/TLS checks. Also creates a cert check for each ones of these.

$servicehttp_ports_array = array("80","8080","8888");// array of ports for normal HTTP checks

$httpcodes = "200,301,302,403,404"; //HTTP codes that are OK

//////////////////////////// MAIN ////////////////////////////

#var_dump($argv);

#exit();

include_once("/etc/nagios/scripts/lib/check_for_custom_config_lib.php"); //Load check for custom config library.

$servicegroups_array = array();// Servicegroup array

$servicehttp_array = array();// http service array

$servicehttps_array = array();// https service array

//Open the database with a list of servers.

$dbh = new PDO("sqlite:$database_folder/servers.sqlite3") or die("cannot open the database");

//Build the arrays

foreach($servicehttps_ports_array as $port) {

$servicehttps_array["$port"] = array();

}

foreach($servicehttp_ports_array as $port) {

$servicehttp_array["$port"] = array();

}

$stmt = $dbh->query("SELECT * FROM servers;");

$debug_count = 0;

if($argc>1)

{

echo "Pinging $argv[1] \r\n";

//ping to see if the host is up.

exec("ping -c 1 $argv[1]", $null, $result);

if (!($result == 0)){ continue;}

echo "Checking $argv[1] with ISPortal \r";

$Output = NagiosServiceCheck($argv[1]);

echo $Output;

$fh= fopen($argv[1],'w');

fwrite($fh, $Output);

fclose($fh);

}

else

{

//Loop over the list of servers.

foreach ($stmt as $row) {

$host = $row["hostname"];

$ip = $row["ip"];

echo "Pinging $host \r\n";

//ping to see if the host is up.

exec("ping -c 1 $ip", $null, $result);

if (!($result == 0)){ continue;}

echo "Checking $host with ISPortal \r";

#httpChecks($host,$ip); //Check for HTTP and HTTPS ports

$Output = NagiosServiceCheck($host);

echo $Output;

$fh= fopen($host,'w');

fwrite($fh, $Output);

fclose($fh);

$debug_count++;

# if ($debug_count > 50) {break 1;} //Stop after X servers for testing

}

exit();

function ServiceCheck($ServiceName) {

switch ($i)

{

case 0:

echo "i equals 0";

break;

case 1:

echo "i equals 1";

break;

case 2:

echo "i equals 2";

break;

}

function NagiosServiceCheck($host)

{

try

{

#$client = new SoapClient("https://IsPortal/API.asmx?WSDL", array('login' => "EID@FQDN.COM", 'password' => "MyPasswordGoesHere", 'user_agent' => 'PHPSoapClient'));

$client = new SoapClient("https://IsPortal/API.asmx?WSDL", array('user_agent' => 'PHPSoapClient', 'cache_wsdl' => WSDL_CACHE_NONE));

#var_dump($client->__getFunctions());

#$result = $client->HelloWorld()->HelloWorldResult;

#$result = $client->Testing_HelloWorld()->Testing_HelloWorldResult;

#$result = $client->Nagios_GenerateCustomServices($host, "true")->Nagios_GenerateCustomServicesResult;

#$result = $client->__soapCall(Nagios_GenerateCustomServices, 'Hostname' => '$host', 'MustBeSetToAutomatic', => 'True')->Nagios_GenerateCustomServicesResult;

#$result = $client->Nagios_GenerateCustomServices(new SoapParam('Hostname', $Hostname), new SoapParam("True", $MustBeSetToAutomatic))->Nagios_GenerateCustomServicesResult;

#$result = $client->Nagios_GenerateCustomServices(array('parameters' => $params))->Nagios_GenerateCustomServicesResult;

$params = array('Hostname' => $host, 'MustBeSetToAutomatic' => 'True');

$result = $client->__soapCall('Nagios_GenerateCustomServices', array('parameters' => $params))->Nagios_GenerateCustomServicesResult;

#echo $result;

return $result;

}

catch (Exception $e)

{

echo 'caught execption: ', $e->getMessage(), "\n";

}

function httpChecks($host,$ip) {

global $httpcodes,$check_http,$servicehttp_array,$servicehttps_array,$servicehttps_ports_array,$servicehttp_ports_array;

//Check for an active HTTP service on an array of ports.

foreach($servicehttp_ports_array as $port) {

///Check for an active HTTP service on an array of ports.

$output_array = array();

exec ($check_http." -p $port -H $ip --expect=$httpcodes -t 2", $output_array); //Use the Nagios check_http to probe the ports.

if( preg_match("/HTTP OK:/",$output_array[0]) ) {

echo "HTTP $port found for $host \n";

array_push($servicehttp_array["$port"], $host); //dump found host and port into array

//var_dump($servicehttps_array);

}

//Check for an active HTTPS service on an array of ports.

foreach($servicehttps_ports_array as $port) {

$output_array = array();

exec ($check_http." -p $port -H $ip -S --expect=$httpcodes -t 2", $output_array); //Use the Nagios check_http to probe the ports.

if( preg_match("/HTTP OK:/",$output_array[0]) ) {

echo "HTTPS $port found for $host \n";

array_push($servicehttps_array["$port"], $host); //dump found host and port into array

//var_dump($servicehttps_array);

}

function generateServiceGroups($servicegroups_array) {

//Create a service group for each new service monitored.

$output_group = "";

$servicegroups_array = array_unique($servicegroups_array);

foreach($servicegroups_array as $name) {

echo "servicegroup:$name\n";

$output_group .= "define servicegroup{\n";

$output_group .= " servicegroup_name $name\n";

$output_group .= " alias\n";

$output_group .= "}\n";

}

return($output_group);

}

function generateServiceHTTP($servicehttp_array,$servicehttp_ports_array){

$service_list = "";

$service = "";

global $servicegroups_array,$httpcodes;

//loop over each port.

foreach($servicehttp_ports_array as $port) {

$service_list = "";

if (count($servicehttp_array[$port]) > 0) {

//loop over the array

foreach($servicehttp_array[$port] as $host) {

//skip if there is a custom config.

if (checkForCustomConfig($host,"HTTP $port")) {

continue;

}

//Put additional check here.

//Service is good, add it to the list.

$service_list .= $host . ",";

}

$service_list=substr_replace($service_list,"",-1); //remove ending comma

$service .="define service{\n";

$service .=" use generic-service\n";

$service .=" host_name $service_list\n";

$service .=" service_description HTTP $port\n";

$service .=" check_command check_web! --expect=$httpcodes -p $port -w 8 -c 9\n";

$service .=" check_interval 5\n";

$service .=" flap_detection_enabled 0\n";

$service .=" retry_interval 1\n";

$service .=" notifications_enabled 0\n";

$service .=" servicegroups http-checks-$port\n";

$service .=" contact_groups OpsSysadmin\n";

$service .=" notes HTTP $port Website checks\n";

$service .="}\n";

array_push($servicegroups_array,"http-checks-$port");

}

return($service);

}

function generateServiceHTTPS($servicehttps_array,$servicehttps_ports_array){

$service_list = "";

$service = "";

global $servicegroups_array,$httpcodes;;

//loop over each port.

foreach($servicehttps_ports_array as $port) {

$service_list = "";

if (count($servicehttps_array[$port]) > 0) {

//loop over the array

foreach($servicehttps_array[$port] as $host) {

//skip if there is a custom config.

if (checkForCustomConfig($host,"HTTPS $port")) {

continue;

}

//Put additional check here.

//Service is good, add it to the list.

$service_list .= $host . ",";

}

$service_list=substr_replace($service_list,"",-1); //remove ending comma

$service .="define service{\n";

$service .=" use generic-service\n";

$service .=" host_name $service_list\n";

$service .=" service_description HTTPS $port\n";

$service .=" check_command check_web! --expect=$httpcodes -p $port -w 8 -c 9 --ssl\n";

$service .=" check_interval 5\n";

$service .=" flap_detection_enabled 0\n";

$service .=" retry_interval 1\n";

$service .=" notifications_enabled 0\n";

$service .=" servicegroups https-checks-$port\n";

$service .=" contact_groups OpsSysadmin\n";

$service .=" notes HTTPS $port Website checks\n";

$service .="}\n";

array_push($servicegroups_array,"https-checks-$port");

}

return($service);

}

function generateServiceHTTPSCert($servicehttps_array,$servicehttps_ports_array){

$service_list = "";

$service = "";

global $servicegroups_array,$httpcodes;

//loop over each port.

foreach($servicehttps_ports_array as $port) {

$service_list = "";

if (count($servicehttps_array[$port]) > 0) {

//loop over the array

foreach($servicehttps_array[$port] as $host) {

//skip if there is a custom config.

if (checkForCustomConfig($host,"HTTPS $port SSL Cert Expiration")) {

continue;

}

//Put additional check here.

//Service is good, add it to the list.

$service_list .= $host . ",";

}

$service_list=substr_replace($service_list,"",-1); //remove ending comma

$service .="define service{\n";

$service .=" use generic-service\n";

$service .=" host_name $service_list\n";

$service .=" service_description HTTPS $port SSL Cert Expiration\n";

$service .=" check_command check_web!--expect=$httpcodes -p $port -w 8 -c 9 --ssl -C 20\n";

$service .=" check_interval 5\n";

$service .=" flap_detection_enabled 0\n";

$service .=" retry_interval 1\n";

$service .=" notifications_enabled 0\n";

$service .=" servicegroups https-cert-checks-$port\n";

$service .=" contact_groups OpsSysadmin\n";

$service .=" notes HTTPS $port SSL Cert Expiration checks\n";

$service .="}\n";

array_push($servicegroups_array,"https-cert-checks-$port");

}

return($service);

}

//------------------------------End of script. Functions below -------------------------

VB.NET

 &lt;WebMethod()&gt;
    Public Function Nagios_GenerateCustomServices(ByVal Hostname As String, ByVal MustBeSetToAutomatic As Boolean)
        Dim ReturnedArray As ArrayList
        If MustBeSetToAutomatic Then
            ReturnedArray = MyModule.DetectServerServices(Hostname, ServiceProcess.ServiceStartMode.Automatic)
        Else
            ReturnedArray = MyModule.DetectServerServices(Hostname, -1)
        End If
        Dim Host As String = "define host{
  use         linux-server
  host_name   " &amp; Hostname &amp; "
  alias       " &amp; Hostname &amp; "
  address     " &amp; System.Net.Dns.GetHostByName(Hostname).AddressList(0).ToString &amp; "
  notes       Ex. vBlock - VCE PowerPath
  hostgroups  Ex. vBlock_linux_appliance
    }
"
        Dim Data As String = Nothing
        Data = Host
        If MustBeSetToAutomatic Then
            For I = 0 To ReturnedArray.Count - 1
                If (ReturnedArray(I).ToString.StartsWith("!")) Then
                    Continue For
                End If
                Data &amp;= "define service{
        use                             generic-service
        host_name                       " &amp; Hostname &amp; "
        service_description             " &amp; ReturnedArray(I).ToString.Replace("\(", "(").Replace("\)", ")") &amp; "
        check_command                   CheckServiceSNMP!" &amp; ReturnedArray(I) &amp; "
        check_interval                  60
        retry_interval                  1
        notification_interval           60
        contact_groups                  nicholas
        event_handler                   start_service!start_" &amp; ReturnedArray(I) &amp; "
        max_check_attempts              2
        notifications_enabled           1
}
" 'root@Hostname[Nagios]:/usr/lib64/nagios/plugins# ./check_SNMP_service_displayname_emc MySnmpCommunity IsPortal "Power"
            Next
        Else
            For I = 0 To ReturnedArray.Count - 1
                If Not (ReturnedArray(I).ToString.StartsWith("!")) Then
                    Continue For
                End If
                Data &amp;= "define service{
        use                             generic-service
        host_name                       " &amp; Hostname &amp; "
        service_description             " &amp; ReturnedArray(I).ToString.Substring(1).Replace("\(", "(").Replace("\)", ")") &amp; "
        check_command                   CheckServiceSNMP!" &amp; ReturnedArray(I) &amp; "
        check_interval                  60
        retry_interval                  1
        notification_interval           60
        contact_groups                  TheGrouup
        event_handler                   start_service!start_" &amp; ReturnedArray(I) &amp; "
        max_check_attempts              2
        notifications_enabled           1
}
"
            Next
        End If
        Return Data
    End Function

<WebMethod()>

Public Function Nagios_GenerateCustomServices(ByVal Hostname As String, ByVal MustBeSetToAutomatic As Boolean)

Dim ReturnedArray As ArrayList

If MustBeSetToAutomatic Then

ReturnedArray = MyModule.DetectServerServices(Hostname, ServiceProcess.ServiceStartMode.Automatic)

Else

ReturnedArray = MyModule.DetectServerServices(Hostname, -1)

End If

Dim Host As String = "define host{

use linux-server

host_name " & Hostname & "

alias " & Hostname & "

address " & System.Net.Dns.GetHostByName(Hostname).AddressList(0).ToString & "

notes Ex. vBlock - VCE PowerPath

hostgroups Ex. vBlock_linux_appliance

}

Dim Data As String = Nothing

Data = Host

If MustBeSetToAutomatic Then

For I = 0 To ReturnedArray.Count - 1

If (ReturnedArray(I).ToString.StartsWith("!")) Then

Continue For

End If

Data &= "define service{

use generic-service

host_name " & Hostname & "

service_description " & ReturnedArray(I).ToString.Replace("$", "(").Replace("$", ")") & "

check_command CheckServiceSNMP!" & ReturnedArray(I) & "

check_interval 60

retry_interval 1

notification_interval 60

contact_groups nicholas

event_handler start_service!start_" & ReturnedArray(I) & "

max_check_attempts 2

notifications_enabled 1

}

" 'root@Hostname[Nagios]:/usr/lib64/nagios/plugins# ./check_SNMP_service_displayname_emc MySnmpCommunity IsPortal "Power"

Else

For I = 0 To ReturnedArray.Count - 1

If Not (ReturnedArray(I).ToString.StartsWith("!")) Then

Continue For

End If

Data &= "define service{

use generic-service

host_name " & Hostname & "

service_description " & ReturnedArray(I).ToString.Substring(1).Replace("$", "(").Replace("$", ")") & "

check_command CheckServiceSNMP!" & ReturnedArray(I) & "

check_interval 60

retry_interval 1

notification_interval 60

contact_groups TheGrouup

event_handler start_service!start_" & ReturnedArray(I) & "

max_check_attempts 2

notifications_enabled 1

}

End If

Return Data

End Function

simple VB Form Web Fuzzer

Public Class Form1
    Dim NewLetter As Char
    Dim MyWebRequest As New Net.WebClient()
    Dim Extention As String = ".cfm"
    Dim FileLen As Integer = 0
    Dim SleepTime As Integer = 1000
    Const WebSite As String = "http://MyWebsite.com/"
    Private Sub ExplorePath(ByVal RequestString As String, Optional ByVal LastAscii As Integer = 0)
        Application.DoEvents()
        Dim Data As Byte() = Nothing
        Dim NumberOfFilesFound As Integer = 0
        Dim DataLength As Integer = 0
        NumberOfFilesFound = 0
        Debug.WriteLine("Trying: " &amp; WebSite &amp; RequestString &amp; "&lt;" &amp; Extention)
        Try
            If LastAscii = 0 Then
                Data = MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; "&lt;" &amp; Extention)
            Else
                Data = MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; Chr(LastAscii) &amp; "&lt;" &amp; Extention)
            End If
            If DataLength &lt;&gt; Data.Length Then
                If LastAscii = 0 Then
                    ListBox1.Items.Add(RequestString &amp; "&lt;" &amp; Extention)
                Else
                    ListBox1.Items.Add(RequestString &amp; Chr(LastAscii) &amp; "&lt;" &amp; Extention)
                    Try
                        MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; Chr(LastAscii) &amp; Extention)
                        ListBox1.Items.Add("--[" &amp; RequestString &amp; Chr(LastAscii) &amp; Extention &amp; "]--")
                    Catch ex As Exception
                    End Try
                    ExplorePath(RequestString &amp; ChrW(LastAscii), 48)
                End If
            End If
        Catch ex As Exception
            DataLength = 0
        End Try
        Select Case LastAscii
            Case 0
                LastAscii = 48
            Case 58
                LastAscii = 65 'A
            Case 91
                LastAscii = 48 'Zero
                Return
            Case Else
                LastAscii += 1
        End Select
        Threading.Thread.Sleep(SleepTime)
        ExplorePath(RequestString, LastAscii)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'THIS CAN DOS THE SYSTEM
        'Add a Sleep Command
        'Exit Sub
        Dim MyThread(25) As Threading.Thread
        Dim MyThreadClass(25) As ThreadClassAction
        If TextBox2.Text = "" Then
            For i = 0 To 25
                MyThreadClass(i) = New ThreadClassAction
                MyThreadClass(i).CallBack = Me
                MyThread(i) = New Threading.Thread(AddressOf MyThreadClass(i).Launch)
                MyThread(i).Name = Chr(Asc("A") + i)
                MyThread(i).IsBackground = True
                MyThread(i).Start()
            Next
        Else
            Extention = TextBox1.Text
            ExplorePath(TextBox2.Text)
            MsgBox("Done!")
        End If
    End Sub
End Class
Public Class ThreadClass
    Public CallBack As Form
    Public Data As String
    Public Sub AddListItem1()
        Form1.ListBox1.Items.Add(Data)
    End Sub
    Public Sub AddListItem2()
        Form1.ListBox2.Items.Add(Data)
    End Sub
End Class
Public Class ThreadClassAction
    Public CallBack As Form
    Dim MyWebRequest As New Net.WebClient()
    Private Delegate Sub MyDelPtr()
    Public Extention As String = ".cfm"
    Const WebSite As String = "http://MyWebsite.com/"
    Public Sub Launch()
        ExplorePathThread(Threading.Thread.CurrentThread.Name)
    End Sub
    Private Sub ExplorePathThread(ByVal RequestString As String, Optional ByVal LastAscii As Integer = 0)
        Debug.WriteLine("Starting Thread: " &amp; Threading.Thread.CurrentThread.Name)
        Application.DoEvents()
        Dim MyThreadClass As New ThreadClass
        MyThreadClass.CallBack = CallBack
        Dim MyDel1 = New MyDelPtr(AddressOf MyThreadClass.AddListItem1)
        Dim MyDel2 = New MyDelPtr(AddressOf MyThreadClass.AddListItem2)
        Dim Data As Byte() = Nothing
        Dim NumberOfFilesFound As Integer = 0
        Dim DataLength As Integer = 0
        NumberOfFilesFound = 0
        Debug.WriteLine("Trying: " &amp; WebSite &amp; RequestString &amp; "&lt;" &amp; Extention)
        Try
            If LastAscii = 0 Then
                Data = MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; "&lt;" &amp; Extention)
            Else
                Data = MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; Chr(LastAscii) &amp; "&lt;" &amp; Extention)
            End If
            If DataLength &lt;&gt; Data.Length Then
                If LastAscii = 0 Then
                    MyThreadClass.Data = (RequestString &amp; "&lt;" &amp; Extention)
                    CallBack.Invoke(MyDel1)
                Else
                    MyThreadClass.Data = (RequestString &amp; Chr(LastAscii) &amp; "&lt;" &amp; Extention)
                    CallBack.Invoke(MyDel1)
                    Try
                        MyWebRequest.DownloadData(WebSite &amp; RequestString &amp; Chr(LastAscii) &amp; Extention)
                        MyThreadClass.Data = ("--[" &amp; RequestString &amp; Chr(LastAscii) &amp; Extention &amp; "]--")
                        CallBack.Invoke(MyDel2)
                    Catch ex As Exception
                    End Try
                    ExplorePathThread(RequestString &amp; ChrW(LastAscii), 48)
                End If
            End If
        Catch ex As Exception
            DataLength = 0
        End Try
        Select Case LastAscii
            Case 0
                LastAscii = 48
            Case 58
                LastAscii = 65 'A
            Case 91
                LastAscii = 48 'Zero
                Return
            Case Else
                LastAscii += 1
        End Select
        ExplorePathThread(RequestString, LastAscii)
    End Sub
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

Public Class Form1

Dim NewLetter As Char

Dim MyWebRequest As New Net.WebClient()

Dim Extention As String = ".cfm"

Dim FileLen As Integer = 0

Dim SleepTime As Integer = 1000

Const WebSite As String = "http://MyWebsite.com/"

Private Sub ExplorePath(ByVal RequestString As String, Optional ByVal LastAscii As Integer = 0)

Application.DoEvents()

Dim Data As Byte() = Nothing

Dim NumberOfFilesFound As Integer = 0

Dim DataLength As Integer = 0

NumberOfFilesFound = 0

Debug.WriteLine("Trying: " & WebSite & RequestString & "<" & Extention)

Try

If LastAscii = 0 Then

Data = MyWebRequest.DownloadData(WebSite & RequestString & "<" & Extention)

Else

Data = MyWebRequest.DownloadData(WebSite & RequestString & Chr(LastAscii) & "<" & Extention)

End If

If DataLength <> Data.Length Then

If LastAscii = 0 Then

ListBox1.Items.Add(RequestString & "<" & Extention)

Else

ListBox1.Items.Add(RequestString & Chr(LastAscii) & "<" & Extention)

Try

MyWebRequest.DownloadData(WebSite & RequestString & Chr(LastAscii) & Extention)

ListBox1.Items.Add("--[" & RequestString & Chr(LastAscii) & Extention & "]--")

Catch ex As Exception

End Try

ExplorePath(RequestString & ChrW(LastAscii), 48)

End If

Catch ex As Exception

DataLength = 0

End Try

Select Case LastAscii

Case 0

LastAscii = 48

Case 58

LastAscii = 65 'A

Case 91

LastAscii = 48 'Zero

Return

Case Else

LastAscii += 1

End Select

Threading.Thread.Sleep(SleepTime)

ExplorePath(RequestString, LastAscii)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'THIS CAN DOS THE SYSTEM

'Add a Sleep Command

'Exit Sub

Dim MyThread(25) As Threading.Thread

Dim MyThreadClass(25) As ThreadClassAction

If TextBox2.Text = "" Then

For i = 0 To 25

MyThreadClass(i) = New ThreadClassAction

MyThreadClass(i).CallBack = Me

MyThread(i) = New Threading.Thread(AddressOf MyThreadClass(i).Launch)

MyThread(i).Name = Chr(Asc("A") + i)

MyThread(i).IsBackground = True

MyThread(i).Start()

Else

Extention = TextBox1.Text

ExplorePath(TextBox2.Text)

MsgBox("Done!")

End If

End Sub

End Class

Public Class ThreadClass

Public CallBack As Form

Public Data As String

Public Sub AddListItem1()

Form1.ListBox1.Items.Add(Data)

End Sub

Public Sub AddListItem2()

Form1.ListBox2.Items.Add(Data)

End Sub

End Class

Public Class ThreadClassAction

Public CallBack As Form

Dim MyWebRequest As New Net.WebClient()

Private Delegate Sub MyDelPtr()

Public Extention As String = ".cfm"

Const WebSite As String = "http://MyWebsite.com/"

Public Sub Launch()

ExplorePathThread(Threading.Thread.CurrentThread.Name)

End Sub

Private Sub ExplorePathThread(ByVal RequestString As String, Optional ByVal LastAscii As Integer = 0)

Debug.WriteLine("Starting Thread: " & Threading.Thread.CurrentThread.Name)

Application.DoEvents()

Dim MyThreadClass As New ThreadClass

MyThreadClass.CallBack = CallBack

Dim MyDel1 = New MyDelPtr(AddressOf MyThreadClass.AddListItem1)

Dim MyDel2 = New MyDelPtr(AddressOf MyThreadClass.AddListItem2)

Dim Data As Byte() = Nothing

Dim NumberOfFilesFound As Integer = 0

Dim DataLength As Integer = 0

NumberOfFilesFound = 0

Debug.WriteLine("Trying: " & WebSite & RequestString & "<" & Extention)

Try

If LastAscii = 0 Then

Data = MyWebRequest.DownloadData(WebSite & RequestString & "<" & Extention)

Else

Data = MyWebRequest.DownloadData(WebSite & RequestString & Chr(LastAscii) & "<" & Extention)

End If

If DataLength <> Data.Length Then

If LastAscii = 0 Then

MyThreadClass.Data = (RequestString & "<" & Extention)

CallBack.Invoke(MyDel1)

Else

MyThreadClass.Data = (RequestString & Chr(LastAscii) & "<" & Extention)

CallBack.Invoke(MyDel1)

Try

MyWebRequest.DownloadData(WebSite & RequestString & Chr(LastAscii) & Extention)

MyThreadClass.Data = ("--[" & RequestString & Chr(LastAscii) & Extention & "]--")

CallBack.Invoke(MyDel2)

Catch ex As Exception

End Try

ExplorePathThread(RequestString & ChrW(LastAscii), 48)

End If

Catch ex As Exception

DataLength = 0

End Try

Select Case LastAscii

Case 0

LastAscii = 48

Case 58

LastAscii = 65 'A

Case 91

LastAscii = 48 'Zero

Return

Case Else

LastAscii += 1

End Select

ExplorePathThread(RequestString, LastAscii)

End Sub

End Class

Impact to WiFi Stability issues in NONOS sdk 2.1.0->2.2.0+

I’ve been on 2.1.0 for quite sometime and decided to take the leap to 3.0.0. After I did I started experiencing intermittent connection issues with my Wifi. Then also creating a snapshot I moved back to 2.1.0 and everything works great again. I also tested 3.0.1 and 3.0.2 and all yield the same issue and …

Continue reading “Impact to WiFi Stability issues in NONOS sdk 2.1.0->2.2.0+”

How much power can I get out of an RS232 Port, Umm about 5-10MA on a good day

https://www.epanorama.net/circuits/rspower.html

Simple VB Webserver Spider

Public Class Form1
    Public WithEvents MyClient As System.Net.WebClient
    Public TotalWorkingThreads As Integer = 0
    Public TotalTags As Integer = 0
    Public gExtractedLinks(50000) As String
    Private Sub SpiderThePageCache(ByVal Webpage As String)
        MyClient = New System.Net.WebClient
        Dim WebpageDocument As String = MyClient.DownloadString(Webpage)
        Dim AhrefIndex As Integer = 0
        Dim ExtractedLink As String
        Dim ExtractedLinks(5000) As String
        Dim Flag As Boolean = False
        While True
            Flag = False
            AhrefIndex = WebpageDocument.IndexOf("a href", AhrefIndex)
            If AhrefIndex = -1 Then Exit While
            If WebpageDocument.Chars(AhrefIndex + 8) = "#" Then
                AhrefIndex += 8
                Continue While
            End If
            ExtractedLink = vbNullString
            For i = (AhrefIndex + 8) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)
                If WebpageDocument.Chars(i) = Chr(34) Then Exit For
                ExtractedLink &amp;= WebpageDocument.Chars(i)
            Next
            Debug.WriteLine(AhrefIndex &amp; " : " &amp; ExtractedLink)
            For i = 0 To ExtractedLinks.Length
                If ExtractedLinks(i) = ExtractedLink Then
                    Flag = True
                    Exit For
                End If
                If ExtractedLinks(i) = Nothing Then
                    Exit For
                End If
            Next
            If Flag = False Then
                For i = 0 To ExtractedLinks.Length
                    If ExtractedLinks(i) = Nothing Then
                        ExtractedLinks(i) = ExtractedLink
                        Exit For
                    End If
                Next
            End If
            AhrefIndex += 8
        End While
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'SpiderThePage("Http://WebsiteToAudit/")
        Dim SpiderClass = New SpideringThreads
        SpiderClass.CallBack = Me
        SpiderClass.Webpage = "Http://Ikenet"
        Dim T = New Threading.Thread(AddressOf SpiderClass.SpiderMainPageWithThreads)
        T.IsBackground = False
        T.Priority = Threading.ThreadPriority.Highest
        T.Start()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
End Class
Class SpideringThreads
    Public CallBack As Form1
    Public WithEvents MyClient As System.Net.WebClient
    Delegate Sub MyDelPtr()
    Public Webpage As String
    Enum Marker
        AHref = 1
        AutoComplete = 2
        Three = 3
    End Enum
    Public Sub SpiderMainPageWithThreads()
        MyClient = New System.Net.WebClient
        Dim WebpageDocument As String
        Try
            WebpageDocument = MyClient.DownloadString(Webpage)
        Catch ex As Exception
            'ListBox2.Items.Add(Webpage)
            Dim MyGUIClass = New GUIThreads
            MyGUIClass.Data = Webpage
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread
            Exit Sub
        End Try
        If InStr(WebpageDocument, "PASSWORD=", CompareMethod.Text) &gt; 0 Or InStr(WebpageDocument, "developer for debugging", CompareMethod.Text) &gt; 0 Then
            'ListBox1.Items.Add(Webpage)
            Dim MyGUIClass = New GUIThreads
            MyGUIClass.Data = Webpage
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread
        End If
        Dim MasterIndex As Integer = 0
        Dim ExtractedLink As String
        Dim Marker1, Marker2 As Integer
        Dim MarkerPath As Marker = 0
        While True
            Marker1 = WebpageDocument.IndexOf("a href=""", MasterIndex)
            Marker2 = WebpageDocument.IndexOf(".autocomplete(", MasterIndex)
            If Marker1 = -1 And Marker2 = -1 Then
                Exit While
            End If
            If Marker1 = -1 Then
                MasterIndex = Marker2
                MarkerPath = Marker.AutoComplete
            ElseIf Marker2 = -1 Then
                MasterIndex = Marker1
                MarkerPath = Marker.AHref
            Else
                If Marker1 &gt; Marker2 And Marker2 &lt;&gt; -1 Then
                    MasterIndex = Marker2
                    MarkerPath = Marker.AutoComplete
                ElseIf Marker2 &gt; Marker1 And Marker1 &lt;&gt; -1 Then
                    MasterIndex = Marker1
                    MarkerPath = Marker.AHref
                End If
            End If
            Dim JumpInteger As Integer = 0
            Select Case MarkerPath
                Case Marker.AHref
                    JumpInteger = 8
                Case Marker.AutoComplete
                    JumpInteger = 15
                Case Marker.Three
                    Debug.WriteLine("Marker 3")
                Case Else
                    Debug.WriteLine("Unknown value")
            End Select
            If WebpageDocument.Chars(MasterIndex + JumpInteger) = "#" Then
                MasterIndex += JumpInteger
                Continue While
            End If
            ExtractedLink = vbNullString
            For i = (MasterIndex + JumpInteger) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)
                If WebpageDocument.Chars(i) = Chr(34) Then
                    If ExtractedLink = Nothing Then
                        MasterIndex += JumpInteger
                        Continue While
                    End If
                    Exit For
                End If
                ExtractedLink &amp;= WebpageDocument.Chars(i)
            Next
            Debug.WriteLine(MasterIndex &amp; " : " &amp; ExtractedLink)
            If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then
                ExtractedLink = "Http://Ikenet/" &amp; ExtractedLink
            Else
                If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then
                    Debug.WriteLine("NOT IKENET")
                    MasterIndex += 8
                    Continue While
                End If
            End If
            If AddStringToGArray(ExtractedLink) Then
                'SpiderThePage(ExtractedLink)
                Dim MyTotalClass = New GUIThreads
                CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddWorkingThreads))
                CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread
                Dim Spider = New SpideringThreads
                Spider.Webpage = ExtractedLink
                Spider.CallBack = CallBack
                Dim T As New Threading.Thread(AddressOf Spider.SpiderNewPageWithThreads)
                T.Start()
            Else
                Debug.WriteLine("Skipped Dubbed: " &amp; ExtractedLink)
            End If
            MasterIndex += JumpInteger
        End While
    End Sub
    Public Sub SpiderNewPageWithThreads()
        MyClient = New System.Net.WebClient
        Dim WebpageDocument As String
        Try
            WebpageDocument = MyClient.DownloadString(Webpage)
        Catch ex As Exception
            'ListBox2.Items.Add(Webpage)
            Dim MyGUIClass = New GUIThreads
            If ex.Message = "The remote server returned an error: (500) Internal Server Error." Then
                MyGUIClass.Data = Webpage
                CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread
                Exit Sub
            End If
            MyGUIClass.Data = Webpage
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread
            Exit Sub
        End Try
        If InStr(WebpageDocument, "PASSWORD=", CompareMethod.Text) &gt; 0 Or InStr(WebpageDocument, "developer for debugging", CompareMethod.Text) &gt; 0 Then
            'ListBox1.Items.Add(Webpage)
            Dim MyGUIClass = New GUIThreads
            MyGUIClass.Data = Webpage
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread
        End If
        Dim AhrefIndex As Integer = 0
        Dim ExtractedLink As String
        While True
            AhrefIndex = WebpageDocument.IndexOf("a href", AhrefIndex)
            If AhrefIndex = -1 Then Exit While
            If WebpageDocument.Chars(AhrefIndex + 8) = "#" Then
                AhrefIndex += 8
                Continue While
            End If
            ExtractedLink = vbNullString
            For i = (AhrefIndex + 8) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)
                If WebpageDocument.Chars(i) = Chr(34) Then
                    If ExtractedLink = Nothing Then
                        AhrefIndex += 8
                        Continue While
                    End If
                    Exit For
                End If
                ExtractedLink &amp;= WebpageDocument.Chars(i)
            Next
            Debug.WriteLine(AhrefIndex &amp; " : " &amp; ExtractedLink)
            If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then
                ExtractedLink = "Http://Ikenet/" &amp; ExtractedLink
            Else
                If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then
                    Debug.WriteLine("NOT IKENET")
                    AhrefIndex += 8
                    Continue While
                End If
            End If
            If AddStringToGArray(ExtractedLink) Then
                Dim MyTotalClass = New GUIThreads
                CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread
                SpiderThePage(ExtractedLink)
            Else
                Debug.WriteLine("Skipped Dubbed: " &amp; ExtractedLink)
            End If
            AhrefIndex += 8
        End While
    End Sub
    Public Sub SpiderThePage(ByVal WebSite As String)
        MyClient = New System.Net.WebClient
        Dim WebSiteDocument As String
        Try
            WebSiteDocument = MyClient.DownloadString(WebSite)
        Catch ex As Exception
            'ListBox2.Items.Add(WebSite)
            Dim MyGUIClass = New GUIThreads
            MyGUIClass.Data = WebSite
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread
            Exit Sub
        End Try
        If InStr(WebSiteDocument, "PASSWORD=", CompareMethod.Text) &gt; 0 Or InStr(WebSiteDocument, "developer for debugging", CompareMethod.Text) &gt; 0 Then
            'ListBox1.Items.Add(WebSite)
            Dim MyGUIClass = New GUIThreads
            MyGUIClass.Data = WebSite
            CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread
        End If
        Dim AhrefIndex As Integer = 0
        Dim ExtractedLink As String
        While True
            AhrefIndex = WebSiteDocument.IndexOf("a href", AhrefIndex)
            If AhrefIndex = -1 Then Exit While
            If WebSiteDocument.Chars(AhrefIndex + 8) = "#" Then
                AhrefIndex += 8
                Continue While
            End If
            ExtractedLink = vbNullString
            For i = (AhrefIndex + 8) To WebSiteDocument.Length - 1 ' (AhrefIndex + 25)
                If WebSiteDocument.Chars(i) = Chr(34) Then
                    If ExtractedLink = Nothing Then
                        AhrefIndex += 8
                        Continue While
                    End If
                    Exit For
                End If
                ExtractedLink &amp;= WebSiteDocument.Chars(i)
            Next
            Debug.WriteLine(AhrefIndex &amp; " : " &amp; ExtractedLink)
            If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then
                ExtractedLink = WebSite &amp; ExtractedLink
            Else
                If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then
                    Debug.WriteLine("NOT IKENET")
                    AhrefIndex += 8
                    Continue While
                End If
            End If
            If AddStringToGArray(ExtractedLink) Then
                Dim MyTotalClass = New GUIThreads
                CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread
                SpiderThePage(ExtractedLink)
            Else
                Debug.WriteLine("Skipped Dubbed: " &amp; ExtractedLink)
            End If
            AhrefIndex += 8
        End While
    End Sub
    Private Function AddStringToGArray(ByVal Webpage As String) As Boolean
        For i = 0 To CallBack.gExtractedLinks.Length
            If CallBack.gExtractedLinks(i) = Webpage Then
                Return False
                Exit For
            End If
            If CallBack.gExtractedLinks(i) = Nothing Then
                CallBack.gExtractedLinks(i) = Webpage
                Return True
            End If
        Next
        Return True
    End Function
End Class
Class GUIThreads
    Public Data As String
    Public Sub Listbox1Add()
        Form1.ListBox1.Items.Add(Data)
    End Sub
    Public Sub Listbox2Add()
        Form1.ListBox2.Items.Add(Data)
    End Sub
    Public Sub AddTotal()
        Form1.TotalTags += 1
        Form1.Text = "Working Threads : " &amp; Form1.TotalWorkingThreads &amp; "Total Spidered: " &amp; Form1.TotalTags
    End Sub
    Public Sub AddWorkingThreads()
        Form1.TotalWorkingThreads += 1
        Form1.Text = "Working Threads : " &amp; Form1.TotalWorkingThreads &amp; "Total Spidered: " &amp; Form1.TotalTags
    End Sub
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

Public Class Form1

Public WithEvents MyClient As System.Net.WebClient

Public TotalWorkingThreads As Integer = 0

Public TotalTags As Integer = 0

Public gExtractedLinks(50000) As String

Private Sub SpiderThePageCache(ByVal Webpage As String)

MyClient = New System.Net.WebClient

Dim WebpageDocument As String = MyClient.DownloadString(Webpage)

Dim AhrefIndex As Integer = 0

Dim ExtractedLink As String

Dim ExtractedLinks(5000) As String

Dim Flag As Boolean = False

While True

Flag = False

AhrefIndex = WebpageDocument.IndexOf("a href", AhrefIndex)

If AhrefIndex = -1 Then Exit While

If WebpageDocument.Chars(AhrefIndex + 8) = "#" Then

AhrefIndex += 8

Continue While

End If

ExtractedLink = vbNullString

For i = (AhrefIndex + 8) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)

If WebpageDocument.Chars(i) = Chr(34) Then Exit For

ExtractedLink &= WebpageDocument.Chars(i)

Debug.WriteLine(AhrefIndex & " : " & ExtractedLink)

For i = 0 To ExtractedLinks.Length

If ExtractedLinks(i) = ExtractedLink Then

Flag = True

Exit For

End If

If ExtractedLinks(i) = Nothing Then

Exit For

End If

If Flag = False Then

For i = 0 To ExtractedLinks.Length

If ExtractedLinks(i) = Nothing Then

ExtractedLinks(i) = ExtractedLink

Exit For

End If

AhrefIndex += 8

End While

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'SpiderThePage("Http://WebsiteToAudit/")

Dim SpiderClass = New SpideringThreads

SpiderClass.CallBack = Me

SpiderClass.Webpage = "Http://Ikenet"

Dim T = New Threading.Thread(AddressOf SpiderClass.SpiderMainPageWithThreads)

T.IsBackground = False

T.Priority = Threading.ThreadPriority.Highest

T.Start()

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

End Class

Class SpideringThreads

Public CallBack As Form1

Public WithEvents MyClient As System.Net.WebClient

Delegate Sub MyDelPtr()

Public Webpage As String

Enum Marker

AHref = 1

AutoComplete = 2

Three = 3

End Enum

Public Sub SpiderMainPageWithThreads()

MyClient = New System.Net.WebClient

Dim WebpageDocument As String

Try

WebpageDocument = MyClient.DownloadString(Webpage)

Catch ex As Exception

'ListBox2.Items.Add(Webpage)

Dim MyGUIClass = New GUIThreads

MyGUIClass.Data = Webpage

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread

Exit Sub

End Try

If InStr(WebpageDocument, "PASSWORD=", CompareMethod.Text) > 0 Or InStr(WebpageDocument, "developer for debugging", CompareMethod.Text) > 0 Then

'ListBox1.Items.Add(Webpage)

Dim MyGUIClass = New GUIThreads

MyGUIClass.Data = Webpage

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread

End If

Dim MasterIndex As Integer = 0

Dim ExtractedLink As String

Dim Marker1, Marker2 As Integer

Dim MarkerPath As Marker = 0

While True

Marker1 = WebpageDocument.IndexOf("a href=""", MasterIndex)

Marker2 = WebpageDocument.IndexOf(".autocomplete(", MasterIndex)

If Marker1 = -1 And Marker2 = -1 Then

Exit While

End If

If Marker1 = -1 Then

MasterIndex = Marker2

MarkerPath = Marker.AutoComplete

ElseIf Marker2 = -1 Then

MasterIndex = Marker1

MarkerPath = Marker.AHref

Else

If Marker1 > Marker2 And Marker2 <> -1 Then

MasterIndex = Marker2

MarkerPath = Marker.AutoComplete

ElseIf Marker2 > Marker1 And Marker1 <> -1 Then

MasterIndex = Marker1

MarkerPath = Marker.AHref

End If

Dim JumpInteger As Integer = 0

Select Case MarkerPath

Case Marker.AHref

JumpInteger = 8

Case Marker.AutoComplete

JumpInteger = 15

Case Marker.Three

Debug.WriteLine("Marker 3")

Case Else

Debug.WriteLine("Unknown value")

End Select

If WebpageDocument.Chars(MasterIndex + JumpInteger) = "#" Then

MasterIndex += JumpInteger

Continue While

End If

ExtractedLink = vbNullString

For i = (MasterIndex + JumpInteger) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)

If WebpageDocument.Chars(i) = Chr(34) Then

If ExtractedLink = Nothing Then

MasterIndex += JumpInteger

Continue While

End If

Exit For

End If

ExtractedLink &= WebpageDocument.Chars(i)

Debug.WriteLine(MasterIndex & " : " & ExtractedLink)

If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then

ExtractedLink = "Http://Ikenet/" & ExtractedLink

Else

If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then

Debug.WriteLine("NOT IKENET")

MasterIndex += 8

Continue While

End If

If AddStringToGArray(ExtractedLink) Then

'SpiderThePage(ExtractedLink)

Dim MyTotalClass = New GUIThreads

CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddWorkingThreads))

CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread

Dim Spider = New SpideringThreads

Spider.Webpage = ExtractedLink

Spider.CallBack = CallBack

Dim T As New Threading.Thread(AddressOf Spider.SpiderNewPageWithThreads)

T.Start()

Else

Debug.WriteLine("Skipped Dubbed: " & ExtractedLink)

End If

MasterIndex += JumpInteger

End While

End Sub

Public Sub SpiderNewPageWithThreads()

MyClient = New System.Net.WebClient

Dim WebpageDocument As String

Try

WebpageDocument = MyClient.DownloadString(Webpage)

Catch ex As Exception

'ListBox2.Items.Add(Webpage)

Dim MyGUIClass = New GUIThreads

If ex.Message = "The remote server returned an error: (500) Internal Server Error." Then

MyGUIClass.Data = Webpage

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread

Exit Sub

End If

MyGUIClass.Data = Webpage

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread

Exit Sub

End Try

If InStr(WebpageDocument, "PASSWORD=", CompareMethod.Text) > 0 Or InStr(WebpageDocument, "developer for debugging", CompareMethod.Text) > 0 Then

'ListBox1.Items.Add(Webpage)

Dim MyGUIClass = New GUIThreads

MyGUIClass.Data = Webpage

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread

End If

Dim AhrefIndex As Integer = 0

Dim ExtractedLink As String

While True

AhrefIndex = WebpageDocument.IndexOf("a href", AhrefIndex)

If AhrefIndex = -1 Then Exit While

If WebpageDocument.Chars(AhrefIndex + 8) = "#" Then

AhrefIndex += 8

Continue While

End If

ExtractedLink = vbNullString

For i = (AhrefIndex + 8) To WebpageDocument.Length - 1 ' (AhrefIndex + 25)

If WebpageDocument.Chars(i) = Chr(34) Then

If ExtractedLink = Nothing Then

AhrefIndex += 8

Continue While

End If

Exit For

End If

ExtractedLink &= WebpageDocument.Chars(i)

Debug.WriteLine(AhrefIndex & " : " & ExtractedLink)

If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then

ExtractedLink = "Http://Ikenet/" & ExtractedLink

Else

If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then

Debug.WriteLine("NOT IKENET")

AhrefIndex += 8

Continue While

End If

If AddStringToGArray(ExtractedLink) Then

Dim MyTotalClass = New GUIThreads

CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread

SpiderThePage(ExtractedLink)

Else

Debug.WriteLine("Skipped Dubbed: " & ExtractedLink)

End If

AhrefIndex += 8

End While

End Sub

Public Sub SpiderThePage(ByVal WebSite As String)

MyClient = New System.Net.WebClient

Dim WebSiteDocument As String

Try

WebSiteDocument = MyClient.DownloadString(WebSite)

Catch ex As Exception

'ListBox2.Items.Add(WebSite)

Dim MyGUIClass = New GUIThreads

MyGUIClass.Data = WebSite

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox2Add)) 'Invoke on main thread

Exit Sub

End Try

If InStr(WebSiteDocument, "PASSWORD=", CompareMethod.Text) > 0 Or InStr(WebSiteDocument, "developer for debugging", CompareMethod.Text) > 0 Then

'ListBox1.Items.Add(WebSite)

Dim MyGUIClass = New GUIThreads

MyGUIClass.Data = WebSite

CallBack.Invoke(New MyDelPtr(AddressOf MyGUIClass.Listbox1Add)) 'Invoke on main thread

End If

Dim AhrefIndex As Integer = 0

Dim ExtractedLink As String

While True

AhrefIndex = WebSiteDocument.IndexOf("a href", AhrefIndex)

If AhrefIndex = -1 Then Exit While

If WebSiteDocument.Chars(AhrefIndex + 8) = "#" Then

AhrefIndex += 8

Continue While

End If

ExtractedLink = vbNullString

For i = (AhrefIndex + 8) To WebSiteDocument.Length - 1 ' (AhrefIndex + 25)

If WebSiteDocument.Chars(i) = Chr(34) Then

If ExtractedLink = Nothing Then

AhrefIndex += 8

Continue While

End If

Exit For

End If

ExtractedLink &= WebSiteDocument.Chars(i)

Debug.WriteLine(AhrefIndex & " : " & ExtractedLink)

If Not ExtractedLink.StartsWith("HTTP", True, Nothing) Then

ExtractedLink = WebSite & ExtractedLink

Else

If Not ExtractedLink.StartsWith("Http://Ikenet/", True, Nothing) Or Not ExtractedLink.StartsWith("Https://Ikenet/", True, Nothing) Then

Debug.WriteLine("NOT IKENET")

AhrefIndex += 8

Continue While

End If

If AddStringToGArray(ExtractedLink) Then

Dim MyTotalClass = New GUIThreads

CallBack.Invoke(New MyDelPtr(AddressOf MyTotalClass.AddTotal)) 'Invoke on main thread

SpiderThePage(ExtractedLink)

Else

Debug.WriteLine("Skipped Dubbed: " & ExtractedLink)

End If

AhrefIndex += 8

End While

End Sub

Private Function AddStringToGArray(ByVal Webpage As String) As Boolean

For i = 0 To CallBack.gExtractedLinks.Length

If CallBack.gExtractedLinks(i) = Webpage Then

Return False

Exit For

End If

If CallBack.gExtractedLinks(i) = Nothing Then

CallBack.gExtractedLinks(i) = Webpage

Return True

End If

Return True

End Function

End Class

Class GUIThreads

Public Data As String

Public Sub Listbox1Add()

Form1.ListBox1.Items.Add(Data)

End Sub

Public Sub Listbox2Add()

Form1.ListBox2.Items.Add(Data)

End Sub

Public Sub AddTotal()

Form1.TotalTags += 1

Form1.Text = "Working Threads : " & Form1.TotalWorkingThreads & "Total Spidered: " & Form1.TotalTags

End Sub

Public Sub AddWorkingThreads()

Form1.TotalWorkingThreads += 1

Form1.Text = "Working Threads : " & Form1.TotalWorkingThreads & "Total Spidered: " & Form1.TotalTags

End Sub

End Class