70 lines
3.1 KiB
VB.net
70 lines
3.1 KiB
VB.net
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 |