• Home
• io.github.jmcardon
• tsec-mac_2.13
• 0.5.0
• source code
• JCAMessageAuth.scala

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

tsec.mac.jca.JCAMessageAuth.scala Maven / Gradle / Ivy

package tsec.mac.jca

import java.security.MessageDigest

import cats.Monad
import javax.crypto.{Mac, SecretKey}
import tsec.mac.{MAC, MessageAuth}
import cats.syntax.functor._
import cats.syntax.flatMap._

abstract class JCAMessageAuth[F[_], A](implicit F: Monad[F])
  extends MessageAuth[F, A, MacSigningKey] {

  protected[tsec] def genInstance: F[Mac]

  protected[tsec] def signInternal(m: Mac, k: SecretKey, content: Array[Byte]): F[MAC[A]]

  def sign(content: Array[Byte], key: MacSigningKey[A]): F[MAC[A]] =
    for {
      instance <- genInstance
      fin      <- signInternal(instance, MacSigningKey.toJavaKey[A](key), content)
    } yield fin

  def verifyBool(toSign: Array[Byte], signed: MAC[A], key: MacSigningKey[A]): F[Boolean] =
    F.map(sign(toSign, key))(MessageDigest.isEqual(signed, _))

}