الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة Keygen لبرنامج Quick Starter

[dj-siba]

كيف اضيف باقي الارقام  لتظهر هي نفسها

ارفق محاولتك حتى يمكن التعديل...

[Small Axe]

تفضل استاذ 
hxxps://www.mediafire.com/file/m2pxcj42j1ygad2/traying.rar/file

[x-member]

مرحبا ديجي   لدي سؤال لك , هل تملك Backup لمنتدى opensc.ws , كان منتدى جميل يعج بالسورسات للاسف اختفى 
لازلت لم افهم  حتى الان ما تريد اخي small Axe ؟
اذا كان كما في الصورة ف الكود الاول الذي ارفقته يمكنك التعديل عليه ليقبل مصفوفة محارف 

[dj-siba]

لا يتم الحساب
لا انصح بهذه الطريقة

const keys : array [0..9] of String = (
'1234 1234567890',
'2568 0123456789',
'3341 9012345678',
'4791 7854567890',
'5234 1597932315',
'6784 5881361290',
'7981 8246585890',
'8888 9998842590',
'9999 2513846215',
'0101 1155887890');

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Edit1.Text := keys[Random(10)];
end;

Plain text

تحديد الكل

هل تملك Backup لمنتدى

لا
لا اتذكر انه طرح Backup للمنتدى

[Small Axe]

السلام عليكم ورحمة الله وبركاته
شكرا اخي dj-siba 
ورمضان كريم 
تعمدت ان لا اسال مرة اخرى حتى اعجز نهائيا عن ايجاد الحل
بالنسبة للكود الذي طرحته اعلاه يعطيني رسائل خطا في الديلفي ربما لم اعرف اين يجب كتابته ولكن على العموم حاولت بجميع الطرق بدون جدوى 
استعنت بكوكل لكن كود يحيلني على كود ولم اجد الا طرق توليد ارقام عشوائية..........
المهم بدون اطالة 
لنفرض ان المراد هو كتابة كيغن لهذا البرنامج بالديلفي

https://www.at4re.net/f/thread-331.html
Ad s0und rec0rder
البرنامج فيه سيريالات جاهزة طول السيريال 14 رقما مقسما الى قسمين القسم الاول فيه 4 ارقام والقسم الثاني فيه 10 ارقام 
على هذا : xxxx  yyyyyyyyyy
فكرة السيريال تقوم على مايلي
عندما تدخل السيريال يقوم البرنامج بمقارنة الحلقة الاولى المكونة من اربع ارقام بمجموعة من السيريالات عددها عشرون فان وافق احداها يقفز مباشرة لمقارنة الحلقة الثانية المكونة من عشرة ارقام  والا فانه يقفز الى رسالة الخطا 
اتمنى ان يكون الامر واضحا 
وجزاكم الله خيرا

---

لتحميل اخر نسخة من هذا البرنامج
hxxp://www.adrosoft.com/

[Cyperior]

سأعطيه نظرة وأعطيك كيجن بال Delphi, وزيادة لك بالC# وكذلك C++.

[Small Axe]

سأعطيه نظرة وأعطيك كيجن بال Delphi, وزيادة لك بالC# وكذلك C++.

الله يعطيك كل الخير ; ويعطيك ما تتمنى وزيادة لك ; الله يعطيك الجنة انت ومن تحب

[Cyperior]

تفضل أخ Small Axe
الرابط مؤقت، لذا إن أردت بقاءه فارفعه على موقع آخر.

https://filebin.net/xx3hfk0s1k3gg3qy

[Small Axe]

الرابط مؤقت، لذا إن أردت بقاءه فارفعه على موقع آخر.

جزاك الله خيرا اخي الكريم 
تم التحميل ومن تم سارفعه على موقع اخر
ممتن لك على تعبك وشغل وقتك
لك مني دعوة صالحة بظهرالغيب عند اذان  الافطار ان شاء الله وللاخ TeRcO ايضا ولباقي اعضاء الفريق

[Cyperior]

لتوضيح المعلومة

أردت أن تحصل على قيمة عشوائية من بين قيم محددة مسبقا، أليس كذلك!

ولعمل ذلك عليك بعمل مصفوفة أحادية من النوع المراد في حالتنا هذه 'نصية'، ثم تقوم باستخدام دالة العشوائية للحصول على قيمة عشوائية من بين تلك القيم.

أتمنى أن تكون الفكرة وضحت.