One Time Password Generation and Verification

Generating and validating One-time Password based on Hash-based Message Authentication Code (HOTP) and Time Based One-time Password (TOTP) according to RFC 4226 https://datatracker.ietf.org/doc/html/rfc4226 and RFC 6238 https://datatracker.ietf.org/doc/html/rfc6238.

Installation

You can install the released version of otp from CRAN with:

install.packages("otp")

And the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("randy3k/otp")

library(otp)

p <- HOTP$new("JBSWY3DPEHPK3PXP")
p$at(8)

## [1] "964230"

p$verify("964230", 8)

## [1] 8

p <- TOTP$new("JBSWY3DPEHPK3PXP")
(code <- p$now())

## [1] "012318"

p$verify(code)

## [1] "2024-01-22 15:55:30 PST"

raster::image(
  qrencoder::qrencode_raster(p$provisioning_uri("otp")),
  asp = 1, col = c("white", "black"), axes = FALSE,
  xlab = "", ylab = ""
)