الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كسر Password المستخدم Root في Mysql5.0 باستخدام دلفي

بدأه rober في 18 يونيو 2008 · 14 رد · 1,532 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخواني الكرام يقوم المشروع بتغيير كلمة المرور الخاصة بمستخدم الـ Root الموجود في الـ MySQL 5.0

كل ما هو مطلوب

1- أيقاف الملف mysqld-nt.exe الموجود في قائمة Processes في مدير المهام (Task Managr)

لأن الـ Password لن تبدل إلا بعد إيقافه

حاولت القيام بذلك باستخدام دلفي لكنني لم أجد الطريقة المناسبة لذلك (لعل أهل الخبرة يفيدوننا بحل)

2- تشغيل الملف التنفيذي ووضع كلمة المرور الجديدة و (موافق) ستظهر رسالة تنبيه إلى أن الجهاز سيقوم بإعادة الأقلاع تلقائيا بعد ( 4 ثوان )

سيقوم الجهاز بإعادة الأقلاع و تكون كلمة مرور الـ root هي كلمة المرور الجديدة إن شاء الله

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

و سأحاول تطويره بعون الله للأفضل

طرحت الموضوع سابقا في قسم قواعد البيانات MySQL لكن بأستخدام الـ DOS

ملاحظة : البرنامج مع السورس طبعا

و أرجو من أهل الخبرة تقديم أرائهم و أفكارهم للتطوير

و السلام ختام

MySQL_Root_Password_Reset.zip

تم تعديل هذه المشاركة بواسطة rober في 18 يونيو 2008 في 18:57

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#2

السلام عليكم

الأخوة الأكارم وجدت تابع يقوم بإنهاء الـ Process

هذا هو التابع

function pKill(ExeFileName: string): Boolean;

const PROCESS_TERMINATE=$0001;

var

ContinueLoop: BOOL;FSnapshotHandle: THandle;FProcessEntry32: TProcessEntry32;

begin

result := False;

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

while integer(ContinueLoop) <> 0 do

begin

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))

or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then

Result := TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),FProcessEntry32.th32ProcessID), 0);

ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);

end;CloseHandle(FSnapshotHandle);

end;

لأستدعاه pKill('notepad.exe') ;

لكن المشكلة أنه لا يعمل مع الـ process التي تعمل تحت مستخدم System فهل من حل

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#3

أيوه يا روبر ... تابعت موضوعك من البداية وماشاء الله شكلك مصمم تنهيه

بس تخلصه فيك تعملي نسخة :clapping:

كنت متمني ساعدك بس تركت الدلفي من زمان ونسيان معظمها

#4

مشكور أخي خالد

المتابعة و الأصرار حلوين لكن المهم النهاية

و بالنسبة لنسختك أول نسخة كاملة ألك ياغالي :D

و مشكور على المشاركة الطيبة

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#5

على ما اظن انه من غير الممكن إغلاق Process خاصة بالsystem لانك من ال Task Manager نفسه لا تستطيع إغلاقه.

راكان الحنيطي

Be Open Source

opensource-550x4752.gif

#6

يمكن ان كانت لديك الصلاحيات

وان لم تكن يمكنك الحصول عليها ان عرفت كيف

d4baa0.gif
#7

السلام عليكم

ما بعد الصبر إلى الفرج و ما بعد البحث إلى إيجاد الحل

بعون الله تم أيجاد طريقة لأيقاف الـ process الخاص بالـ MySQL باستخدام دلفي

لكن كما أشار الأخوة الأفاضل إلى أن المستخدم يجب أن يكون من مجموعة الـ Administrators

و بعون الله سيكون هناك تحسين للأفضل أكثر و أكثر

كل ما على مستخدم المشروع أن يكون مستخدم من مجموعة الـ Administrators و على ما أظن الكل هنى يعرف كيف

و تشغيل الملف التنفيذي

و أنا حاضر لأي أستفسار

MySQL_Root_Password_Reset.zip

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#8

مبروك أخي الكريم

لكن هل توقف ال process عند تشغيل البرنامج؟؟ إذا كان كذلك فغيرها بحيث تصبح عند الضغط على موافق فربما لايريد المرء عند تشغيل البرنامج أن ينهي ال process أي أترك الخيار بيده

وجزاك الله خيراُ ...

#9

السلام عليكم

أخي الكريم مشكور دائما على مشاركاتك الطيبة و ملاحظاتك الهامة

بالنسبة لأيقاف الـ process يتم بعد موافقة المستخدم على الرسالة التي تظهر بعد النقرعلى زر موافق

و السلام ختام

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#10

اهه .. فعلاً تمام لأني جربت ال mysql بعد تشغيل البرنامج ولكن دون الضغط على الزر وبقيت شغالة ...

بقي لك الناحية الجمالية فقط :D ... يعني اسم form1 فيك تغير ال caption لشيء مثل

MySQL Hunter

or

MySQL Killer

بالتوفيق وشكراً عالبرنامج

#11

السلام عليكم

طلباتك أخي خالد أوامر

تم أصلاح الحالة الجمالية B)

و السورس الجديد من سوء الحظ لا يشبه الشكل بالصورة لأن الشكل مأخوذ من مكتبة ممنوع أن توضع في المنتدى هي Alpha Skins

لمن يرغب http://www.alphaskins.com/

بكل الأحوال قمت بأرفاق الـ exe لمن يرغب برؤية الشكل الجديد

مع فائق الشكر و الأحترام لكل الفريق

و السلام ختام

post-143282-1214151846_thumb.jpg

MySQL_Root_Password_Reset_New.zip

exe.zip

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#12

ههه ليش ممنوعة؟؟!!!

وشكراً عالبرنامج ياغالي ...

#13

أخي الكريم أعزك الله و أدامك

سبق و وضعتها في موضوع أخر لكن الأخ B.M.AbdelAziZ أخبرني يأن المكتبة ليست مجانية ( من موقعها طبعا ) وهي مقفولة Trial

على الرغم بأن المكتبة التي وضعتها مفتوحة و ليست مؤقتة ووضعتها و لم أطلب أي مبلغ مقابلها و إن كان بالأمكان وضعا

بالطبع لن أبخل على أي شخص بها

الصورة تدل على كيفية تغيير الـ skin في ملف exe

والسلام ختام

post-143282-1214160453_thumb.jpg

تم تعديل هذه المشاركة بواسطة rober في 22 يونيو 2008 في 21:47

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#14

يمكن بيقصد أنها غير مجانية وبالتالي ممنوع وضع نسخة مكركة منها

#15

تماما

أن كان هناك طريقة لوضعها أرجو منك أخباري

و مشكووووووووووووووووووور على المتابعة الكريمة

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…