From e2863967c69b418b13103533413d20f63fe422b4 Mon Sep 17 00:00:00 2001
From: ethem <ethem>
Date: Wed, 30 Aug 2006 17:14:32 +0000
Subject: [PATCH] Added ABA validation funtion.

---
 enrol/authorize/abaval.php | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 enrol/authorize/abaval.php

diff --git a/enrol/authorize/abaval.php b/enrol/authorize/abaval.php
new file mode 100644
index 0000000000..41712d9033
--- /dev/null
+++ b/enrol/authorize/abaval.php
@@ -0,0 +1,26 @@
+<?php // $Id$
+
+/**
+ * Validates the supplied ABA number
+ * using a simple mod 10 check digit routine.
+ *
+ * @param string $aba Bank ID
+ * @return bool true ABA is valid, false otherwise
+ */
+function ABAVal($aba)
+{
+    if (ereg("^[0-9]{9}$", $aba)) {
+        $n = 0;
+        for($i = 0; $i < 9; $i += 3) {
+            $n += (substr($aba, $i, 1) * 3) +
+                  (substr($aba, $i + 1, 1) * 7) +
+                  (substr($aba, $i + 2, 1));
+        }
+        if ($n != 0 and $n % 10 == 0) {
+            return true;
+        }
+    }
+    return false;
+}
+
+?>
-- 
2.39.5