منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التشفير وفك التشفير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التشفير وفك التشفير (/showthread.php?tid=20021)

التشفير وفك التشفير - aftfm - 15-04-17

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

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

كود :
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)


لكن النتيجة تظهر ؟؟؟؟؟؟؟؟؟؟

RE: التشفير وفك التشفير - عبـدالله - 15-04-17

غير ASCII إلى UTF8 في كود التشفير وكود فك التشفير