شرح درس طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5

[مخلد الذيابي]

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

اقدم لكم

شرح درس طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5


اليوم بشرح لكم طريقة عمل برنامج لفك تشفير الباسوردات المشفره اللى تبع المواقع
البرنامج لفك هالنوعين MD4 , MD5
انشاء الله تستفيدو من الشرح بس ركزو شويه معايه
______________________
بسم الله نبدأ الشرح
اولا نقوم بفتح مشروع في الفيجول بيسك مثل هذه الصوره الصوره.


http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/1.gif

والان فتح امامنا الفورم وسوف نخليه بهذا الحجم على شان يستوعب الأدوات

الي سوف نضعها فيه زي هالصوره.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/2.gif

الحين يا حلوين نعبي الأدوات الي انا حاطها في الفورم زيه بالزبط تبي تضيف شي خاص فيك

عاد انت وراحتك المهم تحط هالأشياء الأساسية.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/3.gif

وخلاص بعد ما حطينى الأدوات الي بنشتغل فيها الحين نسميها زي الصوره

بنفس الأسماء.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/4.gif

الحين يا اخوان باقي سالفة الأكواد بس قبل الأكواد لازم نسمي بعض الأدوات

على شان اللأكواد تشتغل معاكم زي العسل ونبدا ....

الحين نروح على المربع الطويل الي بنحط فيه الباسورد المشفر ونغير اسمه

زي الصوره بالزبط.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/5.gif

والان نروح على هالأختيار"فتح نافذة(cmd.exe 2K/XP)"

ونغير اسمها زي الصوره وطبعا نغير الي تحتها كمان بالترقيم يعني optcmd1 والي بعدها optcmd2والي بعدهاoptcmd3
.
http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/6.gif

الحين نروح على الاعدادات والي هي نحدد منها ادوات التشفير الجميع (a-zA-Z0-9)

ونغيرها اسمها زي الصوره

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/7.gif

والان نروح على المربع الي تحت كلمة حساب النتائج ونغير اسمها مثل الصوره.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/8.gif
طيب والان ننزل على طول على الاختيار الي تحت واسمه الكتابه في الملف ونغير اسمه زي الصوره

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/9.gif

ونروح على المربع بتاع حجم الكلمة السريه الي على الجمب ونغير اسمه مثل الصوره

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/10.gif

والان ننزل تحت ونوصل على زر الخيارات ونغير اول اختيار وهو مثل الشكل مكتوب عليه

"توقف لايوجد شيء" ونغير اسمه مثل الصوره

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/11.gif
وبعدها نروح على انواع التشفير ونغير اول اختيار منها ونخليه مثل الصوره

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/12.gif
ونروح على اخر المربعات الي تحت ونروح على مربع البدايه ونغير اسمه زي الصوره.

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/13.gif

والان نذهب على اخر شيء ونغير المربع الي جمبه مربع النهايه نغير اسمه مثل الصوره
http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/14.gif

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

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/15.gif

وكيذا يا شباب نكون
وصلنا الى نهاية الشرح
والان باقي الأكواد بتاعت البرنامج فقط

[مخلد الذيابي]

@@===> الحين نحط الأكواد<===@@


=========================================

ونحط هالكود في فتح نافذة(cmd.exe 2K/XP)

رمز:
Private Sub optcmd_Click(Index As Integer)

'type of command interpter

'if none is used then mdcrack will just close the console afterwards

Select Case Index

Case 0:

cmd = "cmd /K " '******s 2000/XP

lblwarn.Visible = False

Case 1:

cmd = "command.com /K " '******s 95/98

lblwarn.Visible = False

Case 2:

cmd = ""

lblwarn.Visible = True

End Select

End Sub


=========================================

ونحط هالكود في زر بدء كسر التشفير

رمز:
'determine whether it is a custom charset

If txtchars.**** = "" Then

chars = ""

Else

chars = " -s " & txtchars.****

End If



If txtb.**** = "" Then

bn = ""

Else

bn = " -b " & txtb.****

End If

If txte.**** = "" Then

en = ""

Else

en = " -e " & txte.****

End If



'execute command

exec = *****(cmd & apppath & "mdcrack.exe" & hash & verbose & siz & outhash & fastout & findall & en & bn & chars & " " & txtpass.****, vbNormalFocus)

End Sub

=========================================

ونحط هالكود في زر حذف الملفات الاستمرارية

رمز:
sure = MsgBox("هل انت متأكد", vbCritical + vbYesNo)

If sure = vbYes Then

exec = *****(cmd & apppath & "mdcrack.exe -d", vbNormalFocus)

End If

End Sub


=========================================

ونضع هالكود في زر استأناف الدورة السابقه يعني العملية السابقة

رمز:
exec = *****(cmd & apppath & "mdcrack.exe", vbNormalFocus)

End Sub


=========================================

ونحط هالكود في كلمة الجميع في الأعلى من الاختيارات الي على اليمين

رمز:
Private Sub opt_Click(Index As Integer)

'preset charsets or custom or none

opt(0).ForeColor = vbBlack

opt(1).ForeColor = vbBlack

Select Case Index

Case 0

txtchars.**** = ""

txtchars.Enabled = False

cmdlow.Enabled = False

cmdup.Enabled = False

cmdnum.Enabled = False

cmdother.Enabled = False

Command5.Enabled = False

Case 1

txtchars.Enabled = True

cmdlow.Enabled = True

cmdup.Enabled = True

cmdnum.Enabled = True

cmdother.Enabled = True

Command5.Enabled = True

End Select

opt(Index).ForeColor = RGB(0, 0, 200)

End Sub

=========================================

ونضع هذا الكود في زر المسح

رمز:
txtchars.**** = ""

End Sub

=========================================

ونضع هذا الكود في الزر الي مكتوب عليه a-z

رمز:
txtchars.**** = txtchars.**** & "abcdefghijklmnopqrstuvwxyz"

End Sub

=========================================

ونضع هالكود في الزر الي مكتوب عليه 0-9

رمز:
txtchars.**** = txtchars.**** & "0123456789"

End Sub
=========================================

ونضع هالكود في الزر الي مكتوب عليه A-Z

رمز:
txtchars.**** = txtchars.**** & "ABCDEFGHIJKLMNOPQRSTUWXYZ"

End Sub

==========================================

ونضع هالكود في الزر الي مكتوب عليه !@#$


رمز:
txtchars.**** = txtchars.**** & "~!@#$%^&*()"

End Sub

==========================================

ونضع هالكود في المربع الي تحت كلمة حساب النتائج

رمز:
Private Sub txtout_Change()

'fastwrite

If txtout.**** = "" Then

outhash = ""

Else

outhash = " -W " & txtout.****

End If

End Sub

==========================================

ونضع هالكود في الكاتابه في الملف.

رمز:
If txtout.**** <> "" And chkfastout.Value = 1 Then

fastout = " -F"

Else

fastout = ""

End If

End Sub

==========================================

ونضع هالكود في التحقق قبل البدء

رمز:
Private Sub Check1_Click()

If Check1.Value = 1 Then

findall = " -a"

Else

findall = ""

End If

End Sub

==========================================

ونحط هالكود في المربع الي بجانب حجم كلمة السر


رمز:
Private Sub txtsize_Change()

If txtsize <> "" Then

siz = " -S " & txtsize.****

'simple message notifies user of long password

If Val(txtsize.****) > 8 Then MsgBox "Passwords longer than 8 take a very long time", vbInformation

Else

siz = ""

End If

End Sub

==========================================

ونحط هذا الكود في اختيار توقف لا يوجد شيء في الاختيارات.

رمز:
'verbose mode

optv(0).ForeColor = vbBlack

optv(1).ForeColor = vbBlack

optv(2).ForeColor = vbBlack

Select Case Index

Case 0

verbose = ""

Case 1

verbose = " -v"

Case 2

verbose = " -V"

End Select

optv(Index).ForeColor = RGB(0, 0, 200)

End Sub


==========================================

ونحط هذا الكود في اختيار انواع التشفير ونحطها في الاختيار الأول MD5


رمز:
Private Sub opth_Click(Index As Integer)

'hash type

opth(0).ForeColor = vbBlack

opth(1).ForeColor = vbBlack

opth(2).ForeColor = vbBlack

Select Case Index

Case 0

hash = " -M MD5"

Case 1

hash = " -M MD4"

Case 2

hash = " -M NTLM1"

End Select

opth(Index).ForeColor = RGB(0, 0, 200)

End Sub
==========================================

وهنا انا ضايف لكم المشروع جاهذ للتحميل والمعاينه والتطبيق مثله


وهنا شرح كيفيه اضافه اداه تجميل الازرار لكي يظهر المشروع كاملا معك

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/16.gif

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/17.gif

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