Creating Participation refunds

app/Support/Iban.php

@@ -0,0 +1,81 @@
+<?php
+
+declare(strict_types=1);
+
+namespace App\Support;
+
+/**
+ * Zustandslose Helfer für IBANs.
+ *
+ * Geprüft wird nach ISO 13616 bzw. ISO 7064 (Mod 97-10): Struktur, Länge des Landes und die Prüfziffer.
+ * Die Prüfziffer ist der wichtige Teil -- sie fängt Zahlendreher und Tippfehler ab, die sonst erst beim
+ * Rückläufer der Bank auffallen würden. Auf ein Konto, dessen IBAN nur strukturell stimmt, überweist man
+ * im Zweifel Geld an eine fremde Person.
+ */
+final class Iban
+{
+    /**
+     * Länge der IBAN je Ländercode. Vollständig für den SEPA-Raum; alles darüber hinaus fällt auf die
+     * generische Längenprüfung zurück (siehe isValid()).
+     *
+     * @var array<string, int>
+     */
+    private const array LENGTHS = [
+        'AD' => 24, 'AT' => 20, 'BE' => 16, 'BG' => 22, 'CH' => 21, 'CY' => 28, 'CZ' => 24,
+        'DE' => 22, 'DK' => 18, 'EE' => 20, 'ES' => 24, 'FI' => 18, 'FR' => 27, 'GB' => 22,
+        'GI' => 23, 'GR' => 27, 'HR' => 21, 'HU' => 28, 'IE' => 22, 'IS' => 26, 'IT' => 27,
+        'LI' => 21, 'LT' => 20, 'LU' => 20, 'LV' => 21, 'MC' => 27, 'MT' => 31, 'NL' => 18,
+        'NO' => 15, 'PL' => 28, 'PT' => 25, 'RO' => 24, 'SE' => 24, 'SI' => 19, 'SK' => 24,
+        'SM' => 27, 'VA' => 22,
+    ];
+
+    /** Leerzeichen raus, Großbuchstaben -- die kanonische Form, die gespeichert wird. */
+    public static function normalize(string $iban): string
+    {
+        return strtoupper(preg_replace('/\s+/', '', $iban) ?? '');
+    }
+
+    public static function isValid(string $iban): bool
+    {
+        $iban = self::normalize($iban);
+
+        if (preg_match('/^[A-Z]{2}[0-9]{2}[A-Z0-9]{10,30}$/', $iban) !== 1) {
+            return false;
+        }
+
+        $expected = self::LENGTHS[substr($iban, 0, 2)] ?? null;
+        if ($expected !== null && strlen($iban) !== $expected) {
+            return false;
+        }
+
+        return self::checksum($iban) === 1;
+    }
+
+    /** In Vierergruppen -- die Schreibweise auf Belegen und Formularen. */
+    public static function format(string $iban): string
+    {
+        return trim(chunk_split(self::normalize($iban), 4, ' '));
+    }
+
+    /**
+     * Mod 97-10: die ersten vier Zeichen ans Ende, Buchstaben durch ihre Position + 9 ersetzen
+     * (A = 10 … Z = 35), das Ergebnis modulo 97. Eine gültige IBAN ergibt 1.
+     *
+     * Der Rest wird stellenweise fortgeschrieben, weil die Zahl sonst jeden Integer sprengt.
+     */
+    private static function checksum(string $iban): int
+    {
+        $rearranged = substr($iban, 4) . substr($iban, 0, 4);
+
+        $remainder = 0;
+        foreach (str_split($rearranged) as $char) {
+            $value = ctype_digit($char) ? $char : (string) (ord($char) - 55);
+
+            foreach (str_split($value) as $digit) {
+                $remainder = ($remainder * 10 + (int) $digit) % 97;
+            }
+        }
+
+        return $remainder;
+    }
+}