VAT LuhnKey
De BlueWiki
| Paramètres | Type | Description | |
|---|---|---|---|
| Nombre | Texte | 
|
Nombre dont vous voulez calculer la clef de Luhn |
| Multiplicateur initial | Entier long |
|
1 ou 2
|
| Resultat | Entier Long | 
|
Clef de Luhn |
Description
Cette méthode calcule la clef de Luhn d'un nombre
Exemple de code
// Nom utilisateur (OS) : Paul Kühn - BlueCompany
// Date et heure : 28/12/11, 16:34:48
// ----------------------------------------------------
// Méthode : VAT_CheckCardNumber
C_BOOLEEN($0;$isOK)
C_TEXTE($cardNumber;$1)
$cardNumber:=$1
Si (Longueur($cardNumber)=16)
$15Premier:=Sous chaine($cardNumber;1;15)
$LuhnKey:=VAT_LuhnKey ($15Premier;2)
Si ($LuhnKey=Num(Sous chaine($cardNumber;16;1)))
$isOK:=Vrai
Fin de si
Fin de si
$0:=$isOK
