IBAN: Difference between revisions

<langsyntaxhighlight Adalang="ada">package Iban_Code is

end Iban_Code;</langsyntaxhighlight><syntaxhighlight lang Ada="ada">with Ada.Characters.Handling; use Ada.Characters.Handling;

end Iban_Code;</langsyntaxhighlight>Testing:

<langsyntaxhighlight Adalang="ada">with Ada.Text_Io; use Ada.Text_Io;

end Check_Iban;</langsyntaxhighlight>{{out}}

<langsyntaxhighlight AutoHotkeylang="autohotkey">IBANs := ["GB82 WEST 1234 5698 7654 32"

}</langsyntaxhighlight>{{Out}}

<langsyntaxhighlight lang="awk">

}</langsyntaxhighlight>

<syntaxhighlight lang="text">

<syntaxhighlight lang="text">

<langsyntaxhighlight lang="bbcbasic"> REM Used the following as official standard:

=VALmod$</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="bracmat">( ( IBAN-check

);</langsyntaxhighlight>{{out}}

<langsyntaxhighlight Clang="c">#include <alloca.h>

trans = alloca(sz + l + 1);

}</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="csharp"> public class IbanValidator : IValidateTypes

}</langsyntaxhighlight>Demonstrating:

<langsyntaxhighlight lang="csharp"> public class When_the_IbanValidator_is_told_to_Validate

}</langsyntaxhighlight>

<langsyntaxhighlight lang="cos">Class Utils.Validate [ Abstract ]

}</langsyntaxhighlight>{{out|Examples}}

<langsyntaxhighlight Clojurelang="clojure">(def explen

(valid-iban? "GB82 TEST 1234 5698 7654 32")) ; false</langsyntaxhighlight>

<langsyntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.

END PROGRAM validate-iban.</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="lisp">

<langsyntaxhighlight lang="d">import std.stdio, std.string, std.regex, std.conv, std.bigint,

}</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="elixir">defmodule IBAN do

|> Enum.each(fn iban -> IO.puts "#{IBAN.valid?(iban)}\t#{iban}" end)</langsyntaxhighlight>

<langsyntaxhighlight lang="fsharp">open System

0</langsyntaxhighlight>{{out}}

<syntaxhighlight lang="text">include lib/ulcase.4th \ for S>UPPER

checkiban</langsyntaxhighlight>

<langsyntaxhighlight lang="fortran">

<langsyntaxhighlight lang="freebasic">' FB 1.05.0 Win64

Sleep</langsyntaxhighlight>

"fmtregexp"

"strconvtesting"

var lCodelengthByCountryCode = map[string]int {

"AL": 28, "AD": 24, "AT": 20, "AZ": 28, "BE": 16, "BH": 22, "BA": 20, "BR": 29,

"BGBA": 2220, "CRBR": 2129, "HRBG": 2122, "CYCR": 2821, "CZHR": 2421, "DK": 18, "DOCY": 28, "EE": 20,

"FOCZ": 1824, "FIDK": 18, "FRDO": 2728, "GEEE": 2220, "DEFO": 2218, "GI": 23, "GR": 27, "GLFI": 18,

"GTFR": 2827, "HUGE": 2822, "IS": 26, "IEDE": 22, "ILGI": 23, "ITGR": 27, "KZ": 20, "KWGL": 3018,

"LVGT": 2128, "LBHU": 28, "LI": 21, "LT": 20, "LUIS": 2026, "MKIE": 1922, "MTIL": 3123, "MRIT": 27,

"MUKZ": 3020, "MCKW": 27, "MD": 24, "ME": 2230, "NLLV": 1821, "NOLB": 1528, "PKLI": 2421, "PSLT": 2920,

"PLLU": 2820, "PTMK": 2519, "ROMT": 2431, "SMMR": 27, "SAMU": 2430, "RSMC": 22, "SK": 24, "SI": 1927,

"ESMD": 24, "SEME": 2422, "CHNL": 2118, "TNNO": 2415, "TRPK": 2624, "AEPS": 23, "GB": 22, "VG": 2429,

varfunc sCodeisValidIBAN(iban = map[string]int) bool {

<langsyntaxhighlight lang="groovy">def validateIBAN(String iban) {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">[ 'GB82 WEST 1234 5698 7654 32',

}</langsyntaxhighlight>

<langsyntaxhighlight Haskelllang="haskell">import Data.Char (toUpper)

": " ++ reason</langsyntaxhighlight>{{out}}

<langsyntaxhighlight Jlang="j">NB. delete any blank characters

</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="java">import java.math.BigInteger;

}</langsyntaxhighlight>{{out}}

<langsyntaxhighlight JavaScriptlang="javascript">var ibanLen = {

The heart of the matter consists of just four lines of straightforward jq code:<langsyntaxhighlight lang="jq">

<langsyntaxhighlight lang="jq">def letters2digits:

if length < 15 then (.|tonumber) % 97

and ( (.[4:] + .[0:4]) | letters2digits | remainder) == 1 ;</langsyntaxhighlight>Examples<syntaxhighlight lang ="jq">

"GB82 TEST 1234 5698 7654 32" | is_valid_iban #=> false</langsyntaxhighlight>

<langsyntaxhighlight lang="julia">function validiban(iban::AbstractString)

end</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">// version 1.0.6

object IbanIBAN {

private const val countryCodes = "" +

"AD24 AE23 AL28 AT20 AZ28 BA20 BE16 BG22 BH22 BR29 BY28 CH21 CR22 CY28 CZ24 DE22 " +

"DK18 DO28 EE20 ES24 FI18"BY28 FO18CH21 FR27CR22 GB22CY28 GE22CZ24 GI23DE22 GL18DK18 GR27DO28 GT28EE20 HR21 HU28 IE22ES24 " +

"IL23 IQ23 IS26 IT27 JO30 KW30 KZ20"FI18 LB28FO18 LC32FR27 LI21GB22 LT20GE22 LU20GI23 LV21GL18 MC27GR27 MD24GT28 ME22HR21 " +

"MK19 MR27 MT31 MU30 NL18 NO15 PK24"HU28 PL28IE22 PS29IL23 PT25IQ23 QA29IS26 RO24IT27 RS22JO30 SA24KW30 SC31KZ20 SE24LB28 " +

"SI19LC32 SK24LI21 SM27LT20 ST25LU20 SV28LV21 TL23MC27 TN24MD24 TR26ME22 UA29MK19 VG24MR27 XK20" +

private fun checkCountryCodeisValid(cciban: String): = cc inBoolean countryCodes{

// check country code and length

if (!checkCountryCode(s.substring(0, 2) + s.length)) in countryCodes || return false

// move first 4 characters to endthe end

for (ch in 'A'..'Z') s = s.replace(ch.toStringRegex("[A-Z]"),) { (ch10 + (it.value[0] - 55'A').toInt().toString()) }

// check whether mod 97 calculation gives a remainder of 1

return BigInteger(s) % BigInteger.valueOf(97L) == BigInteger.ONE

}

fun main(args: Array<String>) {

val ibans = arrayOf("GB82 WEST 1234 5698 7654 32", "GB82 TEST 1234 5698 7654 32")

val isValidvalid = IbanIBAN.validateisValid(iban)

println(iban + if (isValidvalid) " may be valid" else " is not valid")

}</langsyntaxhighlight>

<langsyntaxhighlight lang="logtalk">

<langsyntaxhighlight lang="logtalk">

<langsyntaxhighlight lang="lua">local length=

end</langsyntaxhighlight>

<langsyntaxhighlight Mathematicalang="mathematica">CountryCodes={{"AL",28},{"AD",24},{"AT",20},{"AZ",28},{"BE",16},{"BH",22},{"BA",20},{"BR",29},{"BG",22},{"CR",21},{"HR",21},{"CY",28},{"CZ",24},{"DK",18},{"DO",28},{"EE",20},{"FO",18},{"FI",18},{"FR",27},{"GE",22},{"DE",22},{"GI",23},{"GR",27},{"GL",18},{"GT",28},{"HU",28},{"IS",26},{"IE",22},{"IL",23},{"IT",27},{"KZ",20},{"KW",30},{"LV",21},{"LB",28},{"LI",21},{"LT",20},{"LU",20},{"MK",19},{"MT",31},{"MR",27},{"MU",30},{"MC",27},{"MD",24},{"ME",22},{"NL",18},{"NO",15},{"PK",24},{"PS",29},{"PL",28},{"PT",25},{"RO",24},{"SM",27},{"SA",24},{"RS",22},{"SK",24},{"SI",19},{"ES",24},{"SE",24},{"CH",21},{"TN",24},{"TR",26},{"AE",23},{"GB",22},{"VG",24}};

]</langsyntaxhighlight>

<langsyntaxhighlight Mathematicalang="mathematica">IBANVerify["GB82 WEST 1234 5698 7654 32"]

IBANVerify["XX82 WEST 1234 5698 7654 323"]</langsyntaxhighlight>{{out}}

<langsyntaxhighlight MATLABlang="matlab">function valid = validateIBAN(iban)

end</langsyntaxhighlight>Usage:

<langsyntaxhighlight MATLABlang="matlab">tests = {'GB82 WEST 1234 5698 7654 32' ;

end</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="nim">import tables, strutils, re, bigints

echo account, " validation is: ", validIban account</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="oberon2">

<langsyntaxhighlight lang="ocaml">

<langsyntaxhighlight Perllang="perl">#!/usr/bin/perl

}</langsyntaxhighlight>{{out}}

{"CH",21}, -- Switzerland(full list in distro)</span>

<span style="color: return false#008080;">else</span>

<langsyntaxhighlight lang="php">

<langsyntaxhighlight Picolisplang="picolisp">(setq *Sizes '((GB . 22) (CH . 21) (SA . 24)))

(bye)</langsyntaxhighlight>

<langsyntaxhighlight lang="purebasic">EnableExplicit

End</langsyntaxhighlight>

<langsyntaxhighlight lang="python">import re

print('%s validation is: %s' % (account, valid_iban(account)))</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="racket">#lang racket

(valid-iban? "GB82 TEST 1234 5698 7654 32") ; => #f</langsyntaxhighlight>

<langsyntaxhighlight lang="rexx">/*REXX program validates an IBAN (International Bank Account Number). */

return e 'check digits.'</langsyntaxhighlight>

<langsyntaxhighlight lang="rexx">/*REXX pgm validates an IBAN (International Bank Account Number), including date ranges.*/

return e 'check digits.'</langsyntaxhighlight>

<langsyntaxhighlight lang="ring">

<langsyntaxhighlight Rubylang="ruby">def valid_iban? iban

p valid_iban? "GB82 TEST 1234 5698 7654 32" #=> false</langsyntaxhighlight>

{{libheader|Scala}}<langsyntaxhighlight Scalalang="scala">import scala.collection.immutable.SortedMap

lazy val pattern = "([A-Z]{2})([0-9]{2})([A-Z0-9]{4})([A-Z0-9]{0,2})([0-9]{7})(([A-Z0-9]?){0,1630})".r

}</langsyntaxhighlight>The test program:

<langsyntaxhighlight Scalalang="scala">object IbanTest extends App {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="seed7">$ include "seed7_05.s7i";

end func;</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">func valid_iban(iban) {

say valid_iban("GB82 TEST 1234 5698 7654 32") #=> false</langsyntaxhighlight>

<langsyntaxhighlight SNOBOL4lang="snobol4">* IBAN - International Bank Account Number validation

END</langsyntaxhighlight>

<langsyntaxhighlight lang="sml">(* country_code : string -> int *)

end handle Subscript => false | Domain => false</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl">proc verifyIBAN {iban} {

}</langsyntaxhighlight>Demonstrating:

<langsyntaxhighlight lang="tcl">set iban "GB82 WEST 1234 5698 7654 32"

puts "$not is [expr {[verifyIBAN $not] ? {verified} : {unverified}}]"</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="bash">declare -A base36=(

done</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">var BN=Import("zklBigNum");

}</langsyntaxhighlight>Without using big nums:

<langsyntaxhighlight lang="zkl">fcn validateIBAN(iban){

}</langsyntaxhighlight><syntaxhighlight lang ="zkl">var alphaNums=RegExp("^[0-9A-Z]+$");

.split(" ").pump(D(),fcn(w){return(w[0,2],w[2,*].toInt())});</langsyntaxhighlight>Testing 1 2 3

<langsyntaxhighlight lang="zkl"> // all valid

.apply(validateIBAN).toString(*).println();</langsyntaxhighlight>

<langsyntaxhighlight lang="zxbasic">10 REM REM Used the following as official standard:

5000 DEF FN m(a,b)=a-INT (a/b)*b: REM modulo</langsyntaxhighlight>