كيف تحمي برنامج بالاسم ورقم تسجيل Serial

[محمد عبد العزيز]

السلام عليكم ورحمة الله

بدلا من كثرة الكلام ناخذ مثال حي من الواقع
برنامح Autorun Virus Remover مبرمج بدلفي 7 وموقعه

كود :

www.autorunremover.com

حملو اخر نسخة من الموقع، بعد الثبيت و التنفيذ الضغط على الزر Register
كتابة بالاسم نقطتين .. وبرقم التسجيل 02

بانتظار تعليقاتكم!

[STRELiTZIA]

و عليكم السلام و رحمة الله

حملو اخر نسخة من الموقع، بعد الثبيت و التنفيذ الضغط على الزر Register
كتابة بالاسم نقطتين .. وبرقم التسجيل 02

تمت التجربة...
النسخة اصبحت Full و خصائص التحديث اصبحت متاحة...

بانتظار تعليقاتكم!

اترك المبادرة لكاش واحد

[TF6M]

وعليكم السلام و رحمة الله و بركاته

1- النسخة أصبحت Full , صفحت التسجيل : Disabled
2- حفظ بيانات التسجيل في : svighost.dll
3- إذا كان السريال خاطئ & عند إعادة تشغيل البرنامج يقوم بعرض الـ UserName

بالتوفيق ,,

[paix144]

و عليكم السلام و رحمة الله
جميل، نفس الشئ بالنسبة لي :laugh:

[TF6M]

سريال آخر صحيح :

User Name : tf6m
License Code : VJU

4- السريال الصحيح وفق الـ User Name .

PHP كود :

procedure TKeyGen.Edit1Change(Sender: TObject);
Var
 _i: Byte;
 Temp: String;
begin
For _i:= 1 To Length(Edit1.Text) Do
 Begin
 If not (Edit1.Text[_i] in ['0'..'9']) Then
 If not(Chr(Ord(UpCase (Edit1.Text[_i])) + (_i * 2)) in ['a'..'z']) Then
 Temp:= Temp + Chr(Ord(UpCase (Edit1.Text[_i])) + (_i * 2));
 End;
Edit2.Text:= Temp;
Temp:= '';
end; 


5- عكس خوارزمية التشفير .

[kachwahed]

وعليكم السلام ورحمة الله

اترك المبادرة لكاش واحد

أنا هنا
بيانات التسجيل صحيحة.
واضح أنهم استخدموا مكونات LMD وRaize
وللتسجيل مكون TRegObj الشائع...
بيانات التسجيل في الملف:

كود :

004C92AB |. BA 1C944C00 MOV EDX,004C941C ; ASCII "[color=Red]svighost.dll[/color]"

من التبويب: RegSettings

[STRELiTZIA]

السلام عليكم و رحمة الله
تم عمل Update للكود المصدري الخاص بــ TF6M
1- دعم الأرقام في الــ User name.
2- اضافة خاصية انشاء ملف الــ License.
3- اظهار ملاحظة تخص ما سميته الــ Magic word. هل عرفتموهم ؟ يمكنكم تجربة ادخال حرف Z او Y او عدة حروف اخرى مثل ù > الى اخره...
4- اضافة بعض الـ Checks الجوهرية.


المرفق يحتوي على الملف التنفيذي و الملفات المصدرية.

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

[mohfa]

اما المبرمج مازال هاوي او انه في صدد تجربة البرنامج :
ملف : chis.jpg ليس ملف صورة كما هو مسمى بل ملف لجلب التحديثات :

افتح الملف بال NotePad :

كود :

[chis] ;×Óϵͳ±àºÅ SubSys=AutorunRemover ;Éý¼¶ÍêÆô¶¯³ÌÐò exe=AutorunRemover.exe [update] ;·þÎñÆ÷Ò»=http://127.0.0.1 Server1=http://www.usbsafety.com/autorunremover/Update

انظر سيرفر التحديث مثلا

[kachwahed]

مناقشة خوارزمية التسجيل...

لا حاجة للمتغيرات الإضافية، مباشرة:

كود :

function TMain.GetValidSerial(UserName: string): string; var Loop: byte; begin for Loop := 1 to Length(UserName) do if Chr(Ord(UpCase(UserName[Loop])) + (Loop * 2)) in ['A'..'Z', '0'..'9'] then [color=Blue]Result [/color]:= [color=Blue]Result [/color]+ Chr(Ord(UpCase(UserName[Loop])) + Loop * 2); end;

[TF6M]

1- بخصوص تحديث الأستاذ STRELiTZIA , المرة القادمة .
2- خوارزمية التشفير :

1- أول خطوة , تحويل الـ User Name الى حروف كبيرة .
2- حساب طول الـ User Name , ليكون كعداد لحلقة التشفير .
3- نفرض , 123456 = tf6m = User Name | License Code :





- إذا كان الرمز '0'..'9' , فإنه يقفز على الـ Part 3 .
- التخزين الفعلي في الـ Part1 , أما باقي العمليات تمويه .
- مكان تخزين السريال الجديد : 00E62F1C , لكي تتم عملية التخزين يجب المرور
بـ Part 3 ,Part 2 ,Part 1 .

ملاحظة : nloop , عدد الدورة _ حلقة التشفير _ .