Dari PSC:
Public Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const HEAP_ZERO_MEMORY As Long = &H8
Public Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Public Const NCBRESET As Long = &H32
Public Type NET_CONTROL_BLOCK
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte
ncb_event As Long
End Type
Public Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type
Public Type NAME_BUFFER
name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type
Public Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type
Public Declare Function Netbios Lib "netapi32.dll" _
(pncb As NET_CONTROL_BLOCK) As Byte
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(hpvDest As Any, ByVal _
hpvSource As Long, ByVal _
cbCopy As Long)
Public Declare Function GetProcessHeap Lib "kernel32" () As Long
Public Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long
Public Declare Function HeapFree Lib "kernel32" _
(ByVal hHeap As Long, _
ByVal dwFlags As Long, _
lpMem As Any) As Long
Public Function GetMACAddress() As String
Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT
NCB.ncb_command = NCBRESET
Call Netbios(NCB)
NCB.ncb_callname = "* "
NCB.ncb_command = NCBASTAT
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)
pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
Or HEAP_ZERO_MEMORY, NCB.ncb_length)
If pASTAT = 0 Then
Debug.Print "memory allocation failed!"
Exit Function
End If
NCB.ncb_buffer = pASTAT
Call Netbios(NCB)
CopyMemory AST, NCB.ncb_buffer, Len(AST)
tmp = Format$(Hex(AST.adapt.adapter_address(0)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(1)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(2)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(3)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(4)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(5)), "00")
HeapFree GetProcessHeap(), 0, pASTAT
GetMACAddress = tmp
End Function
On 07/05/07, Bace - Bace <[EMAIL PROTECTED]> wrote:
>
> klu aku senangnya di milis, biar teman2 lain bisa baca, dan tau juga, jadi
> klu mereka butuh sourcecodenya dikemudian hari, tinggal baca di milis, jadi
> bisa berguna milis kita ini kan...
>
> Semoga membantu: =(oVo)=
> ====================
> BaceInside Publisher
> Copyright @2007
> Not for reproduced, republished.
> Thank You
> ====================
>
>
>
> ----- Original Message ----
> From: Toni Rahayu <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Friday, May 4, 2007 11:23:27 AM
> Subject: Re: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
>
>
> Heheheh sorry nih kurang ngerti, itu pertanyaan atau permintaan? :-)) ok!
> saya
> angap pertanyaan, cuma jawabannya panjang banget, jadi bagusnya via japri
> saja.
>
> Bace - Bace <[EMAIL PROTECTED] com> on 05/04/2007 05:40:05 AM
>
> Please respond to indoprog-vb@ yahoogroups. com
>
> To: indoprog-vb@ yahoogroups. com
> cc: (bcc: Toni Rahayu/IT/domino_ srv)
>
> Subject: Re: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
> oh serial itu ya...klu serial factory memang tetap.
> Pertanyaan selanjutnya: Gimana code program untuk mengambil serial factory
> nya?
>
> Semoga membantu: =(oVo)=
> ============ ========
> BaceInside Publisher
> Copyright @2007
> Not for reproduced, republished.
> Thank You
> ============ ========
>
> ----- Original Message ----
> From: Toni Rahayu <toni.rahayu@ gmail.com>
> To: indoprog-vb@ yahoogroups. com
> Sent: Friday, May 4, 2007 10:21:12 AM
> Subject: Re: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
> Halo Bace, sekedar sharing nih
> Mungkin yang kamu maksud dengan serial HD adalah serial yang digenerate
> oleh
> bios ketika dilakukan format, kalo serial HD yang saya maksud adalah
> factory
> serial yaitu serial yang dibikin dipabriknya HD, jadi serial itu sudah ada
> dan
> tidak akan berubah oleh format bahkan di low level ataupun di partisi.
>
> Salam
>
> Bace - Bace <[EMAIL PROTECTED] com> on 05/04/2007 03:16:34 AM
>
> Please respond to indoprog-vb@ yahoogroups. com
>
> To: indoprog-vb@ yahoogroups. com
> cc: (bcc: Toni Rahayu/IT/domino_ srv)
>
> Subject: Re: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
> sama tuh...aku juga biasanya pake serial number prosesor, mother board,
> serial
> hardisk tidak kupakai (krn riskan, krn hardisk sering rusak/sistem operasi
> sering rusak, pengguna kemudian memformat hardisknya, maka serial
> numbernya juga
> akan berbeda, lalu program tidak dapat berjalan).
>
> Pertanyaan nya: jika sekurity nya menggunakan serial number MAC, ntar klu
> komp
> tidak menggunakan kartu jaringan, atau kartu jaringan di non aktifkan
> (disabled)
> berarti program tidak berjalan dikomp tersebut?
>
> Semoga membantu: =(oVo)=
> ============ ========
> BaceInside Publisher
> Copyright @2007
> Not for reproduced, republished.
> Thank You
> ============ ========
>
> ----- Original Message ----
> From: Toni Rahayu <toni.rahayu@ gmail.com>
> To: indoprog-vb@ yahoogroups. com
> Sent: Friday, May 4, 2007 7:18:19 AM
> Subject: Re: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
> Oh gitu toh mas,
> Kalo gitu logikanya sama saja dengan kita bikin proteksi lewat serial HD
> atau
> Procesor, untuk itu saya bikinnya kaya gini :
> ketika program pertama dijalankan maka program akan munculin serial HD
> atau
> procesor tadi, nah tugas kita bikin program semacam key generator untuk
> membuat
> serial number pasangannya, ketika user men-entry serial number bikinan
> tadi maka
> serial tadi akan di encrypt kemudian disimpan di registry, cara kerja
> program
> tadi, setiap program dijalankan maka akan membandingkan serial HD atau
> procesor
> dengan serial di registry, kalo cocok maka program akan running sebagai
> Full
> Version tapi kalo tidak maka program di set sebagai Trial Version atau apa
> saja
> terserah.
> Cara user mendapatkan serial bisa lewat email atau sms, dan kita bisa
> kirim
> serial setelah ada kesepakatan tentunnya.
>
> Sorry saya gaptek about Mr MAC.
>
> "black_marlin_ code" <black_marlin_ [EMAIL PROTECTED] co.id> on 05/03/2007
> 06:40:27 PM
>
> Please respond to indoprog-vb@ yahoogroups. com
>
> To: indoprog-vb@ yahoogroups. com
> cc: (bcc: Toni Rahayu/IT/domino_ srv)
>
> Subject: [indoprog-vb] Re: Gmn script membaca MAC Address?
>
> Lha? Pada g tau MAC Address?? Bukan Mac Apple.. :P
>
> Setiap NetworkCard punya unik MAC Address yang mana, MAC Address
> setiap NetworkCard diseluruh dunia itu beda.. Disitu kuncinya..
> Karena MAC Addrees itu ibarat sidik jari setiap Network Card,
> Tidak pernah ada yang sama..
>
> Nah proteksi software dengan ngebaca MAC Address, trus digabung
> dengan algoritma tertentu, untuk menghasilkan serial hardware.
>
> Dimana, nantinya si pembeli software harus meregisterkan
> tu serial hardware untuk mendapatkan valid serial key.
>
> Baru tuh program kita bisa jalan.
>
> Agak ribet,tapi lumayan powerfull.
> Jadi menyusahkan si pembajak software
>
> Gtu.. Master2 dsni ada solusi?
>
> Toni Rahayu
> PT. Omedata Electronics
> IT Department
> Hunting : (62-22) 6030805 Ext 121
> Faxs : (62-22) 6030896
> Homepage : http://toni. rahayu.tripod. com
>
> ____________ _________ _________ _________ _________ __
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail. yahoo.com
>
> [Non-text portions of this message have been removed]
>
> Toni Rahayu
> PT. Omedata Electronics
> IT Department
> Hunting : (62-22) 6030805 Ext 121
> Faxs : (62-22) 6030896
> Homepage : http://toni. rahayu.tripod. com
>
> ____________ _________ _________ _________ _________ __
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail. yahoo.com
>
> [Non-text portions of this message have been removed]
>
> Toni Rahayu
> PT. Omedata Electronics
> IT Department
> Hunting : (62-22) 6030805 Ext 121
> Faxs : (62-22) 6030896
> Homepage : http://toni. rahayu.tripod. com
>
>
>
>
>
>
>
> ____________________________________________________________________________________
> Don't get soaked. Take a quick peak at the forecast
> with the Yahoo! Search weather shortcut.
> http://tools.search.yahoo.com/shortcuts/#loc_weather
>
> [Non-text portions of this message have been removed]
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Bagi terjangkit virus lokal, zip virus tersebut
> dan kirim ke [EMAIL PROTECTED], kami
> akan membuat removalnya untuk anda.
> Yahoo! Groups Links
>
>
>
>
--
Best Regard,
[zZzz]
[Non-text portions of this message have been removed]
