Record MyPassword Pro, Memorizza le password

  1. #1
    Utente Esperto L'avatar di Calippo
    Data Registrazione
    Jul 2013
    Località
    Canto
    Messaggi
    18,177
    Record MyPassword Pro ti permette di memorizzare le tue password senza che le scrivi ogni volta.

    Sorgente Form1:
    Codice:
    Public Class Form1
    
        Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
            Application.Exit()
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ProgressBar1.Value = 0
        End Sub
    
        Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
            ProgressBar1.Value = ProgressBar1.Value + 1
            Me.Hide()
            Form2.Show()
        End Sub
    End Class
    Sorgente Form2:

    Codice:
    
    
    Codice:
    Imports System.Windows.Forms
    Imports System.Security
    Imports System.Text
    Imports System.Security.Cryptography.SHA512Managed
    Imports System.IO
    Imports System.IO.File
    Imports Microsoft.Win32
    
    Public Class Form2
        Dim leggi As System.IO.StreamReader
        Dim chiave As RegistryKey
        Dim chiavepowa As RegistryKey
        Dim estensione As String
    
        Public Function SHA512Cript(ByVal Source) As String
            Dim Bytes() As Byte = ASCIIEncoding.ASCII.GetBytes(Source)
            Dim SHA512 As New Cryptography.SHA512Managed
            Dim bite() As Byte = SHA512.ComputeHash(Bytes)
            Dim x As Integer = (bite.Length * 5 + (bite.Length / 9))
            Dim StringBuild As StringBuilder = New StringBuilder(x)
            Dim a2 As Integer
            For a2 = 0 To bite.Length - 4
                StringBuild.Append(BitConverter.ToString(bite, a2, 1))
            Next a2
            Return StringBuild.ToString().TrimEnd(New Char() {" "c}).ToLower
        End Function
    
        Private Sub NeroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeroToolStripMenuItem.Click
            Me.BackColor = Color.Black
        End Sub
    
        Private Sub VerdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeToolStripMenuItem.Click
            Me.BackColor = Color.Green
        End Sub
    
        Private Sub ViolaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViolaToolStripMenuItem.Click
            Me.BackColor = Color.Violet
        End Sub
    
        Private Sub AzzurroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AzzurroToolStripMenuItem.Click
            Me.BackColor = Color.Azure
        End Sub
    
        Private Sub GialloToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GialloToolStripMenuItem.Click
            Me.BackColor = Color.Yellow
        End Sub
    
        Private Sub RossoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RossoToolStripMenuItem1.Click
            Me.BackColor = Color.Red
        End Sub
    
        Private Sub VisualizzaCreatoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzaCreatoreToolStripMenuItem.Click
            MsgBox("Il programma è stato realizzato da System32 al fine di aiutare gli utenti a ricordare le loro passaword, onde evitare lamentele da parte di essi. Il programma è molto semplice da usare, buon proseguimento", MsgBoxStyle.Information, "Creatore - System32")
        End Sub
    
        Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MsgBox("Assicurati di aver compilato tutti i campi !", MsgBoxStyle.Critical, "Password non inserita")
                Exit Sub
            End If
            Dim scrivi As StreamWriter
            Dim save As New SaveFileDialog
            save.Filter = "File di testo|*.txt"
            If save.ShowDialog = Windows.Forms.DialogResult.OK Then
                scrivi = IO.File.AppendText(save.FileName)
                scrivi.WriteLine("**************************************************")
                scrivi.WriteLine("La password cryptata che hai salvato è : " & SHA512Cript(TextBox1.Text))
                scrivi.WriteLine("**************************************************")
                scrivi.WriteLine("Il sito della password che hai salvato è : " & TextBox2.Text)
                scrivi.WriteLine("**************************************************")
                scrivi.Close()
                TextBox1.Text = ""
                TextBox2.Text = ""
            End If
            MsgBox("File salvato con successo !", MsgBoxStyle.Information, "File salvato")
        End Sub
    
        Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MsgBox("Assicurati di aver compilato tutti i campi !", MsgBoxStyle.Critical, "Campi non compilati")
                Exit Sub
            End If
            estensione = InputBox("Scrivi il nome della chiave di registro da creare che conterrà la password salvata senza crittografia", "RecordMyPassword Pro")
            If estensione = Nothing Then
                MsgBox("Non hai scritto il nome della chiave di registro", MsgBoxStyle.Critical, "Errore chiave di registro")
                Exit Sub
            End If
            chiave = Registry.ClassesRoot.CreateSubKey(estensione)
            chiave.SetValue(estensione, TextBox1.Text)
            chiavepowa = Registry.ClassesRoot.CreateSubKey("OWN")
            chiavepowa.SetValue("OWN", estensione)
            MsgBox("Chiave di registro creata correttamente", MsgBoxStyle.Information, "Chiave creata")
            TextBox1.Text = ""
            TextBox2.Text = ""
        End Sub
    
        Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click
            Dim leggi As System.IO.StreamReader
            OpenFileDialog1.Filter = "File di testo|*.txt"
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                leggi = File.OpenText(OpenFileDialog1.FileName)
                MessageBox.Show("File di testo letto corettamente", "Lettura effettuata", MessageBoxButtons.OK, MessageBoxIcon.Information)
                TextBox3.Text = leggi.ReadToEnd
                leggi.Close()
                TextBox4.Text = OpenFileDialog1.FileName
            End If
        End Sub
    
        Private Sub AzzeraCampiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AzzeraCampiToolStripMenuItem.Click
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim crea As String
            crea = InputBox("Scrivi il percorso della cartella da creare. Attento a scriverlo correttamente, altrimenti il programma darà errore !!", "RecordMyPassword Pro")
            Directory.CreateDirectory(crea)
            MsgBox("Directory creata correttamente ! Se così non fosse è un problema di permessi", MsgBoxStyle.Exclamation, "Directory creata")
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim muovi As String
            Dim dir_finale As String
            muovi = InputBox("Scrivi il percorso della cartella che vuoi spostare, sta attento !!", "RecordMyPassword Pro")
            dir_finale = InputBox("Scrivi il percorso della cartella di destinazione, sta attento !!", "RecordMyPassword Pro")
            Directory.Move(muovi, dir_finale)
            MsgBox("Directory spostata correttamente ! Se così non fosse è un problema di permessi", MsgBoxStyle.Exclamation, "Directory spostata")
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim cancella As String
            cancella = InputBox("Scrivi il percorso della cartella da cancellare", "RecordMyPassword Pro")
            Directory.Delete(cancella)
            MsgBox("Directory cancellata correttamente ! Se così non fosse è un problema di permessi", MsgBoxStyle.Exclamation, "Directory cancellata")
        End Sub
    
        Private Sub VisualizzaSorgenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzaSorgenteToolStripMenuItem.Click
            Form3.Show()
        End Sub
    
        Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            Application.Exit()
        End Sub
    
        Private Sub ChiudiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChiudiToolStripMenuItem.Click
            Application.Exit()
        End Sub
    
        Private Sub VisualizzaPasswordSalvataToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzaPasswordSalvataToolStripMenuItem.Click
            Dim registro2 As RegistryKey = Registry.ClassesRoot.OpenSubKey("OWN", True)
            Dim value2 As String = CType(registro2.GetValue("OWN"), String)
            estensione = value2
            Dim registro As RegistryKey = Registry.ClassesRoot.OpenSubKey(estensione, True)
            Dim value As String = CType(registro.GetValue(estensione), String)
            MsgBox("La password che hai salvato è : " & value, MsgBoxStyle.Information, "Password")
        End Sub
    End Class
    Modifiche apportate
    Per rendere più "utile" il programma e più "sensato", ho sistemato il programma facendo creare delle chiavi di registro al programma in modo che l'utente può vedere la sua password quando vuole, sia in modo crittografato che in modo normale. Ovviamente questa è una cosa molto più sicura di quella che avevo fatto io, ma il problema mi si poneva quando l'utente chiudeva e riapriva il programma. Il programma dava errore, e io non sapevo proprio come fare, per questo ringrazio PaninoDanilo per avermi aiutato ad ovviare a questo problema Record MyPassword Pro, Memorizza le password

    Buon utilizzo.

    Ps : Aggiornato sorgente sia nel programma che nel topic - Aggiornato download

    Per poter utilizzare il programma dovete scaricare questa libreria grafica >
    DevComponents.DotNetBar2

    Il programma gia compilato e fatto lo trovate qui: RecordMyPassword Pro


    Ultima modifica di Calippo; 07-11-2013 alle 01:23
    Se volete Offirimi un caffè cosi inizio a mettere più trucchi (lavoro di piu)
    Record MyPassword Pro, Memorizza le password


Termini piu ricercati:

Nessuno è atterrato su questa pagina da un motore di ricerca. Almeno, non per ora...