Need Fake Key Generator(s)

Ztak07

Regular Member
Jr. VIP
Joined
Jun 23, 2012
Messages
476
Reaction score
125
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?
 
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
 
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
 
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.
 
Back
Top