[aftfm]

السلام عليكم ورحمة الله وبركاته

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

كود :

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 في كود التشفير وكود فك التشفير