HACKVIEWBANK V1.0 By CERBI

================================

Algorithme de la cl de RIB

a=      b=      c=            i=
XXXXX - XXXXX - XXXXXXXXXXX - XX

a = No Banque (5 chiffres)
b = No Guichet (5 chiffres)
c = No Compte (11 chiffres)
i = Cl de RIB (2 chiffres)

On choisi a,b,c

d = (a * 8)
a = Int(d / 97)
a = d - (a * 97)

e = (b * 15)
b = Int(e / 97)
b = 97 - (e - (b * 97))

f = (c * 3)
c = Int(f / 97)
c = 97 - (f - (c * 97))

g = a + b + c
h = Int(g / 97)
i = g - (h * 97)

Si i = 0 alors
i = 97


i = Cl de RIB

Remarques :

* Int est la partie entire, ex: Int(4.125) = 4

* BNP a = 30004
  CA  a = 18906
  ect...

* Le No de guichet correspond au No d'un tablissement

================================


Algorithme de la cl de LUHN

No de la carte :

abcd - efgh - ijkl - mnop

p = Cl de LUHN (1 chiffre)

On choisi a,b,c,d,e,f,g,h,i,j,k,l,m,n,o

If a < 5 Then
a = a * 2
Else
a = (a * 2) + 1
End If

If c < 5 Then
c = c * 2
Else
c = (c * 2) + 1
End If

If e < 5 Then
e = e * 2
Else
e = (e * 2) + 1
End If

If g < 5 Then
g = g * 2
Else
g = (g * 2) + 1
End If

If i < 5 Then
i = i * 2
Else
i = (i * 2) + 1
End If

If k < 5 Then
k = k * 2
Else
k = (k * 2) + 1
End If

If m < 5 Then
m = m * 2
Else
m = (m * 2) + 1
End If

If o < 5 Then
o = o * 2
Else
o = (o * 2) + 1
End If

xe = a + b + c + d + e + f + g + h + i + j + k + l + m + n + o
xf = 0
If xe > 0 Then
   For comp = 1 To xe
   xf = xf - 1
      If xf = -1 Then
      xf = 9
      End If
   Next comp
End If

Cl de LUHN = xf

Remarques :

* Int est la partie entire, ex: Int(4.125) = 4

* 4XXX - XXXX - XXXX - XXXX = VisaCard
  5XXX - XXXX - XXXX - XXXX = MasterCard
  6XXX - XXXX - XXXX - XXXX = DiscoveryCard

================================