Форум на Исходниках.RU

Прямой доступ к диску

SCINER — Tue, 21 Mar 2006 16:42:16 +0000

SCINER:

Цитата maxim84_ @ 21.03.06, 16:38

Цитата

И как Вы думаете, что он с ним сделает?

ни чего!! такой метод применяеться при очистке оглавления. т.е. очистке таблицы файлов. просто файловая система может подумать что на этом месте пусто и записать туда новые данные. помоему такая фишка вообше на NTFS не получиться.
SCINER, а ты выдел где ни нить такую реализацию??

нет не видел
я вообще дисками не занимался раньше

Прямой доступ к диску

maxim84_ — Tue, 21 Mar 2006 16:38:40 +0000

maxim84_:

Цитата

И как Вы думаете, что он с ним сделает?

Прямой доступ к диску

Velin — Mon, 20 Mar 2006 07:26:16 +0000

Velin:

Цитата

Но Windows не запишет в занятый сектор

Ну вообщето, ячейки для файлов в ФС называются кластерами. Как раз записать в частично занятый сектор Windows может запрасто. Проблема в том, что checkdisk может увидеть файл, запись о котором есть в ФС, но которого нету не в одной папке. И как Вы думаете, что он с ним сделает?

Прямой доступ к диску

SCINER — Mon, 20 Mar 2006 06:24:16 +0000

SCINER:

Цитата Velin @ 20.03.06, 06:13

Цитата

А зачем перехватывать, я просто хотел нарушить немного структуру файла, чтобы его вообще не видели никто кроме меня.

А вас не беспокоит, что в один прекрасный момент драйвер файловой системы то же "не увидит" Ваш файл и запишет на его место что-нибудь еще?

Но Windows не запишет в занятый сектор.
А файл ведь можно уместить и просто в частично занятом секторе.

Прямой доступ к диску

Velin — Mon, 20 Mar 2006 06:13:30 +0000

Velin:

Цитата

Прямой доступ к диску

SCINER — Sun, 19 Mar 2006 19:01:46 +0000

SCINER:

Цитата Алиса @ 19.03.06, 17:49

в архиве простой пример перечисления без FindFile...
но на счет скрытия <_<
ZwQueryDirectoryFile надо перехватывать (хорошо бы на уровне системы в r0). здесь VB не катит:(
блин, файл не цепляется.

архив тебе в мыло ушел.

Спасибо, будем посмотреть.
А зачем перехватывать, я просто хотел нарушить немного структуру файла, чтобы его вообще не видели никто кроме меня.

Прямой доступ к диску

Алиса — Sun, 19 Mar 2006 17:49:53 +0000

Алиса: в архиве простой пример перечисления без FindFile...
но на счет скрытия <_<
ZwQueryDirectoryFile надо перехватывать (хорошо бы на уровне системы в r0). здесь VB не катит:(
блин, файл не цепляется.

архив тебе в мыло ушел.

Прямой доступ к диску

SCINER — Sun, 19 Mar 2006 16:11:05 +0000

SCINER:

Цитата Алиса @ 19.03.06, 15:01

Цитата SCINER @ 15.03.06, 22:02

таким методом найти и скрыть файл с диска

а чем ZwQueryDirectoryFile не утраивает?

устроит, если примерчиком поделишься или почитать чего нить подкинешь по теме ;)

Прямой доступ к диску

Алиса — Sun, 19 Mar 2006 15:01:32 +0000

Алиса:

Цитата SCINER @ 15.03.06, 22:02

таким методом найти и скрыть файл с диска

а чем ZwQueryDirectoryFile не утраивает?

Прямой доступ к диску

Velin — Fri, 17 Mar 2006 18:49:06 +0000

Velin:

Цитата

такой-то такой-то серийный номер устройства.

Не устройства, а логического диска. Из кода лекго понять, что это серийный номер диска C.

Прямой доступ к диску

Zhenya — Fri, 17 Mar 2006 17:15:00 +0000

Zhenya: Основные недостатки:
ALXR, в твоем коде вылазит месаг бокс и пишет что мол такой-то такой-то серийный номер устройства... Так какого устройства? Если жесткача, то какого? если их ДВА в системе и где второй серийник?

:offtop:

Velin!!!
ALXR!!!
Развели тут спор! для чего вам приват?! спорьте там :angry:

Добавлено 17.03.06, 17:19
Опять форум глючит <_<

Прямой доступ к диску

Velin — Fri, 17 Mar 2006 11:01:49 +0000

Velin: 2SCINER: У тебя объявления NtCreateFile есть? Где ты ее будеш использовать?
2ALXR:Тогда дай свой, если не найден. А что противоречит - ты в своем коде читаеш header логического диска, видиш там серийный номер. Так? А потом вдруг утверждаеш, что серийный номер хранится в MBR :blink:

Прямой доступ к диску

ALXR — Fri, 17 Mar 2006 09:16:43 +0000

ALXR:

Цитата Velin @ 17.03.06, 09:07

Цитата

увы и ах, но это все-таки MBR.

Говорить это не черное а белое это конечно весьма аргументированно.

Цитата

В этом вопросе, по-видимому, Вы не очень компетенты

Кажеться, я где то уже описывал свойство некоторых людей выдавать свое невежество за невежество других.

1. Я считаю, что выше приведенный мною код вполне аргументирует мое высказывание. Сделайте резервную копию MBR с помощью какой-либо программы по работе с жесткими дисками и сравните полученные данные.
2. "Стрелки переводить" - не хорошо. В последнем Вашем сообщении не вижу ничего, что противоречит предыдущему моему сообщению, однако Вы продолжаете "гнуть" свое. Чье же здесь невежество?

Кстати, номер <203-529-473> не найден. Я бы хотел пообщаться с Вами в icq.

Прямой доступ к диску

Velin — Fri, 17 Mar 2006 09:07:20 +0000

Velin:

Цитата

увы и ах, но это все-таки MBR.

Говорить это не черное а белое это конечно весьма аргументированно.

Цитата

В этом вопросе, по-видимому, Вы не очень компетенты

Кажеться, я где то уже описывал свойство некоторых людей выдавать свое невежество за невежество других.
------
2SCINER, я не знаю, какие прототипы у Zw-функций в um(вероятно, такие же), но в km прототип такой:

NTSTATUS

ZwCreateFile(

OUT PHANDLE FileHandle,

IN ACCESS_MASK DesiredAccess,

IN POBJECT_ATTRIBUTES ObjectAttributes,

OUT PIO_STATUS_BLOCK IoStatusBlock,

IN PLARGE_INTEGER AllocationSize OPTIONAL,

IN ULONG FileAttributes,

IN ULONG ShareAccess,

IN ULONG CreateDisposition,

IN ULONG CreateOptions,

IN PVOID EaBuffer OPTIONAL,

IN ULONG EaLength

);

NTSTATUS

ZwOpenFile(

OUT PHANDLE FileHandle,

IN ACCESS_MASK DesiredAccess,

IN POBJECT_ATTRIBUTES ObjectAttributes,

OUT PIO_STATUS_BLOCK IoStatusBlock,

IN ULONG ShareAccess,

IN ULONG OpenOptions

);

Прямой доступ к диску

ALXR — Fri, 17 Mar 2006 08:42:19 +0000

ALXR:

Цитата SCINER @ 17.03.06, 05:56

Цитата Velin @ 16.03.06, 18:56

Хм.А что помогать? Прототипы функций у тебя есть? Описания? Ну вообще, если хочеш, давай в асю<203-529-473>, поболтаем.

Нет к сожалению у меня нет ни деклараций функций, ни типов. Т.е. по работе с файлами через Zw функйии вообще ничего нет.

2 ALXR У меня твой код показывает серийник 0000 - 0100 - это явно не серийник =(

Ах, ну да, забыл дополнить. Этот адрес ФС-зависимый. На дисках с FAT32 у меня возвращается верный серийный номер, а на NTFS то же самое 0000 - 0100. В NTFS он лежит по адресу 48h.

Вот, работающий на NTFS код:

Option Explicit

Private Const OPEN_EXISTING = 3

Private Const FILE_SHARE_READ = &H1

Private Const FILE_SHARE_WRITE = &H2

Private Const GENERIC_READ = &H80000000

Private Const GENERIC_WRITE = &H40000000

Private Type OVERLAPPED

Internal As Long

InternalHigh As Long

offset As Long

OffsetHigh As Long

hEvent As Long

End Type

Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long

Private Sub Form_Load()

Dim MBR() As Byte

Dim OV As OVERLAPPED

Dim br As Long

Dim hDrive As Long, s As String, serial As String

ReDim MBR(0 To 511)

hDrive = CreateFile("\.\C:", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

Call SetFilePointer(hDrive, 0, 0, 0)

Call ReadFile(hDrive, MBR(0), 512, br, OV)

Call CloseHandle(hDrive)

s = StrConv(MBR, vbUnicode)

serial = Mid(s, 73, 4)

MsgBox "Серийный номер устройства: " & ClipHex(Mid(serial, 4, 1)) & ClipHex(Mid(serial, 3, 1)) & _

" - " & _

ClipHex(Mid(serial, 2, 1)) & ClipHex(Mid(serial, 1, 1))

End

End Sub

Function ClipHex(ByVal s As String) As String

If s <> "" Then ClipHex = Right("00" & Hex(Asc(Left(s, 1))), 2)

End Function

2Velin:
а) то что хранится у скинера в переменной MBR это никакая не MBR(он сам это сказал) - увы и ах, но это все-таки MBR. В этом вопросе, по-видимому, Вы не очень компетенты и поэтому воздержитесь от резких высказываний.
б) И как следствие, приведенное вами "доказательство" наличия в MBR серийного номера не верно - доказательство (без кавычек!) выше.

Прямой доступ к диску

SCINER — Fri, 17 Mar 2006 05:56:22 +0000

SCINER:

Цитата Velin @ 16.03.06, 18:56

Прямой доступ к диску

Velin — Fri, 17 Mar 2006 05:39:54 +0000

Velin:

Цитата

PS: Уважаемый Velin, прошу впредь высказываться в темах менее категорично

Уважаемый ALXR прошу Вас впредь читать содержимое топика. Это отсеит многие вопросы. Тогда вам станет понятно, что
а) то что хранится у скинера в переменной MBR это никакая не MBR(он сам это сказал)
б) И как следствие, приведенное вами "доказательство" наличия в MBR серийного номера не верно :)

Цитата

Уважаемый Velin, не стоит так скептически относится ко всему сказанному на форуме

А я и не отношусь. Рекомендую Вам брать пример, скажем с Васи, он хоть и модератор, не считает для себя почему-то оскорбительным, если его поправят. И даже признает, если вдруг нечянно ошибется(привести линк?). А вы почему-то начинаете возмущаться, что вас обижают. Лучше бы доказали, что правы.

Прямой доступ к диску

ALXR — Thu, 16 Mar 2006 21:51:55 +0000

ALXR:

Цитата Velin @ 16.03.06, 20:37

Цитата

См. документацию по MBR.

Сколь это не прикольно, но в данной ситуации эта стандартная фраза звучит довольно комично. Ибо вся документация по MBR заключается в этом обрывке:

typedef struct tagMBR {

char res[444];

PARTITION partno[4];

DWORD signature;

}MBR;

И где, тут серийный номер?

Уважаемый Velin, не стоит так скептически относится ко всему сказанному на форуме. Если Вам не удается найти нужные данные, то это не значит, что их там нет. Следующие операции вполне дают исчерпывающую информацию:

C:\>LABEL C:

Том в устройстве C: имеет метку LABEL

Серийный номер тома: X1X2-X3X4

Метка тома (11 символов, ENTER - метка не нужна):

Удалить текущую метку тома [Y(да)/N(нет)]? n

Далее, в данных, возвращаемых с помощью процедуры SCINER'а из первого сообщения, можно найти байты X4, X3, X2, X1 (обращаю внимание, что они идут В ОБРАТНОМ ПОРЯДКЕ, как это обычно принято) по смещению 43h.

Следующий код выводит серийный номер тома:

Option Explicit

Private Const OPEN_EXISTING = 3

Private Const FILE_SHARE_READ = &H1

Private Const FILE_SHARE_WRITE = &H2

Private Const GENERIC_READ = &H80000000

Private Const GENERIC_WRITE = &H40000000

Private Type OVERLAPPED

Internal As Long

InternalHigh As Long

offset As Long

OffsetHigh As Long

hEvent As Long

End Type

Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long

Private Sub Form_Load()

Dim MBR() As Byte

Dim OV As OVERLAPPED

Dim br As Long

Dim hDrive As Long, s As String, serial As String

ReDim MBR(0 To 511)

'hDrive = CreateFile("\.\PHYSICALDRIVE0", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

hDrive = CreateFile("\.\C:", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

Call SetFilePointer(hDrive, 0, 0, 0)

Call ReadFile(hDrive, MBR(0), 512, br, OV)

Call CloseHandle(hDrive)

s = StrConv(MBR, vbUnicode)

serial = Mid(s, 68, 4)

MsgBox "Серийный номер устройства: " & ClipHex(Mid(serial, 4, 1)) & ClipHex(Mid(serial, 3, 1)) & _

" - " & _

ClipHex(Mid(serial, 2, 1)) & ClipHex(Mid(serial, 1, 1))

End

End Sub

Function ClipHex(ByVal s As String) As String

If s <> "" Then ClipHex = Right("00" & Hex(Asc(Left(s, 1))), 2)

End Function

PS: Уважаемый Velin, прошу впредь высказываться в темах менее категорично. Это оскорбляет. Спасибо за внимание.

Прямой доступ к диску

Velin — Thu, 16 Mar 2006 20:37:12 +0000

Velin:

Цитата

См. документацию по MBR.

typedef struct tagMBR {

char res[444];

PARTITION partno[4];

DWORD signature;

}MBR;

И где, тут серийный номер?

Прямой доступ к диску

ALXR — Thu, 16 Mar 2006 20:24:56 +0000

ALXR:

Цитата Zhenya @ 16.03.06, 16:38

Цитата ALXR @ 16.03.06, 14:29

Это не муть, это и есть MBR.

Какая МВR? Я про серийник - там пусто!

Серийный номер тома в байтах, а не в виде человеко-понятных символов. См. документацию по MBR. ;)

Прямой доступ к диску

Velin — Thu, 16 Mar 2006 18:56:48 +0000

Velin: Хм.А что помогать? Прототипы функций у тебя есть? Описания? Ну вообще, если хочеш, давай в асю<203-529-473>, поболтаем.

Прямой доступ к диску

SCINER — Thu, 16 Mar 2006 16:57:16 +0000

SCINER:

Цитата ALXR @ 16.03.06, 14:29

Цитата Zhenya @ 16.03.06, 12:27

Цитата SCINER @ 16.03.06, 09:05

Читает ли этот код серийник диска ?

Вот, выдает какую-то муть (xp sp2)
в системе ДВА жестких - матер и слэйв.

Это не муть, это и есть MBR.
2SCINER: Картинки не грузяццо. :no:

На работе у меня грузились.
Сейчас вот дома смотрю, тоже грузятся.
Скорее всего это что-то у тебя.

Ну так что, кто нить может помочь с ZwOpenFile ZwCreateFile на VB ?

Прямой доступ к диску

Zhenya — Thu, 16 Mar 2006 16:38:48 +0000

Zhenya:

Цитата ALXR @ 16.03.06, 14:29

Это не муть, это и есть MBR.

Какая МВR? Я про серийник - там пусто!

Прямой доступ к диску

ALXR — Thu, 16 Mar 2006 14:29:56 +0000

ALXR:

Цитата Zhenya @ 16.03.06, 12:27

Цитата SCINER @ 16.03.06, 09:05

Читает ли этот код серийник диска ?

Вот, выдает какую-то муть (xp sp2)
в системе ДВА жестких - матер и слэйв.

Это не муть, это и есть MBR.
2SCINER: Картинки не грузяццо. :no:

Прямой доступ к диску

SCINER — Thu, 16 Mar 2006 13:49:37 +0000

SCINER: у кого нить есть пример использования функций ZwCreateFile или ZwOpenFile

Прямой доступ к диску

SCINER — Thu, 16 Mar 2006 13:48:04 +0000

SCINER: а вот что у меня.
почти то-же самое...

Прямой доступ к диску

Zhenya — Thu, 16 Mar 2006 12:27:34 +0000

Zhenya:

Цитата SCINER @ 16.03.06, 09:05

Читает ли этот код серийник диска ?

Вот, выдает какую-то муть (xp sp2)
в системе ДВА жестких - матер и слэйв.

Прямой доступ к диску

SCINER — Thu, 16 Mar 2006 11:57:05 +0000

SCINER:

Цитата Velin @ 16.03.06, 10:39

Найти то можно, но для этого придется учитывать особенности каждой файловой системы.
А вот скрыть. Это как? написать файл в пустое место?
И еще, по твоему в массиве MBR() хранится MBR диска, или почему ту его так назвал?

Да просто я сначала MBR туда писал, потом так и осталось название

Прямой доступ к диску

Velin — Thu, 16 Mar 2006 10:39:24 +0000

Velin: Найти то можно, но для этого придется учитывать особенности каждой файловой системы.
А вот скрыть. Это как? написать файл в пустое место?
И еще, по твоему в массиве MBR() хранится MBR диска, или почему ту его так назвал?

Прямой доступ к диску

SCINER — Thu, 16 Mar 2006 09:05:17 +0000

SCINER: Читает ли этот код серийник диска ?

Прямой доступ к диску

SCINER — Wed, 15 Mar 2006 22:02:59 +0000

SCINER: Набросал функцию.
ВОпросик, можно ли таким методом найти и скрыть файл с диска ???
Найти, т.е. по имени, но не функциями FindFirst ...

Option Explicit

Private Const OPEN_EXISTING = 3

Private Const FILE_SHARE_READ = &H1

Private Const FILE_SHARE_WRITE = &H2

Private Const GENERIC_READ = &H80000000

Private Const GENERIC_WRITE = &H40000000

Private Type OVERLAPPED

Internal As Long

InternalHigh As Long

offset As Long

OffsetHigh As Long

hEvent As Long

End Type

Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long

Private Sub Form_Load()

Dim MBR() As Byte

Dim OV As OVERLAPPED

Dim br As Long

Dim hDrive As Long

ReDim MBR(0 To 511)

'hDrive = CreateFile("\.\PHYSICALDRIVE0", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

hDrive = CreateFile("\.\C:", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

Caption = Err.LastDllError

Call SetFilePointer(hDrive, 0, 0, 0)

Call ReadFile(hDrive, MBR(0), 512, br, OV)

Call CloseHandle(hDrive)

Text1.Text = Replace(StrConv(MBR, vbUnicode), vbNullChar, "+")

End Sub