[HaBo]

 'Kegen for "Keygen Me No.3 by PMTheQuick"
Function GenerateSerialOne(Name As String) As String
Dim i As Integer, TMP As String, x As Byte, v As Integer

v = Len(Name)
For i = 1 To v
x = Asc(Mid(Name,i,1)
TMP = TMP & x Xor v
Next i

GenerateSerialOne = TMP
End Function

Function GenerateSerialTwo (Name As String ,Serial1 As String, As String) As String
Dim i As Integer, TMP As String, TMP2 As String, x As Byte, v As Integer

v = Len(Name) + Len(Serial1)
TMP = Name & Serial1
For i = 1 To v
x = Asc(Mid(TMP,1)
TMP2 = TMP2 & x Xor v
Next i

GenerateSerialTwo = TMP2
End Function
'Wie gesagt ich konnte den Code leider nicht testen !!!