# documentation for these functions are in their memoised versions below
.passive_dns <- function(query,
direction=c("", "next", "previous"),
page=NULL,
sources=NULL,
start=NULL,
end=NULL,
timeout=NULL,
auth=passive_auth()) {
params <- list(direction=match.arg(direction, c("", "next", "previous")),
page=page,
sources=sources,
start=start,
end=end,
timeout=timeout,
query=query)
resp <- S_GET("https://api.passivetotal.org/v2/dns/passive",
httr::authenticate(auth$user, auth$key),
query=params)
httr::stop_for_status(resp$result)
res <- httr::content(resp$result, as="text", encoding="UTF-8")
jsonlite::fromJSON(res, flatten=TRUE)
}
.passive_unique <- function(query,
direction=c("", "next", "previous"),
page=NULL,
sources=NULL,
start=NULL,
end=NULL,
timeout=NULL,
auth=passive_auth()) {
params <- list(direction=match.arg(direction, c("", "next", "previous")),
page=page,
sources=sources,
start=start,
end=end,
timeout=timeout,
query=query)
resp <- S_GET("https://api.passivetotal.org/v2/dns/passive/unique",
httr::authenticate(auth$user, auth$key),
query=params)
httr::stop_for_status(resp$result)
res <- httr::content(resp$result, as="text", encoding="UTF-8")
jsonlite::fromJSON(res, flatten=TRUE)
}
#' Get passive DNS data
#'
#' @param query Query value to use in your request.
#' @param direction optional Pagination direction: \code{next} or \code{previous}
#' @param page optional Page ID to request
#' @param sources optional Comma seperated list of sources to process with
#' @param start optional Only show data starting from date: \code{YYYY-mm-dd}
#' @param end optional Only show data up to date: \code{YYYY-mm-dd}
#' @param timeout optional Timeout to use on all source requests
#' @param auth \code{list} containing PassiveTotal \code{user} & \code{key}
#' @return \code{list}
#' @note All API function in the \code{passivetotal} pacake use \code{memoise::memoise} to
#' cache results. Call \code{forget(passive_dns)} to invalidate the cache for this
#' function.
#' @references \url{https://api.passivetotal.org/api/docs/#api-DNS-GetV2DnsPassiveQuery}
#' @export
#' @family DNS functions
#' @examples \dontrun{
#' passive_dns("passivetotal.org")
#' }
passive_dns <- memoise::memoise(.passive_dns)
#' Get unique resolutions from passive DNS data
#'
#' @param query Query value to use in your request.
#' @param direction optional Pagination direction: \code{next} or \code{previous}
#' @param page optional Page ID to request
#' @param sources optional Comma seperated list of sources to process with
#' @param start optional Only show data starting from date: \code{YYYY-mm-dd}
#' @param end optional Only show data up to date: \code{YYYY-mm-dd}
#' @param timeout optional Timeout to use on all source requests
#' @param auth \code{list} containing PassiveTotal \code{user} & \code{key}
#' @note All API function in the \code{passivetotal} pacake use \code{memoise::memoise} to
#' cache results. Call \code{forget(passive_unique)} to invalidate the cache for this
#' function.
#' @return \code{list}
#' @references \url{https://api.passivetotal.org/api/docs/#api-DNS-GetV2DnsPassiveUniqueQuery}
#' @export
#' @family DNS functions
#' @examples \dontrun{
#' passive_unique("passivetotal.org")
#' }
passive_unique <- memoise::memoise(.passive_unique)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.