[Release] Password Generator Source Code

[flameswor10]

Ever wanted a snazzy Password Generator in your multi tool? Well here is a Password Generator Source Code..

Imports System.IO

Public Class Form1
    Const chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 09876543210 flameswor10 rulzorz xD"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r, i
        Dim x As String

        For i = 1 To NumericUpDown1.Value
            Randomize()
            r = Int((Rnd() * 61) + 1)

            x = x & Mid(chars, r, 1)

        Next i
        TextBox1.Text = (x)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msgbox("Flameswor10 made this Password Generator Source Cdoe")
Button1.text = "Generate"
    End Sub
End Class

Just add 1 Textbox and 1 button and 1 numericupdown and your good to go.

Have fun

[Blubb1337]

Nextgen also released a OS Project.

[Jason]

Convert to function = win.

[Blubb1337]

[php]Private Function randompw(ByVal chars As String, ByVal length As Integer)
Dim r, i
Dim x As String = ""

For i = 1 To length
Randomize()
r = Int((Rnd() * 61) + 1)

x = x & Mid(chars, r, 1)

Next i

Return (x)
End Function[/php]

[php] Private Const chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz1234567890 09876543210!§$%&/()=?ß}][{²³"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msgbox(randompw(chars, 10))
End Sub
[/php]

[Jason]

[php]Private Function randompw(ByVal chars As String, ByVal length As Integer)
Dim r, i
Dim x As String = ""

For i = 1 To length
Randomize()
r = Int((Rnd() * 61) + 1)

x = x & Mid(chars, r, 1)

Next i

Return (x)
End Function[/php]

[php] Private Const chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw xyz1234567890 09876543210!§$%&/()=?ß}][{²³"


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msgbox(randompw(chars, 10))
End Sub
[/php]

I already did that, I meant a general statement. I <3 functs, makes shit so much cleaner! Why do people make shit so hard to re-use!

[NextGen1]

Hmmmm, This should really be a snippet.

['Bruno]

I already did that, I meant a general statement. I <3 functs, makes shit so much cleaner! Why do people make shit so hard to re-use!

because most of these people is not experienced enough with long quantities of code...

[Blubb1337]

I already did that, I meant a general statement. I <3 functs, makes shit so much cleaner! Why do people make shit so hard to re-use!

So do I. That is why I modified his code a little.

I know what you are talking about.

I already mentioned this in my "Improve your code" tutorial. Why reusing a lot of repetitive code if you can build functions easily?

[Jason]

So do I. That is why I modified his code a little.

I know what you are talking about.

I already mentioned this in my "Improve your code" tutorial. Why reusing a lot of repetitive code if you can build functions easily?

Not just that, but when people cram everything into a "Button1_click" sub procedure it annoys me, makes code so much harder to follow because you don't know what they're trying to do, seeing a nice simple function call then following that function is orgasmic...well not quite.

[Blubb1337]

I cannot disagree.

[mnpeepno2]

this is only the 29802350th password gen on here -.-

[Blubb1337]

Password Generator <> Spammer tho.

[tempta43]

Password Generator <> Spammer tho.

<>? <> is equal to "=" :P

Neways.
Thx for sharing, Flame.

[Blubb1337]

<> = unequal
= = equal

[Lolland]

Let's stay on topic

Also, mathematically =\= means inequal.