El tutorial no lo hago por falta de tiempo, pero te dejo el source del keygen que hice (VB6)...
'En un form, agregar:
' 2 textos: txtUser y txtSerial
' 1 boton:Command1
Private Sub Command1_Click()
Dim a As String
Dim i As Integer
txtSerial.Text = ""
For i = 1 To Len(txtUser.Text)
txtSerial.Text = txtSerial.Text + Chr(Asc(Mid(txtUser.Text, i, 1)) + 5)
Next i
End Sub
Todo esto salio con Olly y muy rapido, asi que el crackme es muy sencillo...
Saludos!