السلام عليكم ورحمة الله
بدلا من كثرة الكلام ناخذ مثال حي من الواقع
برنامح Autorun Virus Remover مبرمج بدلفي 7 وموقعه
كود :
www.autorunremover.com
كتابة بالاسم نقطتين .. وبرقم التسجيل 02
بانتظار تعليقاتكم!
و عليكم السلام و رحمة الله
إقتباس :حملو اخر نسخة من الموقع، بعد الثبيت و التنفيذ الضغط على الزر Register
كتابة بالاسم نقطتين .. وبرقم التسجيل 02
تمت التجربة...
النسخة اصبحت Full و خصائص التحديث اصبحت متاحة...
إقتباس :بانتظار تعليقاتكم!
اترك المبادرة لكاش واحد
وعليكم السلام و رحمة الله و بركاته
1- النسخة أصبحت Full , صفحت التسجيل : Disabled
2- حفظ بيانات التسجيل في : svighost.dll
3- إذا كان السريال خاطئ & عند إعادة تشغيل البرنامج يقوم بعرض الـ UserName
بالتوفيق ,,
و عليكم السلام و رحمة الله
جميل، نفس الشئ بالنسبة لي :laugh:
سريال آخر صحيح :
User Name : tf6m
License Code : VJU
4- السريال الصحيح وفق الـ User Name ![[صورة: icon10.gif]](http://delphi4arab.net/forum/images/icons/icon10.gif)
.
![[صورة: 4654.gif]](http://img242.imageshack.us/img242/6479/4654.gif)
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;
وعليكم السلام ورحمة الله
إقتباس :اترك المبادرة لكاش واحد
أنا هنا
بيانات التسجيل صحيحة.
واضح أنهم استخدموا مكونات LMD وRaize
وللتسجيل مكون TRegObj الشائع...
بيانات التسجيل في الملف:
كود :
004C92AB |. BA 1C944C00 MOV EDX,004C941C ; ASCII "[color=Red]svighost.dll[/color]"
السلام عليكم و رحمة الله
تم عمل Update للكود المصدري الخاص بــ TF6M
1- دعم الأرقام في الــ User name.
2- اضافة خاصية انشاء ملف الــ License.
3- اظهار ملاحظة تخص ما سميته الــ Magic word. هل عرفتموهم ؟ يمكنكم تجربة ادخال حرف Z او Y او عدة حروف اخرى مثل ù > الى اخره...
4- اضافة بعض الـ Checks الجوهرية.
المرفق يحتوي على الملف التنفيذي و الملفات المصدرية.
ايضا عندي ملاحظات تخص البرنامج في ذاته اتركها الى الانتهاء من مناقشة خوارزمية التسجيل...
اما المبرمج مازال هاوي او انه في صدد تجربة البرنامج :
ملف : chis.jpg ليس ملف صورة كما هو مسمى بل ملف لجلب التحديثات :
افتح الملف بال NotePad :
كود :
[chis]
;×Óϵͳ±àºÅ
SubSys=AutorunRemover
;Éý¼¶ÍêÆô¶¯³ÌÐò
exe=AutorunRemover.exe
[update]
;·þÎñÆ÷Ò»=http://127.0.0.1
Server1=http://www.usbsafety.com/autorunremover/Update
انظر سيرفر التحديث مثلا
إقتباس :مناقشة خوارزمية التسجيل...
لا حاجة للمتغيرات الإضافية، مباشرة:
كود :
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;
1- بخصوص تحديث الأستاذ STRELiTZIA , المرة القادمة .
2- خوارزمية التشفير :
1- أول خطوة , تحويل الـ User Name الى حروف كبيرة .
2- حساب طول الـ User Name , ليكون كعداد لحلقة التشفير .
3- نفرض , 123456 = tf6m = User Name | License Code :
![[صورة: code.gif]](http://img265.imageshack.us/img265/7426/code.gif)
![[صورة: userqn.gif]](http://img265.imageshack.us/img265/865/userqn.gif)
- إذا كان الرمز '0'..'9' , فإنه يقفز على الـ Part 3 .
- التخزين الفعلي في الـ Part1 , أما باقي العمليات تمويه .
- مكان تخزين السريال الجديد : 00E62F1C , لكي تتم عملية التخزين يجب المرور
بـ Part 3 ,Part 2 ,Part 1 .
ملاحظة : nloop , عدد الدورة _ حلقة التشفير _ .