[ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

تم تحميل الصفحة في 1,7081859 ثانية
[ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر
الحالة
مغلق و غير مفتوح للمزيد من الردود.

SEMO.Pa3x

من كبار الشخصيات
rankrankrankrankrankrank
إنضم
16 مارس 2013
المشاركات
3,840
الإعجابات
7,478
النقاط
113
الإقامة
Iraq - Najaf

الحمد لله الذي لولاه ما جرى قلم , ولا تكلم لسان , والصلاة والسلام على
سيدنا محمد ( صلى الله عليه واله وصحبة وسلم ) كان أفصح الناس لسانا وأوضحهم بياناً .
-------------------------------------------------------------------------
اهلا بكل زوار واعضاء ومشرفيين واداريين الدييف بوينت الاعزاء
قبل البدء في الموضوع لكي لا يقول البعض انني سارق للموضوع قمت باخذ الاذن من صديقي سايمون بطرح هذا الموضوع لان الدورة له ( http://www.dev-point.com/vb/t279509.html ) .. وهذا الاثبات ..



-----------------------------------------------------------------------

درس اليوم درس يعشقة الكثير ويتمناه وهو كيفية صنع برنامج تشفير بلغة VB.NET

يقولون ( لا تعطني سمكة علمني كيف اصطاد السمك ) :15: القصد لماذا تعتمد على غيرك ؟
وتنتظر صدور برنامج تشفير وانت تكون المستهلك لماذا لا تكون انت المنتج ؟ هل المبرمج له عقل وانت ليس لديك ؟ هل هو له يدان وانت ليس لديك ؟ الجواب بكل تأكيد لا .. طيب ندخل في صلب الموضوع ..

[ .... اولا / الادوات التي نحتاجها في العمل ... ]
Microsoft Visual Studio 2010 Professional


وادوات المبرمج المبدع سايمون بينيو



[ ... نبدأ بسم الله ... ]
نقوم بفتح الفيجوال بيسك دوت نت 2010 ونفتح مشروع جديد



الان قم بوضع الخيارات كما في الصورة



الان قم بمسح الفورم كلك يمين [ ... Delete ... ] .



لكي يصبح هكذا



الان قم بالضغط من لوحة الكيبورد على مفتاحان [ Alt + Ctrl ] .
سوف تفتح لك نافذة نقوم بتغيير الخيارات من




الى هذه الخيارات



الان نقوم بوضع 4 موديلات كلك يمين ونختار موديل لك



الان نذهب الى ادوات المبدع سايمون بينيو نفتح الاداة [ VB.NET RunPe Gen ]
التي تقوم بتوليد اكواد الران بي



بعد فتح الاداة ننقر على الزر [ Genereta ] . ننقر عدة نقرات ثم ننقر على الزر الثاني
[ Copy To Cilp Board ] . لكي نقوم بنسخ الران بي .

ثم نذهب الى الموديل رقم 1 ننقر عليه نقرتان لكي نقوم بفتحة ثم نسمح الاكواد المكتوبة فيه ونلصق الاكواد التي قمنا بنسخها من مولد الران بي .

ثم نفتح الاداة الثانية .. التي تقوم بفك الخوارزمية للتشفير



ايضا ننقر على اول زر ثم ننقر على ثاني زر لكي ننسخ الاكواد ونلصقها في الموديل الثاني .

الان نفتح ملف التيكست الذي اسمة [ GZip Compression Algo ] وهية خوارزمية الضغط . ننسخ الاكواد ثم نقوم بلصقها في الموديل الثالث .

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

Sub main()
Dim ebytes() As Byte
Dim dbytes() As Byte
ebytes = ShQCMYgyItIX(Application.ExecutablePath)
dbytes = Compression.Decompress(ebytes)
gCXOojbQDtwUmHhIsjaTGfvuhCnFGb(dbytes, Application.ExecutablePath)



سوف نشاهد ظهرت اخطاء في الاكواد مثل الصورة



كيف سنقوم بمعالجة هذه الاخطاء ؟ ننقر نقرتان على الموديل الاول ثم ننسخ هذا الكود



ثم نلصقة بدل هذا الكود ( الكود في السطر الاخير )



الان نذهب الى الموديل الثاني

وننسخ هذا الكود



ونلصقة في الموديل الرابع ( في السطر الاول ) لكي يصبح هكذا



تمت برمجة الستب بحمدالله .. الان نضغط على [ Ctrl + Shift + B ] لعمل كومبايل .

--------------------------------------------------------------------

الان مرحلة برمجة برنامج التشفير

اولا نقوم بأضافة 2 موديل .. ونفتح ملف التيكست [ GZip Compression Algo ] . ننسخ الاكواد ونضعها في الموديل الاول . ثم نفتح الملف التيكست الثاني [ Resource Writer ] . ونقوم بنسخ الاكواد ونلصقها في الموديل الثاني .

الان من قائمة الادوات نختار [ 21 Text Box 1 ] + [ Button ] .



ونقوم بترتيب الادوات كما في الصورة



نغير اسماء الازرار [ Button ] . من قائمة الخيارات



حتى يصبح البرنامج هكذا



الان نقوم بالضغط من لوحة المفاتيح على [ Alt + Enter ] .

سوف تفتح لك قائمة خيارات المشروع نذهب على الخيار [ Resources ] . ونختار



ثم نختار



ونختار الستب الذي قمنا ببرمجتة



الان تمام نذهب الى المشروع وننقر على زر [ Add File ] .
ونلصق هذه الاكواد هنا ( هي اكواد استدعاء السيرفر )

Dim OpenFD As New OpenFileDialog
With OpenFD
.Title = "اختر سيرفراً لتشفيرة"
.Filter = "تطبيقات|*.exe"
.ShowDialog()
End With
TextBox1.Text = OpenFD.FileName



لكي يصبح هكذا



ثم ننقر نقرتان على زر [ Crypted File ] .
ونلصق هذه الاكواد


Dim kbytes() As Byte
Dim ebytes() As Byte
Dim SVD As New SaveFileDialog
With SVD
.Title = "اختر مكان حفظ السيرفر المشفر"
.Filter = "تطبيقات|*.exe"
.ShowDialog()
End With
kbytes = IO.File.ReadAllBytes(TextBox1.Text)
ebytes = Compression.Compress(kbytes)
IO.File.WriteAllBytes(SVD.FileName, My.Resources.Folder)
WriteResource(SVD.FileName, ebytes)
MsgBox("Server Has Been Crypted Sacssasfly")



لكي تصبح هكذا



نلاحظ ظهور اخطاء .. نقوم بتغيير الاسم الذي ظهر عليه الخطأ الى اسم الستب الذي قمنا بوضعه بالـ [ Resources ] .

فيصبح هكذا



الان قم بعمل كومبايل للمشروع بالضغط على [ Ctrl + Shift + B ] . ومبروك عليك برنامج التشفيير .


----------------------------------------------------------------


تحميل الادوات :

Link


بالنهاية [ دعوة صادقة في ظهر الغيب تكفي ] او كلمة شكر .. اخوان اقسم لكم تعبت في تنسيق الصور .. + وان اردتم ان تشكرو شخص فأشكرو سايمون لان الدورة كلها له هو قام بشرحها بالفيديو وانا شرحتها صوريا مع اخذ الاذن منه .. وقمت بتوفير الاكواد عليكم .. الدرس القادم هو تشفير الستب كلين من كل الحمايات .. الى ذلك الحين تقبلوا خالص تحياتي واحترامي لكم .. اخوكم حسنين :38:

 

Dzk!LLeя

ExpErt DeveloPer
rankrankrankrankrank
إنضم
26 أكتوبر 2012
المشاركات
2,364
الإعجابات
4,115
النقاط
113
الإقامة
أŒأ’أ‡أ†أ‘أ أˆأ‍أ،أˆ أ‌أ،أ“أکأأ¤أ
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بارك الله فيك :42: فعلا موضوع منسق و متعوب عليه جزاك الله كل خير :38:
 
إنضم
14 مارس 2013
المشاركات
582
الإعجابات
360
النقاط
63
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بارك الله فيك

لي رجعة إن شاء الله

مشكوووور

:42:
 

Dzk!LLeя

ExpErt DeveloPer
rankrankrankrankrank
إنضم
26 أكتوبر 2012
المشاركات
2,364
الإعجابات
4,115
النقاط
113
الإقامة
أŒأ’أ‡أ†أ‘أ أˆأ‍أ،أˆ أ‌أ،أ“أکأأ¤أ
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بارك الله فيك :42: فعلا موضوع منسق و متعوب عليه جزاك الله كل خير :38:
 

Al-healfe

Beginner Developer
rankrank
إنضم
27 أكتوبر 2012
المشاركات
172
الإعجابات
77
النقاط
0
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

مشكور اخي وبارك الله بيك ارجو ان يستفاد منو الاخوان وا ان يتكدو من الستب مشفر اذا مو مشفر روحو شفروه با لهيكس او با اي طريقة
:9::9::9:
همسة (انا لدي برنامج تشفير منذ 3 اشهر لم ينكشف )

 
إنضم
14 مارس 2013
المشاركات
582
الإعجابات
360
النقاط
63
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

تم التقييم حبيبي

شكرا لك :6:

:38::38::38:
 

Waleedx7

Active DeveloPer
rankrank
إنضم
13 مارس 2013
المشاركات
433
الإعجابات
200
النقاط
43
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بآرك الله فيك آخي :38:

شرح وتنسيق جدآ رآئع :9:

واصل ولآتحرمنـآ من جديدك
 

SEMO.Pa3x

من كبار الشخصيات
rankrankrankrankrankrank
إنضم
16 مارس 2013
المشاركات
3,840
الإعجابات
7,478
النقاط
113
الإقامة
Iraq - Najaf

SEMO.Pa3x

من كبار الشخصيات
rankrankrankrankrankrank
إنضم
16 مارس 2013
المشاركات
3,840
الإعجابات
7,478
النقاط
113
الإقامة
Iraq - Najaf
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

مشكور اخي وبارك الله بيك ارجو ان يستفاد منو الاخوان وا ان يتكدو من الستب مشفر اذا مو مشفر روحو شفروه با لهيكس او با اي طريقة
:9::9::9:
همسة (انا لدي برنامج تشفير منذ 3 اشهر لم ينكشف )

العفو .. شكرا لمرورك صديقي .. تشفيرة سهل تستطيع تشفيرة كما تشفر النجرات لكن ليس دائما مرات ينعطب :38:

 

SEMO.Pa3x

من كبار الشخصيات
rankrankrankrankrankrank
إنضم
16 مارس 2013
المشاركات
3,840
الإعجابات
7,478
النقاط
113
الإقامة
Iraq - Najaf

SEMO.Pa3x

من كبار الشخصيات
rankrankrankrankrankrank
إنضم
16 مارس 2013
المشاركات
3,840
الإعجابات
7,478
النقاط
113
الإقامة
Iraq - Najaf
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بآرك الله فيك آخي :38:

شرح وتنسيق جدآ رآئع :9:

واصل ولآتحرمنـآ من جديدك
مشكور حبيبي .. منور :38:

 
إنضم
27 أغسطس 2011
المشاركات
819
الإعجابات
482
النقاط
63
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

عمل جبار.... بارك الله فيك ......مبدع بمعنى الكلمه :42:
 
إنضم
30 مارس 2013
المشاركات
2,035
الإعجابات
1,389
النقاط
113
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بارك الله فيك
تقبل مروري
بالتوفيق
:)
 

iFr3oon

Active DeveloPer
rankrankrank
إنضم
15 مارس 2013
المشاركات
857
الإعجابات
566
النقاط
93
الإقامة
egypt
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

رساله ادرايه : يجب ان تضع للبعض سمعات قبل اعطائها لـ:42:

Security.Najaf مره اخرى:42:
 
إنضم
10 مارس 2011
المشاركات
3,821
الإعجابات
1,134
النقاط
113
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

بٌارًك الٌلهً فيُك ُ

واُصُلُ ابُداعُُكُ:38:
 
إنضم
25 أكتوبر 2012
المشاركات
1,089
الإعجابات
1,429
النقاط
113
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

مبديع حبي كالعاده
:6::6::6:
ننتظر جديدك
 

cooil

Active DeveloPer
rankrankrankrank
إنضم
29 أكتوبر 2012
المشاركات
1,059
الإعجابات
662
النقاط
0
الإقامة
أ‌أ­ أگأ‡أٹأ­
رد: [ لعيون الديف بوينت ] شرح عمل برنامج تشفير بالدوت نت وتشفيرة كلين اخضر

ماشاء الله عليكم شنو هل الابداع تقبل مروري اخي الغالي
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل