Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Public Class Form201
    Public start As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Merci d'entrer un mot de passe", MsgBoxStyle.Exclamation)
        Else
            If TextBox1.Text = TextBox2.Text Then
                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)
                Form3.profpasstemps = passecrypt
                Form3.CheckBox27.Enabled = False
                MsgBox("Merci de fermer les paramètres pour enregistrer", MsgBoxStyle.Information)
                Form3.Button38.Text = "Modifier votre mots de passe"
                Close()
            Else
                MsgBox("Les mots de passe ne correspondent pas", MsgBoxStyle.Exclamation)
            End If
        End If
    End Sub

    Private Sub Form201_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1() As String = File.ReadAllLines(théme)
        If lines1(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Label2.BackColor = Color.FromArgb(64, 64, 64)
            TextBox1.BackColor = Color.FromArgb(64, 64, 64)
            TextBox2.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White
            TextBox1.ForeColor = Color.White
            TextBox2.ForeColor = Color.White
            Button1.ForeColor = Color.White
        ElseIf lines1(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If




        If start = 0 Then

        Else
            Button1.Text = "Modifier mon mots de passe"
        End If
    End Sub
End Class