المشروع مع المرفقات..
أريد فقط ترجمة الدالة inject.c ..
و لكن مع رجاء وضع ال Definition لل Types و ال APIs مع التأكد من ال Option Explicit
و ذلك لأنهها لا توجد إفتراضيا فى ال VB
بإنتظار الرد السريع و السليم..لأننى لا أملك أى خبرة فى ال C++..و لكننى وائق من وجود العشرات هنا يمكنهم ذلك..
هل ينبغى أن أنقل الموضوع إلى قسم C++ أيضا ؟..
لو لم يمكن ترجمته..فهل ممكن على الأقل تحويل الدالة إلى ملف DLL ؟
لست أدرى ما السبب..
هل أخطأت بطرح الطلب فى منتدى الVB ؟
لازلت منتظرا.......أو هل أنقل الموضوع إلى قسم ال C++ ؟
xhacker
المشاركات: 185
المفروض أنك تعلم أنه لا ينبغي عليك رفع الموضوع في نفس اليوم ...
كن صبوراً وأنتظر الرد ولا داعي للتعليقات الجانبية خارج الموضوع ..
التوابع في البرنامج كلها API فما المشكلة؟!
النت ملئ بالتعريف الخاص بـ VB .
just google it for few minutes
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
لا لا يا أخى..
أنا جربت..و لكننى لم أجد ال Types ..كما أننى لا أدرى الفرق بين أنواع متغيرات ال C ال VB ..
معذرة للرفع و لكننى أتعشم خيرا فى فريق العرب تيم..
لن أضيف أى ردود أخرى إلى الموضوع اليوم..ما لم يوجد الحل بالطبع..
معذرة مرة أخرى..
جرب هذا
http://www.planetsourcecode.com/vb/scripts...19&lngWId=1
فيه التعريفات وفيه كود الـ injection ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
يا أخى أنا جربت هذا و الكثير من ذلك..
هذا الكود يضع الملف ضمن الModules فقط و لكنه لا يشغله..No Execution
و بعد طول بحث وجدت كود السى هذا و على PSCode أيضا و أأمل أنه يشغل ال EXE
يوم بحاله و لم يتمكن الفريق العربى من عمل أى شىء ؟
128 قراءة للموضوع و أربع تنزيلات فقط و لا حل ؟
للرفع..
سأتابع الموضوع مرة أخرى بعد 24 ساعة على أمكل أن يكون الحل قد وجد..
الكود بالسي موجود لديك , وموجود كود بالـ VB يحتاج لبعض تعديلات ليقوم بما تريد
بقي عليك أن تشغل دماغك قليلاً ...
في كود الـ VB لاحظ العنصر الرابع عند إستدعاء CreateRemoteThread ...
hThread = CreateRemoteThread(hProcess, ByVal 0&, 0&, ByVal hKernel, lLinkToLibrary, 0, ByVal 0&)
لاحظ الكود في المثال بلغة سي
CreateRemoteThread(hProcess, 0, 0, lpStartProc, lpParam, 0, NULL);
عرفت أين المشكلة؟
هو يعمل Inject لكن من أي جزء سيبدأ التنفيذ ...
لا تنتظر أن يقوم الآخرين بعمل كل شئ من أجلك ..
اقتباسيوم بحاله و لم يتمكن الفريق العربى من عمل أى شىء ؟128 قراءة للموضوع و أربع تنزيلات فقط و لا حل ؟
الأعضاء في الفريق لا يستلمون مرتبات حتى تلزمهم بعمل حل لمشكلتك ...
تم تعديل هذه المشاركة بواسطة cipher في 30 يونيو 2007 في 10:20
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أعتقد أن أول كلمة من أسم المنتدى هى "الفريق"..
يا أخى أنا حاولت..و قد قمت بالتجريب و البحث على جوجل لمدة ساعة و تمكنت من ترجمة نصف الكود..و لكن لا يمكن أن اترجم الباقى لأننى لم أجد التعريفات ل ال Types
إذا كنت أنت تجد الموضوع سهلا و لا يستغرق دقائق فلمذا لا لا تقوم به مساعدة لأحد ذملائك فى الفريق ؟
كود ال VB الذى أنت أعطيته لى لا يمكن أن يؤدى دور كود ال C++ لأنه لا يستخدم الدالة WriteProcessMemory..و التى لا يمكن أستخدامها إلا مع وضع تعريفات جديدة أثناء تشغيل الدالة CreateRemoteThread و أيضا يجب أستخدام الدالة GetModuleHandle و هذان لا يوجد فى كود ال فى بى..
جرب هذا
http://www.planet-source-code.com/vb/scrip...95&lngWId=1
فيه ما تريد ...
هناك مشكلة مع windowxp sp2 , المثال يعمل crash لـ explorer ...
ليس لدي الوقت للبحث في سبب المشكلة , أضف إلى ذلك أني لا أبرمج بالـ VB
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الكود لا يعمل إلا على Explorer.exe
قد قمت بتجريبه..و عمل بنجاح..و لكن أى محاولة لتشغيله على برنامج أخر فشلت فشلا زريعا و هذا هو أيضا ما وجدته فى التعليقات فى الموقع ذاته
لأ للأستسلام..
مازلت بأنتظار أن يترجم هذا الكود..
للرفع..
هذا الموضوع مغلق.
