;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2010-2016. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;; zeroconfig.asm - Zeroconfig service for KolibriOS ;; ;; ;; ;; Written by hidnplayr@kolibrios.org ;; ;; Some code contributed by Derpenguin ;; ;; ;; ;; DHCP code is based on that by Mike Hibbet ;; ;; (DHCP client for menuetos) ;; ;; ;; ;; GNU GENERAL PUBLIC LICENSE ;; ;; Version 2, June 1991 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; format binary as "" ; CONFIGURATION TIMEOUT = 5 ; in seconds BUFFER = 1024 ; in bytes DHCP_TRIES = 3 ; number of times to try contacting DHCP server __DEBUG__ = 1 ; enable/disable __DEBUG_LEVEL__ = 2 ; 1 = all, 2 = errors ; CONFIGURATION FOR LINK-LOCAL PROBE_WAIT = 1 ; second (initial random delay) PROBE_MIN = 1 ; second (minimum delay till repeated probe) PROBE_MAX = 2 ; seconds (maximum delay till repeated probe) PROBE_NUM = 3 ; (number of probe packets) ANNOUNCE_NUM = 2 ; (number of announcement packets) ANNOUNCE_INTERVAL = 2 ; seconds (time between announcement packets) ANNOUNCE_WAIT = 2 ; seconds (delay before announcing) MAX_CONFLICTS = 10 ; (max conflicts before rate limiting) RATE_LIMIT_INTERVAL = 60 ; seconds (delay between successive attempts) DEFEND_INTERVAL = 10 ; seconds (min. wait between defensive ARPs) MAX_INTERFACES = 8 use32 org 0x0 db 'MENUET01' ; 8 byte id dd 0x01 ; header version dd START ; start of code dd IM_END ; size of image dd (I_END+0x100) ; memory for app dd (I_END+0x100) ; esp dd 0, 0 ; I_Param, I_Path include '../../proc32.inc' include '../../macros.inc' include '../../debug-fdo.inc' include '../../network.inc' include 'dhcp.inc' include '../../dll.inc' struct dhcp_msg op db ? ; Operation Code htype db ? ; Hardware type hlen db ? ; Hardware address length hops db ? xid dd ? ; Transaction Identifier secs dw ? ; Seconds since boot flags dw ? ciaddr dd ? ; Client IP address yiaddr dd ? ; "Your" IP address siaddr dd ? ; Server IP address giaddr dd ? ; Gateway IP address chaddr rb 16 ; Client hardware address sname rb 64 ; Server name file rb 128 ; boot filename cookie dd ? ; Magic cookie (0x63538263) options rb 512 ends struct interface number dd ? state dd ? ; 0 - disconnected, 1 - connected mode dd ? ; 0 - disabled, 1 - static, 2 - dhcp, 3 - auto (zero config) tries dd ? lease dd ? ServerIP dd ? ip dd ? subnet dd ? dns dd ? gateway dd ? socketNum dd ? timeout dd ? ip_conflicts dd ? ends START: mcall 68, 11 ; init heap stdcall dll.Load, @IMPORT ; load libraries or eax, eax jnz exit_immediately DEBUGF 2, "Zero-config service loaded\n" mcall 40, EVM_STACK2 ; We only want low-level network events ; Set up interface list mov edi, device_list xor ebx, ebx @@: inc ebx mov eax, ebx stosd mov ecx, sizeof.interface/4-1 xor eax,eax rep stosd cmp ebx, MAX_INTERFACES jb @b mov ebp, device_list mainloop: cmp [ebp + interface.state], 0 je .link_up? jmp .maintain_link .next: cmp [ebp + interface.number], MAX_INTERFACES je .wait add ebp, sizeof.interface jmp mainloop .wait: mcall 10 ; Wait for event mov ebp, device_list jmp mainloop .link_up?: mov bh, byte[ebp + interface.number] mov bl, 0 ; Get device type mcall 74 cmp eax, 1 ; Ethernet jne mainloop.next mov bl, 10 ; Get Link status mcall 74 test eax, eax jz mainloop.next mov [ebp + interface.state], 1 call create_str_ini_int ; Try to read settings from .ini file invoke ini.get_str, ini_path, str_ini_int, str_ip_type, inibuf, 16, str_null test eax, eax jz @f ; If settings not found, use default settings from 'ip?' section mov dword[str_ini_int], 'ip?' @@: mov ebx, API_ETH + 0 mov bh, byte[ebp + interface.number] mcall 76 ; get MAC of the ethernet interface mov word[tx_msg.chaddr], bx mov dword[tx_msg.chaddr+2], eax DEBUGF 1, "MAC: %x-%x-%x-%x-%x-%x\n", \ [tx_msg.chaddr+0]:2, [tx_msg.chaddr+1]:2, [tx_msg.chaddr+2]:2, \ [tx_msg.chaddr+3]:2, [tx_msg.chaddr+4]:2, [tx_msg.chaddr+5]:2 invoke ini.get_str, ini_path, str_ini_int, str_ip_type, inibuf, 16, str_null test eax, eax jnz .invalid mov eax, dword[inibuf] or eax, 0x20202020 mov [ebp + interface.mode], 0 cmp eax, 'disa' je .next mov [ebp + interface.mode], 1 cmp eax, 'stat' je static mov [ebp + interface.mode], 2 cmp eax, 'dhcp' je dhcp mov [ebp + interface.mode], 3 cmp eax, 'auto' je dhcp .invalid: DEBUGF 2, "Invalid settings for interface: %s.\n", str_ini_int jmp .next .maintain_link: ; Check for IP conflicts mov ebx, API_ARP mov bh, byte[ebp + interface.number] mov bl, 7 mcall 76 ; Number of IP conflicts cmp eax, [ebp + interface.ip_conflicts] je @f mov [ebp + interface.ip_conflicts], eax DEBUGF 2, "IP address conflict on interface %u\n", [ebp + interface.number] ; Notify user of the IP address conflict mov [notify_struct.msg], str_conflict mcall 70, notify_struct @@: ; Check if device is still there mov bh, byte[ebp + interface.number] mov bl, 0 ; Get device type mcall 74 test eax, eax ; No device jz .link_down ; Check if link is still there mov bl, 10 ; Get Link status mcall 74 test eax, eax jnz .next .link_down: mov [ebp + interface.state], 0 ; Notify user that the link is down mov [notify_struct.msg], str_disconnected mcall 70, notify_struct ; CHECKME: should we do this in kernel instead? Should we even do this at all? xor ecx, ecx mov ebx, API_IPv4 + 3 mov bh, byte[ebp + interface.number] mcall 76 ; ip mov bl, 5 mcall 76 ; dns mov bl, 7 mcall 76 ; subnet mov bl, 9 mcall 76 ; gateway jmp .next link_up: ; Read number of previous IP conflicts mov ebx, API_ARP mov bh, byte[ebp + interface.number] mov bl, 7 mcall 76 mov [ebp + interface.ip_conflicts], eax ; Notify user that the link is up and running mov [notify_struct.msg], str_connected mcall 70, notify_struct .fail: mcall 40, EVM_STACK2 jmp mainloop.next static: DEBUGF 1, "Applying Static IP settings\n" invoke ini.get_str, ini_path, str_ini_int, str_ip, inibuf, 16, str_null mov esi, inibuf call ip_str_to_dword mov ebx, API_IPv4 + 3 ; set IP mov bh, byte[ebp + interface.number] mcall 76 invoke ini.get_str, ini_path, str_ini_int, str_subnet, inibuf, 16, str_null mov esi, inibuf call ip_str_to_dword mov ebx, API_IPv4 + 7 ; set subnet mov bh, byte[ebp + interface.number] mcall 76 invoke ini.get_str, ini_path, str_ini_int, str_gateway, inibuf, 16, str_null mov esi, inibuf call ip_str_to_dword mov ebx, API_IPv4 + 9 ; set gateway mov bh, byte[ebp + interface.number] mcall 76 .dns: invoke ini.get_str, ini_path, str_ini_int, str_dns, inibuf, 16, str_null mov esi, inibuf call ip_str_to_dword mov ebx, API_IPv4 + 5 ; set DNS mov bh, byte[ebp + interface.number] mcall 76 jmp link_up dhcp: DEBUGF 2, "Trying to contact DHCP server\n" mcall 40, EVM_STACK mcall 75, 0, AF_INET4, SOCK_DGRAM, 0 ; open socket (parameters: domain, type, reserved) cmp eax, -1 je dhcp_error mov [ebp + interface.socketNum], eax DEBUGF 1, "Socket %x opened\n", eax mcall 75, 2, [ebp + interface.socketNum], sock_local, 18 ; bind socket to local port 68 cmp eax, -1 je socket_error DEBUGF 1, "Socket Bound to local port 68\n" pushd [ebp + interface.number] pushd 4 ; length of option pushd SO_BINDTODEVICE pushd SOL_SOCKET mcall 75, 8, [ebp + interface.socketNum], esp add esp, 16 cmp eax, -1 je socket_error DEBUGF 1, "Socket Bound to local interface %u\n", [ebp + interface.number] mcall 75, 4, [ebp + interface.socketNum], sock_remote, 18 ; connect to 255.255.255.255 on port 67 cmp eax, -1 je socket_error DEBUGF 1, "Connected to 255.255.255.255 on port 67\n" ; Read preferred IP address from settings file invoke ini.get_str, ini_path, str_ini_int, str_ip, inibuf, 16, str_null mov esi, inibuf call ip_str_to_dword mov [ebp + interface.ip], ecx call random mov [tx_msg.xid], eax ; randomize session ID mov [tx_msg_type], 1 ; DHCP discover build_dhcp_packet: DEBUGF 1, "Building DHCP packet\n" mov [ebp + interface.tries], DHCP_TRIES ; Boot protocol legacy mov [tx_msg.op], 1 ; Boot request mov [tx_msg.htype], 1 ; Ethernet mov [tx_msg.hlen], 6 ; Ethernet address h/w len mov [tx_msg.hops], 0 mcall 26, 9 ; Time since boot xor edx, edx mov ebx, 100 div ebx ; Divide by 100 to get number of seconds xchg al, ah ; Convert to big endian mov [tx_msg.secs], ax mov [tx_msg.flags], 0 ; DHCP extension mov [tx_msg.cookie], 0x63538263 ; magic cookie mov word[tx_msg+240], 0x0135 ; option DHCP msg type mov al,[tx_msg_type] mov [tx_msg+240+2], al mov word[tx_msg+240+3], 0x0433 ; option Lease time mov dword[tx_msg+240+5], -1 ; infinite mov word[tx_msg+240+9], 0x0432 ; option requested IP address mov eax,[ebp + interface.ip] mov [tx_msg+240+11], eax mov word[tx_msg+240+15], 0x0437 ; option request list mov dword[tx_msg+240+17], 0x0f060301 cmp [tx_msg_type], 1 ; Check which msg we are sending jne .request mov byte[tx_msg+240+21], 0xff ; end of options marker mov [tx_msg_len], 262 ; length jmp send_dhcp_packet .request: mov word[tx_msg+240+21], 0x0436 ; server IP mov eax,[ebp + interface.ServerIP] mov [tx_msg+240+23], eax mov byte[tx_msg+240+27], 0xff ; end of options marker mov [tx_msg_len], 268 ; length send_dhcp_packet: DEBUGF 1, "Sending DHCP packet\n" lea edx, [tx_msg] mcall 75, 6, [ebp + interface.socketNum], , [tx_msg_len] ; Wait for reply mcall 26, 9 add eax, TIMEOUT*100 mov [ebp + interface.timeout], eax mov ebx, TIMEOUT*100 .wait: mcall 23 ; Wait for event with timeout read_packet: ; we have data - this will be the response lea edx, [rx_msg] mcall 75, 7, [ebp + interface.socketNum], , BUFFER, MSG_DONTWAIT ; read data from socket cmp eax, -1 jne .got_data mcall 26, 9 mov ebx, eax sub ebx, [ebp + interface.timeout] ja send_dhcp_packet.wait DEBUGF 1, "No answer from DHCP server\n" dec [ebp + interface.tries] jnz send_dhcp_packet jmp dhcp_fail .got_data: DEBUGF 1, "%d bytes received\n", eax mov [rx_msg_len], eax ; depending on which msg we sent, handle the response ; accordingly. ; If the response is to a dhcp discover, then: ; 1) If response is DHCP OFFER then ; 1.1) record server IP, lease time & IP address. ; 1.2) send a request packet ; If the response is to a dhcp request, then: ; 1) If the response is DHCP ACK then ; 1.1) extract the DNS & subnet fields. Set them in the stack cmp [tx_msg_type], 1 ; did we send a discover? je discover_sent cmp [tx_msg_type], 3 ; did we send a request? je request_sent jmp exit_immediately discover_sent: call parse_dhcp_reply cmp [rx_msg_type], 2 ; Was the response an offer? jne read_packet DEBUGF 1, "Got offer, making request\n" mov [tx_msg_type], 3 ; make it a request jmp build_dhcp_packet request_sent: call parse_dhcp_reply cmp [rx_msg_type], 5 ; Was the response an ACK? It should be jne read_packet ; NO - read next packets DEBUGF 2, "IP address %u.%u.%u.%u assigned to network interface %u by DHCP\n",\ [ebp+interface.ip+0]:1, [ebp+interface.ip+1]:1, [ebp+interface.ip+2]:1, [ebp+interface.ip+3]:1, [ebp + interface.number]:1 mcall close, [ebp + interface.socketNum] mov ebx, API_IPv4 + 3 mov bh, byte[ebp + interface.number] mcall 76, , [ebp + interface.ip] ; ip mov bl, 7 mcall 76, , [ebp + interface.subnet] ; subnet mov bl, 9 mcall 76, , [ebp + interface.gateway] ; gateway invoke ini.get_str, ini_path, str_ini_int, str_dns_type, inibuf, 16, str_null test eax, eax jnz @f mov eax, dword[inibuf] or eax, 0x202020 cmp eax, 'stat' je static.dns @@: mov ebx, API_IPv4 + 5 mov bh, byte[ebp + interface.number] mcall 76, , [ebp + interface.dns] ; dns jmp link_up parse_dhcp_reply: DEBUGF 1, "Parsing response\n" mov [rx_msg_type], 0 ; Verify if session ID matches mov eax, [tx_msg.xid] cmp [rx_msg.xid], eax jne .done pushd [rx_msg.yiaddr] pop [ebp + interface.ip] DEBUGF 1, "Client: %u.%u.%u.%u\n", \ [rx_msg.yiaddr]:1, [rx_msg.yiaddr+1]:1, [rx_msg.yiaddr+2]:1, [rx_msg.yiaddr+3]:1 ; Verify magic cookie cmp [rx_msg.cookie], 0x63538263 jne .done ; Parse the DHCP options lea esi, [rx_msg] mov ecx, 240 ; point to the first option .next_option: ; TODO: check if we still are inside the buffer! add esi, ecx lodsb ; get message identifier mov bl, al cmp bl, 0xff ; End of options? je .done test bl, bl jz .pad lodsb ; load data length movzx ecx, al cmp bl, dhcp_msg_type ; Msg type is a single byte option je .msgtype cmp bl, dhcp_dhcp_server_id je .server cmp bl, dhcp_address_time je .lease cmp bl, dhcp_subnet_mask je .subnet cmp bl, dhcp_router je .router cmp bl, dhcp_domain_server je .dns DEBUGF 1, "Unsupported DHCP option: %u\n", bl jmp .next_option .pad: xor ecx, ecx inc ecx jmp .next_option .msgtype: mov al, [esi] mov [rx_msg_type], al DEBUGF 1, "DHCP Msg type: %u\n", al jmp .next_option ; Get next option .server: pushd [esi] pop [ebp + interface.ServerIP] DEBUGF 1, "Server: %u.%u.%u.%u\n", [esi]:1, [esi+1]:1, [esi+2]:1, [esi+3]:1 jmp .next_option .lease: pusha mov eax,[esi] bswap eax mov [ebp + interface.lease], eax DEBUGF 1, "Lease: %d\n", eax popa jmp .next_option .subnet: pushd [esi] pop [ebp + interface.subnet] DEBUGF 1, "Subnet: %u.%u.%u.%u\n", [esi]:1, [esi+1]:1, [esi+2]:1, [esi+3]:1 jmp .next_option .router: pushd [esi] pop [ebp + interface.gateway] DEBUGF 1, "Gateway: %u.%u.%u.%u\n", [esi]:1, [esi+1]:1, [esi+2]:1, [esi+3]:1 jmp .next_option .dns: pushd [esi] pop [ebp + interface.dns] DEBUGF 1, "DNS: %u.%u.%u.%u\n", [esi]:1, [esi+1]:1, [esi+2]:1, [esi+3]:1 jmp .next_option .done: ret exit_immediately: DEBUGF 2, "Zeroconf failed!\n" mcall -1 socket_error: DEBUGF 2, "Socket error!\n" dhcp_fail: mcall close, [ebp + interface.socketNum] dhcp_error: DEBUGF 2, "DHCP failed\n" cmp [ebp + interface.mode], 3 ; zero config mode? jne link_up link_local: ; TODO: send ARP probes before setting the IP address in stack! call random mov cx, ax shl ecx, 16 mov cx, 0xfea9 ; IP 169.254.0.0 link local net, see RFC3927 mov ebx, API_IPv4 + 3 mov bh, byte[ebp + interface.number] mcall 76, , ecx ; mask is 255.255.0.0 DEBUGF 2, "IP address 169.254.%u.%u assigned to network interface %u through Link-Local\n",\ [generator+0]:1, [generator+1]:1, [ebp + interface.number]:1 mov bl, 7 mcall 76, , 0xffff mov bl, 9 mcall 76, , 0x0 mov bl, 5 mcall 76, , 0x0 jmp link_up random: ; Pseudo random actually mov eax,[generator] add eax, -43ab45b5h ror eax, 1 bswap eax xor eax, dword[tx_msg.chaddr] ror eax, 1 xor eax, dword[tx_msg.chaddr+2] mov [generator], eax ret create_str_ini_int: mov eax, [ebp + interface.number] mov ebx, 10 xor edx, edx push 0 @@: div ebx add dl, '0' push edx test eax, eax jnz @r @@: mov edi, str_ini_int+2 @@: pop eax stosb test eax, eax jnz @r ret ; In: esi = ptr to ASCIIZ IP address ; Out: ecx = IP (0 on error) ip_str_to_dword: xor ecx, ecx ; end result .charloop: lodsb test al, al jz .finish cmp al, '.' je .dot sub al, '0' jb .fail cmp al, 9 ja .fail mov dl, cl shl cl, 2 jc .fail add cl, dl jc .fail add cl, cl jc .fail add cl, al jc .fail jmp .charloop .dot: shl ecx, 8 jc .fail xor cl, cl jmp .charloop .finish: bswap ecx ; we want little endian order ret .fail: xor ecx, ecx ret ; DATA AREA align 16 @IMPORT: library \ libini, 'libini.obj' import libini, \ ini.get_str, 'ini_get_str',\ ini.set_str, 'ini_set_str' include_debug_strings str_ip db 'ip', 0 str_subnet db 'subnet', 0 str_gateway db 'gateway', 0 str_dns db 'dns', 0 str_ip_type db 'ip_type', 0 str_dns_type db 'dns_type', 0 str_ini_int db 'ip1', 0 rb 10 str_null db 0 sock_local: dw AF_INET4 dw 68 shl 8 ; local port dd 0 ; local IP rb 10 sock_remote: dw AF_INET4 dw 67 shl 8 ; destination port dd -1 ; destination IP rb 10 notify_struct: dd 7 ; run application dd 0 .msg dd 0 dd 0 dd 0 db '/sys/@notify', 0 str_connected db '"You are now connected to the network." -N', 0 str_disconnected db '"You are now disconnected from the network." -N', 0 str_conflict db '"An IP address conflict has been detected on the network." -W', 0 ini_path db '/sys/settings/network.ini',0 IM_END: generator dd ? inibuf rb 16 tx_msg_len dd ? rx_msg_len dd ? tx_msg_type db ? rx_msg_type db ? tx_msg dhcp_msg rx_msg dhcp_msg device_list rd MAX_INTERFACES*sizeof.interface I_END: