7ooob
عميلنا الجميل قم بالتسحيل لتشرفنا بحضورك


الشعر هو تلك النوتات الموسيقية التي يخفق لها القلوب وتشدو لها الآذان طربا
 
الرئيسيةمكتبة الصورالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» بتعشق مين يا زين الرجال
الخميس يونيو 28, 2012 6:39 pm من طرف محمد أحمد

» يارب يعجبكوا اكتب اى كلمه وهو هينطقها بس جرب وادعيلى
الجمعة أبريل 27, 2012 10:10 am من طرف kimo

» استقاله رئيس عربى!!!!!!!!!!!!!
الجمعة فبراير 17, 2012 6:00 am من طرف sayednaga

» أغلى 10 هواتف محمولة في العالم - صور
الأحد يناير 01, 2012 8:44 pm من طرف منى

» مجانينووووووووووووو حبى
الخميس ديسمبر 29, 2011 2:24 am من طرف منى

» اخيرا وبعد طول انتظار جوايز المنتدى
الخميس ديسمبر 29, 2011 2:19 am من طرف منى

» أيها الساده جائنا البيان التالى
الأربعاء ديسمبر 28, 2011 7:35 pm من طرف منى

» لفراعنه ليسوا بناه الاهرمات و قوم عاد هم البناه الحقيقيون(حقيقه تزوير التاريخ كامله)
الأربعاء ديسمبر 28, 2011 7:30 pm من طرف منى

» بمناسبة الاصدقاء
الأربعاء ديسمبر 28, 2011 7:20 pm من طرف منى

منتدى
التبادل الاعلاني

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Memooo
مشرفة قسم تكنولوجيا المعلومات
مشرفة قسم تكنولوجيا المعلومات
avatar

انثى
عدد الرسائل : 992
العمر : 29
البلد : cairo
العمل/الترفيه : B.A
المزاج : cool
all.love :
60 / 10060 / 100

المزاج :
المهنه :
تاريخ التسجيل : 26/06/2008

مُساهمةموضوع: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   الأحد يوليو 27, 2008 10:59 am






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



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



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



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

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



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

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



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

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


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

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

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

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



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

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


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

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



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


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



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



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

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


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


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



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


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


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


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

_________________





الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.google.com
Memooo
مشرفة قسم تكنولوجيا المعلومات
مشرفة قسم تكنولوجيا المعلومات
avatar

انثى
عدد الرسائل : 992
العمر : 29
البلد : cairo
العمل/الترفيه : B.A
المزاج : cool
all.love :
60 / 10060 / 100

المزاج :
المهنه :
تاريخ التسجيل : 26/06/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   الأحد يوليو 27, 2008 11:03 am





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


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

ونحط هالكود في فتح نافذة(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]
وهنا شرح كيفيه اضافه اداه تجميل الازرار لكي يظهر المشروع كاملا معك



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

_________________





الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.google.com
Admin
Admin
Admin
avatar

ذكر
عدد الرسائل : 1370
العمر : 32
البلد : مصر
العمل/الترفيه : مهندس الكترونيات
المزاج : تمام
all.love :
100 / 100100 / 100

المزاج :
المهنه :
الهونايه :
تاريخ التسجيل : 24/06/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   الإثنين أغسطس 11, 2008 2:24 am

ميرسى اوى ليكى ميمو
برنامج جميل اوى

_________________




all.love كل الحب
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
Memooo
مشرفة قسم تكنولوجيا المعلومات
مشرفة قسم تكنولوجيا المعلومات
avatar

انثى
عدد الرسائل : 992
العمر : 29
البلد : cairo
العمل/الترفيه : B.A
المزاج : cool
all.love :
60 / 10060 / 100

المزاج :
المهنه :
تاريخ التسجيل : 26/06/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   الإثنين أغسطس 11, 2008 7:48 pm

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


_________________





الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.google.com
your hero
مشرف قسم ابداع من القلب
مشرف قسم ابداع من القلب
avatar

ذكر
عدد الرسائل : 725
العمر : 28
البلد : cairo
العمل/الترفيه : civil engineer
المزاج : fine
all.love :
60 / 10060 / 100

المهنه :
الهونايه :
تاريخ التسجيل : 17/07/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   الإثنين أغسطس 11, 2008 9:12 pm

ميرسى يا ميمو على مواضيعك الجامدة

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
Memooo
مشرفة قسم تكنولوجيا المعلومات
مشرفة قسم تكنولوجيا المعلومات
avatar

انثى
عدد الرسائل : 992
العمر : 29
البلد : cairo
العمل/الترفيه : B.A
المزاج : cool
all.love :
60 / 10060 / 100

المزاج :
المهنه :
تاريخ التسجيل : 26/06/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   السبت أغسطس 16, 2008 9:52 am

ميرسىياهيرو

على ردك الجميل



_________________





الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.google.com
your hero
مشرف قسم ابداع من القلب
مشرف قسم ابداع من القلب
avatar

ذكر
عدد الرسائل : 725
العمر : 28
البلد : cairo
العمل/الترفيه : civil engineer
المزاج : fine
all.love :
60 / 10060 / 100

المهنه :
الهونايه :
تاريخ التسجيل : 17/07/2008

مُساهمةموضوع: رد: طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5   السبت أغسطس 16, 2008 12:11 pm

ميرسى ليكى انتى ميمو
على ردك على ردودى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
طريقة عمل برنامج لفك تشفير باسوردات المواقع المشفرة Md4=md5
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
7ooob :: ** تكنولوجيا المعلومات ** :: قسم الهاك والاختراق-
انتقل الى: