68 lines
3.6 KiB
VB.net
68 lines
3.6 KiB
VB.net
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 |