Visual Basic - Como agregar clave de instalación a ejecutable

Hola a todos. He desarrollado un sistema de información con una base de datos MAXDB (Muy buena, el que desee saber sobre ella, me preguntan). Deseo incorporarle a mi programa una clave de instalación, cpon el fin de que no sea pirateada. Alguien puede sugerirme una idea? Tengo un par, pero me parecen muy complicadas para desarrollarlas. Si alguien puede ayudarme, no dude en decirmelo, lo sabre agradecer...

Me interesa muchisimo, también tengo el mismo problema.

la forma mas sencilla es entrar a:
C:\Archivos de programa\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1
en ese lugar se encuentra el codigo del instalador de Visual Basic...

esperoq ue hagas maravillas con eso...

Bueno... hay muchas formas de proteger un programa pero hay una que es la mejor... acá viene el tema de la criptografía. Por si no estás familiarizado la criptografía es un sistema por el cual se transforma un mensaje en algo ilegible para el ojo humano, de esta forma sólo el que pueda desencrptarlo lo podrá leer. En Visual Basic es MUY fácil crear una función que encripte datos, sólo hay que pensar un poco. Por ejemplo observen la siguiente función:

Function Encriptar(ByVal Datos As String) As String
Dim iChar%, lLen&
Dim i&

lLen = Len(Datos)

For i = 1 To lLen
iChar = AscB(Mid$(Datos, i, 1))
iChar = (iChar - ((i Xor ((i Imp lLen) = 0)) Xor lLen)) And &H7FFF

Mid$(Datos, i, 1) = String$(1, iChar)
Next

Encriptar = Datos

End Function

Con esta función se puede encriptar cualquier tipo de datos String. Para desencriptarlo sólo hay que cambiar un pequeño detalle, en vez de restar el código del caracter hay que sumarlo, por ejemplo:

Function Desencriptar(ByVal Datos As String) As String
Dim iChar%, lLen&
Dim i&

lLen = Len(Datos)

For i = 1 To lLen
iChar = AscB(Mid$(Datos, i, 1))
iChar = (iChar + ((i Xor ((i Imp lLen) = 0)) Xor lLen)) And &H7FFF

Mid$(Datos, i, 1) = String$(1, iChar)
Next