(Xojo Plugin) RDAP Domain Lookup using rdap.org

Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim http As New Chilkat.Http

// Send HTTP requests to https://rdap.org/<type>/<object>, where <type> is the object type (one of domain, ip, autnum, entity etc)
// and <object> is the object identifier (eg example.com, 192.168.0.1, 64496, etc).

// For example, here's a lookup for "oracle.com"
Dim sbResponse As New Chilkat.StringBuilder
Dim success As Boolean
success = http.QuickGetSb("https://rdap.org/domain/oracle.com",sbResponse)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim statusCode As Int32
statusCode = http.LastStatus
If (statusCode <> 200) Then
    System.DebugLog("Error response:")
    System.DebugLog(sbResponse.GetAsString())
    System.DebugLog("status code: " + Str(statusCode))
    Return
End If

// Load the JSON response and examine..

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbResponse)
json.EmitCompact = False
System.DebugLog(json.Emit())

// Here's a sample response, and the parsing code generated from the above online tool follows..

// {
//   "objectClassName": "domain",
//   "handle": "607513_DOMAIN_COM-VRSN",
//   "ldhName": "ORACLE.COM",
//   "links": [
//     {
//       "value": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
//       "rel": "self",
//       "href": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
//       "type": "application\/rdap+json"
//     },
//     {
//       "value": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
//       "rel": "related",
//       "href": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
//       "type": "application\/rdap+json"
//     }
//   ],
//   "status": [
//     "client delete prohibited",
//     "client transfer prohibited",
//     "client update prohibited",
//     "server delete prohibited",
//     "server transfer prohibited",
//     "server update prohibited"
//   ],
//   "entities": [
//     {
//       "objectClassName": "entity",
//       "handle": "292",
//       "roles": [
//         "registrar"
//       ],
//       "publicIds": [
//         {
//           "type": "IANA Registrar ID",
//           "identifier": "292"
//         }
//       ],
//       "vcardArray": [
//         "vcard",
//         [
//           [
//             "version",
//             {},
//             "text",
//             "4.0"
//           ],
//           [
//             "fn",
//             {},
//             "text",
//             "MarkMonitor Inc."
//           ]
//         ]
//       ],
//       "entities": [
//         {
//           "objectClassName": "entity",
//           "roles": [
//             "abuse"
//           ],
//           "vcardArray": [
//             "vcard",
//             [
//               [
//                 "version",
//                 {},
//                 "text",
//                 "4.0"
//               ],
//               [
//                 "fn",
//                 {},
//                 "text",
//                 ""
//               ],
//               [
//                 "tel",
//                 {
//                   "type": "voice"
//                 },
//                 "uri",
//                 "tel:+1.2086851750"
//               ],
//               [
//                 "email",
//                 {},
//                 "text",
//                 "abusecomplaints@markmonitor.com"
//               ]
//             ]
//           ]
//         }
//       ]
//     }
//   ],
//   "events": [
//     {
//       "eventAction": "registration",
//       "eventDate": "1988-12-02T05:00:00Z"
//     },
//     {
//       "eventAction": "expiration",
//       "eventDate": "2025-12-01T05:00:00Z"
//     },
//     {
//       "eventAction": "last changed",
//       "eventDate": "2024-10-30T09:32:52Z"
//     },
//     {
//       "eventAction": "last update of RDAP database",
//       "eventDate": "2024-11-26T14:11:14Z"
//     }
//   ],
//   "secureDNS": {
//     "delegationSigned": false
//   },
//   "nameservers": [
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A1-160.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A11-66.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A13-65.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "A18-67.AKAM.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS1.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS2.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS3.P201.DNS.ORACLECLOUD.NET"
//     },
//     {
//       "objectClassName": "nameserver",
//       "ldhName": "NS4.P201.DNS.ORACLECLOUD.NET"
//     }
//   ],
//   "rdapConformance": [
//     "rdap_level_0",
//     "icann_rdap_technical_implementation_guide_0",
//     "icann_rdap_response_profile_0"
//   ],
//   "notices": [
//     {
//       "title": "Terms of Use",
//       "description": [
//         "Service subject to Terms of Use."
//       ],
//       "links": [
//         {
//           "href": "https:\/\/www.verisign.com\/domain-names\/registration-data-access-protocol\/terms-service\/index.xhtml",
//           "type": "text\/html"
//         }
//       ]
//     },
//     {
//       "title": "Status Codes",
//       "description": [
//         "For more information on domain status codes, please visit https:\/\/icann.org\/epp"
//       ],
//       "links": [
//         {
//           "href": "https:\/\/icann.org\/epp",
//           "type": "text\/html"
//         }
//       ]
//     },
//     {
//       "title": "RDDS Inaccuracy Complaint Form",
//       "description": [
//         "URL of the ICANN RDDS Inaccuracy Complaint Form: https:\/\/icann.org\/wicf"
//       ],
//       "links": [
//         {
//           "href": "https:\/\/icann.org\/wicf",
//           "type": "text\/html"
//         }
//       ]
//     }
//   ]
// }

Dim value As String
Dim rel As String
Dim href As String
Dim v_type As String
Dim strVal As String
Dim j As Int32
Dim count_j As Int32
Dim identifier As String
Dim k As Int32
Dim count_k As Int32
Dim json1 As Chilkat.JsonObject
Dim i1 As Int32
Dim count_i1 As Int32
Dim j1 As Int32
Dim count_j1 As Int32
Dim eventAction As String
Dim eventDate As String
Dim title As String

Dim objectClassName As String
objectClassName = json.StringOf("objectClassName")
Dim handle As String
handle = json.StringOf("handle")
Dim ldhName As String
ldhName = json.StringOf("ldhName")
Dim DelegationSigned As Boolean
DelegationSigned = json.BoolOf("secureDNS.delegationSigned")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = json.SizeOfArray("links")
While i < count_i
    json.I = i
    value = json.StringOf("links[i].value")
    rel = json.StringOf("links[i].rel")
    href = json.StringOf("links[i].href")
    v_type = json.StringOf("links[i].type")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("status")
While i < count_i
    json.I = i
    strVal = json.StringOf("status[i]")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("entities")
While i < count_i
    json.I = i
    objectClassName = json.StringOf("entities[i].objectClassName")
    handle = json.StringOf("entities[i].handle")
    j = 0
    count_j = json.SizeOfArray("entities[i].roles")
    While j < count_j
        json.J = j
        strVal = json.StringOf("entities[i].roles[j]")
        j = j + 1
    Wend
    j = 0
    count_j = json.SizeOfArray("entities[i].publicIds")
    While j < count_j
        json.J = j
        v_type = json.StringOf("entities[i].publicIds[j].type")
        identifier = json.StringOf("entities[i].publicIds[j].identifier")
        j = j + 1
    Wend
    j = 0
    count_j = json.SizeOfArray("entities[i].vcardArray")
    While j < count_j
        json.J = j
        strVal = json.StringOf("entities[i].vcardArray[j]")
        k = 0
        count_k = json.SizeOfArray("entities[i].vcardArray[j]")
        While k < count_k
            json.K = k

            json1 = json.ObjectOf("entities[i].vcardArray[j][k]")
            i1 = 0
            count_i1 = json1.SizeOfArray("")
            While i1 < count_i1
                json1.I = i1
                strVal = json1.StringOf("[i]")
                i1 = i1 + 1
            Wend

            k = k + 1
        Wend
        j = j + 1
    Wend
    j = 0
    count_j = json.SizeOfArray("entities[i].entities")
    While j < count_j
        json.J = j
        objectClassName = json.StringOf("entities[i].entities[j].objectClassName")
        k = 0
        count_k = json.SizeOfArray("entities[i].entities[j].roles")
        While k < count_k
            json.K = k
            strVal = json.StringOf("entities[i].entities[j].roles[k]")
            k = k + 1
        Wend
        k = 0
        count_k = json.SizeOfArray("entities[i].entities[j].vcardArray")
        While k < count_k
            json.K = k
            strVal = json.StringOf("entities[i].entities[j].vcardArray[k]")

            json1 = json.ObjectOf("entities[i].entities[j].vcardArray[k]")
            i1 = 0
            count_i1 = json1.SizeOfArray("")
            While i1 < count_i1
                json1.I = i1
                j1 = 0
                count_j1 = json1.SizeOfArray("[i]")
                While j1 < count_j1
                    json1.J = j1
                    strVal = json1.StringOf("[i][j]")
                    j1 = j1 + 1
                Wend
                i1 = i1 + 1
            Wend

            k = k + 1
        Wend
        j = j + 1
    Wend
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("events")
While i < count_i
    json.I = i
    eventAction = json.StringOf("events[i].eventAction")
    eventDate = json.StringOf("events[i].eventDate")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("nameservers")
While i < count_i
    json.I = i
    objectClassName = json.StringOf("nameservers[i].objectClassName")
    ldhName = json.StringOf("nameservers[i].ldhName")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("rdapConformance")
While i < count_i
    json.I = i
    strVal = json.StringOf("rdapConformance[i]")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("notices")
While i < count_i
    json.I = i
    title = json.StringOf("notices[i].title")
    j = 0
    count_j = json.SizeOfArray("notices[i].description")
    While j < count_j
        json.J = j
        strVal = json.StringOf("notices[i].description[j]")
        j = j + 1
    Wend
    j = 0
    count_j = json.SizeOfArray("notices[i].links")
    While j < count_j
        json.J = j
        href = json.StringOf("notices[i].links[j].href")
        v_type = json.StringOf("notices[i].links[j].type")
        j = j + 1
    Wend
    i = i + 1
Wend