Function KeyGen(ByVal UserName As String, ByVal var1 As Object, ByVal var2 As Object, ByVal var3 As Object, ByVal var4 As Object) As String
Dim v1, v2, v3, v4
Dim p1, p2, p3, p4
Dim length
length = Len(UserName)
v1 = Asc(VB6.Left(UserName, 1))
v2 = Asc(VB6.Right(UserName, 1))
v3 = Asc(VB6.Left(UserName, (length / 2)))
v4 = Asc(VB6.Right(UserName, (length / 2)))
p1 = VB6.Right(Hex(v1 * v2 + (v3 + v4) * var1 * 100), 5)
p2 = VB6.Left(Hex(v2 * v4 + (v1 + v2) * var2 * 100), 5)
p3 = VB6.Right(Hex(v1 * v3 + (v2 + v4) * var3 * 100), 5)
p4 = VB6.Left(Hex(v2 * v4 + (v3 + v1) * var4 * 100), 5)
keygen = p1 + "-" + p2 + "-" + p3 + "-" + p4
End Function |