PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Wx - Gerar chave de acesso
Wx - Gerar chave de acesso
Débuté par BOLLER, 28 aoû. 2018 05:50 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 28 août 2018 - 05:50
Procedure GenerarClaveAcceso(ClaveAcceso)


CAlongitud is int = Length(ClaveAcceso)
CACaracter is int= 0
contador is int =2
acumulador is int =0
resultado is int = 0
verif1 is int = 0
ClaveAccesoOK is string


WHILE CAlongitud > 0

//Aqui busca en la cadena de string cada caracter desde el ultimo hasta el primero
CACaracter = Val(Middle(ClaveAcceso,CAlongitud,1))
//despues que tengo el valor del caracter lo multiplo por el contador
resultado = CACaracter * contador
// guardamos y sumamos el valor en una variable
acumulador = acumulador + resultado
//sumo uno en el contador( el contado siempre es de 2-7)
contador = contador +1
//verifico si el valor de contador es mayor que 7 y le devuelvo el valor original 2
IF contador > 7 THEN
contador = 2
END
//diminuo el valor del total de longitud para buscar el caracter de la clavede acceso
CAlongitud = CAlongitud -1
END
//en otra variable guardo la suma total de todos los numeros de la clave de acceso y subtrayo por 11
verif1 = Modulo(acumulador,11)
//aqui hacemos una verificacion del valor obtenido si es 11 = 0 y si es 10 = 1 si es otro 11 - el valor obtido.
SWITCH verif1
CASE 11
verif1 = 0
CASE 10
verif1 = 1
OTHER CASE
verif1 = 11 - verif1
END
// volvemos a verifica por si el resultado es 0
SWITCH verif1
CASE 11
verif1 = 0
CASE 10
verif1 = 1
END


ClaveAccesoOK = ClaveAcceso + verif1
RESULT ClaveAccesoOK


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 28 août 2018 - 20:36
CODIGO FOI ENVIADO PELO SR
TOM SILVA
EQUADOR

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/