module type T =
  sig
    type key
    val encrypt_cbc :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val decrypt_cbc :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val encrypt_cfb8 :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val decrypt_cfb8 :
      key ->
      int * int * int * int -> string -> (int * int * int * int) * string
    val encrypt_cfb64 :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
    val decrypt_cfb64 :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
    val crypt_ofb :
      key ->
      int * int * int * int ->
      int -> string -> (int * int * int * int) * int * string
  end
module Make_modes :
  functor (M : Cryptsystem_64.T) ->
    sig
      type key = M.key
      val encrypt_cbc :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val decrypt_cbc :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val encrypt_cfb8 :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val decrypt_cfb8 :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val encrypt_cfb64 :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
      val decrypt_cfb64 :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
      val crypt_ofb :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
    end
module Make_modes_int32 :
  functor (M : Cryptsystem_64.T) ->
    sig
      type key = M.key
      val encrypt_cbc :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val decrypt_cbc :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val encrypt_cfb8 :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val decrypt_cfb8 :
        key ->
        int * int * int * int -> string -> (int * int * int * int) * string
      val encrypt_cfb64 :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
      val decrypt_cfb64 :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
      val crypt_ofb :
        key ->
        int * int * int * int ->
        int -> string -> (int * int * int * int) * int * string
    end