VAT LuhnKey : Différence entre versions
De BlueWiki
(→Exemple de code) |
|||
| Ligne 45 : | Ligne 45 : | ||
Si (Longueur($cardNumber)=16) | 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 | Fin de si | ||
$0:=$isOK | $0:=$isOK | ||
Version actuelle en date du 5 mai 2013 à 15:03
| 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 |
[modifier] Description
Cette méthode calcule la clef de Luhn d'un nombre
[modifier] 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
