No entiendo:
Si yo genero un numero de serie con la función que aparece en el mensaje #40. Obtengo esto:
Código:
Base = 1234
Usuario = Domingo
Resultado = 53926-10321176-3149022
Y usando la función que te pase si, yo hago lo siguiente, obtengo TRUE:
Código Delphi
[-]
CheckSerial(1234,'Domingo','53926-10321176-3149022');