75 lines
3.1 KiB
VB.net
75 lines
3.1 KiB
VB.net
Imports System.IO
|
|
Imports System.Net.Security
|
|
Imports System.Security.Cryptography
|
|
Imports System.Text
|
|
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
|
|
|
Public Class Form17
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If TextBox1.Text = "" Then
|
|
MsgBox("merci d'entrer un nouveaux mots de passe", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox2.Text = "" Then
|
|
MsgBox("merci de confirmer", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox1.Text = TextBox2.Text Then
|
|
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
|
|
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 mailcrypte = Convert.ToBase64String(Resultatbytes2)
|
|
Dim sw1 As New StreamWriter(dostemps & "pass.txt")
|
|
sw1.WriteLine(mailcrypte)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(doscompte & "passtemps.txt")
|
|
sw2.WriteLine(mailcrypte)
|
|
sw2.Close()
|
|
uppass
|
|
Else
|
|
MsgBox("le mots de passe ne corsponds pas", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub uppass()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & nomutilisateur & "/pass.txt")
|
|
File.Delete(dostemps & "pass.txt")
|
|
MsgBox("votre mots de passe a bien êtê modifier", MsgBoxStyle.Information)
|
|
Close()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & nomutilisateur & "/pass.txt")
|
|
File.Delete(dostemps & "pass.txt")
|
|
MsgBox("votre mots de passe a bien êtê modifier", MsgBoxStyle.Information)
|
|
Close()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
If TextBox1.UseSystemPasswordChar = True Then
|
|
TextBox1.UseSystemPasswordChar = False
|
|
Else
|
|
TextBox1.UseSystemPasswordChar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
If TextBox2.UseSystemPasswordChar = True Then
|
|
TextBox2.UseSystemPasswordChar = False
|
|
Else
|
|
TextBox2.UseSystemPasswordChar = True
|
|
End If
|
|
End Sub
|
|
End Class |