Как получить серийный номер тома жесткого диска?
21 авг 2001 (вторник), 10:03:09
Как получить серийный номер тома жесткого диска?
Procedure TForm1.Button1Click(SEnder: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,
FileSystemFlags : Integer;
Begin
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
Memo1.Lines.Add('VName = '+VolumeName);
Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
Memo1.Lines.Add('FSName = '+FileSystemName);
End;
Как изменить серийный номер диска?
Серийный номер записан в загрузочном секторе. Для FAT дисков - это 4 байта начинающиеся со смещения 0x27; для NTFS дисков - это 8 байт, начинающихся со смещения 0x48. Для изменения, т.е. в качестве редактора, вполне подойдет Diskprobe из Resource Kit.
Код:
Совет 215. Как прочитать серийный номер диска
Новая библиотека Microsoft Scripting Runtime содержит иерархию FileSystemObject, состоящую из нескольких объектов, которые позволяют получать информацию о дисках, папках и файлах. Например, вы можете получить серийный номер диска с помощью такого кода:
Листинг 1.
' получаем серийный номер диска c:
Dim fso As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
' получаем ссылку к объекту Drive
Set dr = fso.GetDrive("c")
Print Hex$(dr.SerialNumber)
А используя свойство FreeSpace объекта Drive можно также проверить, достаточно ли у вас свободного места на диске:
Листинг 2.
Print "На диске C есть " & dr.FreeSpace & " свободных байт"
Более подробно об этом можно прочитать в Справке VB в разделах Dictionary и FileSystemObject.
Последний раз редактировалось TAMBIK, 30.05.2009 в 00:42.
да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой
да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой
защита от Хинра. сборка серва скорее всего л2гвард хеллбаунд. в папке систем присутствует файл fire.dll. есть торговый бот. угадал?
хм... не угадал... а длл все равно поищи
ну вообщето это сервер грации,, и я чтото неочень въехал в твои слова,, Fire.dll насколько я припоминаю во всех клиентах есть, и шока, и здесь и везде...
в нем функция зашиты организована ты хочешь сказать?, или причем здесь она вообще...
Цитата:
Сообщение от mks
да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой
и как это интересно можно организовать?
только начнем с того, что я(мы) абсолютно незнаем что надо отлавливать, потому что может передоваться любое значение. Это может быть Серийный номер винта типа 3HS4YCH0, может быть название винта типа Western Digital ... , да и вообще все что угодно....
ps Проверено нащет меток томов (GetVolumeInf) - сменил на всех дисках...., ясное дело что непомогло..(
зы кстати, модель, серийный номер, название винта и т.д. насколько я понял поменять программно невозможно,, поэтому вариант с заменой отпадает. Остается отлавливать и уже в линейке менять это значение...
Последний раз редактировалось DarkRanger, 01.06.2009 в 05:37.
В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум
Я просто на пакетном уровне вообще никогда с линягой несвязывался,, но счас буду пробывать.. неможешь в кратце в одно предложение хотя бы подсказать чем ловить ? Снифером какимнибудь,, или L2PacketHack.. ? просто подскажи, с какой стороны подойди к этому отлову, ато никогда незанимался,, а дальше я сам разбираться буду...
В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум
Проблема в том что бан и отсеивание забаненных происходит еще на логин сервере. Может я не прав и давно не смотрел новые версии, но Л2ПХ вроде не обрабатывает пакеты ЛС и налету их менять не умеет. Сам тоже о подобном подумывал, но так руки и не дошли. Хотел чтоб бот трейдер заходил на серв как клиент.
Проблема в том что бан и отсеивание забаненных происходит еще на логин сервере. Может я не прав и давно не смотрел новые версии, но Л2ПХ вроде не обрабатывает пакеты ЛС и налету их менять не умеет. Сам тоже о подобном подумывал, но так руки и не дошли. Хотел чтоб бот трейдер заходил на серв как клиент.
По объяснению афтора я понял что именно тот пакет, надо смореть, даже если не он,.... там не так много пакетов идет
Добавлено через 7 минут
Цитата:
Сообщение от DarkRanger
Я просто на пакетном уровне вообще никогда с линягой несвязывался,, но счас буду пробывать.. неможешь в кратце в одно предложение хотя бы подсказать чем ловить ? Снифером какимнибудь,, или L2PacketHack.. ? просто подскажи, с какой стороны подойди к этому отлову, ато никогда незанимался,, а дальше я сам разбираться буду...
а да..., интересно а какие еще уровни есть)
Последний раз редактировалось mks, 05.06.2009 в 12:59.
Причина: Добавлено сообщение