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

[R_A_G]

بسم الله الرحمن الرحيم


اليوم بشرح لكم طريقة عمل برنامج لفك تشفير الباسوردات المشفره اللى تبع المواقع
البرنامج لفك هالنوعين 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/2.gif)

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

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

http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/3.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/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 (http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/15.gif)
وكيذا يا شباب نكون وصلنا الى نهاية الشرح والان باقي الأكواد بتاعت البرنامج فقط

[R_A_G]

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


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

ونحط هالكود في فتح نافذة(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 " 'windows 2000/XP

lblwarn.Visible = False

Case 1:

cmd = "command.com /K " 'windows 95/98

lblwarn.Visible = False

Case 2:

cmd = ""

lblwarn.Visible = True

End Select

End Sub


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

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

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

If txtchars.Text = "" Then

chars = ""

Else

chars = " -s " & txtchars.Text

End If



If txtb.Text = "" Then

bn = ""

Else

bn = " -b " & txtb.Text

End If

If txte.Text = "" Then

en = ""

Else

en = " -e " & txte.Text

End If



'execute command

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

End Sub

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

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

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

If sure = vbYes Then

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

End If

End Sub


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

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

رمز:
exec = Shell(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.Text = ""

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.Text = ""

End Sub

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

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

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

End Sub

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

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

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

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

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

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

End Sub

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

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


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

End Sub

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

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

رمز:
Private Sub txtout_Change()

'fastwrite

If txtout.Text = "" Then

outhash = ""

Else

outhash = " -W " & txtout.Text

End If

End Sub

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

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

رمز:
If txtout.Text <> "" 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.Text

'simple message notifies user of long password

If Val(txtsize.Text) > 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/dieha...vigwal/md5.rar (http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/md5.rar)
وهنا شرح كيفيه اضافه اداه تجميل الازرار لكي يظهر المشروع كاملا معك
http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/16.gif (http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/16.gif)
http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/17.gif
وشكرا واتمنى التوفيق للجميع وكده نكون خلصنا كل شئ ومبروك علليكم والسلام عليكم فى شرح اخر