+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : مقدمة إلي إخفاء المعلومات - الجزء الثاني (/showthread.php?tid=18708)
مقدمة إلي إخفاء المعلومات - الجزء الثاني - silverlight - 06-01-17
في الجزء الأول الموجود في اللينك التالي قمنا بتوضيح كيفية اخفاء حرف في صورة
الجزء الأول
و الخلاصة من الجزء الأول تنحصر في الدوال التالية التي من الممكن استخدامها لتحويل حرف الي صورة و العكس
خلاصة الجزء الأول:
PHP كود :
Private Function ConvertCharToBitmap(chr As Char, Optional w As Integer = 2, Optional h As Integer = 2) As Bitmap
Dim bmp As Bitmap = New Bitmap(w, h)
Using g As Graphics = Graphics.FromImage(bmp)
g.Clear(Color.FromArgb(Convert.ToByte(chr), 0, 0, 0))
End Using
Return bmp
End Function
Private Function ConvertBitmapToChar(bmp As Bitmap, Optional x As Integer = 1, Optional y As Integer = 1) As Char
Return CType(Convert.ToChar(bmp.GetPixel(x, y).A), Char)
End Function
PHP كود :
' تحويل الحرف الي صورة
Dim bmp As Bitmap = ConvertCharToBitmap("D"c)
' الحصول علي الحرف و إظهار الحرف بشكل ما
Me.Text = ConvertBitmapToChar(bmp).ToString
' إظهار الصورة بشكل ما
Me.BackgroundImage = bmp
ملحوظة
أرجو أن لا ننسي جميعا أن الصور يمكن تحويلها هي أيضا الي بايت
أي أن الكود أعلاه يمكن تحويله الي بايت و حفظه بشكل ما في ملف او في قاعدة بيانات
الجزء الثاني:
في هذا الجزء من موضوع مقدمة إلي إخفاء المعلومات
سنوضح و بطريقة مبسطة كيف يمكن تحويل تكست او مجموعة من الحروف الي مجموعة من الصور ثم نوضح الكيفية التي من الممكن بها استرداد هذه الحروف مرة أخري من تلك الصور
بشكل عام هدفي من طرح هذا الموضوع هو توضيح كيف ومن مجرد فكرة بسيطة أن تخرج منها بأفكار أخري أهم و الفكرة سيتم كتابتها علي مراحل لتوضيح بعضا من الموضوعات التالية
1- حفظ المعلومات و حمايتها
2- حماية السورس كود
3- بناء الباركود و قرائته
4- تحويل الملفات الي أنماط مختلفة
5- بناء الفونت
6- بناء الصور المتحركة
7- حماية السيريال الخاص باي برنامج
تحويل الحروف الي صور
الخطوات التالية توضح كيفية تحويل مجموعة من الحروف الي مجموعة صور
1- تعريف الكلمة او الحروف
PHP كود :
Dim s As String = "omar amin"
2 تعريف مصفوفة الصور
PHP كود :
Dim bitmaps As Bitmap() = New Bitmap(s.Length - 1) {}
3- تحويل كل حرف موجود في التكست الي صورة و ذلك باستخدام الدوال التي كتبناها في الخلاصة أعلاه ثم نقوم بإضافة كل صورة الي مصفوفة الصور
PHP كود :
For i As Integer = 0 To s.Length - 1
Dim c As Char = s(i)
bitmaps(i) = ConvertCharToBitmap(c)
Next
تحويل الصور الي حروف مرة أخري
الخطوات التالية توضح ذلك
1- تعريف مصفوفة الحروف
PHP كود :
Dim Chars As Char() = New Char(bitmaps.Length - 1) {}
2- قراءة كل صورة علي حده و تحويلها الي حرف ثم نضيفها الي مصفوفة الحروف
PHP كود :
For i As Integer = 0 To bitmaps.Length - 1
Dim c As Char = ConvertBitmapToChar(bitmaps(i))
Chars(i) = c
Next
3- تحويل الحروف الي كلمة مرة أخري
PHP كود :
Dim result As String = ""
For j As Integer = 0 To Chars.Length - 1
result += Chars(j)
Next
من المؤكد انه يمكنكم تقليل حجم الكود لكن انا كتبته بهذا الاسلوب للتوضيح فقط
خلاصة المرحلة الثانية هي الدوال التالية التي يجب ان يتم استخدامها مع الدوال الخاصة بالمرحلة الأولي
PHP كود :
Private Function ConvertBitmapsToChars(bitmaps As Bitmap()) As Char()
Dim Chars As Char() = New Char(bitmaps.Length - 1) {}
SyncLock Chars
For i As Integer = 0 To bitmaps.Length - 1
Dim c As Char = ConvertBitmapToChar(bitmaps(i))
Chars(i) = c
Next
End SyncLock
Return Chars
End Function
Private Function ConvertStringToBitmaps(s As String) As Bitmap()
Dim bitmaps As Bitmap() = New Bitmap(s.Length - 1) {}
SyncLock bitmaps
For i As Integer = 0 To s.Length - 1
Dim c As Char = s(i)
bitmaps(i) = ConvertCharToBitmap(c)
Next
End SyncLock
Return bitmaps
End Function
,و الكود التالي يوضح كيفية استخدام الدوال أعلاه
PHP كود :
Dim s As String = "omar amin"
Dim bitmaps As Bitmap() = ConvertStringToBitmaps(s)
Dim chars As Char() = ConvertBitmapsToChars(bitmaps)
Dim result As String = ""
For j As Integer = 0 To chars.Length - 1
result += chars(j)
Next
Me.Text = result
RE: مقدمة إلي إخفاء المعلومات - الجزء الثاني - silverlight - 06-01-17
في المرفقات ستجدون نسخة كاملة من الكود و ذلك بعد تحويل الكود الي كلاسان
احدهما يستخدم في اخفاء التكست
و الكلاس الاخر يستخدم في اظهاره مرة ثانية
و الكلاسان تم كتابتهما بأسلوب يضمن عدم وجود خطأ أثناء التنفيذ طبعا هذا في حالة أنه لم يتم تمرير بيانات بشكل صحيح
الفكرة قابلة للتطوير و التعديل و الأمر متروك لمن يتعلم و يستفيد