Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
SMBHash | $smbhash_copy |
Password | **************** |
Domain Name | $domain_copy |
Installation Path | $path_copy |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Phone home URL username | $urluser_copy |
Phone home URL password | **************** |
Phone home delay | $delaytime |
Concurrent deployments | $concurrent |
Windows Service description | $description_copy |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
SMBHash | $smbhash_copy |
Password | **************** |
Domain Name | $domain_copy |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
Password | **************** |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
Password | **************** |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan databases | $db_choice |
Databases | $database_copy |
Scan tables | $table_choice |
Tables | $table_copy |
Scan columns | $column_choice |
Columns | $column_copy |
Limit to rows | $rows |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
SMBHash | $smbhash_copy |
Password | **************** |
Domain Name | $domain_copy |
Installation Path | $path_copy |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Phone home URL username | $urluser_copy |
Phone home URL password | **************** |
Phone home delay | $delaytime |
Concurrent deployments | $concurrent |
Windows Service description | $description_copy |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
SMBHash | $smbhash_copy |
Password | **************** |
Domain Name | $domain_copy |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
Password | **************** |
Memory Limit | " . $memory * 100 . "% |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan directories | $dir_choice |
Directories | $directories_copy |
Scan file extensions | $ext_choice |
Extensions | $extensions_copy |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Zip File Extensions | $zip_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
Profile Name | $profile |
Scan type | $scantype |
Username | $username_copy |
Password | **************** |
Mask Sensitive Data | "; if( $mask == 1 ) { print "Yes"; } elsif( $mask == 0 ) { print "No"; } print " |
Scan databases | $db_choice |
Databases | $database_copy |
Scan tables | $table_choice |
Tables | $table_copy |
Scan columns | $column_choice |
Columns | $column_copy |
Limit to rows | $rows |
Regular Expressions | "; my @regex_lookups = split(",", $regex_db ); my $length_regex_lookups = @regex_lookups; my $regex_lookups_x = 0; foreach( @regex_lookups ) { $string = "SELECT name from regexes where number=?;"; $sth = $dbh->prepare($string); $sth->execute($_); my $results = $sth->fetchrow_arrayref(); if( $$results[0] ne "" ) { print "$$results[0]"; } else { print "Cannot find regex #" . $_ . ""; } if( $regex_lookups_x < ($length_regex_lookups - 1 )) { print ", "; } $regex_lookups_x++; } print " |
Credit Cards | $cc_copy |
Concurrent deployments | $concurrent |
Log Verbosity | $debug |
' . "\n"; } sub footer { print " |