;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; Copyright (C) KolibriOS team 2010-2018. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License ;;
;; ;;
;; netstat.asm - Network Status Tool for KolibriOS ;;
;; ;;
;; Written by hidnplayr@kolibrios.org ;;
;; ;;
;; GNU GENERAL PUBLIC LICENSE ;;
;; Version 2, June 1991 ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
format binary as ""
BOX_WIDTH = 390
BOX_HEIGHT = 185
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd I_END ; size of image
dd (I_END+0x1000) ; memory for app
dd (I_END+0x1000) ; esp
dd 0, 0 ; I_Param, I_Path
include '../../proc32.inc'
include '../../macros.inc'
include '../../dll.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../network.inc'
include 'ipcfg.inc'
START:
mcall 68, 11
stdcall dll.Load, @IMPORT
or eax, eax
jnz exit
mcall 40, EVM_REDRAW + EVM_BUTTON + EVM_STACK2 + EVM_KEY
window_redraw:
; get system colors
mcall 48, 3, sc, 40
; Notify kernel of start of window draw
mcall 12, 1
; Draw the window
mcall 0, 100 shl 16 + 600, 100 shl 16 + 240, 0x34E1E1E1, , name
; Define the buttons (for tabs)
mov ebx, 5 shl 16 + 54
mov ecx, 4 shl 16 + 21
mov edx, 0x60000000 + 101
.buttonloop:
mcall 8
add ebx, 60 shl 16
inc edx
cmp dl, 106
jle .buttonloop
; draw sides and upper lines of the tab buttons
mov eax, 13
mov ebx, 5 shl 16 + 1
mov ecx, 4 shl 16 + 21
mov edx, 0x00777777
.loop:
mcall
mov bx, 54
mov cx, 1
mcall
mov bx, 1
mov cx, 21
add ebx, 54 shl 16
mcall
add ebx, 6 shl 16
cmp ebx, 360 shl 16
jb .loop
; Draw sides and bottom lines of the rectangle
mcall , 0 shl 16 + 1, 25 shl 16 + BOX_HEIGHT;, 0x00777777
mcall , (0+BOX_WIDTH) shl 16 +1, 25 shl 16 + (BOX_HEIGHT+1)
mcall , 0 shl 16 + BOX_WIDTH, (25+BOX_HEIGHT) shl 16 + 1
redraw:
; Draw interface buttons (on the right hand side)
call draw_interfaces
; Draw upper line of rectangle
mcall 13, 0 shl 16 + BOX_WIDTH, 25 shl 16 + 1, 0x00777777
; Fill rectangle
mcall 13, 1 shl 16 + BOX_WIDTH-1, 26 shl 16 + BOX_HEIGHT-1, 0x00F3F3F3
; Undefine IP settings button
mov edx, 0x80000002
mcall 8
; Fill tab buttons
mov eax, 13
mov ebx, 6 shl 16 + 53
mov si, 101
.buttonloop:
mov ecx, 6 shl 16 + 19
mov edx, 0x00BBBBBB
cmp si, [mode]
jne @f
mov edx, 0x00F3F3F3 ; Activated button has other colors
inc ecx
@@:
mcall
mov edx, 0x00E1E1E1
cmp si, [mode]
jne @f
mov edx, 0x00FFFFFF ; Activated button has other colors
@@:
mov ecx, 5 shl 16 + 1
mcall
add ebx, 60 shl 16
inc si
cmp si, 106
jle .buttonloop
; Print button names on top of the buttons
mcall 4, 9 shl 16 + 12, 0x80000000, modes
; Get information about the selected device
xor ebx, ebx
mov bh, [device]
mcall 74
mov [device_type], eax
cmp [mode], 101
jne .no_eth
mcall 4, 8 shl 16 + 35, 0x80000000, str_packets_tx
add ebx, 18
mov edx, str_packets_rx
mcall
add ebx, 18
mov edx, str_bytes_tx
mcall
add ebx, 18
mov edx, str_bytes_rx
mcall
add ebx, 18
mov edx, str_speed_tx
mcall
add ebx, 18
mov edx, str_speed_rx
mcall
add ebx, 18
mov edx, str_link
mcall
cmp [device_type], 1
jne end_of_draw
add ebx, 18
mov edx, str_MAC
mcall
mov ebx, API_ETH
mov bh, [device]
mcall 76
push eax
push bx
mov edx, 134 shl 16 + 35 + 7*18
call draw_mac
jmp end_of_draw
.no_eth:
cmp [mode], 102
jne .no_ip
mcall 4, 8 shl 16 + 35, 0x80000000, str_packets_tx
add ebx, 18
mov edx, str_packets_rx
mcall
add ebx, 18
mov edx, str_ip
mcall
add ebx, 18
mov edx, str_dns
mcall
add ebx, 18
mov edx, str_subnet
mcall
add ebx, 18
mov edx, str_gateway
mcall
mov ebx, API_IPv4 + 8
mov bh, [device]
mcall 76
push eax
dec bl
dec bl
mcall 76
push eax
dec bl
dec bl
mcall 76
push eax
dec bl
dec bl
mcall 76
push eax
mov edx, 134 shl 16 + 35 + 2*18
call draw_ip
add edx, 18
call draw_ip
add edx, 18
call draw_ip
add edx, 18
call draw_ip
cmp [device], 0
je end_of_draw
mcall 8, 128 shl 16 + 100, 150 shl 16 + 20, 2, [sc.work_button]
mcall 4, 150 shl 16 + 157, [sc.work_button_text], str_ip_cfg, str_ip_cfg.len
jmp end_of_draw
.no_ip:
cmp [mode], 103
jne .no_arp
mcall 4, 8 shl 16 + 35, 0x80000000, str_packets_tx
add ebx, 18
mov edx, str_packets_rx
mcall
add ebx, 18
mov edx, str_arp
mcall
add ebx, 18
mov edx, str_conflicts
mcall
mcall 4, 8 shl 16 + 130, 0x80000000, str_ARP_legend
jmp end_of_draw
.no_arp:
mcall 4, 8 shl 16 + 35, 0x80000000, str_packets_tx
add ebx, 18
mov edx, str_packets_rx
mcall
cmp [mode], 106
jne end_of_draw
add ebx, 18
mov edx, str_missed
mcall
add ebx, 18
mov edx, str_dumped
mcall
add ebx, 18
mov edx, str_queued
mcall
end_of_draw:
mcall 12, 2
draw_stats:
cmp [mode], 101
jne not_101
mov ebx, API_ETH
mov bh, [device]
mov bl, 6
@@:
push ebx
mcall 74
pop ebx
push eax
inc bl
cmp bl, 10
jbe @r
pop ecx
push [time]
pop [delta_time]
mcall 26, 9 ; TODO: use 26, 10 instead
mov [time], eax
sub eax, [delta_time]
jnz @f
inc eax ; Zero time units? Lets make it at least one.
@@:
lea eax, [eax + 4*eax]
shl eax, 1
mov [delta_time], eax
mov eax, [esp+4] ; bytes received
push eax
sub eax, [prev_rx]
pop [prev_rx]
xor edx, edx
div [delta_time]
push eax
mov eax, [esp+4] ; bytes sent
push eax
sub eax, [prev_tx]
pop [prev_tx]
xor edx, edx
div [delta_time]
push eax
test cl, cl
jnz @f
mov edx, str_down
jmp .print_link
@@:
cmp cl, 100b
jnz @f
mov edx, str_10m
jmp .print_link
@@:
cmp cl, 110b
jnz @f
mov edx, str_10mfd
jmp .print_link
@@:
cmp cl, 1000b
jnz @f
mov edx, str_100m
jmp .print_link
@@:
cmp cl, 1010b
jnz @f
mov edx, str_100mfd
jmp .print_link
@@:
cmp cl, 1100b
jnz @f
mov edx, str_1g
jmp .print_link
@@:
cmp cl, 1110b
jnz @f
mov edx, str_1gfd
jmp .print_link
@@:
mov edx, str_unknown
.print_link:
mov ebx, 134 shl 16 + 35 + 6*18
mov ecx, 0xc0000000
mov edi, 0x00f3f3f3
mcall 4
; speed tx
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 5*18
mov esi, 0x40000000
mcall 47
; speed rx
sub edx, 18
pop ecx
mcall
; bytes received
sub edx, 18
pop ecx
mcall
; bytes sent
sub edx, 18
pop ecx
mcall
; packets received
sub edx, 18
pop ecx
mcall
; packets sent
sub edx, 18
pop ecx
mcall
jmp mainloop
not_101:
cmp [mode], 102
jne not_102
mov ebx, API_IPv4
mov bh, [device]
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 18
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mcall 47
sub edx, 18
pop ecx
mcall
jmp mainloop
not_102:
cmp [mode], 103
jne not_103
mov ebx, API_ARP
mov bh, [device]
push ebx
mcall 76 ; tx
pop ebx
push eax
inc bl
push ebx
mcall 76 ; rx
pop ebx
push eax
inc bl
push ebx
mcall 76 ; entries
pop ebx
push eax
mov bl, 7
push ebx
mcall 76
pop ebx
push eax
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 3*18
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mcall 47
sub edx, 18
pop ecx
mcall
sub edx, 18
pop ecx
mcall
sub edx, 18
pop ecx
mcall
; mov edx, 50 shl 16 + 150
mov [last], 0
.arp_loop:
mov ebx, API_ARP + 3 ; read ARP entry
mov bh, [device]
mcall 76, ,[last], , , arp_buf
cmp eax, -1
je mainloop
mov ebx, [last]
imul ebx, 16
add ebx, 8 shl 16 + 140
mcall 4, , 0x80000000, str_ARP_entry
mov edx, ebx
mov eax, 47
mov ebx, 0x00030000
mov esi, 0x40000000
mov edi, 0x00F3F3F3
xor ecx, ecx
mov cl, byte[arp_buf.IP+0]
mcall
mov cl, byte[arp_buf.IP+1]
add edx, 24 shl 16
mcall
mov cl, byte[arp_buf.IP+2]
add edx, 24 shl 16
mcall
mov cl, byte[arp_buf.IP+3]
add edx, 24 shl 16
mcall
mov ebx, 0x00020100
mov cl, byte[arp_buf.MAC+0]
add edx, 36 shl 16
mcall
mov cl, byte[arp_buf.MAC+1]
add edx, 18 shl 16
mcall
mov cl, byte[arp_buf.MAC+2]
add edx, 18 shl 16
mcall
mov cl, byte[arp_buf.MAC+3]
add edx, 18 shl 16
mcall
mov cl, byte[arp_buf.MAC+4]
add edx, 18 shl 16
mcall
mov cl, byte[arp_buf.MAC+5]
add edx, 18 shl 16
mcall
mov ebx, 0x00040000
mov cx, [arp_buf.status]
add edx, 30 shl 16
mcall
mov cx, [arp_buf.TTL]
add edx, 60 shl 16
mcall
add dx, 18
rol edx, 16
mov dx, 8
rol edx, 16
inc [last]
jmp .arp_loop
not_103:
cmp [mode], 104
jne not_104
mov ebx, API_ICMP
mov bh, [device]
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 18
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mcall 47
sub edx, 18
pop ecx
mcall
jmp mainloop
not_104:
cmp [mode], 105
jne not_105
mov ebx, API_UDP
mov bh, [device]
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 18
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mcall 47
sub edx, 18
pop ecx
mcall
jmp mainloop
not_105:
cmp [mode], 106
jne not_106
mov ebx, API_TCP
mov bh, [device]
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
inc bl
push ebx
mcall 76
pop ebx
push eax
mov ebx, 0x000a0000
pop ecx
mov edx, 134 shl 16 + 35 + 18*4
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mcall 47
sub edx, 18
pop ecx
mcall
sub edx, 18
pop ecx
mcall
sub edx, 18
pop ecx
mcall
sub edx, 18
pop ecx
mcall
jmp mainloop
not_106:
mainloop:
mcall 23, 50 ; wait for event with timeout (0,5 s)
cmp eax, EV_REDRAW
je window_redraw
cmp eax, EV_BUTTON
je button
cmp eax, EV_KEY
je key
cmp eax, 11
je redraw
jmp draw_stats
button: ; button
mcall 17 ; get id
cmp ah, 1
je exit
cmp ah, 2
je .ipcfg
cmp ah, 0
je .interface
shr ax, 8
mov [mode], ax
jmp redraw
.ipcfg:
mcall 51, 1, ipcfg, I_END+0x1000
jmp mainloop
.interface:
shr eax, 16
mov [device], al
jmp redraw
key:
mcall 2
cmp ah, 9
je .tab
cmp ah, 183
je .pgdown
cmp ah, 184
je .pgup
jmp mainloop
.tab:
inc [mode]
cmp [mode], 106
jbe redraw
mov [mode], 101
jmp redraw
.pgdown:
inc [device]
mov al, [device]
cmp al, [last_device]
jbe redraw
mov [device], 0
jmp redraw
.pgup:
dec [device]
cmp [device], 0
jge redraw
mov al, [last_device]
mov [device], al
jmp redraw
exit:
mcall -1
draw_mac:
mov eax, 47
mov ebx, 0x00020100
mov esi, 0x40000000
mov edi, 0x00F3F3F3
mov cl, [esp+4]
mcall
mov cl, [esp+4+1]
add edx, 18 shl 16
mcall
mov cl, [esp+4+2]
add edx, 18 shl 16
mcall
mov cl, [esp+4+3]
add edx, 18 shl 16
mcall
mov cl, [esp+4+4]
add edx, 18 shl 16
mcall
mov cl, [esp+4+5]
add edx, 18 shl 16
mcall
sub edx, 5*18 shl 16
ret 6
draw_ip:
mov eax, 47
mov ebx, 0x00030000
mov esi, 0x40000000
mov edi, 0x00F3F3F3
xor ecx, ecx
mov cl, [esp+4]
mcall
mov cl, [esp+4+1]
add edx, 24 shl 16
mcall
mov cl, [esp+4+2]
add edx, 24 shl 16
mcall
mov cl, [esp+4+3]
add edx, 24 shl 16
mcall
sub edx, 3*24 shl 16
ret 4
draw_interfaces:
mov [.btnpos], 5 shl 16 + 20
mov [.txtpos], 405 shl 16 + 12
mcall 74, -1 ; get number of active network devices
mov ecx, eax
dec al
mov [last_device], al
cmp [device], al
jbe @f
mov [device], 0
@@:
xor ebx, ebx ; get device type
.loop:
mcall 74
cmp eax, 1 ; loopback or ethernet?
jbe .hit
inc bh
jb .loop ; tried all 256?
ret
.hit:
push ecx ebx
movzx edx, bh
shl edx, 8
mov esi, 0x00BBBbbb
cmp bh, [device]
cmove esi, 0x0081BBFF
mcall 8, 400 shl 16 + 185, [.btnpos]
mov ebx, [esp]
inc bl
mov ecx, namebuf
mov edx, namebuf
mcall 74 ; get device name
cmp eax, -1
jne @f
mov edx, str_unknown
@@:
mcall 4, [.txtpos], 0x80000000 ; print the name
pop ebx ecx
inc bh
add [.btnpos], 25 shl 16
add [.txtpos], 25
dec ecx
jnz .loop
ret
.btnpos dd ?
.txtpos dd ?
; DATA AREA
align 16
@IMPORT:
library box_lib , 'box_lib.obj', \
libini , 'libini.obj'
import libini, \
ini.get_str , 'ini_get_str' ,\
ini.set_str , 'ini_set_str' ,\
ini.enum_sections, 'ini_enum_sections'
import box_lib ,\
edit_box_draw , 'edit_box' ,\
edit_box_key , 'edit_box_key' ,\
edit_box_mouse , 'edit_box_mouse' ,\
edit_set_text , 'edit_box_set_text' ,\
version_ed , 'version_ed' ,\
init_checkbox , 'init_checkbox2' ,\
check_box_draw , 'check_box_draw2' ,\
check_box_mouse , 'check_box_mouse2' ,\
version_ch , 'version_ch2' ,\
option_box_draw , 'option_box_draw' ,\
option_box_mouse, 'option_box_mouse' ,\
version_op , 'version_op'
name db 'Network status', 0
mode dw 101 ; currently selected protocol
device db 1 ; currently selected device
last_device db ? ; last device available
device_type dd ?
last dd ?
modes db 'Physical IPv4 ARP ICMP UDP TCP', 0
str_packets_tx db 'Packets sent:', 0
str_packets_rx db 'Packets received:', 0
str_bytes_tx db 'Bytes sent:', 0
str_bytes_rx db 'Bytes received:', 0
str_MAC db 'MAC address: - - - - -', 0
str_ip db 'IP address: . . .', 0
str_dns db 'DNS address: . . .', 0
str_subnet db 'Subnet mask: . . .', 0
str_gateway db 'Standard gateway: . . .', 0
str_arp db 'ARP entrys:', 0
str_conflicts db 'ARP conflicts:', 0
str_missed db 'Packets missed:', 0
str_dumped db 'Packets dumped:', 0
str_queued db 'Packets queued:', 0
str_link db 'Link state:', 0
str_speed_tx db 'Upload (kb/s):', 0
str_speed_rx db 'Download (kb/s):', 0
str_ip_cfg db 'Configure'
.len = $ - str_ip_cfg
str_down db 'disconnected ', 0
str_unknown db 'unknown ', 0
str_10m db '10 Mbit Half duplex ', 0
str_10mfd db '10 Mbit Full duplex ', 0
str_100m db '100 Mbit Half duplex', 0
str_100mfd db '100 Mbit Full duplex', 0
str_1g db '1 Gbit Half duplex ', 0
str_1gfd db '1 Gbit Full duplex ', 0
str_ARP_legend db 'IP-address MAC-address Status TTL', 0
str_ARP_entry db ' . . . - - - - -', 0
prev_rx dd ?
prev_tx dd ?
time dd ?
delta_time dd ?
namebuf rb 64
arp_buf ARP_entry
sc system_colors
I_END: