Mac-osoite

Minkähänlaisella koodilla tuo sitten tapahtuu, jos kerran on mahdollista.

Tarkoituksena on vain tunnistaa kone jossa ohjelmaa käytetään. Mac-osoitteenhan tosin saa muutettua, joten se ei ole täysin varma keino. Mitä muita tapoja tunnistamiseen on olemassa.

Pekka P kirjoitti:

Minkähänlaisella koodilla tuo sitten tapahtuu, jos kerran on mahdollista.

Tarkoituksena on vain tunnistaa kone jossa ohjelmaa käytetään. Mac-osoitteenhan tosin saa muutettua, joten se ei ole täysin varma keino. Mitä muita tapoja tunnistamiseen on olemassa.

VB osaamiseni on kovin ohutta mutta helpoin tapa lienee ajaa käyttöjärjestelmän komento:

arp -a>macit.txt

niin se listaa viimeaikaisten yhteyksien macit ja niitä vastaavat IP:t tiedostoon macit.txt.

Kaikkea voi tietysti tehdä harrastuksen vuoksi mutta nykyaikaisissa palomuureissa tuo on vakio-ominaisuus että liikenne voidaan rajoittaa tiettyihin mac-osoitteisiin. Hyvänä esimerkkinä käy vaikkapa Linuxin iptables.

kysymys. kirjoitti:

VB osaamiseni on kovin ohutta mutta helpoin tapa lienee ajaa käyttöjärjestelmän komento:

arp -a>macit.txt

niin se listaa viimeaikaisten yhteyksien macit ja niitä vastaavat IP:t tiedostoon macit.txt.

Kaikkea voi tietysti tehdä harrastuksen vuoksi mutta nykyaikaisissa palomuureissa tuo on vakio-ominaisuus että liikenne voidaan rajoittaa tiettyihin mac-osoitteisiin. Hyvänä esimerkkinä käy vaikkapa Linuxin iptables.

Taitaa olla minulla vielä ohuempaa, mutta ei vielä auennut tuo homma. Oisko tällaselle puupäälle ihan koodintynkää tarjolla.

Pekka P kirjoitti:

Taitaa olla minulla vielä ohuempaa, mutta ei vielä auennut tuo homma. Oisko tällaselle puupäälle ihan koodintynkää tarjolla.

>...koodintynkää tarjolla.

Eipä tunnu olevan vb-osaajia liikkeellä ja itse en viitsi sillä ruveta koodia vääntämään kun ei kyvyt riitä eikä toisaalta ole windowsia millä kokeilisi.

Tuolta löytyy yksinkertainen esimerkki GetIpNetTable()-funktion käytöstä. Se on näköjään arp-komentoa matkiva WinAPI-funktio.

http://www.mentalis.org/apilist/GetIpNetTable.shtml

Pekka P kirjoitti:

Taitaa olla minulla vielä ohuempaa, mutta ei vielä auennut tuo homma. Oisko tällaselle puupäälle ihan koodintynkää tarjolla.

Varmaan on tähän fiksumpikin konsti, löysinkin sellaisen netistä. Hyödynsi iphlpapi.dll:a.
Mutta voi sen tehdä näinkin.

Tee kovalevylle tiedosto, vaikkapa nimelle ipcfg.bat.
Kirjoita siihen yksi rivi:
C:\Windows\System32\ipconfig.exe /all > c:\ipcfg.txt

tai mistä hakemistosta tuo ohjelma ipconfig.exe nyt löytyykään.

Ja noin komennettuna, se kirjoittaa tuloksen tiedostoon ipcfg.txt, jota voi sitten VB:ssa lukea. Ja VB:ssa tuo ipcfg.bat ensin suoritetaan Shell-funktiolla.

Tässä VB-koodi:
'suoritetaan .bat komentotiedosto
Shell ("C:\ipcfg.bat")

'odotetaan, jotta tiedosto on valmis luettavaksi
Dim PauseTime, Start
PauseTime = 1 'paussin pituus sekuntia
Start = Timer
Do While Timer < Start PauseTime
DoEvents
Loop

Dim a As Integer
Dim rivi As String
Dim mac_osoite As String

'luetaan tiedosto:
Open "C:\ipcfg.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, rivi
If InStr(1, rivi, "Physical Address", 1) Then
a = InStr(1, rivi, ":", 1) 2
mac_osoite = Mid(rivi, a, Len(rivi) - a 1)
End If
Loop
Close #1

Print mac_osoite