git clone 'https://github.com/bhyde/cl-one-time-passwords.git'
One time passwords provide a way to do authentication based on a shared secret without revealing that secret to spies on the communciation channel.
Two well specified ways of generating OTPs are: * HOTP - An HMAC-Based One-Time Password Algorithm, i.e. RFC 4226 * TOTP - Time-Based One-Time Password Algorithm , i.e. RFC 6238
These are commonly used as one factor in two factor authentication systems. For example Google uses these. For example Google's Authenticator App for most smart phones will generate one time passwords once it has been configured with the shared secret(s) for your account(s).
Cl-one-time-passwords implements HOTP and TOTP in Common Lisp.
Load the code into your lisp image.
Share a secret with Google's Authenticator App on your smart phone by scanning this QDR code:
Compair the values that Authenticator is generating with the ones this code generates:
They ought to be the same, but if your phone and computer clock are out of sync by a N seconds then every 30 seconds for N seconds they won't be the same.
That QR encodes this URL otpauth://firstname.lastname@example.org?secret=jbswy3dpehpk3pxpjbswy3dpehpk3pxp where the secret is the base32 encoding of the secret we passed to totp:totp in step 3, there the value was a 40 character hex number, i.e. 20 bytes.
The number of digits to return in the htop values, defaults to six. See the RFC for details.
The kind of hmac to use. This defaults to :sha1. You can set other values ironclad supports; but my testing currrently indicates it doesn't work. This isn't part of the HOTP spec, but the TOTP spec extends HTOP … even if nobody usest this extension.
(htop:hotp <secret> <counter>)
Defaults to zero, a unix time. See the RFC for details.
Defaults to 30, a unix time interval. See the RFC for details.
(totp:totp <secret> &optional offset unix-time)
This code as not yet been used in production. I look forward to reports back from the field. :)