WinCHM VB.Net Keygen

gistfile1.vb

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim s As Integer = 0
        Dim i As Integer = 1
        Dim prod As Integer = 12525 'WinCHM
        ' Dim prod As Integer = 10010 'CHMTOPDF
        ' Dim prod As Integer = 9958

        Dim f As Integer = prod
        Dim sb As New StringBuilder()

        While f <> 0
            Dim a As Integer

            If (f <= 1620) Then
                Dim mo As Integer = f Mod i
                If mo = 0 Then
                    If (f / i >= 48 And f / i <= 57) Then
                        sb.Append(Chr(f / i))
                        f = f - f
                    ElseIf (f / i >= 65 And f / i <= 90) Then
                        sb.Append(Chr(f / i))
                        f = f - f
                    Else
                        i = 1
                        f = prod
                        sb.Clear()
                    End If
                Else
                    i = 1
                    f = prod
                    sb.Clear()
                End If
                If f < 0 Then
                    i = 1
                    f = prod
                    sb.Clear()
                End If
            Else
                a = genChar()
                sb.Append(Chr(a))
                a = a * i
                f = f - a
                i = i + 1
            End If
        End While

            Dim serial As String = sb.ToString()
            sb.Clear()
            TextBox1.Text = serial
    End Sub

    Private Function genChar()
        Dim validchars As String = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Randomize()
        Dim index As Integer = rand.Next(0, validchars.Length)
        Dim character As Char = validchars(index)

        Return Asc(character)
    End Function