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

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



طريقة عمل برنامج لفك تشفير الباسوردات المشفره اللى تبع المواقع
البرنامج لفك هالنوعين MD4 , MD5
انشاء الله تستفيدو من الشرح بس ركزو شويه معايه
________________________________________________________



بسم الله نبدأ الشرح
اولا نقوم بفتح مشروع في الفيجول بيسك مثل هذه الصوره الصوره.



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

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



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

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



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

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


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

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

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

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



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

ونغير اسمها زي الصوره وطبعا نغير الي تحتها كمان بالترقيم يعني optcmd1 والي بعدها optcmd2والي بعدهاoptcmd3
.


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

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



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


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



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



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

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


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


ونروح على اخر المربعات الي تحت ونروح على مربع البدايه ونغير اسمه زي الصوره.



والان نذهب على اخر شيء ونغير المربع الي جمبه مربع النهايه نغير اسمه مثل الصوره


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


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


منقوووووووووووووول

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


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

ونحط هالكود في فتح نافذة(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

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

وهنا انا ضايف لكم المشروع جاهذ للتحميل والمعاينه والتطبيق مثله
[URL="http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/md5.rar"]http://www.members.lycos.co.uk/diehardandsoofaa/vigwal/md5.rar[/URL]
وهنا شرح كيفيه اضافه اداه تجميل الازرار لكي يظهر المشروع كاملا معك



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

ميرسى ياحماده
على ردك الجميل