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

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

قمت بتشفر نص عن طريق هذا الكود

كود :
Dim SLine as string= ""

For Each SL as String In RichTextBox1.Lines
SLine = SLine & SL & vbCrLf
Next

Dim TextCh As String = Convert.Tobase64String(System.Text.ASCIIEncoding.ASCII.GetBytes(SLine))

myStream.WriteLine(TextCh)

وفي لك التشفير 

كتبت 

كود :
Dim TextChO() as Byte = Convert.FromBase64String(TextBox1.text)
Me.RichTextBox1.Text = System.Text.ASCIIEncoding.ASCII.GetString(TextChO)


لكن النتيجة تظهر ؟؟؟؟؟؟؟؟؟؟
غير ASCII إلى UTF8 في كود التشفير وكود فك التشفير