Сервер банит не по ip, а по Винчестеру!?!?

[TAMBIK]

наткнулся в инете.

Как получить серийный номер тома жесткого диска?

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.

[Ptica]

GetVolumeInformation() это имхо детский лепет, во вложении способ интереснее

[mks]

да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой

[TAMBIK]

Сообщение от mks

да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой

точно так и надо

[DarkRanger]

Сообщение от Murdoc

защита от Хинра. сборка серва скорее всего л2гвард хеллбаунд. в папке систем присутствует файл fire.dll. есть торговый бот. угадал?
хм... не угадал... а длл все равно поищи

ну вообщето это сервер грации,, и я чтото неочень въехал в твои слова,, Fire.dll насколько я припоминаю во всех клиентах есть, и шока, и здесь и везде...
в нем функция зашиты организована ты хочешь сказать?, или причем здесь она вообще...

Сообщение от mks

да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой

и как это интересно можно организовать?
только начнем с того, что я(мы) абсолютно незнаем что надо отлавливать, потому что может передоваться любое значение. Это может быть Серийный номер винта типа 3HS4YCH0, может быть название винта типа Western Digital ... , да и вообще все что угодно....
ps Проверено нащет меток томов (GetVolumeInf) - сменил на всех дисках...., ясное дело что непомогло..(

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

[mks]

В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум

[DarkRanger]

Сообщение от mks

В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум

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

[Murdoc]

Сообщение от mks

В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум

Проблема в том что бан и отсеивание забаненных происходит еще на логин сервере. Может я не прав и давно не смотрел новые версии, но Л2ПХ вроде не обрабатывает пакеты ЛС и налету их менять не умеет. Сам тоже о подобном подумывал, но так руки и не дошли. Хотел чтоб бот трейдер заходил на серв как клиент.

[mks]

Сообщение от Murdoc

Проблема в том что бан и отсеивание забаненных происходит еще на логин сервере. Может я не прав и давно не смотрел новые версии, но Л2ПХ вроде не обрабатывает пакеты ЛС и налету их менять не умеет. Сам тоже о подобном подумывал, но так руки и не дошли. Хотел чтоб бот трейдер заходил на серв как клиент.

По объяснению афтора я понял что именно тот пакет, надо смореть, даже если не он,.... там не так много пакетов идет

Добавлено через 7 минут

Сообщение от DarkRanger

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

а да..., интересно а какие еще уровни есть)

[xkor]

mks, уровень железа например, но я бы на этом уровне с линягой работать не рискнул)