+# Pleroma: A lightweight social networking server
+# Copyright © 2017-2019 Pleroma Authors <https://pleroma.social/>
+# SPDX-License-Identifier: AGPL-3.0-only
+
defmodule Pleroma.Captcha do
+ alias Calendar.DateTime
alias Plug.Crypto.KeyGenerator
alias Plug.Crypto.MessageEncryptor
- alias Calendar.DateTime
use GenServer
|> :erlang.term_to_binary()
|> MessageEncryptor.encrypt(secret, sign_secret)
- IO.inspect(%{new_captcha | answer_data: encrypted_captcha_answer})
-
{
:reply,
# Repalce the answer with the encrypted answer
result =
with {:ok, data} <- MessageEncryptor.decrypt(answer_data, secret, sign_secret),
%{at: at, answer_data: answer_md5} <- :erlang.binary_to_term(data) do
- if DateTime.after?(at, valid_if_after),
- do: method().validate(token, captcha, answer_md5),
- else: {:error, "CAPTCHA expired"}
+ try do
+ if DateTime.before?(at, valid_if_after), do: throw({:error, "CAPTCHA expired"})
+
+ if not is_nil(Cachex.get!(:used_captcha_cache, token)),
+ do: throw({:error, "CAPTCHA already used"})
+
+ res = method().validate(token, captcha, answer_md5)
+ # Throw if an error occurs
+ if res != :ok, do: throw(res)
+
+ # Mark this captcha as used
+ {:ok, _} =
+ Cachex.put(:used_captcha_cache, token, true, ttl: :timer.seconds(seconds_valid))
+
+ :ok
+ catch
+ :throw, e -> e
+ end
else
_ -> {:error, "Invalid answer data"}
end