first commit

2026-06-18 14:07:09 +02:00
commit 210c34ac8b
310 changed files with 222490 additions and 0 deletions
@@ -0,0 +1,70 @@
+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