Need Fake Key Generator(s)

Discussion in 'Visual Basic .NET' started by Ztak07, Sep 4, 2012.

  1. Ztak07

    Ztak07 Regular Member

    Joined:
    Jun 23, 2012
    Messages:
    389
    Likes Received:
    116
    Hey can any one make me a keygen? The codes to do need to work but they need to display random numbers each time that the button is pressed and have a little bit of a wait time the start loading a progress bar. I would also like it if they would look nice. These are gaming themed generators ad they need to at least look genuine. I am trying this new method and if it works I would share it with you before posting it on the general forums for everyone to try. So can anyone help me out?
     
  2. jj89XD

    jj89XD Newbie

    Joined:
    Sep 4, 2012
    Messages:
    3
    Likes Received:
    1
    I made this to generate fake keys. To use it "TextBox1.Text = GenerateKey()"
    Code:
        Public Function GenerateKey() As String
            Dim Random As New Random
            Dim s1, s2, s3, s4, s5, RndKey As String
            s1 = Chr(Int(Rnd() * 26) + 65)
            s2 = Chr(Int(Rnd() * 26) + 65)
            s3 = Chr(Int(Rnd() * 26) + 65)
            s4 = Chr(Int(Rnd() * 26) + 65)
            s5 = Chr(Int(Rnd() * 26) + 65)
            RndKey = s1 & Random.Next(100, 200) & s2 & "-" _
                & Random.Next(10, 99) & s3 & Random.Next(10, 99) & "-" _
                & s4 & Random.Next(0, 9) & s5 & Random.Next(10, 99) & "-" _
                & s2 & Random.Next(10, 20) & s1 & s3 & "-" & s5 & Random.Next(1000, 9999)
            Return RndKey
        End Function
     
    • Thanks Thanks x 1
  3. leh12

    leh12 Newbie

    Joined:
    Apr 6, 2011
    Messages:
    1
    Likes Received:
    0
    Public Function Key() As Object
    Const nathu As String = "abcdefghijklmnopqrstuvwxyz"
    Const sikandar As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Const nandwani As String = "1234567890"
    Dim totalequivalent As String
    Dim i As Short
    totalequivalent = sikandar & nandwani
    For i = 1 To CInt(4)
    Key = Key & Mid(totalequivalent, Int((Rnd() * Len(totalequivalent)) + 1), 1)
    Next i
    End Function
     
  4. mastermind110

    mastermind110 Junior Member

    Joined:
    Sep 2, 2009
    Messages:
    110
    Likes Received:
    44
    You can google and get alot of souce code examples, edit GUIs and a little code and you're done with you own free fake keygen.
     
  5. terebi

    terebi Jr. VIP Jr. VIP Premium Member

    Joined:
    Apr 11, 2011
    Messages:
    357
    Likes Received:
    94
  6. cutekid1

    cutekid1 Regular Member

    Joined:
    Sep 30, 2012
    Messages:
    255
    Likes Received:
    75
    • Thanks Thanks x 1