demarches-normaliennes/app/validators/siret_format_validator.rb

class SiretFormatValidator < ActiveModel::EachValidator
  def validate_each(record, attribute, value)
    if !format_is_valid(value)
      record.errors.add(attribute, :format)
    end

    if !luhn_passed(value)
      record.errors.add(attribute, :checksum)
    end
  end

  private

  LA_POSTE_SIREN = '356000000'

  def format_is_valid(value)
    value&.match?(/^\d{14}$/)
  end

  def luhn_passed(value)
    # Do not enforce Luhn for La Poste SIRET numbers, the only exception to this rule
    value.present? && (siret_is_attached_to_la_poste(value) || (luhn_checksum(value) % 10 == 0))
  end

  def siret_is_attached_to_la_poste(value)
    value[0..8] == LA_POSTE_SIREN
  end

  def luhn_checksum(value)
    accum = 0

    value.reverse.each_char.map(&:to_i).each_with_index do |digit, index|
      t = index.even? ? digit : digit * 2
      t = t - 9 if t >= 10
      accum += t
    end

    accum
  end
end