Safe Password Generator

I created a Password Generator and i thought i share the source with you guys.
The tool doesn't access to the internet or anything else, you can check it yourself.
The Design and Look is just an example, you can re-create it like you want or just use the code.
I've also added some additional features like Save as text file.
The project folder with source is in the .rar file and you can download it as attachment after a moderator has approved the file.

VirusScan:
https://www.virustotal.com/de/file/7...is/1436183489/

ScreenShot of example Design:

If there's anything else, comment and i wil reply.

Password Generator_mpgh.net.rar72 KB · 26 downloads Clean

Download & Thanks

The moment you save your password to an uncrypted file, it's no longer safe.
Try to add some encryption, so it not that easy to read the password.

Originally Posted by RoPMadM

The moment you save your password to an uncrypted file, it's no longer safe.
Try to add some encryption, so it not that easy to read the password.

I don't know yet how to encrypt texts/strings.

Originally Posted by DadDelta

I don't know yet how to encrypt texts/strings.

Then it's not a "Safe Password Generator"

P.S. You should use some cryptographically secure pseudorandom generation for passwords.

Originally Posted by DadDelta

I don't know yet how to encrypt texts/strings.

.NET has some libraries which will do this for you

.

Originally Posted by Hitokiri~

Then it's not a "Safe Password Generator"

P.S. You should use some cryptographically secure pseudorandom generation for passwords.

Well, i don't see any reason why i should encrypt the saved .txt passwords since it's just a small feature next to the main feature that it just generates a safe password and you can copy it.

File appears safe.

/Approved

just to say.
Don't use MsgBox (it exists for VB6 programmers), to be coherent use MessageBox.Show.

Originally Posted by Raydenman

just to say.
Don't use MsgBox (it exists for VB6 programmers), to be coherent use MessageBox.Show.

I do not understand why?

Originally Posted by DadDelta

I do not understand why?

Guess why

MsgBox code ( watch the end ) :

Code:

<MethodImpl(MethodImplOptions.NoInlining), HostProtection(SecurityAction.LinkDemand, Resources:=HostProtectionResource.UI)> _
Public Shared Function MsgBox(ByVal Prompt As Object, ByVal Optional Buttons As MsgBoxStyle = 0, ByVal Optional Title As Object = new Object()) As MsgBoxResult
    Dim owner As IWin32Window = Nothing
    Dim text As String = Nothing
    Dim titleFromAssembly As String
    Dim vBHost As IVbHost = HostServices.VBHost
    If (Not vBHost Is Nothing) Then
        owner = vBHost.GetParentWindow
    End If
    If ((((Buttons And 15) > MsgBoxStyle.RetryCancel) OrElse ((Buttons And 240) > MsgBoxStyle.Information)) OrElse ((Buttons And &HF00) > MsgBoxStyle.DefaultButton3)) Then
        Buttons = MsgBoxStyle.OkOnly
    End If
    Try 
        If (Not Prompt Is Nothing) Then
            [text] = CStr(Conversions.ChangeType(Prompt, GetType(String)))
        End If
    Catch exception As StackOverflowException
        Throw exception
    Catch exception2 As OutOfMemoryException
        Throw exception2
    Catch exception3 As ThreadAbortException
        Throw exception3
    Catch exception9 As Exception
        Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValueType2", New String() { "Prompt", "String" }))
    End Try
    Try 
        If (Title Is Nothing) Then
            If (vBHost Is Nothing) Then
                titleFromAssembly = Interaction.GetTitleFromAssembly(Assembly.GetCallingAssembly)
            Else
                titleFromAssembly = vBHost.GetWindowTitle
            End If
        Else
            titleFromAssembly = Conversions.ToString(Title)
        End If
    Catch exception4 As StackOverflowException
        Throw exception4
    Catch exception5 As OutOfMemoryException
        Throw exception5
    Catch exception6 As ThreadAbortException
        Throw exception6
    Catch exception13 As Exception
        Throw New ArgumentException(Utils.GetResourceString("Argument_InvalidValueType2", New String() { "Title", "String" }))
    End Try
    Return DirectCast(MessageBox.Show(owner, [text], titleFromAssembly, (DirectCast(Buttons, MessageBoxButtons) And DirectCast(15, MessageBoxButtons)), (DirectCast(Buttons, MessageBoxIcon) And DirectCast(240, MessageBoxIcon)), (DirectCast(Buttons, MessageBoxDefaultButton) And DirectCast(&HF00, MessageBoxDefaultButton)), (DirectCast(Buttons, MessageBoxOptions) And DirectCast(-4096, MessageBoxOptions))), MsgBoxResult)
End Function

Safe Password Generator

Post a Reply

Similar Threads

Tags for this Thread