+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=20894)
إخفاء تكست في صورة - silverlight - 02-07-17
البيانات في صورتها الأصلية غالبا تكون كلمات او حروف او أرقام
والدوت نت يسمح لك بالتحويل بين هذه الأنواع بسهولة
كمثال توضيحي اي مبرمج مبتدئ يستطيع التحويل من Integer الي String و العكس
و طالما تستطيع تحويل البيانات من نوع الي نوع أخر
إذن أنت هنا تستطيع حفظ البيانات بأساليب كثيرة
و الكود التالي يوضح كيفية كتابة اي String في صورة
ثم قراءة ما هو موجود في الصورة و تحويله مرة ثانية الي String
الفكرة ببساطة تعتمد علي تحويل String اولا الي مصفوفة Byte
ثم كتابة المصفوفة الي ملف عبارة عن صورة او يمكنك الكتابة الي اي ملف بأي امتداد تحدده أنت
وعندما تحتاج الي String مرة ثانية
تقوم بقراءة الملف في صورة مصفوفة بايت
ثم تقوم بتحويل مصفوفة البايت الي String
أهم شئ أن الطريقة التي سوف تستخدمها في تحويل String الي مصفوفة بايت تكون هي نفس الطريقة التي سوف تستخدمها في تحويل مصفوفة البايت الي String
الكود:
PHP كود :
Dim s As String = "Visual Basic For Arab"
' Hide the string in the bitmap
' Step 1: Convert the string to byte array by any means
Dim bytes As Byte() = New Byte(s.Length * 2 - 1) {}
' copy the string char array to byte array
System.Buffer.BlockCopy(s.ToCharArray(), 0, bytes, 0, bytes.Length)
' Step 2 : create a bitmap FileNane under any directory
Dim bitmapFileNme As String = ".\bmp.png"
' Step 3: write all bytes to the bitmpa file
IO.File.WriteAllBytes(bitmapFileNme, bytes)
' Read the string from the bitmap
' Step 1: read all bytes from the bitmap File
Dim resultBytes As Byte() = IO.File.ReadAllBytes(bitmapFileNme)
' Step 2: convert the bytes to Char array
Dim chars As Char() = New Char(resultBytes.Length \ 2 - 1) {}
' Copy bytes to char arrray
System.Buffer.BlockCopy(resultBytes, 0, chars, 0, resultBytes.Length)
' Step 3: build the string from Char array
Dim resultString As String = New String(chars)
Me.Text = resultString