Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                                 ;;

;; Copyright (C) KolibriOS team 2010-2015. All rights reserved.    ;;

;; Distributed under terms of the GNU General Public License       ;;

;;                                                                 ;;

;;  VNC client for KolibriOS                                       ;;

;;                                                                 ;;

;;  Written by hidnplayr@kolibrios.org                             ;;

;;                                                                 ;;

;;          GNU GENERAL PUBLIC LICENSE                             ;;

;;             Version 2, June 1991                                ;;

;;                                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

thread_start:

        mcall   40, 0                   ; disable all events for this thread

; Extract port number from server address

        mov     esi, serveraddr

  @@:

        lodsb

        test    al, al

        jz      .port_done

        cmp     al, ':'

        jne     @r

        mov     byte[esi-1], 0          ; replace colon with 0 byte, we dont want to upset getaddrinfo

        xor     eax, eax

        xor     ebx, ebx                ; port number

  @@:

        lodsb

        test    al, al

        jz      @f

        sub     al, '0'

        jb      err_dns

        cmp     al, 9

        ja      err_dns

        lea     ebx, [ebx*4+ebx]

        lea     ebx, [ebx*2+eax]

        jmp     @b

  @@:

        xchg    bl, bh

        mov     [sockaddr1.port], bx

  .port_done:

; Resolve hostname

        push    esp                     ; reserve stack place

        invoke  getaddrinfo, serveraddr, 0, 0, esp

        pop     esi

        test    eax, eax

        jnz     err_dns

        mov     eax, [esi+addrinfo.ai_addr]

        mov     eax, [eax+sockaddr_in.sin_addr]

        mov     [sockaddr1.ip], eax

        invoke  freeaddrinfo, esi

        DEBUGF  1, "Connecting to %u.%u.%u.%u:%u\n", \

        [sockaddr1.ip]:1, [sockaddr1.ip+1]:1, [sockaddr1.ip+2]:1, [sockaddr1.ip+3]:1, \

        [sockaddr1.port]:2

; Open socket

        mcall   socket, AF_INET4, SOCK_STREAM, 0

        cmp     eax, -1

        je      err_sock

        mov     [socketnum], eax

; Connect to the server

        mcall   connect, [socketnum], sockaddr1, 18

        cmp     eax, -1

        je      err_connect

; Verify handshake from server

        call    read_data

        cmp     eax, 12

        jb      err_proto

        cmp     dword[esi], "RFB "

        jne     err_proto

        add     esi, 12

; Did we get an error message already?

        cmp     eax, 16

        jb      @f

        lodsd

        test    eax, eax

        je      err_handshake

  @@:

; Reply to handshake

        DEBUGF  1, "Sending handshake\n"

        mcall   send, [socketnum], HandShake, 12, 0

; VNC 3.3 protocol: server decides security type

        call    read_data

        cmp     eax, 4

        jb      err_proto

        lodsd

        cmp     eax, 0x00000000

        je      err_handshake

        cmp     eax, 0x01000000         ; no security

        je      initialize

        cmp     eax, 0x02000000         ; VNC security

        je      vnc_security

        jmp     err_proto

vnc_security:

        lea     eax, [esi+8]

        cmp     [datapointer], eax

        jb      err_proto

        push    esi     ; pointer to message

        mov     dword[password], 0

        mov     dword[password+4], 0

        and     [USERbox.flags], not ed_focus

        or      [USERbox.flags], ed_disabled

        or      [PASSbox.flags], ed_focus

        mov     [status], STATUS_REQ_LOGIN

        inc     [update_gui]

  @@:

        mcall   5, 10

        cmp     [status], STATUS_LOGIN

        je      @f

        cmp     [status], STATUS_REQ_LOGIN

        je      @r

        mcall   -1

  @@:

        DEBUGF  1, "VNC authentication\n"

; Bit reverse the password and create DES keys

        mov     ebx, dword[password]

        mov     edx, ebx

        and     ebx, 0xf0f0f0f0

        shr     ebx, 4

        and     edx, 0x0f0f0f0f

        shl     edx, 4

        or      ebx, edx

        mov     edx, ebx

        and     ebx, 0xCCCCCCCC

        shr     ebx, 2

        and     edx, 0x33333333

        shl     edx, 2

        or      ebx, edx

        mov     edx, ebx

        and     ebx, 0xAAAAAAAA

        shr     ebx, 1

        and     edx, 0x55555555

        shl     edx, 1

        or      ebx, edx

        bswap   ebx

        mov     eax, dword[password+4]

        mov     edx, eax

        and     eax, 0xf0f0f0f0

        shr     eax, 4

        and     edx, 0x0f0f0f0f

        shl     edx, 4

        or      eax, edx

        mov     edx, eax

        and     eax, 0xCCCCCCCC

        shr     eax, 2

        and     edx, 0x33333333

        shl     edx, 2

        or      eax, edx

        mov     edx, eax

        and     eax, 0xAAAAAAAA

        shr     eax, 1

        and     edx, 0x55555555

        shl     edx, 1

        or      edx, eax

        bswap   edx

        mov     edi, keys

        call    DES_create_keys

; Encrypt message with DES

        mov     esi, [esp]

        mov     ebx, dword[esi+0]

        mov     edx, dword[esi+4]

        call    encrypt_DES

        mov     esi, [esp]

        mov     dword[esi+0], ebx

        mov     dword[esi+4], edx

        mov     ebx, dword[esi+8]

        mov     edx, dword[esi+12]

        call    encrypt_DES

        mov     esi, [esp]

        mov     dword[esi+8], ebx

        mov     dword[esi+12], edx

; Blank out the password and key fields in RAM

        mov     edi, password

        mov     ecx, 384/4

        xor     eax, eax

        rep     stosd

; Send the authentication response to server

        pop     edx

        mcall   send, [socketnum], , 16, 0

securityresult:

; Wait for SecurityResult from server

        call    read_data

        cmp     eax, 4

        jb      err_proto

        cmp     dword[esi], 0           ; OK

        jne     err_login

initialize:

        DEBUGF  1, "Sending ClientInit\n"

        mcall   send, [socketnum], ClientInit, 1, 0

        call    read_data               ; now the server should send init message

        cmp     eax, ServerInit.name

        jb      err_proto

        DEBUGF  2, "Serverinit: bpp: %u depth: %u bigendian: %u truecolor: %u\n", \

        [esi+ServerInit.pixelformat.bpp]:1, \

        [esi+ServerInit.pixelformat.depth]:1, \

        [esi+ServerInit.pixelformat.big_endian]:1, \

        [esi+ServerInit.pixelformat.true_color]:1

        mov     eax, dword[esi+ServerInit.width]

        mov     dword[FramebufferUpdateRequest.width], eax

        bswap   eax

        mov     dword[screen], eax

        DEBUGF  1, "Screen width=%u, height=%u\n", [screen.width]:2, [screen.height]:2

; Set main window caption to servername

        mov     ecx, dword[esi+ServerInit.name_length]

        bswap   ecx

        add     esi, ServerInit.name

        lea     eax, [esi+ecx]

        cmp     [datapointer], eax

        jb      err_proto

        cmp     ecx, 64         ; Limit name length to 64 chars

        jbe     @f

        mov     ecx, 64

  @@:

        mov     edi, servername

        rep movsb

        mov     byte[edi], 0

        mov     [name.dash], "-"

        DEBUGF  1, "Sending pixel format\n"

if BITS_PER_PIXEL = 8

        mcall   send, [socketnum], SetPixelFormat8, 20, 0

else if BITS_PER_PIXEL = 16

        mcall   send, [socketnum], SetPixelFormat16, 20, 0

else if BITS_PER_PIXEL = 24

        mcall   send, [socketnum], SetPixelFormat24, 20, 0

else

        mcall   send, [socketnum], SetPixelFormat32, 20, 0

end if

        DEBUGF  1, "Sending encoding info\n"

        mcall   send, [socketnum], SetEncodings, SetEncodings.length, 0

; Tell the main thread we are ready for business!

        mov     [status], STATUS_CONNECTED

; Request initial framebuffer update from server

        mov     [FramebufferUpdateRequest.inc], 0

request_fbu:

        DEBUGF  1, "Requesting framebuffer update\n"

        mcall   send, [socketnum], FramebufferUpdateRequest, 10, 0

        mov     [FramebufferUpdateRequest.inc], 1

thread_loop:

        call    read_data              ; Read the data into the buffer

        lodsb

        cmp     al, 0

        je      framebufferupdate

        cmp     al, 1

        je      setcolourmapentries

        cmp     al, 2

        je      bell

        cmp     al, 3

        je      servercuttext

        DEBUGF  2, "Unknown server command: %u\n", al

        jmp     thread_loop

framebufferupdate:

  @@:

        lea     eax, [esi+6]

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        jmp     @b

  @@:

        inc     esi     ; padding

        lodsw

        xchg    al, ah

        mov     [rectangles], ax

        DEBUGF  1, "Framebufferupdate: %u rectangles\n", ax

rectangle_loop:

  @@:

        lea     eax, [esi+12]

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        jmp     @b

  @@:

        xor     eax, eax

        lodsw

        xchg    al, ah

        mov     [rectangle.x], eax

        lodsw

        xchg    al, ah

        mov     [rectangle.y], eax

        lodsw

        xchg    al, ah

        mov     [rectangle.width], eax

        lodsw

        xchg    al, ah

        mov     [rectangle.height], eax

        lodsd                           ; encoding

        bswap   eax

        DEBUGF  1, "Rectangle: x=%u y=%u width=%u height=%u encoding: ",\

        [rectangle.x]:2, [rectangle.y]:2, [rectangle.width]:2, [rectangle.height]:2

        cmp     eax, 0

        je      encoding_raw

        cmp     eax, 1

        je      encoding_CopyRect

        cmp     eax, 2

        je      encoding_RRE

        cmp     eax, 15

        je      encoding_TRLE

        cmp     eax, 16

        je      encoding_ZRLE

        DEBUGF  2, "unknown encoding: %u\n", eax

        jmp     thread_loop

next_rectangle:

        inc     [update_framebuffer]

        dec     [rectangles]

        jnz     rectangle_loop

        jmp     request_fbu

setcolourmapentries:

        DEBUGF  1, "Server sent SetColourMapEntries message\n"

  @@:

        lea     eax, [esi+5]

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        jmp     @b

  @@:

        inc     esi             ; padding

        xor     eax, eax

        lodsw                   ; first color (just ignore for now)

        lodsw                   ; number of colors (use to find end of message)

        xchg    al, ah

        lea     eax, [eax*2+eax]

        shl     eax, 1

  @@:

        push    eax

        add     eax, esi

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        pop     eax

        jmp     @b

  @@:

        pop     eax

        add     esi, eax        ; Just skip it for now.

        jmp     thread_loop

bell:

        mcall   55, 55, , , beep

        jmp     thread_loop

servercuttext:

        DEBUGF  1, "Server cut text\n"

  @@:

        lea     eax, [esi+7]

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        jmp     @b

  @@:

        add     esi, 3

        lodsd

        bswap   eax

        mov     ecx, eax

  @@:

        lea     eax, [esi+ecx]

        cmp     [datapointer], eax

        jae     @f

        call    read_data.more

        jmp     @b

  @@:

        ; TODO: paste text to clipboard

        DEBUGF  1, "%u bytes of text\n", ecx

        add     esi, ecx

        jmp     thread_loop

read_data:

        mov     [datapointer], receive_buffer

        mov     esi, receive_buffer

  .more:

        push    ebx ecx edx esi edi

        neg     esi

        add     esi, receive_buffer + RECEIVE_BUFFER_SIZE

        jz      .buffer_end_reached

        xor     edi, edi

        mcall   recv, [socketnum], [datapointer]

        pop     edi esi edx ecx ebx

        cmp     eax, -1

        je      err_sock

        test    eax, eax

        jz      err_disconnected

        add     [datapointer], eax

        ret

  .buffer_end_reached:

        DEBUGF  1, "end of buffer reached, re-organizing\n"

        pop     edi esi edx ecx ebx

        ; Buffer is full, first needed data by program is pointed to by esi.

        ; Move all usefull data to begin of buffer

        cmp     esi, receive_buffer

        je      err_proto

        mov     ecx, [datapointer]

        sub     ecx, esi

        mov     edi, receive_buffer

        rep movsb

        mov     [datapointer], edi      ; new end of data

        mov     esi, receive_buffer     ; new start of data

        jmp     .more

err_disconnected:

        mov     [status], STATUS_DISCONNECTED

        inc     [update_gui]

        mcall   -1

err_dns:

        mov     [status], STATUS_DNS_ERR

        inc     [update_gui]

        mcall   -1

err_sock:

; TODO: distinguish between different socket errors!

        DEBUGF  2, "Socket error: %u\n", ebx

        mov     [status], STATUS_SOCK_ERR

        inc     [update_gui]

        mcall   -1

err_connect:

        mov     [status], STATUS_CONNECT_ERR

        inc     [update_gui]

        mcall   -1

        ret

err_proto:

        mov     [status], STATUS_PROTO_ERR

        inc     [update_gui]

        mcall   -1

        ret

err_handshake:

        mov     [status], STATUS_SECURITY_ERR

        lodsd                   ; Custom message from server?

        test    eax, eax

        jz      .no_msg

        bswap   eax

        mov     ecx, eax

        cmp     ecx, 512

        jb      @f

        mov     ecx, 512

  @@:

        mov     edi, sz_err_security_c

        rep movsb

        mov     byte[edi], 0

        mov     [status], STATUS_SECURITY_ERR_C

  .no_msg:

        inc     [update_gui]

        mcall   -1

        ret

err_login:

        mov     [status], STATUS_LOGIN_FAILED

        inc     [update_gui]

        mcall   -1

        ret