0,0 → 1,283 |
; |
; |
; VNC Client for kolibrios by hidnplayr |
; |
; hidnplayr@gmail.com |
; |
|
format binary as "" |
|
use32 |
|
org 0x0 |
|
db 'MENUET01' ; 8 byte id |
dd 0x01 ; header version |
dd START ; start of code |
dd I_END ; size of image |
dd IM_END ; memory for app |
dd IM_END ; esp |
dd 0x0 , 0x0 ; I_Param , I_Path |
|
__DEBUG__ equ 1 |
__DEBUG_LEVEL__ equ 1 |
|
STRLEN = 64 ; password and server max length |
xpos = 4 ; coordinates of image |
ypos = 22 ; |
|
TIMEOUT = 5 ; timeout in seconds |
|
include '../macros.inc' |
include '../debug-fdo.inc' |
include '../proc32.inc' |
include '../dll.inc' |
include '../struct.inc' |
include '../network.inc' |
|
include 'structs.inc' |
include 'logon.inc' |
include 'raw.inc' |
include 'thread.inc' |
|
START: |
|
mcall 68, 11 ; init heap |
|
; load libraries |
stdcall dll.Load, @IMPORT |
test eax, eax |
jnz exit |
|
call red_logon |
|
mcall 40, 0 ; no events |
mcall 67, 0, 0, 0, 0 ; resize the window (hide it) |
mcall 51, 1, thread_start, thread_stack |
|
DEBUGF 1,'Thread created: %u\n', eax |
|
@@: |
mcall 5, 10 |
cmp byte [thread_ready], 0 |
je @r |
|
mcall 40, 100111b ; mouse, button, key, redraw |
|
|
mov edx, dword [screen] |
movzx esi, dx |
shr edx, 16 |
add edx, 2*xpos |
add esi, ypos+xpos |
mcall 67, 10, 10 ; resize the window |
|
mainloop: |
mcall 23, 50 ; wait for event, 0,5s timeout |
|
dec eax |
jz redraw |
|
dec eax |
jz key |
|
dec eax |
jz button |
|
sub eax, 3 |
jz mouse |
|
jmp mainloop |
|
key: |
|
DEBUGF 1,'Sending key event\n' |
|
mcall 2 |
mov byte [keyevent.key+3], ah |
|
mcall send, [socketnum], keyevent, 8, 0 |
jmp mainloop |
|
mouse: |
|
DEBUGF 1,'Sending mouse event\n' |
|
mcall 37, 1 ; get mouse pos |
sub eax, xpos shl 16 + ypos |
bswap eax |
mov [pointerevent.x], ax |
shr eax, 16 |
mov [pointerevent.y], ax |
|
mcall 37, 2 ; get mouse buttons |
test al, 00000010b ; test if right button was pressed (bit 1 in kolibri) |
jz @f |
add al, 00000010b ; in RFB protocol it is bit 2, so if we add bit 2 again, we'll get bit 3 and bit 1 will remain the same |
@@: |
mov [pointerevent.mask],al |
|
mcall send, [socketnum], pointerevent, 6, 0 |
jmp mainloop |
|
redraw: |
|
DEBUGF 1,'Drawing window\n' |
|
mcall 12, 1 |
|
mov ebx, dword[screen] |
movzx ecx, bx |
shr ebx, 16 |
mov edx, 0x74ffffff |
mov edi, name |
mcall 0 ; draw window |
|
call drawbuffer |
|
mcall 12, 2 |
|
jmp mainloop |
|
drawbuffer: |
|
mcall 7, framebuffer_data, dword[screen], 0 |
ret |
|
|
button: |
mcall 17 ; get id |
|
exit: |
DEBUGF 1, 'Closing time!\n' |
mcall close, [socketnum] |
mcall -1 |
|
no_rfb: |
DEBUGF 1, 'This is no vnc server!\n' |
jmp exit |
|
invalid_security: |
DEBUGF 1, 'Security error: %s\n', receive_buffer+5 |
jmp exit |
|
|
; DATA AREA |
|
include_debug_strings ; ALWAYS present in data section |
|
handshake db 'RFB 003.003', 10 |
shared db 0 |
beep db 0x85,0x25,0x85,0x40,0 |
|
pixel_format32 db 0 ; setPixelformat |
rb 3 ; padding |
.bpp db 32 ; bits per pixel |
.depth db 32 ; depth |
.big_endian db 0 ; big-endian flag |
.true_color db 1 ; true-colour flag |
.red_max db 0,255 ; red-max |
.green_max db 0,255 ; green-max |
.blue_max db 0,255 ; blue-max |
.red_shif db 0 ; red-shift |
.green_shift db 8 ; green-shift |
.blue_shift db 16 ; blue-shift |
rb 3 ; padding |
|
pixel_format16 db 0 ; setPixelformat |
rb 3 ; padding |
.bpp db 16 ; bits per pixel |
.depth db 15 ; depth |
.big_endian db 0 ; big-endian flag |
.true_color db 1 ; true-colour flag |
.red_max db 0,31 ; red-max |
.green_max db 0,31 ; green-max |
.blue_max db 0,31 ; blue-max |
.red_shif db 0 ; red-shift |
.green_shift db 5 ; green-shift |
.blue_shift db 10 ; blue-shift |
rb 3 ; padding |
|
pixel_format8 db 0 ; setPixelformat |
rb 3 ; padding |
.bpp db 8 ; bits per pixel |
.depth db 6 ; depth |
.big_endian db 0 ; big-endian flag |
.true_color db 1 ; true-colour flag |
.red_max db 0,3 ; red-max |
.green_max db 0,3 ; green-max |
.blue_max db 0,3 ; blue-max |
.red_shif db 0 ; red-shift |
.green_shift db 2 ; green-shift |
.blue_shift db 4 ; blue-shift |
rb 3 ; padding |
|
encodings db 2 ; setEncodings |
rb 1 ; padding |
db 1,0 ; number of encodings |
db 0,0,0,0 ; raw encoding (DWORD, Big endian order) |
db 1,0,0,0 ; Copyrect encoding |
|
fbur db 3 ; frame buffer update request |
.inc db 0 ; incremental |
.x dw 0 |
.y dw 0 |
.width dw 0 |
.height dw 0 |
|
keyevent db 4 ; keyevent |
.down db 0 ; down-flag |
dw 0 ; padding |
.key dd 0 ; key |
|
pointerevent db 5 ; pointerevent |
.mask db 0 ; button-mask |
.x dw 0 ; x-position |
.y dw 0 ; y-position |
|
|
sockaddr1: |
dw AF_INET4 |
.port dw 0x0c17 ; 5900 |
.ip dd 0 |
rb 10 |
|
thread_ready db 0 |
; import |
align 4 |
@IMPORT: |
|
library network, 'network.obj' |
import network, \ |
getaddrinfo, 'getaddrinfo', \ |
freeaddrinfo, 'freeaddrinfo', \ |
inet_ntoa, 'inet_ntoa' |
|
name db 'VNC client', 0 |
|
I_END: |
|
socketnum dd ? |
datapointer dd ? |
|
frame: |
.width dw ? |
.height dw ? |
.x dw ? |
.y dw ? |
|
screen: |
.height dw ? |
.width dw ? |
|
receive_buffer rb 5*1024*1024 ; 5 mb buffer for received data (incoming frbupdate etc) |
framebuffer_data rb 1024*768*3 ; framebuffer |
|
|
rb 0x1000 |
thread_stack: |
|
rb 0x1000 |
IM_END: |
|
|