線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1854
推到 Plurk!
推到 Facebook!

有關網路卡卡號一問

 
enja
一般會員


發表:4
回覆:3
積分:1
註冊:2002-04-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-05-31 15:00:41 IP:211.72.xxx.xxx 未訂閱
請問一下,我在server 上寫一支程式,功能在抓取使用者登入server 後,抓取使用者的網路卡卡號,因功力不足,不知要如何的下手,我有在網路上或本站找尋過一些相關元件或範例,但這些功能都只能抓取本地端的網路卡卡號,不知可否請各位高手提供一些範例或一些解決的方法,謝謝
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-06-01 23:07:20 IP:192.168.xxx.xxx 未訂閱
引言: 請問一下,我在server 上寫一支程式,功能在抓取使用者登入server 後,抓取使用者的網路卡卡號,因功力不足,不知要如何的下手,我有在網路上或本站找尋過一些相關元件或範例,但這些功能都只能抓取本地端的網路卡卡號,不知可否請各位高手提供一些範例或一些解決的方法,謝謝
可否請問您的用途?是要寫程式保護嗎? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
demon1042001
一般會員


發表:14
回覆:19
積分:6
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-06-12 19:18:23 IP:61.59.xxx.xxx 未訂閱
引言:
引言: 請問一下,我在server 上寫一支程式,功能在抓取使用者登入server 後,抓取使用者的網路卡卡號,因功力不足,不知要如何的下手,我有在網路上或本站找尋過一些相關元件或範例,但這些功能都只能抓取本地端的網路卡卡號,不知可否請各位高手提供一些範例或一些解決的方法,謝謝
可否請問您的用途?是要寫程式保護嗎? ~~~Delphi K.Top討論區站長~~~
use winsock function TfrmMain.GetMacFromIP(IP : String): String; var DestIP, SrcIP: IPAddr; pMacAddr: PULong; AddrLen: ULong; MacAddr: array[0..5] of byte; p: PByte; s: string; i: integer; begin SrcIp := 0; s := ''; DestIP := inet_addr(PChar(IP)); pMacAddr := @MacAddr[0]; AddrLen := SizeOf(MacAddr); try VVSendARP(DestIP, SrcIP, pMacAddr, AddrLen); p := PByte(pMacAddr); if Assigned(p) and (AddrLen>0) then for i := 0 to AddrLen-1 do begin s := s IntToHex(p^,2) '-'; Inc(p); end; SetLength(s, length(s)-1); Result := s; except Result := ''; end end;
fangback
初階會員


發表:4
回覆:47
積分:40
註冊:2002-06-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-06-15 00:54:03 IP:202.145.xxx.xxx 未訂閱
轉貼Arvin 的文章 link netapi32.lib #include CString sMAC; NCB Ncb; memset(&Ncb, 0, sizeof(Ncb)); Ncb.ncb_command = NCBRESET; Ncb.ncb_lana_num = 0; if (Netbios(&Ncb) != NRC_GOODRET) { /*error message*/ } memset(&Ncb, 0, sizeof(Ncb)); Ncb.ncb_command = NCBASTAT; Ncb.ncb_lana_num = 0; strcpy((char *) Ncb.ncb_callname, "*"); struct ASTAT { ADAPTER_STATUS adapt; NAME_BUFFER NameBuff[30]; } Adapter; memset(&Adapter, 0, sizeof(Adapter)); Ncb.ncb_buffer = (unsigned char *)&Adapter; Ncb.ncb_length = sizeof(Adapter); if (Netbios(&Ncb) == 0) { char acMAC[18]; sprintf(acMAC, "X:X:X:X:X:X", int (Adapter.adapt.adapter_address[0]), int (Adapter.adapt.adapter_address[1]), int (Adapter.adapt.adapter_address[2]), int (Adapter.adapt.adapter_address[3]), int (Adapter.adapt.adapter_address[4]), int (Adapter.adapt.adapter_address[5])); sMAC = acMAC; m_static3.Format("Mac Address: %s", acMAC); UpdateData(FALSE); } else { /*error message */ } 用C寫的看看是否合你用.....
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-06-20 15:35:00 IP:61.231.xxx.xxx 未訂閱
引言: 轉貼Arvin 的文章 link netapi32.lib #include CString sMAC; NCB Ncb; memset(&Ncb, 0, sizeof(Ncb)); Ncb.ncb_command = NCBRESET; Ncb.ncb_lana_num = 0; if (Netbios(&Ncb) != NRC_GOODRET) { /*error message*/ } memset(&Ncb, 0, sizeof(Ncb)); Ncb.ncb_command = NCBASTAT; Ncb.ncb_lana_num = 0; strcpy((char *) Ncb.ncb_callname, "*"); struct ASTAT { ADAPTER_STATUS adapt; NAME_BUFFER NameBuff[30]; } Adapter; memset(&Adapter, 0, sizeof(Adapter)); Ncb.ncb_buffer = (unsigned char *)&Adapter; Ncb.ncb_length = sizeof(Adapter); if (Netbios(&Ncb) == 0) { char acMAC[18]; sprintf(acMAC, "X:X:X:X:X:X", int (Adapter.adapt.adapter_address[0]), int (Adapter.adapt.adapter_address[1]), int (Adapter.adapt.adapter_address[2]), int (Adapter.adapt.adapter_address[3]), int (Adapter.adapt.adapter_address[4]), int (Adapter.adapt.adapter_address[5])); sMAC = acMAC; m_static3.Format("Mac Address: %s", acMAC); UpdateData(FALSE); } else { /*error message */ } 用C寫的看看是否合你用.....
我用 BCB 試的結果是不行,不知為何 Netbios(&Ncb) 的回傳值都是 0x23,查一下 nb30.h 該值表示 Ncb.ncb_lana_num 的數值有問題,但我試過給 1,2 也都不行,同樣都回傳 0x23。 我的系統是 筆記型電腦、Win2000SP2 中文版。
------
http://www.ViewMove.com
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-07-02 02:18:20 IP:61.70.xxx.xxx 未訂閱
1 可以查asp語法來偵測 2 (先決定user是如何偵測port如137.138.139.此三個為網路芳鄰的通訊port) 80.port 21.port先要知道如何進來再偵測(過慮封包取MAC值) 4 如果是自己的user端程式 只須要讓他傳本機位置就比較簡單如登入檔或使用元件寫api指令取值回傳即可
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
系統時間:2024-04-17 4:02:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!