Привязка к железу - Делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Привязка к железу - Делфи - 2008-06-08 17:47:35.090000
|
|
|
MaxiHacker
Сообщений: 19
Оценки: 0
Присоединился: 2008-05-31 16:27:56.006666
|
Научите делать привязку к железу на Делфи. Например к IP компа, гу или любой другой неизменяемой функции
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:21:33
|
|
|
Antiavatar
Сообщений: 57
Оценки: 0
Присоединился: 2008-01-30 23:13:02.576666
|
quote:
ORIGINAL: MaxiHacker
Научите делать привязку к железу на Делфи. Например к IP компа, гу или любой другой неизменяемой функции
Я что то немного не понял, какая связь между IP и железом?
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:35:14.433333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Чувак слышал звон,да….кароч ты сначала определись что за "привязка" и к какому "железу". Потом надо откопать функцию Дельфи которая это "нечто" узнает.потом надо это нечто шифровать и проверять….В общем,переформулируй по русски вопрос,ибо чтение мыслей по их следам в посте - не есть хорошо)).Да и не надо это тебе….
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:41:19.413333
|
|
|
MaxiHacker
Сообщений: 19
Оценки: 0
Присоединился: 2008-05-31 16:27:56.006666
|
Ладно мозги парить не буду, просто к любому железу.
Чтобы на каждом компе это значение было уникально!!!!
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:52:38.513333
|
|
|
Antiavatar
Сообщений: 57
Оценки: 0
Присоединился: 2008-01-30 23:13:02.576666
|
MaxiHacker. Ты меня с каждый разом все больше пугаеш и удивляеш. О_О
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:56:04.706666
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Почти все о железе можно прочитать из регистра по HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\
{
The SYSTEM_INFO structure contains information about the current computer
system. This includes the architecture and type of the processor, the number of
processors in the system, the page size, and other such information.
}
procedure TForm1.Button1Click(Sender: TObject);
var
SysInfo: TSystemInfo;
begin
GetSystemInfo(SysInfo);
with ListBox1.Items, SysInfo do
begin
Add('ProcessorArchitecture:' + IntToStr(wProcessorArchitecture));
Add(FloatToStr(dwPageSize) + ' Kb page size');
Add(Format('Lowest memory address accessible to applications and DLL - %p',
[lpMinimumApplicationAddress]));
Add(Format('Highest memory address accessible to applications and DLL - %p',
[lpMaximumApplicationAddress]));
Add('OEMID:' + IntToStr(dwOemId));
Add('ActiveProcessorMask:' + IntToStr(dwActiveProcessorMask));
Add(IntToStr(dwNumberOfProcessors) + ' - number of processors');
Add('ProcessorType:' + IntToStr(dwProcessorType));
case wProcessorLevel of
3: Add('Intel 80386 processor level');
4: Add('Intel 80486 processor level');
5: Add('Intel Pentium processor level');
end;
Add(FloatToStr(dwAllocationGranularity / 1024) +
' Kb - granularity with which virtual memory is allocated');
Add('ProcessorRevision:' + IntToStr(wProcessorRevision));
end;
end;
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:57:00.536666
|
|
|
MaxiHacker
Сообщений: 19
Оценки: 0
Присоединился: 2008-05-31 16:27:56.006666
|
FLIER
Теперь буду разбераться!!!
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:57:38.163333
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Взято с "Кулибы"
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 20:59:16.090000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Насчёт IP даже не думай…нужно доставать уникальный номерки материнки..видяхи и проца
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 21:02:14.203333
|
|
|
MaxiHacker
Сообщений: 19
Оценки: 0
Присоединился: 2008-05-31 16:27:56.006666
|
А что из того что ты мне дал уникально на каждом компе???
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-08 22:50:00.050000
|
|
|
VENOM4X
Сообщений: 246
Оценки: 0
Присоединился: 2008-02-18 22:49:08.960000
|
А гугл тебе не в помощь?
Вот - возвращает MAC сетевухи, правда его можно поменять, но не все знают как. :-)
function GetMAC: string;
var
NCB: PNCB;
Adapter: PAdapterStatus;
URetCode: PChar;
RetCode: char;
I: integer;
Lenum: PlanaEnum;
_SystemID: string;
TMPSTR: string;
begin
Result := '';
_SystemID := '';
Getmem(NCB, SizeOf(TNCB));
Fillchar(NCB^, SizeOf(TNCB), 0);
Getmem(Lenum, SizeOf(TLanaEnum));
Fillchar(Lenum^, SizeOf(TLanaEnum), 0);
Getmem(Adapter, SizeOf(TAdapterStatus));
Fillchar(Adapter^, SizeOf(TAdapterStatus), 0);
Lenum.Length := chr(0);
NCB.ncb_command := chr(NCBENUM);
NCB.ncb_buffer := Pointer(Lenum);
NCB.ncb_length := SizeOf(Lenum);
RetCode := Netbios(NCB);
i := 0;
repeat
Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBRESET);
Ncb.ncb_lana_num := lenum.lana;
RetCode := Netbios(Ncb);
Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBASTAT);
Ncb.ncb_lana_num := lenum.lana;
// Must be 16
Ncb.ncb_callname := '* ';
Ncb.ncb_buffer := Pointer(Adapter);
Ncb.ncb_length := SizeOf(TAdapterStatus);
RetCode := Netbios(Ncb);
//—- calc _systemId from mac-address[2-5] XOR mac-address[1]…
if (RetCode = chr(0)) or (RetCode = chr(6)) then
begin
_SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[5]), 2);
end;
Inc(i);
until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
FreeMem(NCB);
FreeMem(Adapter);
FreeMem(Lenum);
GetMac := _SystemID;
end;
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-09 09:51:53.806666
|
|
|
Flint_ta
Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
|
Все равно отломаем :) Если будет пользоваться спросом
|
|
|
|
|
RE: Привязка к железу - Делфи - 2008-06-09 13:12:30.100000
|
|
|
VENOM4X
Сообщений: 246
Оценки: 0
Присоединился: 2008-02-18 22:49:08.960000
|
Да, это точно :-) Но если ориентировать на америкосов, то они может и купят.
Хотя, былоб что-то стоящее - чел бы не задвал таких вопросв.
|
|
|
|
|
|
