Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Security.Cryptography
Imports System.Text

Public Class Form39
    Dim stepe As Integer = 0
    Dim mailtex As String = ""
    Dim begeg As Integer = 0
    Private Sub Form39_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Form1.BackColor
        Me.ForeColor = Form1.ForeColor
        TextBox1.BackColor = BackColor
        TextBox1.ForeColor = ForeColor
        Button1.ForeColor = ForeColor
        Button1.BackColor = BackColor
        ComboBox1.BackColor = BackColor
        ComboBox1.ForeColor = ForeColor
        stepe = 0
        ComboBox1.Hide()
        Label1.Text = "Entrer vôtre mail"
        Button1.Text = "suivant"
        PictureBox1.Hide()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If stepe = 0 Then
            My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & Form3.Label21.Text & "/mail.txt", cozip & "\mail.txt")
            Dim lines1() As String = File.ReadAllLines(cozip & "\mail.txt")
            File.Delete(cozip & "\mail.txt")
            Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
            Dim passecrypt = Convert.ToBase64String(Resultatbytes)
            If lines1(0) = passecrypt Then
                mailtex = TextBox1.Text
                TextBox1.Clear()
                Label1.Text = "Entrer vôtre mots de passe"
                TextBox1.UseSystemPasswordChar = True
                PictureBox1.Show()
                stepe = 1
            Else
                MsgBox("Mail incorrect", MsgBoxStyle.Critical)
            End If
        ElseIf stepe = 1 Then
            My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & Form3.Label21.Text & "/pass.txt", cozip & "\pass.txt")
            Dim lines1() As String = File.ReadAllLines(cozip & "\pass.txt")
            File.Delete(cozip & "\pass.txt")
            Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
            Dim passecrypt = Convert.ToBase64String(Resultatbytes)
            If lines1(0) = passecrypt Then
                TextBox1.Clear()
                Label1.Text = "Code de vérification"
                TextBox1.UseSystemPasswordChar = False
                PictureBox1.Hide()
                Gencode()
            Else
                MsgBox("Mots de passe incorrect", MsgBoxStyle.Critical)
            End If
        ElseIf stepe = 2 Then
            If TextBox1.Text = Label2.Text Then
                TextBox1.Clear()
                Label1.Text = "Sélectionner un code ?"
                Dim fwr As FtpWebRequest
                fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Form3.Label21.Text & "/")
                fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
                fwr.Method = WebRequestMethods.Ftp.ListDirectory
                Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                Dim str As String = sr.ReadLine()
                While Not str Is Nothing

                    If str.Contains("code") Then
                        ComboBox1.Items.Add(str.Replace(" " & Form3.Label21.Text & ".txt", ""))
                    End If

                    str = sr.ReadLine()

                End While

                sr.Close()
                If ComboBox1.Items.Count = 0 Then
                    MsgBox("Aucun code de récupération est disponible", MsgBoxStyle.Critical)
                    Close()
                Else
                    ComboBox1.Show()
                End If
            Else
                MsgBox("Le code de vérification est incorrect", MsgBoxStyle.Critical)
            End If
        ElseIf stepe = 3 Then
            Dim lines() As String = File.ReadAllLines(cozip & ComboBox1.SelectedItem & " " & Form3.Label21.Text & ".txt")
            Dim Resultatbytes() As Byte = Convert.FromBase64String(lines(0))
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
            Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
            Dim maildecrypt = Encoding.UTF8.GetString(donné)
            If TextBox1.Text = maildecrypt.ToString Then
                File.Delete(cozip & ComboBox1.SelectedItem & " " & Form3.Label21.Text & ".txt")
                TextBox1.Clear()
                TextBox1.Hide()
                Label1.Text = "Vérification terminer"
                Button1.Text = "Régénérer les codes"
                stepe = 4
            Else
                MsgBox("Code de récupération incorrect", MsgBoxStyle.Critical)
            End If
        ElseIf stepe = 4 Then
            Dim msg2 = MsgBox("Voulez-vous raimer Régénérer des codes ? (Les anciens codes seront supprimés)", MsgBoxStyle.YesNo)
            If msg2 = MsgBoxResult.Yes Then
                regene()
            Else

            End If
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If TextBox1.UseSystemPasswordChar = True Then
            TextBox1.UseSystemPasswordChar = False
            PictureBox1.Image = My.Resources.erggr
        Else
            TextBox1.UseSystemPasswordChar = True
            PictureBox1.Image = My.Resources.gyugcdyug
        End If
    End Sub
    Function Gencode() As Integer
        Dim NumRandom As Integer
        Dim Rand As Random = New Random
        Dim NumStr As String

        Try
            NumRandom = (Rand.Next(1, 999999))
            NumStr = Strings.Right("" & NumRandom.ToString(), 6)
            Label2.Text = "LM-" & NumStr
            mail()
        Catch ex As Exception

        End Try

    End Function
    Sub mail()
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
        Dim mail = mailtex
        Dim message = "Le code de vérification est le: " & Label2.Text

        MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
        MyMailMessage.To.Add(mail)
        MyMailMessage.Subject = ("Vérification de connexion")
        MyMailMessage.Body = (message)

        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
        SMTPServer.EnableSsl = True

        SMTPServer.Send(MyMailMessage) 'Envoi
        MsgBox("Le code de vérification été envoyé à l'adresse mail", MsgBoxStyle.Information)
        stepe = 2
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & Form3.Label21.Text & "/" & ComboBox1.SelectedItem & " " & Form3.Label21.Text & ".txt", cozip & ComboBox1.SelectedItem & " " & Form3.Label21.Text & ".txt")
        Label1.Text = "Entrer le code de " & ComboBox1.SelectedItem
        TextBox1.Clear()
        ComboBox1.Hide()
        stepe = 3
    End Sub
    Sub regene()
        Dim NumRandom As Integer
        Dim Rand As Random = New Random
        Dim NumStr As String
        Dim code As String = ""

        NumRandom = (Rand.Next(1, 999999))
        NumStr = Strings.Right("" & NumRandom.ToString(), 6)
        code = "LM-" & NumStr

        Dim t4 = cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw4 As New StreamWriter(t4)
        sw4.WriteLine(Form3.Label21.Text & code & "code1")
        sw4.Close()

        Dim NumRandom2 As Integer
        Dim Rand2 As Random = New Random
        Dim NumStr2 As String
        Dim code2 As String = ""

        NumRandom2 = (Rand2.Next(1, 999999))
        NumStr2 = Strings.Right("" & NumRandom2.ToString(), 6)
        code2 = "LM-" & NumStr2

        Dim t5 = cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw5 As New StreamWriter(t5)
        sw5.WriteLine(Form3.Label21.Text & code2 & "code2")
        sw5.Close()

        Dim NumRandom3 As Integer
        Dim Rand3 As Random = New Random
        Dim NumStr3 As String
        Dim code3 As String = ""

        NumRandom3 = (Rand3.Next(1, 999999))
        NumStr3 = Strings.Right("" & NumRandom3.ToString(), 6)
        code3 = "LM-" & NumStr3

        Dim t6 = cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw6 As New StreamWriter(t6)
        sw6.WriteLine(Form3.Label21.Text & code3 & "code3")
        sw6.Close()

        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
        Dim mail = mailtex
        Dim message = "Bonjour, " & Form3.Label21.Text & vbNewLine & vbNewLine & "Vous trouverez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
        MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
        MyMailMessage.To.Add(mail)
        MyMailMessage.Subject = ("code de récupération")
        MyMailMessage.Body = (message)

        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
        SMTPServer.EnableSsl = True

        Dim data = New Net.Mail.Attachment(cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt")
        Dim data2 = New Net.Mail.Attachment(cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt")
        Dim data3 = New Net.Mail.Attachment(cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt")
        MyMailMessage.Attachments.Add(data)
        MyMailMessage.Attachments.Add(data2)
        MyMailMessage.Attachments.Add(data3)
        SMTPServer.Send(MyMailMessage) 'Envoi
        MyMailMessage.Attachments.Dispose()

        codecrypte
    End Sub
    Sub codecrypte()

        Dim lines1() As String = File.ReadAllLines(cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt")
        Dim lines2() As String = File.ReadAllLines(cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt")
        Dim lines3() As String = File.ReadAllLines(cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt")
        Dim code1 As String = lines1(0)
        Dim code2 As String = lines2(0)
        Dim code3 As String = lines3(0)
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next

        Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(code1.ToString)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
        Dim code1crypt = Convert.ToBase64String(Resultatbytes)

        Dim t1 = cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw1 As New StreamWriter(cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt")
        sw1.WriteLine(code1crypt)
        sw1.Close()

        Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(code2.ToString)
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto2.Key = keyBytes2
        Crypto2.IV = keyBytes2
        Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
        Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
        Dim code1crypt2 = Convert.ToBase64String(Resultatbytes2)

        Dim t2 = cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw2 As New StreamWriter(cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt")
        sw2.WriteLine(code1crypt2)
        sw2.Close()

        Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(code3.ToString)
        Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto3 As New DESCryptoServiceProvider()
        Crypto3.Key = keyBytes3
        Crypto3.IV = keyBytes3
        Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
        Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
        Dim code1crypt3 = Convert.ToBase64String(Resultatbytes3)

        Dim t3 = cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt"
        Dim sw3 As New StreamWriter(cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt")
        sw3.WriteLine(code1crypt3)
        sw3.Close()


        Dim fwr As FtpWebRequest
        fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Form3.Label21.Text & "/")
        fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
        fwr.Method = WebRequestMethods.Ftp.ListDirectory
        Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

        Dim str As String = sr.ReadLine()
        While Not str Is Nothing

            If str.Contains("code") Then
                ListBox1.Items.Add(str.Replace(" " & Form3.Label21.Text & ".txt", ""))
            End If

            str = sr.ReadLine()

        End While

        sr.Close()

        del()
    End Sub
    Sub del()
        ListBox1.SelectedIndex = begeg
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & Form3.Label21.Text & "/" & ListBox1.SelectedItem)
        ftreq.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse
        If begeg = ListBox1.Items.Count - 1 Then
            My.Computer.Network.UploadFile(cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt", ipserver & "/utilisateur/" & Form3.Label21.Text & "/code 1 de récupération " & Form3.Label21.Text & ".txt")
            My.Computer.Network.UploadFile(cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt", ipserver & "/utilisateur/" & Form3.Label21.Text & "/code 2 de récupération " & Form3.Label21.Text & ".txt")
            My.Computer.Network.UploadFile(cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt", ipserver & "/utilisateur/" & Form3.Label21.Text & "/code 3 de récupération " & Form3.Label21.Text & ".txt")
            File.Delete(cozip & "code 1 de récupération " & Form3.Label21.Text & ".txt")
            File.Delete(cozip & "code 2 de récupération " & Form3.Label21.Text & ".txt")
            File.Delete(cozip & "code 3 de récupération " & Form3.Label21.Text & ".txt")
            MsgBox("Vos nouveaux codes de récupération ont été envoyez par mail, les anciens ont été supprimer", MsgBoxStyle.Information)
            Close()
        Else
            begeg = begeg + 1
            del()
        End If
    End Sub

    Private Sub Form39_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        If stepe = 3 Then
            File.Delete(cozip & ComboBox1.SelectedItem & " " & Form3.Label21.Text & ".txt")
        End If
        TextBox1.Clear()
        mailtex = ""
        begeg = 0
        stepe = 0
        ComboBox1.Hide()
        PictureBox1.Hide()
        ListBox1.Items.Clear()
        ComboBox1.Items.Clear()
        TextBox1.Show()
    End Sub
End Class