(Lianja) RDAP Domain Lookup using rdap.org

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// 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"
loSbResponse = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb("https://rdap.org/domain/oracle.com",loSbResponse)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loSbResponse
    return
endif

lnStatusCode = loHttp.LastStatus
if (lnStatusCode <> 200) then
    ? "Error response:"
    ? loSbResponse.GetAsString()
    ? "status code: " + str(lnStatusCode)
    release loHttp
    release loSbResponse
    return
endif

// Load the JSON response and examine..

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

loJson = createobject("CkJsonObject")
loJson.LoadSb(loSbResponse)
loJson.EmitCompact = .F.
? loJson.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"
//         }
//       ]
//     }
//   ]
// }

lcObjectClassName = loJson.StringOf("objectClassName")
lcHandle = loJson.StringOf("handle")
lcLdhName = loJson.StringOf("ldhName")
llDelegationSigned = loJson.BoolOf("secureDNS.delegationSigned")
i = 0
lnCount_i = loJson.SizeOfArray("links")
do while i < lnCount_i
    loJson.I = i
    lcValue = loJson.StringOf("links[i].value")
    lcRel = loJson.StringOf("links[i].rel")
    lcHref = loJson.StringOf("links[i].href")
    lcV_type = loJson.StringOf("links[i].type")
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("status")
do while i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("status[i]")
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("entities")
do while i < lnCount_i
    loJson.I = i
    lcObjectClassName = loJson.StringOf("entities[i].objectClassName")
    lcHandle = loJson.StringOf("entities[i].handle")
    j = 0
    lnCount_j = loJson.SizeOfArray("entities[i].roles")
    do while j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("entities[i].roles[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJson.SizeOfArray("entities[i].publicIds")
    do while j < lnCount_j
        loJson.J = j
        lcV_type = loJson.StringOf("entities[i].publicIds[j].type")
        lcIdentifier = loJson.StringOf("entities[i].publicIds[j].identifier")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJson.SizeOfArray("entities[i].vcardArray")
    do while j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("entities[i].vcardArray[j]")
        k = 0
        lnCount_k = loJson.SizeOfArray("entities[i].vcardArray[j]")
        do while k < lnCount_k
            loJson.K = k

            loJson1 = loJson.ObjectOf("entities[i].vcardArray[j][k]")
            lnI1 = 0
            lnCount_i1 = loJson1.SizeOfArray("")
            do while lnI1 < lnCount_i1
                loJson1.I = lnI1
                lcStrVal = loJson1.StringOf("[i]")
                lnI1 = lnI1 + 1
            enddo
            release loJson1
            k = k + 1
        enddo
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJson.SizeOfArray("entities[i].entities")
    do while j < lnCount_j
        loJson.J = j
        lcObjectClassName = loJson.StringOf("entities[i].entities[j].objectClassName")
        k = 0
        lnCount_k = loJson.SizeOfArray("entities[i].entities[j].roles")
        do while k < lnCount_k
            loJson.K = k
            lcStrVal = loJson.StringOf("entities[i].entities[j].roles[k]")
            k = k + 1
        enddo
        k = 0
        lnCount_k = loJson.SizeOfArray("entities[i].entities[j].vcardArray")
        do while k < lnCount_k
            loJson.K = k
            lcStrVal = loJson.StringOf("entities[i].entities[j].vcardArray[k]")

            loJson1 = loJson.ObjectOf("entities[i].entities[j].vcardArray[k]")
            lnI1 = 0
            lnCount_i1 = loJson1.SizeOfArray("")
            do while lnI1 < lnCount_i1
                loJson1.I = lnI1
                lnJ1 = 0
                lnCount_j1 = loJson1.SizeOfArray("[i]")
                do while lnJ1 < lnCount_j1
                    loJson1.J = lnJ1
                    lcStrVal = loJson1.StringOf("[i][j]")
                    lnJ1 = lnJ1 + 1
                enddo
                lnI1 = lnI1 + 1
            enddo
            release loJson1
            k = k + 1
        enddo
        j = j + 1
    enddo
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("events")
do while i < lnCount_i
    loJson.I = i
    lcEventAction = loJson.StringOf("events[i].eventAction")
    lcEventDate = loJson.StringOf("events[i].eventDate")
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("nameservers")
do while i < lnCount_i
    loJson.I = i
    lcObjectClassName = loJson.StringOf("nameservers[i].objectClassName")
    lcLdhName = loJson.StringOf("nameservers[i].ldhName")
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("rdapConformance")
do while i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("rdapConformance[i]")
    i = i + 1
enddo
i = 0
lnCount_i = loJson.SizeOfArray("notices")
do while i < lnCount_i
    loJson.I = i
    lcTitle = loJson.StringOf("notices[i].title")
    j = 0
    lnCount_j = loJson.SizeOfArray("notices[i].description")
    do while j < lnCount_j
        loJson.J = j
        lcStrVal = loJson.StringOf("notices[i].description[j]")
        j = j + 1
    enddo
    j = 0
    lnCount_j = loJson.SizeOfArray("notices[i].links")
    do while j < lnCount_j
        loJson.J = j
        lcHref = loJson.StringOf("notices[i].links[j].href")
        lcV_type = loJson.StringOf("notices[i].links[j].type")
        j = j + 1
    enddo
    i = i + 1
enddo


release loHttp
release loSbResponse
release loJson