xbillibigen Keygen generator

Public Class Form1


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = getrandom("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789", TextBox2.Text)
    End Sub
    Function getrandom(ByVal input As String, ByVal charamount As Integer) As String
        Dim r As New Random
        Dim strb As New System.Text.StringBuilder
        Dim chararay() As Char = Input.ToCharArray
        For i As Integer = 1 To charamount
            Dim ti As Integer = r.Next(0, chararay.Length)
            strb.Append(chararay(ti))
        Next
        Return strb.ToString
    End Function
End Class