Bonjour, bonsoir à tous & à toutes,
Voici une réalisation qui permet d'écrire un message, de le copier et de le coller dans un fichier .txt, de le crypter et de pouvoir le décrypter à tout moment. (C'est très connus alors merci de ne pas mettre en com wesh c'est connus ton truc)
Dans votre GUI veuillez ajouter :
- 4 Boutons
- 1 TextBox
Concernant le code :
Code source :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Threading.Thread.Sleep(3000)
Dim ciFmon As String
ciFmon = "Test.txt"
Dim SW As StreamWriter
SW = New StreamWriter(ciFmon)
SW.Write(TextBox1.Text)
SW.Close()
Button1.Text = "Done"
End Sub
'Doit correspondre à 64 bits, 8 octets.
Private Const sSecretKey As String = "Password"
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.Threading.Thread.Sleep(3000)
EncryptFile("Test.txt", _
"Encrypted.txt", _
sSecretKey)
Button2.Text = "Done"
End Sub
Sub EncryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
On Error Resume Next
Dim fsInput As New FileStream(sInputFilename, _
FileMode.Open, FileAccess.Read)
Dim fsEncrypted As New FileStream(sOutputFilename, _
FileMode.Create, FileAccess.Write)
Dim DES As New DESCryptoServiceProvider()
'Définit la clé secrète pour l'algorithme DES.
'Une clé de 64 bits et un vecteur d'initialisation sont requis pour ce fournisseur
DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
'Définit le vecteur d'initialisation.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'crée un crypteur DES à partir de cette instance
Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
'Crée un flux de cryptage qui transforme le flux de fichier à l'aide du cryptage DES
Dim cryptostream As New CryptoStream(fsEncrypted, _
desencrypt, _
CryptoStreamMode.Write)
'Lit le texte du fichier dans le tableau d'octets
Dim bytearrayinput(fsInput.Length - 1) As Byte
fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
'écrit le fichier crypté à l'aide de DES
cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
cryptostream.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
System.Threading.Thread.Sleep(3000)
DecryptFile("Encrypted.txt", _
"Decrypted.txt", _
sSecretKey)
Button3.Text = "Done"
End Sub
Sub DecryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
Dim DES As New DESCryptoServiceProvider()
'Une clé de 64 bits et un vecteur d'initialisation sont requis pour ce fournisseur.
'Définit la clé secrète pour l'algorithme DES.
DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
'Définit le vecteur d'initialisation.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'crée un flux de fichier pour lire le fichier crypté de retour
On Error Resume Next
Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
'crée un décrypteur DES à partir de l'instance DES
Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
'crée un flux de cryptage, défini pour lire et effectuer une transformation de décryptage DES sur les octets entrants
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
'imprime le contenu du fichier décrypté
Dim fsDecrypted As New StreamWriter(sOutputFilename)
fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
fsDecrypted.Flush()
fsDecrypted.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Button1.Text = "Create File"
Button2.Text = "Encrypt"
Button3.Text = "Decrypt"
Button4.Text = "Clear"
TextBox1.Text = Nothing
End Sub
End Class
Voici une réalisation qui permet d'écrire un message, de le copier et de le coller dans un fichier .txt, de le crypter et de pouvoir le décrypter à tout moment. (C'est très connus alors merci de ne pas mettre en com wesh c'est connus ton truc)
Dans votre GUI veuillez ajouter :
- 4 Boutons
- 1 TextBox
Concernant le code :
Code source :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Threading.Thread.Sleep(3000)
Dim ciFmon As String
ciFmon = "Test.txt"
Dim SW As StreamWriter
SW = New StreamWriter(ciFmon)
SW.Write(TextBox1.Text)
SW.Close()
Button1.Text = "Done"
End Sub
'Doit correspondre à 64 bits, 8 octets.
Private Const sSecretKey As String = "Password"
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.Threading.Thread.Sleep(3000)
EncryptFile("Test.txt", _
"Encrypted.txt", _
sSecretKey)
Button2.Text = "Done"
End Sub
Sub EncryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
On Error Resume Next
Dim fsInput As New FileStream(sInputFilename, _
FileMode.Open, FileAccess.Read)
Dim fsEncrypted As New FileStream(sOutputFilename, _
FileMode.Create, FileAccess.Write)
Dim DES As New DESCryptoServiceProvider()
'Définit la clé secrète pour l'algorithme DES.
'Une clé de 64 bits et un vecteur d'initialisation sont requis pour ce fournisseur
DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
'Définit le vecteur d'initialisation.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'crée un crypteur DES à partir de cette instance
Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
'Crée un flux de cryptage qui transforme le flux de fichier à l'aide du cryptage DES
Dim cryptostream As New CryptoStream(fsEncrypted, _
desencrypt, _
CryptoStreamMode.Write)
'Lit le texte du fichier dans le tableau d'octets
Dim bytearrayinput(fsInput.Length - 1) As Byte
fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
'écrit le fichier crypté à l'aide de DES
cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
cryptostream.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
System.Threading.Thread.Sleep(3000)
DecryptFile("Encrypted.txt", _
"Decrypted.txt", _
sSecretKey)
Button3.Text = "Done"
End Sub
Sub DecryptFile(ByVal sInputFilename As String, _
ByVal sOutputFilename As String, _
ByVal sKey As String)
Dim DES As New DESCryptoServiceProvider()
'Une clé de 64 bits et un vecteur d'initialisation sont requis pour ce fournisseur.
'Définit la clé secrète pour l'algorithme DES.
DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
'Définit le vecteur d'initialisation.
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
'crée un flux de fichier pour lire le fichier crypté de retour
On Error Resume Next
Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
'crée un décrypteur DES à partir de l'instance DES
Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
'crée un flux de cryptage, défini pour lire et effectuer une transformation de décryptage DES sur les octets entrants
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
'imprime le contenu du fichier décrypté
Dim fsDecrypted As New StreamWriter(sOutputFilename)
fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
fsDecrypted.Flush()
fsDecrypted.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Button1.Text = "Create File"
Button2.Text = "Encrypt"
Button3.Text = "Decrypt"
Button4.Text = "Clear"
TextBox1.Text = Nothing
End Sub
End Class
