Sub Encrypt1(ByVal inName As String, ByVal outName As String)
        Try
            Dim storage(4096) As Byte   'create buffer 
            Dim totalBytesWritten As Long = 8  'Keeps track of bytes written. 

            Dim packageSize As Integer   'Specifies the number of bytes written at one time. 

            'Declare the file streams. 
            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _
              FileAccess.Write)
            fout.SetLength(0)

            Dim totalFileLength As Long = fin.Length  'Specifies the size of the source file. 

            'create the Crypto object 
            Dim des As New DESCryptoServiceProvider()

            Dim crStream As New CryptoStream(fout, _
                   des.CreateEncryptor(TheKey, Vector), CryptoStreamMode.Write)

            'flow the streams 
            While totalBytesWritten < totalFileLength
                packageSize = fin.Read(storage, 0, 4096)
                crStream.Write(storage, 0, packageSize)
                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)
            End While

            crStream.Close()
            fin.Close()
            fin.Dispose()
            fout.Close()
            fout.Dispose()

        Catch e As Exception
            MsgBox(e.Message)
        End Try

    End Sub


    '//////// DECRYPTION PROCEDURE 
    ' This procedure differs from the encryption procedure only in the substitution of 
    'des.CreateDecryptor for des.CreateEncryptor. Also, the error message is different. 
    Sub Decrypt1(ByVal inName As String, ByVal outName As String)

        Try

            Dim storage(4096) As Byte
            Dim totalBytesWritten As Long = 8
            Dim packageSize As Integer
            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)
            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _
              FileAccess.Write)
            fout.SetLength(0)
            Dim totalFileLength As Long = fin.Length


            Dim des As New DESCryptoServiceProvider()
            Dim crStream As New CryptoStream(fout, _
              des.CreateDecryptor(TheKey, Vector), CryptoStreamMode.Write)

            Dim ex As Exception

            While totalBytesWritten < totalFileLength
                packageSize = fin.Read(storage, 0, 4096)
                crStream.Write(storage, 0, packageSize)
                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)
            End While

            crStream.Close()
            fin.Close()
            fin.Dispose()
            fout.Close()
            fout.Dispose()

        Catch e As Exception
            MsgBox(e.Message & "Please ensure that you are using the correct password")
        End Try

    End Sub

Imports System.IO
Imports System.Xml.Serialization

Public Class FormLogin

    Dim loginAccepte As Boolean = False

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If loginAccepte = False Then
            Dim reponse As Integer = MsgBox("Vous ne pouvez entrer sans identifiant. Désirez-vous quitter l'application ?", 36)
            If reponse = 6 Then
                FormMain.Close()
            Else
                e.Cancel = True
            End If
        Else
            Me.Dispose()
        End If
    End Sub


    Private Sub bt_envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_envoyer.Click

        Dim username As String = Me.txtbox_identifiant.Text
        Dim mdp As String = Me.txtbox_mdp.Text




        If File.Exists("DataEmployes.xml") Then
            FormMain.decrypter("DataEmployes.xml")
            Dim FluxDeFichier2 As Stream = File.OpenRead("DataEmployes.xml")
            Dim Deserialiseur As New XmlSerializer(GetType(List(Of WillcleanDLL.WillcleanDLL.Employe)))
            'Désérialisation et convertion de ce qu'on récupère dans le type "Employe"
            FormMain._ListeEmployes = Deserialiseur.Deserialize(FluxDeFichier2)
            'Fermeture du flux
            FluxDeFichier2.Close()
        Else
            'Erreur Critique !
            MsgBox("Fichier de données manquant !", MsgBoxStyle.Critical, "Erreur critique")
            Application.Exit()
        End If

        Dim correct As Boolean = False

        For Each employeTemp In FormMain._ListeEmployes
            If employeTemp.Nom = username And employeTemp.Mdp = mdp Then
                correct = True
                InfosAccepter(employeTemp.Status)
            End If
        Next

        If correct = False Then
            MsgBox("L'identifiant entré et/ou le mot de passe sont erronés !", 48, "Erreur")
        End If

    End Sub


    Sub InfosAccepter(ByVal status As Integer)

        loginAccepte = True
        FormMain.EmployeCourant.Nom = Me.lbl_identifiant.Text ' Assigne le nom
        FormMain.EmployeCourant.Mdp = Me.lbl_mdp.Text ' Assigne le mdp

        FormMain.EmployeCourant.Status = status ' Assigne le status

        Me.Close() ' On ferme la fenetre de login
    End Sub

Public Class FormMain


    Public _ListeEmployes As List(Of WillcleanDLL.WillcleanDLL.Employe)
    Public _ListeClients As List(Of WillcleanDLL.WillcleanDLL.Client)
    Public _ListeAppels As List(Of WillcleanDLL.WillcleanDLL.Appel)
    Public _ListeQuestions As List(Of WillcleanDLL.WillcleanDLL.Question)

    Public EmployeCourant As New WillcleanDLL.WillcleanDLL.Employe

    ' Status employe
    ' 000   Ne peut rien faire, par défaut
    ' 050   Employe normal, tous les droits sauf admin
    ' 090   Admin ne pouvant créer d'autre admins
    ' 100   Root Admin, peut tout faire


    Public TheKey(7) As Byte
    Private Vector() As Byte = {&H87, &H42, &HF6, &H51, &H4A, &H50, &H24, &H81}


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Show() ' Affiche 

        _ListeEmployes = New List(Of WillcleanDLL.WillcleanDLL.Employe)

        TheKey(0) = 124
        TheKey(1) = 54
        TheKey(2) = 92
        TheKey(3) = 127
        TheKey(4) = 83
        TheKey(5) = 60
        TheKey(6) = 7
        TheKey(7) = 54



        Dim tabPageSave As TabPage = Nothing
        Dim index As Integer = 5
        tabPageSave = Me.MainTabControl.TabPages(index)
        Me.MainTabControl.TabPages.Remove(tabPageSave)


        SeConnecter() ' Demande login + mdp afin de connaitre le status de l'employe
        MsgBox(EmployeCourant.Status)
        If EmployeCourant.Status > 90 Then ' Si l'employe est un admin
            MainTabControl.TabPages.Insert(index, tabPageSave) ' On donne accès à l'onglet admin
        End If
    End Sub

    Private Sub SeConnecter()
        Dim FenetreLogin As New FormLogin
        FenetreLogin.ShowDialog()
    End Sub

End Class

Public Sub crypter(ByVal fichier As String)
        Encrypt1(fichier, "temp.xml")
        Thread.Sleep(1000)
        File.Delete(fichier)
        File.Copy("temp.xml", fichier)
        File.Delete("temp.xml")
    End Sub



    Public Sub decrypter(ByVal fichier As String)
        Decrypt1(fichier, "temp.xml")
        Thread.Sleep(1000)
        File.Delete(fichier)
        File.Copy("temp.xml", fichier)
        File.Delete("temp.xml")

    End Sub

Sub Decrypt1(ByVal inName As String, ByVal outName As String)

        Try

            Dim storage(4096) As Byte
            Dim totalBytesWritten As Long = 8
            Dim packageSize As Integer
            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _
              FileAccess.Write, FileShare.ReadWrite)
            fout.SetLength(0)
            Dim totalFileLength As Long = fin.Length

            Dim des As New DESCryptoServiceProvider()
            Dim crStream As New CryptoStream(fout, _
              des.CreateDecryptor(TheKey, Vector), CryptoStreamMode.Write)

            While totalBytesWritten < totalFileLength
                packageSize = fin.Read(storage, 0, 4096)
                crStream.Write(storage, 0, packageSize)
                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)
            End While

            MsgBox("DEBUG 36") ' On voit ceci apparaître à l'écran
            crStream.Close() ' Erreur provient sûrement d'ici
            MsgBox("DEBUG 37") ' On ne voit pas le DEBUG 37 apparaître
            fin.Close()
            fin.Dispose()
            fout.Close()
            fout.Dispose()


        Catch e As Exception
            'MsgBox(e.Message & "   / error....") ' Ceci nous sort: Données incorrectes.
        End Try

    End Sub

Public Sub decrypter(ByVal fichier As String)
        Decrypt1(fichier, "temp.xml")
        Thread.Sleep(1000)
        Try
            File.Delete(fichier) ' Erreur ici, trouvée avec les MsgBox("Debug XX")
        Catch e As Exception
            MsgBox(e.Message & "  / Error2")
        End Try
        File.Copy("temp.xml", fichier)
        File.Delete("temp.xml")
    End Sub