1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

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:
    337
    Likes Received:
    62
  6. cutekid1

    cutekid1 Regular Member

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