Connor's password gen - [source]

[Connor]

Have fun, don't rip.

HA don't rip, bye bye lil'boy.

[|G3|]

Nice nice.
Very useful.

[Connor]

^_^
*cough+repisappreciated*

[Silverwing614]

What type of file is it and how do you use it?

[Tyler]

It's not really a file type. o_O
It's coding lol.
And it's VB I believe.

[Zim]

Fo reals dood
I like it. I used it a couple times :P
ANd how to add spunk to code
" 'Self explanatory."
ConnoUr BaDASS

[rcadble]

Why not make it in complete function form? You should try make it a function where your user can just input the settings (as it is now, you'd have to make a new function every time you wanted to change the length).

Public Function GenerateCodeRcad(ByVal lngLength As Integer) As String
    Dim i As Integer
    Dim strRand As String
    Dim intRand As Integer
        Randomize
        For i = 0 To lngLength Step 1
            intRand = Int(Math.Rnd() * 3) + 1
            If intRand = 1 Then
                strRand = strRand & Int(Math.Rnd() * 10)
            ElseIf intRand = 2 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 65))
            ElseIf intRand = 3 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 97))
            End If
        Next
        GenerateCodeRcad = strRand
End Function

Unfortunately, the mid function is pretty slow for vb6, so using chr() with random ascii values would speed it up. (Mine averaged 0.93 microseconds faster, by testing them both 100,000 times).

[Connor]

Dude, you're a pretty much pro.
I'm just a beginner programmer XD Rofl.
Any chance you tutor me on MSN?

[PhearAlmighty]

Originally Posted by rcadble

Why not make it in complete function form? You should try make it a function where your user can just input the settings (as it is now, you'd have to make a new function every time you wanted to change the length).

Public Function GenerateCodeRcad(ByVal lngLength As Integer) As String
    Dim i As Integer
    Dim strRand As String
    Dim intRand As Integer
        Randomize
        For i = 0 To lngLength Step 1
            intRand = Int(Math.Rnd() * 3) + 1
            If intRand = 1 Then
                strRand = strRand & Int(Math.Rnd() * 10)
            ElseIf intRand = 2 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 65))
            ElseIf intRand = 3 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 97))
            End If
        Next
        GenerateCodeRcad = strRand
End Function

Unfortunately, the mid function is pretty slow for vb6, so using chr() with random ascii values would speed it up. (Mine averaged 0.93 microseconds faster, by testing them both 100,000 times).

rcadble:
your code generates one extra character

Public Function GenerateCodeRcad(ByVal lngLength As Integer) As String
    Dim i As Integer
    Dim strRand As String
    Dim intRand As Integer
        Randomize
        lnglenth = lnglenth - 1
        For i = 0 To lngLength Step 1
            intRand = Int(Math.Rnd() * 3) + 1
            If intRand = 1 Then
                strRand = strRand & Int(Math.Rnd() * 10)
            ElseIf intRand = 2 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 65))
            ElseIf intRand = 3 Then
                strRand = strRand & Chr(Int(Math.Rnd() * (26) + 97))
            End If
        Next
        GenerateCodeRcad = strRand
End Function

[PhearAlmighty]

IDC if this is a double post :(

Rip?
http://www.gamerzplanet.net/forums/v...ml#post1165378
http://www.paidforum.net/showthread.php?t=378
http://www.platinax.co.uk/forum/8513...generator.html

PM'ed an admin btw.