أحقن ملفك بملف أخر على نظام ملفات FAT

عن نفسى موافق لكن انتظر رأى باقى الاخوة

توكل على الله واعرض الموضوع

ok man ,go on

توكل على الله

ارجو ان تنتظر رأى باقى المشرفين او احدهم على الاقل :rolleyes:

أنا برأي أنو رأيكم بقدي و خاصتاً رأي مشرف القسم السيد (الشبح) لعرض الموضوع

و أن شاء الله لح أعرض الموضوع في مساء هذا اليوم إن شاء الله

أرجو التفاعل

حقن الملفات في Partition من النوع FAT

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

لن أتتطرق إلى تقنية ADS لكون أحد الأخوى ذكر مقال عنها بالتفصيل و لكن سأذكر عنعا بشكل عام:

تقنية ADS(Alternate Data Stream) المتطورة في حقن الملفات تقنية عالية الأداة لكنها تعمل معPartition من نوعNTFS(New Technology Files System) ولا تعمل مع Partition من نوعFAT(File Allocation Table).

بسم الله:

قبل أن نبدأ في تشكيل برنامج الحقن يجب أن أعرفكم على طريقة عمل البرنامج و لتي ستكون كما في الشكل التالي:

سوف نقم ببرنامجنا بوضع الملف المحقون في المنطقة الفارغة و الممتدى أقصد بالمتتدى أي لللانهاية طبعاً ليس للناهية و ذلك يتناسب مع مساحة قرصك و الملف الذي سوف نحقنه لن يؤثر على الملف الأصلي إلا بمساحتة أي لا يؤثر على أدائه لأننا و ضعناه في منطقة بعد أنتهاء البرنامج أي بعد كلمة END كما مو ضح في الشكل وسنضع أسم الملف المحقون بين المنطقة المتتدى و الملف الأصلي حتى يسهل علينا عملية أستدعائه.

تشكيل برنامج الحقن:

برنامج الحقن هو عبارة عن فتح الملف الأصلي وو ضع في اخره اسم الملف الثاني و الملف الثاني

المود سهل جداً لكن عملية الأستدعاء أصعب قليلاً

الكود:

Dim FileNumber As Long
Dim XName As String 'المتغي المسؤول على حمل اسم الملف المحقون
Dim X1 As String 'متغي المسؤول على حمل الملف الأصلي
Dim X2 As String 'المتغير المسؤول على حمل المف الاّخر

X1 = "c:\SourceFile.exe" 'أسند للمتغي موفع الملف الأصلي
X2 = "c:\AnyFile.exe" 'أسند للمتغير موقع الملف المراد حقنه

X1 = Space$(FileLen(X1))
X2 = Space$(FileLen(X2))

FileNumber = FreeFile
Open X1 For Binary As #FileNumber
Get #FileNumber, , X1
Close #FileNumber

FileNumber = FreeFile
Open X2 For Binary As #FileNumber
Get #FileNumber, , X2
Close #FileNumber

XName = "File Name" ' أسند للمتغير اسم الملف

FileNumber = FreeFile
Open X1 For Append As #FileNumber
Print #FileNumber, X2 & XName & X1
Close #FileNumber

أنتهينا من تشكيل برنامج الحقن بقي عملية الأستدعاء سأكتبه في المرة القادمة ( لكونها تأخذ وقت )

أخوكم غسان الجزار من سوريا الشقيق

الرجاء من المشرفين أبقاء هذه المقالة في الصفحة الأولة مدى من الزمن.

أرفقط الموضوع على صيغة pdf

حقن الملفات في Partition من النوع FAT.pdf

يعطيك الف عافية..

سؤال شخصي: انت من الشام؟ في حال الجواب نعم. عندك اخ اسمه محمود؟ في حال الجواب نعم. كان عمل معسكر تدريب جامعي بهالصيف؟ :)

رائع جدا

بانتظار التكملة .............

جزاك الله خيرًا أخي غسان على هذا الدرس .

لقد عدنا

أخوتي الأعزاء أنسو كل ما تعلمتموه سابقاً و سنيدأ من جديد

بسبب تغيرات جذرية في المقالة

الأن سأعرض الموضوع كاملاً

"المقالة المنقحة"

حقن الملفات في Partition من النوع FAT

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

لن أتتطرق إلى تقنية ADS لكون أحد الأخوى ذكر مقال عنها بالتفصيل و لكن سأذكر عنعا بشكل عام:

تقنية ADS(Alternate Data Stream) المتطورة في حقن الملفات تقنية عالية الأداة لكنها تعمل معPartition من نوعNTFS(New Technology Files System) ولا تعمل مع Partition من نوعFAT(File Allocation Table).

بسم الله:

قبل أن نبدأ في تشكيل برنامج الحقن يجب أن أعرفكم على طريقة عمل البرنامج و لتي ستكون كما في الشكل التالي:

سوف نقم ببرنامجنا بوضع الملف المحقون في المنطقة الفارغة و الممتدى أقصد بالممتدى أي لللانهاية طبعاً ليس للناهية و ذلك يتناسب مع مساحة قرصك و الملف الذي سوف نحقنه لن يؤثر على الملف الأصلي إلا بمساحتة أي لا يؤثر على أدائه لأننا و ضعناه في منطقة بعد أنتهاء البرنامج أي بعد كلمة END كما مو ضح في الشكل وسنضع أسم الملف المحقون بين المنطقة الممتدى و الملف الأصلي حتى يسهل علينا عملية أستدعائه لكن ننا عندما نضع أسم الملف سنضعه بين أشارتي ## حتى يسهل علينا استدعائه

تشكيل برنامج الحقن:

برنامج الحقن هو عبارة عن فتح الملف الأصلي وو ضع في اخره اسم الملف الثاني و الملف الثاني

برنامج الحقن سهل جداً لكن عملية الأستدعاء أصعب قليلاً

لكننا لن نصنع للبرنامج و اجهة سنجعله يحقن الملفات مثل ما هو الحال في تقنية ADS لكن غير صيغة فتكون الصيغة العامة للحقن:

HF.exe /SourceFile.exe/Anyfile.exe/FileName.exe

حيث أن HF.exe تدل على اسم برنامجنا

و SourceFile.exe تدل على اسم الملف الاصلي الذي سنحفن بداخله الملف الاّخر AnyFile.exe

و FileName.exe تدل على اسم الملف الذي سنقوم باستدعائه.

ملاحظة: لاتنسى اللاحقة!.

ويكون ألبرنامج كالتالي:

اصنع Module وأكتب فيها ما يلي:

Option Explicit

Sub Main()
Dim xSourceFilePath As String
Dim xAnyFilePath As String
Dim xName As String
Dim FileNumber As Long
Dim X1 As String
Dim X2 As String
Dim Com As String
Dim i1 As Long, i2 As Long, i3 As Long

Com = Command$

i1 = InStr(1, Com, "/") + 1

i2 = InStr(i1, Com, "/") + 1

i3 = InStr(i2, Com, "/") + 1

xSourceFilePath = Mid(Com, i1, i2 - i1 - 1)

xAnyFilePath = Mid(Com, i2, i3 - i2 - 1)

xName = Mid(Com, i3, Len(Com))

X1 = Space$(FileLen(xSourceFilePath))
FileNumber = FreeFile
Open xSourceFilePath For Binary As #FileNumber
Get #FileNumber, , X1
Close #FileNumber

X2 = Space$(FileLen(xAnyFilePath))
FileNumber = FreeFile
Open xAnyFilePath For Binary As #FileNumber
Get #FileNumber, , X2
Close #FileNumber

FileNumber = FreeFile
Open xSourceFilePath For Append As #FileNumber
Print #FileNumber, "#" & xName & "#" & X2
Close #FileNumber
End
End Sub

و طبعاً و كما علمنا في مقالتي السابقة(الكائن Command و مثال هام عليه)

تحول الStartUp إلى Main .

أنتهينا من تشكيل برنامج الحقن بقي عملية الأستدعاء

عملية الاستدعاء:

قبل البدأ سأشرح طريقة عملها و هي أننا نفتح الملف الأصلي و نبحث على اسم الملف الذي و ضعناه في اشارتي ## و ننسخ جميع المتغيرات الموجودة بعد الاسم أي الملف المحقون و نعمل نسخة على مجلد الـ Temp مثلاً و نشغله من هناك.

و تكو الصيغة العامة للأستدعاء :

Call.exe /SourceFile.exe/Anyfile.exe/FileName.exe

حيث أن Call.exe اسم برنامج الأستدعاء

و SourceFile.exe الملف الأصلي الذي حقن فيه الملف الاّخر AnyFile.exe

و FileName.exe اسم الملف الذي تريد استدعائه

أعيد و أكرر لاتنسى اللاحقة!

تشكيل البرنامج :

أيضاً أصنع Modlue و أكتب فيها كمايلي:

Option Explicit

Sub Main()
Dim iFor As Long
Dim FileNumber As Long
Dim X As String
Dim X1 As String
Dim xSourceFilePath As String
Dim xName As String

Dim Com As String
Dim i1 As Long, i3 As Long

Com = Command$

i1 = InStr(1, Com, "/") + 1

i3 = InStrRev(Com, "/") + 1

xSourceFilePath = Mid(Com, i1, i3 - i1 - 1)

xName = Mid(Com, i3, Len(Com))

FileNumber = FreeFile
X = Space(FileLen(xSourceFilePath))
Open xSourceFilePath For Binary As #FileNumber
Get #FileNumber, , X
Close #FileNumber

For iFor = 1 To Len(X)
If Mid(X, iFor, Len(xName) + 2) = "#" & xName & "#" Then
X1 = Mid(X, iFor + Len(xName) + 2, Len(X))
Exit For
End If
Next iFor

FileNumber = FreeFile
Open Environ$("tmp") & "\" & xName For Binary As #FileNumber
Put #FileNumber, , X1
Close #FileNumber
Shell Environ$("tmp") & "\" & xName,vbNormalFocus
End
End Sub

ولا تنسى أن تحول الStartUp إلى Main .

لحقن ملف:

أدخل إلى Run و أكتب مثلاً:

c:\HD.exe /c:\windows\calc.exe/c:\windows\notepad.exe/FirstFile.exe

وهكذا سنقوم بحقن المفكرة بالاّلة الحاسبة .

لستدعاء الملف:

أدخل إلى Run و اكتب:

c:\Call.exe /c:\windows\calc.exe/ FirstFile.exe

و هكذا قمنا بأستدعاء الملف FirstFile.exe و هو نفسه المفكرة .

الرجاء من المشرفين أبقاء هذه المقالة في الصفحة الأولة مدى من الزمن.

كتبت عن طريق غسان الجزار

و عرضت لأول مرة في منتدى الفريق العربي للبرمجة قسم فيجيوال بيزك

في الدرس القادم :

كيفية حذف الملف المحقون من الملف الأصلي

و كيفية حقن أكثر من ملف في ملف و احد

أرجو من السادة الخبراء مساعدتي علي أبقاء الملف الأصلي على مساحته الأصلية.

حمل المقالة كاملةً بصيغة PDF

حقن الملفات في Partition من النوع FAT.pdf

مثال تطبيقي على الدرس

برنامج الأستدعاء.zip

برنامج الحقن.zip

و بالنسبة للأخ Xacker للأسف لي لدي أخ أسمه محمود

أشكر لكم متابعتكم لهذا الموضوع

و أرجو نقله إلى قسم المواضيع المتقدمة

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

أخي الكريم غسان الجزار

الرجاء الإيضاح، تتحدث عن حقن ملف بFAT

وما قمت به هو دمج ملف مع ملف أخر

ثم لإستخراج الملف في مجلد Tmp و تنفيذه

و هذا ما يسمى Bind ملفين

و هو ما تقوم به برامج التروجانات

يا أخ deltaaziz

bind إذاً bind أفهمها كما تريد

لكن للمعلومات أنا لاأدمج ملفين بملف واحد

أنا أدمج ملف بملف و في الدرس القادم ستلاحظ كيف أدمج أكثر من ملف بملف و احد

و أنا أخترعت هذه التقنية لل للفايروسات عملتها لتوضيح مهام الكائن command

أخي العزيز ممكن تورينا كيف بتقوم عملية أستدعاء ملف بطريقة الحقن

للفائدة فقط

و هل يمكننا عمل bind لأكثر من ملف بملف واحد <_<

و هذا الموضوع عبارة عن أجتهاد مني لا غير

وشكراً على مصارحتك

غسان الجزار كتب:

يا أخ deltaaziz

bind إذاً bind أفهمها كما تريد

لكن للمعلومات أنا لاأدمج ملفين بملف واحد

أنا أدمج ملف بملف و في الدرس القادم ستلاحظ كيف أدمج أكثر من ملف بملف و احد

و أنا أخترعت هذه التقنية لل للفايروسات عملتها لتوضيح مهام الكائن command

أخي العزيز ممكن تورينا كيف بتقوم عملية أستدعاء ملف بطريقة الحقن

للفائدة فقط

و هل يمكننا عمل bind لأكثر من ملف بملف واحد  <_<

و هذا الموضوع عبارة عن أجتهاد مني لا غير

وشكراً على مصارحتك

←

أخي الكريم

لكل شيئ إسمه

أولا

إقر جيدا ما كتبت:

دمج ملف بملف لأخر

ولم أقل ملفين بملف واحد

ثانيا

لست خبير VB ولا أستعملها أصلا

شدني عنوان الموضوع

" الرد على موضوع أحقن ملفك بملف أخر على نظام ملفات FAT"

فقر أته فو جدت شيئ أخر...

ثالثا

تقول: و أنا أخترعت هذه التقنية...

ما قمت به معروف منذ سنين...

رابعا

انا لم ازعم أي شيئ لكي أريك إياه

خامسا

إقرء قواعد طرح الأسئله والمشاركات

مع إحترامي

شكرا جزيلا على دروسك المتميزة دائما اخى غسان الجزار

شكراً للأخ هاني على مشاركته و هذا يشرفنا في الموضوع هذا

لكن بالنسبة للأخ delta أنا لم أجد مثل هذا الموضوع في المنتدى لذلك كتبته

و عنوان الموضوع ليس مخالف للمحتوى كما ألاحظ

مع أحترامي

لا يوجد تعليق

اقتباس

شكراً للأخ هاني على مشاركته و هذا يشرفنا في الموضوع هذا

انا الذى اتشرف بالمشاركة فى مثل هذا الموضوع

أخي شكراًً لك على كلامك اللبق

و أن شاء الله سنراك دائماص في هذا الموضوع

لكنني مستغرب ألا يوجد أحد يشارك معنا الوضوع أم أن الشرح غير كافي

السلام عليكم

اعتقد انك يجب ان تغير عنوان هذا الموضوع لآنه لا يمت بأى صله بنظام مواقع الملفات بجميع اصداراته(FAT)

لأنه أصلا مستحيل ان تبرمج برنامج بالVB يعبث فى نظام ملفات سواء NTFS او FAT أو يتعامل تعامل مباشر معه إلا لو استخدمت مساعده لغه اخرى مثل السى او الأسمبلى. .

و مع احترامى فأنك لم تخترع هذه الطريقه (اعتقد انك لم تزرو اى مواقع سورس كود )

والموضوع لايمت باى صله او يتشابه مع تقنيه ADS التى تدعم NTFS, فهناك فرق شاسع جدا بين FAT ,NTFS

وشكرا لسعه صدرك

اقتباس

لأنه أصلا مستحيل ان تبرمج برنامج بالVB يعبث فى نظام ملفات سواء NTFS او FAT أو يتعامل تعامل مباشر معه إلا لو استخدمت مساعده لغه اخرى مثل السى او الأسمبلى. .

والموضوع لايمت باى صله او يتشابه مع تقنيه ADS التى تدعم NTFS,  فهناك فرق شاسع جدا بين FAT ,NTFS

أخي الكريم

شكراً لك لهجومك

لكن أنا أعرف أن هذه الطريقة تختلف عن تقنية ads المتطورة

لكني عرضت هذا الموضوع كمثال لمهام الكائن command فقط لا غير

و أنا أحببت أن أسميها تقنية

إذا كنت تريد أن تسميها تفاهة فسماها كما تشاء

و أنا ياأخي العزيز لم أتعلم البرمجة في المنتديات بل تعلمتها في مواقع source code

و مواقع عالية الرقي

و شكراً لك على أي حال

و أرجو من مشرفي الموقع الكرام أن يحذفو هذا الموضوع إذا لم يحببه أحد

غسان الجزار كتب:

شكراً لك لهجومك

و أرجو من مشرفي الموقع الكرام أن يحذفو هذا الموضوع إذا لم يحببه أحد

←

أخي غسان الجزار ليكن صدرك واسع

واصل دروسك

هناك من سيستفيد منها حتما...

و مرحبا بك

إلى جميع من قرأ هذا الموضوع

للتوضيح:

أنا عندما ذكرت كلمة fat قصدت أنها تعمل علىfatأيضاً