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

تشفير الصور

مغلق
بدأه am2812 في 21 سبتمبر 2005 · 6 رد · 2,312 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا شباب :

هل يمكن تشفير الصور ؟ يعني بحيث لا يمكن الاطلاع علي الصور إلا عن طريق البرنامج حتى لا يمكن نسخها :blink: :blink: :blink:

وشكرا لكم

20_09_05_04_45_39_1127216739saudi_aC_.gif
#2

طبعا يمكن،

تريد عمل Format جديد

قم بقراءة الصورة في Buffer

تشفير Buffer بالخواريزمية التي تختار، بإستخدامXor مثلا

كتابة محتوى Buffer في ملف جديد

d4baa0.gif
#3

جرب هذا المثال

http://www.swissdelphicenter.ch/torry/showcode.php?id=1139

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#4

الأخ DeltaAziz و الاخ محمد نسمان

شكراً لكم عى التجاوب السريع :lol: :lol:

الأخ DeltaAziz ممكن توضح شويه الطريقة التي ذكرتها :o :o

وشكراً على المثال يا محمد نسمان

أحلى منتدى :D :D

20_09_05_04_45_39_1127216739saudi_aC_.gif
#5
  AssignFile(F,Edit1.Text);
  ReSet(F,1);

  AssignFile(O,Edit2.Text);
  ReWrite(O,1);

  Repeat
     BlockRead(F,Buff,SizeOf(Buff),Rw);
     For i:=1 to Rw DO Buff := Buff Xor i;
     BlockWrite(O,Buff,Rw,Rw);
  Until Rw=0;

  CloseFile(O);
  CloseFile(F);

جرب المثال المرفق

PicX0R.rar

d4baa0.gif
#6

الأخ DeltaAziz

جزاك الله خيراً ومشكور جدا :D

أنا اسف للتأخير في الرد كنت في اجازه

20_09_05_04_45_39_1127216739saudi_aC_.gif
#7

مشكور

هي طب للقلوب *** ذكرها يمحو الذنوب *** نورها سر الغيوب *** لاإله إلاالله

هذا الموضوع مغلق.

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