main commit

Author: Junker

LICENSE

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) Dmitrii Kosenkov
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1,30 @@
+# reCAPTCHA Enterprise
+
+reCAPTCHA Enterprise system for Common Lisp
+
+## Installation
+
+This system can be installed from [UltraLisp](https://ultralisp.org/) like this:
+
+```common-lisp
+(ql-dist:install-dist "http://dist.ultralisp.org/"
+                      :prompt nil)
+(ql:quickload "recaptcha-enterprise")
+```
+
+## Usage
+
+```common-lisp
+(defpackage foo
+  (:use :cl)
+  (:local-nicknames (:re :recaptcha-enterprise)))
+
+(setf re:*api-key* "API key associated with the current project")
+(setf re:*project-id* "your Google Cloud project ID")
+
+(let ((response (re:verify "Key ID from project" "token")))
+  (if (re:validp response)
+      (format t "Recaptcha score: ~A" (re:score response))
+      (format t "Recaptcha invalid, reason: ~A" (re:invalid-reason response))))
+```
+

package.lisp

@@ -0,0 +1,10 @@
+(defpackage recaptcha-enterprise
+  (:use #:cl)
+  (:export #:verify
+           #:event
+           #:risk-analysis
+           #:token-properties
+           #:name
+           #:validp
+           #:invalid-reason
+           #:score))

recaptcha-enterprise.asd

@@ -0,0 +1,10 @@
+(defsystem recaptcha-enterprise
+  :version "0.1.0"
+  :author "Dmitrii Kosenkov"
+  :license "MIT"
+  :depends-on ("dexador" "jonathan")
+  :description "reCAPTCHA Enterprise system"
+  :homepage "https://github.com/Junker/recaptcha-enterprise"
+  :source-control (:git "https://github.com/Junker/recaptcha-enterprise.git")
+  :components ((:file "package")
+               (:file "recaptcha-enterprise")))

recaptcha-enterprise.lisp

@@ -0,0 +1,38 @@
+(in-package #:recaptcha-enterprise)
+
+(defparameter *api-key* nil
+  "API key associated with the current project")
+(defparameter *project-id* nil
+  "your Google Cloud project ID")
+
+(defun verify (key-id token &optional (action "LOGIN"))
+  (assert (not (null *api-key*)))
+  (assert (not (null *project-id*)))
+  (let* ((response (dex:post (format nil "https://recaptchaenterprise.googleapis.com/v1/projects/~A/assessments?key=~A"
+                                     *project-id* *api-key*)
+                             :headers `(("Content-Type" . "application/json"))
+                             :content (jojo:to-json (list :|event| (list :|token| token
+                                                                         :|siteKey| key-id
+                                                                         :|expectedAction| action))))))
+    (jojo:parse response)))
+
+(defun risk-analysis (response)
+  (getf :|riskAnalysis| response))
+
+(defun token-properties (response)
+  (getf :|tokenProperties| response))
+
+(defun event (response)
+  (getf :|event| response))
+
+(defun name (response)
+  (getf :|name| response))
+
+(defun validp (response)
+  (getf :|valid| (token-properties response)))
+
+(defun invalid-reason (response)
+  (getf :|invalidReason| (token-properties response)))
+
+(defun score (response)
+  (getf :|score| (risk-analysis response)))