Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Security.Cryptography
Imports System.Text
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form19
    Private Sub Form19_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "entrer le code: " & Form18.ComboBox1.SelectedItem

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & Form2.TextBox8.Text & "/code de récupération/" & Form18.ComboBox1.SelectedItem, dostemps & Form18.ComboBox1.SelectedItem)
            Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
            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 lines1() As String = File.ReadAllLines(dostemps & Form18.ComboBox1.SelectedItem)

            If code1crypt3 = lines1(0) Then
                File.Delete(dostemps & Form18.ComboBox1.SelectedItem)
                Form20.ShowDialog()
            Else
                File.Delete(dostemps & Form18.ComboBox1.SelectedItem)
                MsgBox("code incorrecte", MsgBoxStyle.Critical)
                TextBox1.Clear()
            End If
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & Form2.TextBox8.Text & "/code de récupération/" & Form18.ComboBox1.SelectedItem, dostemps & Form18.ComboBox1.SelectedItem)
            Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text)
            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 lines1() As String = File.ReadAllLines(dostemps & Form18.ComboBox1.SelectedItem)

            If code1crypt3 = lines1(0) Then

            Else
                File.Delete(dostemps & Form18.ComboBox1.SelectedItem)
                MsgBox("code incorrecte", MsgBoxStyle.Critical)
                TextBox1.Clear()
            End If
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Form19_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Form18.Close()
    End Sub
End Class