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

برنامج جديد يحتاج للتقييم

بدأه مخالف_58 في 26 أبريل 2008 · 12 رد · 1,346 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل حلمت يوماً بإيجاد جميع الاحتمالات الممكنة لتأليف رقم من14 خانة من الأرقام من0 إلى9

أمر صعب أكيد وهذا البرنامج يقوم بذلك علماً أنه وبحركة صغيرة يمكن أن أجعل الرقم المراد إيجاد جميع احتمالاته يمكن أن أحدد أي خانة أريدها

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

لمن لديه أفكار لتطوير عمل هذا البرنامج الرجاء وضعها أو الإرسال على الإيميل

dr-basel@maktoob.com

:wub: :wub: :wub: :wub: :wub: :wub: :wub: :P :P :P :P :P :P

_______________.rar

#2

بارك الله .......... فيك

و لكن بدون الكود ......... ما الفائدة ؟

#3

أين الردود ياجماعة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

:P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P

#4

يا جماعة اللي حملوا البرنامج مارأيكم وهل هناك من أفكار لتطويره؟ :wub:

:wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub: :wub:

#5

كلام سليم

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#6

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

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

دا أنا

Code Edited & Corrected By Muhammed Elsayed A.Elhamid

'*TWO FUNCTION CREATED BY: VITALY*'
'*ALL OTHER CODE, AND COMMENTING BY: Ðark §oldier*'


'Code Edited & Corrected By Muhammed Elsayed A.Elhamid
' khabalan@hotmail.com


'variables
Dim strName As String
Dim strTemp As String

'get random consonant
Function C() As String
	'make possibilities
	Const Consonants = "0123456789"
	'self explanitory
	Randomize
	'grab a random consonant
	C = Mid(Consonants, Int(Rnd * 21) + 1, 1)
End Function

Function V() As String
	'make possibilities
	Const gem = "505678266810958763274"
	'self explanitory
	Randomize
	'grab a random vowel
	V = Mid(gem, Int(Rnd * 6) + 1, 1)
End Function

'to generate
Private Sub cmdGener_Click()
	'define the string
	strName = txtName.Text
	'set maximum length of the textbox, also meaning the length of word, or name.
	txtName.MaxLength = Int(Rnd * 14)
	'force the name to be greater than 4 chars - optional, and easy to change
	If txtName.MaxLength < 9 Then
	   txtName.MaxLength = txtName.MaxLength + 9
	End If
	'add to the string consonant, vowel, consonant, vowel, etc.
	strName = C & V & C & V & C & V & C & V & C & V & C
	'easy way to add capitol to the word
	strTemp = Right$(strName, Len(strName) - 1)
	'part of adding the capital, and also completing the word or name
	txtName.Text = UCase(Left(strName, 1)) & strTemp
End Sub
#7

مشكور أخي الكريم على تعبك ولكن أنا راغب بربط البرنامج مع برنامج أخر من أجل جعله يكشف الكلمة السرية له :S :S :S :S :S

#8

هنا بقى دور دوال API

انك تجيب Handle النافذة وتعمل Find Window

واى مشكلة انا فالخدمة

#9

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

Handle النافذة وأعمل Find Window

ولكن ماوصلت إلى نتيجة

ولكن الأن بعد ماجيت أنت أظن أن المشكلة بدأت تتحلل

أرجو منك مساعدتي

ولك جزيل الشكر على أي حال

#10

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

حبيب قلبي اللى انا فهمته من موضوعك دا وموضوعك التاى بتاع التواصل بين البرامج انك عاوز تعمل مولد مفاتيح لحاجة معينة

ولنفترض برنامج....صح؟؟؟؟؟؟؟؟؟؟ رد عليااااااااااااااااااااا

لو افتراضي طلع صح يبقى على العموم انت ابعد ما يكون عن الطريقة المظبوطة لعمل حاجة زي دي

كتير من الناس مفكرين مثلا لو عاوزين يعملوا برنامج لكسر فك الضغط مثلا بتاع وينرار يبقى لازم يشغلوا الونرار والبرنامج يجرب يبعتله الباس لكن دا غلط كبير جدا

وتعالى ناخد الموضوع من اوله

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

عن طريق مكتبة DLL اسمها UnRAR "وغالبا هتلاقيها مع الونرار في نفس الفلدر"

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

يبقى بقى لو احنا عاوزين نعمل برنامج يجرب الباسووردات يبقى نعمل ايه؟؟؟؟؟؟؟؟؟؟؟؟؟

ايوه بالظبط زي مانت قلت ...... نستدعى المكتبة مثلا اللى اسمها UnRAR ونستدعى منها امر الفك ونرسل الباس العشوائي وبكدا يبقى انا فهمتك الطريقة العملية العلمية لنظم كسر الياسوورد

وانا عندى ليك مفاجأة مثال بسيط لبرنامج كسر باسوورد قاعدة بيانات Access

ومرفق في الملف قاعدة بيانات مشفرة بباسورد والباسوورد هو 12345

في المثال دا بقى احنا اشتعغلنا بمكتبة DAo مثلا او ADO عشان نستعدى امر فتح قاعدة البيانات وارسال الباسوورد

انا بقى طالب منك دعوة بالشفى عشان صحتى مش كويسة اليومين دولا

ودعوة البهداية عشان انا مش منتظم في الصلاة

Access_Database_Opener.rar

#11

الله يشفيك ويعافيك من كل بلاء ويهديك لأحسن الأعمال

تحياتي إلك ياغالي :D

تم تعديل هذه المشاركة بواسطة 100%مقهور في 2 مايو 2008 في 15:36

#12

الف شكر يا مان على الدعوتين الحلوين دول ولك المثل ان شاء الله

#13

بارك الله بجميع من حمل هذا البرنامج

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

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

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

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

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