como encriptar un procedimiento

[[seoane]]

No explicas como estas comprobando ahora mismo el numero de serie, pero me imagino que estas haciendo algo como esto:

Código Delphi [-]
if Numero = 'Numero Secreto' then
 ...

Y claro, el "Numero Secreto" no es tan secreto como nos gustaría, porque con un simple editor hexadecimal, o con un visor de la memoria ram podemos ver perfectamente claro ese numero.

Precisamente en este hilo hablamos del asunto:
http://www.clubdelphi.com/foros/showthread.php?t=41836

Y te voy a dar la misma solucion que propuse en su momento:

Código Delphi [-]
if Hash(Numero) = 'Hash del numero secreto' then
 ...

El posible listillo, solo podría leer el hash del numero secreto, pero seria incapaz de obtener el numero de serie al que corresponde ese hash.