Xojo Plugin
Xojo Plugin
RDAP Domain Lookup using rdap.org
See more HTTP Misc Examples
Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.Chilkat Xojo Plugin Downloads
Dim success As Boolean
success = False
// 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
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 New 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
success = json.ObjectOf2("entities[i].vcardArray[j][k]",json1)
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]")
success = json.ObjectOf2("entities[i].entities[j].vcardArray[k]",json1)
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