53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
# Project : IBAN
|
|
|
|
codes = list(5)
|
|
codes[1] = "GB82 WEST 1234 5698 7654 32"
|
|
codes[2] = "GB82 TEST 1234 5698 7654 32"
|
|
codes[3] = "GB81 WEST 1234 5698 7654 32"
|
|
codes[4] = "SA03 8000 0000 6080 1016 7519"
|
|
codes[5] = "CH93 0076 2011 6238 5295 7"
|
|
|
|
for y = 1 to len(codes)
|
|
see codes[y]
|
|
flag = 1
|
|
codes[y] = substr(codes[y], " ", "")
|
|
checkcode(codes[y])
|
|
check = checkiban(codes[y])
|
|
if check = 1
|
|
see " is valid" + nl
|
|
else
|
|
see " is invalid" + nl
|
|
ok
|
|
next
|
|
|
|
func checkcode(code)
|
|
for n = 1 to 2
|
|
if ascii(code[n]) < 65 or ascii(code[n]) > 90
|
|
flag = 0
|
|
ok
|
|
next
|
|
for m = 3 to len(code)
|
|
if (ascii(code[m]) > 64 and ascii(code[m]) < 91) or (ascii(code[m]) > 47 and ascii(code[m]) < 58)
|
|
else
|
|
flag = 0
|
|
ok
|
|
next
|
|
|
|
func checkiban(code)
|
|
code= substr(code, 5, len(code) - 4) + left(code, 4)
|
|
for x = 1 to len(code)
|
|
if ascii(code[x]) > 64 and ascii(code[x]) < 91
|
|
code = left(code, x-1) + string(ascii(code[x]) - 55) + right(code, len(code) - x)
|
|
ok
|
|
next
|
|
modold = left(code,9) % 97
|
|
for p = 1 to floor((len(code)-9)/7)
|
|
modnew = string(modold) + substr(code, 10 + (p-1) * 7, 7)
|
|
modnew = number(modnew) % 97
|
|
modold = modnew
|
|
next
|
|
modrest = right(code, len(code) - ((p-1)*7 + 9))
|
|
modnew = string(modold) + modrest
|
|
modnew = number(modnew) % 97
|
|
return modnew
|