first commit
This commit is contained in:
@@ -0,0 +1,207 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
|
||||
Public Class Form20
|
||||
Private Sub Form20_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.Text = "Modification de " & Form2.TextBox8.Text
|
||||
ComboBox1.SelectedItem = "@gmail.com"
|
||||
End Sub
|
||||
|
||||
Private Sub Form20_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
Form19.Close()
|
||||
Form18.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
||||
If ComboBox1.SelectedItem = "autre" Then
|
||||
TextBox4.Show()
|
||||
ComboBox1.Hide()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If TextBox1.Text = "" Then
|
||||
MsgBox("merci d'entre un adddress mail", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox1.Text.Contains("@") Then
|
||||
MsgBox("merci d'entre le début adddress mail", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox4.Visible = True Then
|
||||
If TextBox4.Text = "" Then
|
||||
MsgBox("merci d'entre le fin adddress mail", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox4.Text.Contains("@") And TextBox4.Text.Contains(".") Then
|
||||
If TextBox2.Text = "" Then
|
||||
MsgBox("merci d'entre un mots de passe", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox3.Text = "" Then
|
||||
MsgBox("merci de confirmer le mots de passe", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox2.Text = TextBox3.Text Then
|
||||
MsgBox("une foit le code utiliser il sera supprimer", MsgBoxStyle.Information)
|
||||
Dim msg = MsgBox("voulez vous vraiment utiliser: " & Form18.ComboBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
modifi()
|
||||
Else
|
||||
MsgBox("acction annuler le code n'a pas êtê supprimer", MsgBoxStyle.Information)
|
||||
End If
|
||||
Else
|
||||
MsgBox("les mots de passe ne corespond pas", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgBox("merci d'entre le fin adddress mail", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
If TextBox2.Text = "" Then
|
||||
MsgBox("merci d'entre un mots de passe", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox3.Text = "" Then
|
||||
MsgBox("merci de confirmer le mots de passe", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox2.Text = TextBox3.Text Then
|
||||
MsgBox("une foit le code utiliser il sera supprimer", MsgBoxStyle.Information)
|
||||
Dim msg = MsgBox("voulez vous vraiment utiliser: " & Form18.ComboBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
modifi2()
|
||||
Else
|
||||
MsgBox("acction annuler le code n'a pas êtê supprimer", MsgBoxStyle.Information)
|
||||
End If
|
||||
Else
|
||||
MsgBox("les mots de passe ne corespond pas", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub modifi()
|
||||
Dim texteEnBytes1() As Byte = Encoding.UTF8.GetBytes(TextBox2.Text)
|
||||
Dim keyBytes1() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||||
Dim Crypto1 As New DESCryptoServiceProvider()
|
||||
Crypto1.Key = keyBytes1
|
||||
Crypto1.IV = keyBytes1
|
||||
Dim Icrypto1 As ICryptoTransform = Crypto1.CreateEncryptor
|
||||
Dim Resultatbytes1() As Byte = Icrypto1.TransformFinalBlock(texteEnBytes1, 0, texteEnBytes1.Length)
|
||||
Dim passcrypt = Convert.ToBase64String(Resultatbytes1)
|
||||
|
||||
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text & TextBox4.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 mailcrypt = Convert.ToBase64String(Resultatbytes2)
|
||||
|
||||
Dim sw1 As New StreamWriter(dostemps & "pass.txt")
|
||||
sw1.WriteLine(passcrypt)
|
||||
sw1.Close()
|
||||
|
||||
Dim sw2 As New StreamWriter(dostemps & "mail.txt")
|
||||
sw2.WriteLine(mailcrypt)
|
||||
sw2.Close()
|
||||
|
||||
upmodifi()
|
||||
End Sub
|
||||
Sub modifi2()
|
||||
Dim texteEnBytes1() As Byte = Encoding.UTF8.GetBytes(TextBox2.Text)
|
||||
Dim keyBytes1() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
||||
Dim Crypto1 As New DESCryptoServiceProvider()
|
||||
Crypto1.Key = keyBytes1
|
||||
Crypto1.IV = keyBytes1
|
||||
Dim Icrypto1 As ICryptoTransform = Crypto1.CreateEncryptor
|
||||
Dim Resultatbytes1() As Byte = Icrypto1.TransformFinalBlock(texteEnBytes1, 0, texteEnBytes1.Length)
|
||||
Dim passcrypt = Convert.ToBase64String(Resultatbytes1)
|
||||
|
||||
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox1.Text & ComboBox1.SelectedItem)
|
||||
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 mailcrypt = Convert.ToBase64String(Resultatbytes2)
|
||||
|
||||
Dim sw1 As New StreamWriter(dostemps & "pass.txt")
|
||||
sw1.WriteLine(passcrypt)
|
||||
sw1.Close()
|
||||
|
||||
Dim sw2 As New StreamWriter(dostemps & "mail.txt")
|
||||
sw2.WriteLine(mailcrypt)
|
||||
sw2.Close()
|
||||
upmodifi()
|
||||
End Sub
|
||||
Sub upmodifi()
|
||||
Try
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & Form2.TextBox8.Text & "/" & info.Name)
|
||||
Next
|
||||
delfichier()
|
||||
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
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & Form2.TextBox8.Text & "/" & info.Name)
|
||||
Next
|
||||
delfichier()
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub delfichier()
|
||||
Try
|
||||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & Form2.TextBox8.Text & "/code de récupération/" & Form18.ComboBox1.SelectedItem)
|
||||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||||
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
||||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
MsgBox("la modification est terminer le code: " & Form18.ComboBox1.SelectedItem & " a êtê supprimer", MsgBoxStyle.Information)
|
||||
Form19.Close()
|
||||
Form18.Close()
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Timer2.Stop()
|
||||
Try
|
||||
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & Form2.TextBox8.Text & "/code de récupération/" & Form18.ComboBox1.SelectedItem)
|
||||
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
||||
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
||||
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
MsgBox("la modification est terminer le code: " & Form18.ComboBox1.SelectedItem & " a êtê supprimer", MsgBoxStyle.Information)
|
||||
Form19.Close()
|
||||
Form18.Close()
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user