Create a keygen in VB6
someone can help to create a keygen (with randrom numbers) in VB6?
Private Sub Command1_Click() Text1 = GenerateCode() 'make sure ur textbox is called Text1 End Sub Public Function GenerateCode() strInputString ="1234567890abcdefghijklmnopq rstuvwxyzABCDEFGHIJKLMNOPQRSTUVXYS" 'these are the characters which will be in the password intLength = Len(strInputString) intNameLength = 7 'edit this according to how long u want ur password to be Randomize ' jus to make it random :D strName = "" For intStep = 1 To intNameLength intRnd = Int((intLength * Rnd) + 1) strName = strName & Mid$(strInputString, intRnd, 1) Next GenerateCode = strName End Function

