VAT LuhnKey
De BlueWiki
Version du 5 mai 2013 à 15:03 par Paul Kuhn (discuter | contributions)
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