[تمرين] حماية ذاتية : البرنامج معطوب، مصاب بفيروس او تم العبث به
#11
السلام عليكم ورحمة الله

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


[صورة: attachment.php?aid=4647]


.jpg   Untitled444.jpg (الحجم : 80.33 ك ب / التحميلات : 45)
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#12
السلام عليكم و رحمة الله
بخصوص: https://delphi4arab.net/forum/showthread...1#pid55271

لم استطع الرد في الموضوع مباشرة  لان الموضوع قديم و مغلق...

[صورة: M70DjPy.gif]
[-] كل من 1 user says قال شكرا ل I3CT على المشاركة المفيدة
  • Delphi4Us
الرد
#13
بارك الله فيك هل ممكن تتفضل وتوضح لماذا حدث هذا ولماذا عمل عند البعض اما نحن على دلفي 11 لم يعمل الا بتغيير النوع
وهذا فقط لفهم المشكلة وحلها اذا صادفت مرة اخرى مشكلة مشابهة
وشكرا

اما بعد التجربة وفهم مايجري هما كلمتان فقط (رائع ومذهل)
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#14
(28-06-2022, 01:10 PM)Delphi4Us كتب : لماذا حدث هذا ولماذا عمل عند البعض اما نحن على دلفي 11 لم يعمل الا بتغيير النوع
إصدارات دلفي الحديثة بها تغييرات تكسر backward compatibility التوافق مع الاصدارا القديمة
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل محمد عبد العزيز على المشاركة المفيدة
  • Delphi4Us
الرد
#15
بنفس الطريقة جربت الكتابة بدل القراءة ولم تفلح 
هل هذه الطريقة الصحيحة

كود :
var
  MyStream: TMemoryStream;
  StoredChecksum,StorMachine, CalculateChecksum: dword;
begin
  MyStream := TMemoryStream.Create;
  MyStream.LoadFromFile(Application.ExeName);
  StoredChecksum:=12114367;
  MyStream.Seek(-4, soFromEnd);
  MyStream.Write (StoredChecksum, 4);

   MyStream.Seek(0, soFromBeginning);
  MyStream.SetSize(MyStream.Size - 4);

   MyStream.Free;

end;


وجربت على مشروع اخر غير الذي نتمرن عليه فلم اجد البلوك او لا اعرف ما تسمونه بنهاية الملف والذي يحوي اصفار 
وانما ارقام ورموز حتى نهايته
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم