تقنيه اعتقد ان الكثير لا يعرفها

شئ غريب أول مره أسمع عنه

ياريت ياأخ Siner

تقوم بكتابة مثال صغير حتى نقوم باستوعاب الموضوع

مثال عملى بترتيب الخطوات بعد إذنك

نعم صحيح هذه التقنية موجودة فقط في نظام ال NTFS و قد تم استغلالها في مجال الفايروسات

و طريقة عملها جد سهلة لنفرض مثلا انك تريد اخفاء نص وسط ملف نصي

المثال :

لدينا ملف نصي اسمه Test.txt مكتوب فيه النص التالي

"ArabTeam2000"

طبعا هذا الملف النصي سيكون حجمه 12 byte

نريد اذا عمل حقن لنص آخر داخل نفس الملف (كيفما كان حجم هذا النص)

النص الذي نريد حقنه هو :

"Crazy-Man"

عند حقن هذا الملف ستلاحظ أن حجم الملف Test.txt لن يتغير !!!

كيف اذا يمكننا ذلك ...

الطريقة جد بسيطة

افتح الدوس

و لنفرض أن المسار الكامل للملف هو c:\Test.txt

نقوم بكتابة التالي :

C:\>echo "Crazy-Man" >c:\Test.txt:Cool.txt

اذهب الآن و تفحص الملف الأصلي Test.txt ستجد ان حجمه لم يتغير

افتحه ستجد ان حتى ما أضفنا لم يضف !!!

اذا كيف يمكن الولوج الى النص المخفي ...

طبعا لاحظت أننا كتبنا Cool.txt بعد اسم الملف المراد حقن النص فيه ...هذا لأن ال Cool.txt هو الذي يحتوي على النص المضاف و يمكننا بكل بساطة الولوج الى النص المحقون عن طريق الأمر التالي (اكتبه في Run)

notepad c:\Test.txt:Cool.txt

ستجد ان النوتباد سيظهر لك النص الذي أضفته !!!

و يمكنك بطبيعة الحال عمل نفس العملية مع الملفات التنفيذية و ذلك عن طريق أمر TYPE

مثال:

لدينا مثلا ملف تنفيذي مثلا اسمه c:\MyFile.exe

و ملف آخر نريد حقنه داخل الملف السابق و ليكن اسمه c:\MySecondFile.exe

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

type c:\MySecondFile.exe > c:\MyFile.exe:MySecondFile.exe

و بهذا يكون الملف c:\MySecondFile.exe قد أصبح داخل الملف c:\MyFile.exe دون المساس بهذا الأخير الذي يبقى بحجمه الطبيعي !!!

اذا تبقى لنا طريقة الاستدعاء و هي كالتالي

داخل الدوس مرة اخرى اكتب :

start c:\MyFile.exe:MySecondFile.exe

و سوف ينفذ الملف المحقون

و لقد ظهر فعلا فايرس يستعمل هذه الطريقة و اسمه Stream (CERT-IST/AV-2000.210) لكنه فقط للتجربة و ليس لهدف الدمار

و السلام عليكم

القصد من انها لا تعمل إلا على أنظمة التشغيل الntfs او انها تعمل على القرص الصلب المجزأ على نظام ntfs ؟

أظن انها تشتغل فقط على ال Partition من نوع ملفات ال NTFS

و الله أعلم

السلام عليكم

شكرا لردودكم جميعا اخوانى

بالنسبه للتقنيه فهى تعمل عى نظام الملفات NTFS وهو نظام من ضمن انظمه تقسيم الأقراص الصلبة وليس نظام تشغيل وهو اختصار (New Technology File System)

واعتقد ان الأخ العزيز Crazy-man قد قام بكتابه مثال نيابه عنى لتنفيذ ذلك

لكن هناك ملاحظه بسيطه وهى انه لا يوجد مسافات قبل اوبعد معامل ال Redirect وهو "< "

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

Alternate_Data_Streams.rar

مشكووووووور

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

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

وأظنه أستدعاء شرطي أو موجه

كيف يتم ذلك برمجيا دون الدخول الى الدوس ؟؟؟؟ بشكل موجه أو شرطي كما ذكرت

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

سلامي

جميل جدا.. جزاك الله الخير على هذه المعلومات

شكرا لكما اخواني siner & crazy man على هذه المعلومات الطيبة

اقتباس

كيف يتم ذلك برمجيا دون الدخول الى الدوس ؟؟؟؟ بشكل موجه أو شرطي كما ذكرت

اخي استخدم الامر Shell على ما اعتقد

معلومات قيمة فعلاً , شكراً لكم :rolleyes:

أخي العزيز يمكنك عمل ذلك برمجيا عن طريق استدعاء ال cmd.exe و تمرير البرامترز التي تريد

Shell "cmd.exe /c echo ""ArabTeam"">C:\Test.txt:SecondFile.txt",VbHide
ثم من أجل فتح الملف المحقون
Shell "notepad C:\Test.txt:SecondFile.txt"

مشكووووووووووووووووور

أعذر جهلي أخي

يا ريت تتحفنا بمثال صغير مطبق على الفيجول بيسك

ومشكووووووووووور سلفا

سلامي

الف شكر للمميزين siner & crazy man على المعلومات القيمه

شكرا جزيلا على هذه المعلومات الرائعة

اقتباس

كيف يتم ذلك برمجيا دون الدخول الى الدوس ؟؟؟؟ بشكل موجه أو شرطي كما ذكرت

طريقة اخرى بالاضافى الى الطريقة التى ذكرها الاخ crazy-man

Option Explicit

  Declare Function AllocConsole Lib "kernel32" () As Long
  Declare Function FreeConsole Lib "kernel32" () As Long
  Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _
          As Long
  Declare Function GetStdHandle Lib "kernel32" (ByVal _
          nStdHandle As Long) As Long
  Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
          (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
          nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
          lpReserved As Any) As Long

  Public Const STD_OUTPUT_HANDLE = -11&

'Put a text box and command button on a form and copy the follwoing code on the code area.


Dim hConsole As Long
Private Sub Command1_Click()
  Dim Result As Long, sOut As String, cWritten As Long
    sOut = Trim(Text1.Text) '& vbCrLf
    Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, _
                          ByVal 0&)
                          
     Shell sOut
     
  End Sub

  Private Sub Form_Load()
    If AllocConsole() Then
      hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
      If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT"
    Else
      MsgBox "Couldn't allocate console"
    End If
  End Sub

  Private Sub Form_Unload(Cancel As Integer)
    CloseHandle hConsole
    FreeConsole
  End Sub