Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 30.05.2009, 00:31   #11
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
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.

Последний раз редактировалось TAMBIK, 30.05.2009 в 00:42.
TAMBIK вне форума   Ответить с цитированием
Старый 30.05.2009, 15:06   #12
Новичок
 
Аватар для Ptica
 
Регистрация: 11.02.2008
Сообщений: 24
Сказал Спасибо: 8
Имеет 11 спасибок в 5 сообщенях
Ptica
По умолчанию

GetVolumeInformation() это имхо детский лепет, во вложении способ интереснее
Вложения
Тип файла: zip DiskId32.zip (30.5 Кб, 40 просмотров)
__________________
Пустынен мир, и нет конца пустыне,
и рай закрыт, и ни души в аду.

Октавио Пас "Оборванная элегия"
Ptica вне форума   Ответить с цитированием
Старый 30.05.2009, 20:44   #13
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой
mks вне форума   Ответить с цитированием
Старый 30.05.2009, 20:58   #14
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от mks Посмотреть сообщение
да че вы зациклились на замене серийника винта, полагаю проще накатать скриптик отлавливающий передачу серийника и производящий его подмену, к тому же зная таковой
точно так и надо
TAMBIK вне форума   Ответить с цитированием
Старый 01.06.2009, 05:28   #15
Пользователь
 
Регистрация: 28.05.2009
Сообщений: 32
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
DarkRanger пока неопределено
По умолчанию

Цитата:
Сообщение от Murdoc Посмотреть сообщение
защита от Хинра. сборка серва скорее всего л2гвард хеллбаунд. в папке систем присутствует файл fire.dll. есть торговый бот. угадал?
хм... не угадал... а длл все равно поищи
ну вообщето это сервер грации,, и я чтото неочень въехал в твои слова,, Fire.dll насколько я припоминаю во всех клиентах есть, и шока, и здесь и везде...
в нем функция зашиты организована ты хочешь сказать?, или причем здесь она вообще...

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

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

Последний раз редактировалось DarkRanger, 01.06.2009 в 05:37.
DarkRanger вне форума   Ответить с цитированием
Старый 01.06.2009, 13:55   #16
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум
mks вне форума   Ответить с цитированием
Старый 01.06.2009, 21:23   #17
Пользователь
 
Регистрация: 28.05.2009
Сообщений: 32
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
DarkRanger пока неопределено
По умолчанию

Цитата:
Сообщение от mks Посмотреть сообщение
В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум
Я просто на пакетном уровне вообще никогда с линягой несвязывался,, но счас буду пробывать.. неможешь в кратце в одно предложение хотя бы подсказать чем ловить ? Снифером какимнибудь,, или L2PacketHack.. ? просто подскажи, с какой стороны подойди к этому отлову, ато никогда незанимался,, а дальше я сам разбираться буду...
DarkRanger вне форума   Ответить с цитированием
Старый 05.06.2009, 12:46   #18
Заблокирован
 
Регистрация: 01.10.2007
Сообщений: 76
Сказал Спасибо: 22
Имеет 7 спасибок в 7 сообщенях
Murdoc
По умолчанию

Цитата:
Сообщение от mks Посмотреть сообщение
В чем проблема? Покликай по серверу куда не пускает, отлови пакет от клиента, и разбирай его, работы на 10мин максимум
Проблема в том что бан и отсеивание забаненных происходит еще на логин сервере. Может я не прав и давно не смотрел новые версии, но Л2ПХ вроде не обрабатывает пакеты ЛС и налету их менять не умеет. Сам тоже о подобном подумывал, но так руки и не дошли. Хотел чтоб бот трейдер заходил на серв как клиент.
Murdoc вне форума   Ответить с цитированием
Старый 05.06.2009, 12:59   #19
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

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

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

Последний раз редактировалось mks, 05.06.2009 в 12:59. Причина: Добавлено сообщение
mks вне форума   Ответить с цитированием
Старый 05.06.2009, 13:27   #20
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

mks, уровень железа например, но я бы на этом уровне с линягой работать не рискнул)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:26.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!