PSBlackListChecker

0.5

Private/ScriptBlocks/Script.BlockNetDNSSlow.ps1

$Script:ScriptBlockNetDNSSlow = {
    param (
        [string[]] $Servers,
        [string] $IP,
        [bool] $QuickTimeout,
        [bool] $Verbose
    )
    if ($Verbose) {
        $verbosepreference = 'continue'
    }
    $Blacklisted = @()
    foreach ($Server in $Servers) {
        $ReversedIP = ($IP -split '\.')[3..0] -join '.'
        $FQDN = "$ReversedIP.$Server"
        try {
            $DnsCheck = [Net.DNS]::GetHostAddresses($FQDN)
        } catch {
            $DnsCheck = $null
        }
        if ($null -ne $DnsCheck) {
            $Blacklisted += [PSCustomObject] @{
                IP        = $ip
                FQDN      = $fqdn
                BlackList = $server
                IsListed  = if ($null -eq $DNSCheck.IPAddressToString) { $false } else { $true }
                Answer    = $DnsCheck.IPAddressToString -join ', '
                TTL       = ''
            }
        } else {
            $Blacklisted += [PSCustomObject] @{
                IP        = $IP
                FQDN      = $FQDN
                BlackList = $Server
                IsListed  = $false
                Answer    = ''
                TTL       = ''
            }
        }
    }
    return $Blacklisted
}