منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

كاتب الموضوع : AhmedEssawy

لعمل تشفير :

كود :

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()

لفك التشفير :

كود :

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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech