Here is the Keygen. Since no one tried it I uploaded this.

ALGORITHM:

Quote:

Dim a As String
Dim b, c, d As Integer
l = 4 'Length

If a <> 9999 Then
a = Val(0 + x)
If Val(Right(a, 1)) = 9 Then
a = Val(a + 1)
x = x + 1
End If
If Len(a) < 4 Then
For i = 1 To 4 - Len(a)
a = "0" & a
Next i
End If

b = Val(StrReverse(a)) + 1010
c = a + b
d = Val(StrReverse(c)) + 1010

Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
End If