السلام عليكم ورحمة الله وبركاته
في هذا الكود طريقة تشفير نص في ملف من نوع txt
عند تشفير الملف يشفر بدون مشاكل لكن عند فك
التشفير يعطي ان هناك خطأ ما.
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fStream As FileStream = File.Open("encrypted.txt", FileMode.OpenOrCreate)
Dim RijndaelAlg As Rijndael = Rijndael.Create
Dim cStream As New CryptoStream(fStream, _
RijndaelAlg.CreateEncryptor(RijndaelAlg.Key, RijndaelAlg.IV), _
CryptoStreamMode.Write)
Dim sWriter As New StreamWriter(cStream)
sWriter.WriteLine("Text to encrypt")
sWriter.Close()
cStream.Close()
fStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fStream As FileStream = File.Open("encrypted.txt", FileMode.OpenOrCreate)
Dim RijndaelAlg As Rijndael = Rijndael.Create
Dim cStream As New CryptoStream(fStream, _
RijndaelAlg.CreateDecryptor(RijndaelAlg.Key, RijndaelAlg.IV), _
CryptoStreamMode.Read)
Dim sReader As New StreamReader(cStream)
Dim plainText As String = sReader.ReadLine()
sReader.Close()
cStream.Close()
fStream.Close()
End Sub
End Class
مع شكري للجميع ...