Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5679 → Rev 5680

/programs/network/vncc/des.inc
0,0 → 1,235
; DES routines (from http://board.flatassembler.net/topic.php?t=5575)
; Copyright (C) 2006, Tomasz Grysztar
 
macro perm_it ebx, edx, shift, mask
{
mov eax, ebx
shr eax, shift
xor eax, edx
and eax, mask
xor edx, eax
shl eax, shift
xor ebx, eax
}
 
encrypt_DES:
; esi - DES key (8 bytes)
; edx:ebx = data
; return: edx:ebx = encrypted data
bswap ebx
bswap edx
 
perm_it ebx, edx, 4, 0F0F0F0Fh
perm_it ebx, edx, 16, 0000FFFFh
perm_it edx, ebx, 2, 33333333h
perm_it edx, ebx, 8, 00FF00FFh
perm_it ebx, edx, 1, 55555555h
 
rol ebx, 1
rol edx, 1
mov esi, keys
call DES_inner_encrypt
ror ebx, 1
ror edx, 1
 
perm_it ebx, edx, 1, 55555555h
perm_it edx, ebx, 8, 00FF00FFh
perm_it edx, ebx, 2, 33333333h
perm_it ebx, edx, 16, 0000FFFFh
perm_it ebx, edx, 4, 0F0F0F0Fh
 
bswap ebx
bswap edx
ret
 
DES_create_keys:
; edi - ptr to keys (32*2 dwords)
; edx:ebx = password
 
perm_it ebx, edx, 4, 0F0F0F0Fh
perm_it edx, ebx, 16, 0000FFFFh
perm_it ebx, edx, 2, 33333333h
perm_it edx, ebx, 16, 0000FFFFh
perm_it ebx, edx, 1, 55555555h
perm_it edx, ebx, 8, 00FF00FFh
perm_it ebx, edx, 1, 55555555h
 
mov eax, ebx
shl eax, 8
mov ebx, edx
bswap ebx
and ebx, 0FFFFFFF0h
xchg edx, eax
ror eax, 20
and eax, 0xF0
or edx, eax
 
xor ecx, ecx
create_keys:
test byte [shifts+ecx], 0ffh
jz no_shift
mov eax, ebx
shl eax, 2
shr ebx, 26
or ebx, eax
mov eax, edx
shl eax, 2
shr edx, 26
or edx, eax
jmp shift_ok
no_shift:
mov eax, ebx
shl eax, 1
shr ebx, 27
or ebx, eax
mov eax, edx
shl eax, 1
shr edx, 27
or edx, eax
shift_ok:
and ebx, 0FFFFFFF0h
and edx, 0FFFFFFF0h
mov eax, ebx
shr eax, 28
mov ebp, [pc2_0+eax*4]
mov eax, ebx
shr eax, 24
and eax, 0Fh
or ebp, [pc2_1+eax*4]
mov eax, ebx
shr eax, 20
and eax, 0Fh
or ebp, [pc2_2+eax*4]
mov eax, ebx
shr eax, 16
and eax, 0Fh
or ebp, [pc2_3+eax*4]
mov eax, ebx
shr eax, 12
and eax, 0Fh
or ebp, [pc2_4+eax*4]
mov eax, ebx
shr eax, 8
and eax, 0Fh
or ebp, [pc2_5+eax*4]
mov eax, ebx
shr eax, 4
and eax, 0Fh
or ebp, [pc2_6+eax*4]
mov [edi], ebp
mov eax, edx
shr eax, 28
and eax, 0Fh
mov ebp, [pc2_7+eax*4]
mov eax, edx
shr eax, 24
and eax, 0Fh
or ebp, [pc2_8+eax*4]
mov eax, edx
shr eax, 20
and eax, 0Fh
or ebp, [pc2_9+eax*4]
mov eax, edx
shr eax, 16
and eax, 0Fh
or ebp, [pc2_10+eax*4]
mov eax, edx
shr eax, 12
and eax, 0Fh
or ebp, [pc2_11+eax*4]
mov eax, edx
shr eax, 8
and eax, 0Fh
or ebp, [pc2_12+eax*4]
mov eax, edx
shr eax, 4
and eax, 0Fh
or ebp, [pc2_13+eax*4]
mov eax, ebp
shr eax, 16
xor eax, [edi]
and eax, 0FFFFh
xor [edi], eax
shl eax, 16
xor ebp, eax
mov [edi+4], ebp
add edi, 8
inc ecx
cmp ecx, 16
jb create_keys
ret
 
DES_inner_encrypt:
xor ecx, ecx
.encrypt:
mov edi, edx
ror edi, 4
xor edi, [esi+(ecx+1)*4]
push esi
mov esi, [esi+ecx*4]
xor esi, edx
mov ebp, ebx
mov ebx, edx
mov eax, esi
shr eax, 24
and eax, 3Fh
mov edx, [sbox_2+eax*4]
mov eax, esi
shr eax, 16
and eax, 3Fh
or edx, [sbox_4+eax*4]
mov eax, esi
shr eax, 8
and eax, 3Fh
or edx, [sbox_6+eax*4]
mov eax, esi
and eax, 3Fh
or edx, [sbox_8+eax*4]
pop esi
mov eax, edi
shr eax, 24
and eax, 3Fh
or edx, [sbox_1+eax*4]
mov eax, edi
shr eax, 16
and eax, 3Fh
or edx, [sbox_3+eax*4]
mov eax, edi
shr eax, 8
and eax, 3Fh
or edx, [sbox_5+eax*4]
mov eax, edi
and eax, 3Fh
or edx, [sbox_7+eax*4]
xor edx, ebp
add ecx, 2
cmp ecx, 32
jb .encrypt
xchg ebx, edx
ret
 
shifts db 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0
 
pc2_0 dd 0, 0x4, 0x20000000, 0x20000004, 0x10000, 0x10004, 0x20010000, 0x20010004, 0x200, 0x204, 0x20000200, 0x20000204, 0x10200, 0x10204, 0x20010200, 0x20010204
pc2_1 dd 0, 0x1, 0x100000, 0x100001, 0x4000000, 0x4000001, 0x4100000, 0x4100001, 0x100, 0x101, 0x100100, 0x100101, 0x4000100, 0x4000101, 0x4100100, 0x4100101
pc2_2 dd 0, 0x8, 0x800, 0x808, 0x1000000, 0x1000008, 0x1000800, 0x1000808, 0, 0x8, 0x800, 0x808, 0x1000000, 0x1000008, 0x1000800, 0x1000808
pc2_3 dd 0, 0x200000, 0x8000000, 0x8200000, 0x2000, 0x202000, 0x8002000, 0x8202000, 0x20000, 0x220000, 0x8020000, 0x8220000, 0x22000, 0x222000, 0x8022000, 0x8222000
pc2_4 dd 0, 0x40000, 0x10, 0x40010, 0, 0x40000, 0x10, 0x40010, 0x1000, 0x41000, 0x1010, 0x41010, 0x1000, 0x41000, 0x1010, 0x41010
pc2_5 dd 0, 0x400, 0x20, 0x420, 0, 0x400, 0x20, 0x420, 0x2000000, 0x2000400, 0x2000020, 0x2000420, 0x2000000, 0x2000400, 0x2000020, 0x2000420
pc2_6 dd 0, 0x10000000, 0x80000, 0x10080000, 0x2, 0x10000002, 0x80002, 0x10080002, 0, 0x10000000, 0x80000, 0x10080000, 0x2, 0x10000002, 0x80002, 0x10080002
pc2_7 dd 0, 0x10000, 0x800, 0x10800, 0x20000000, 0x20010000, 0x20000800, 0x20010800, 0x20000, 0x30000, 0x20800, 0x30800, 0x20020000, 0x20030000, 0x20020800, 0x20030800
pc2_8 dd 0, 0x40000, 0, 0x40000, 0x2, 0x40002, 0x2, 0x40002, 0x2000000, 0x2040000, 0x2000000, 0x2040000, 0x2000002, 0x2040002, 0x2000002, 0x2040002
pc2_9 dd 0, 0x10000000, 0x8, 0x10000008, 0, 0x10000000, 0x8, 0x10000008, 0x400, 0x10000400, 0x408, 0x10000408, 0x400, 0x10000400, 0x408, 0x10000408
pc2_10 dd 0, 0x20, 0, 0x20, 0x100000, 0x100020, 0x100000, 0x100020, 0x2000, 0x2020, 0x2000, 0x2020, 0x102000, 0x102020, 0x102000, 0x102020
pc2_11 dd 0, 0x1000000, 0x200, 0x1000200, 0x200000, 0x1200000, 0x200200, 0x1200200, 0x4000000, 0x5000000, 0x4000200, 0x5000200, 0x4200000, 0x5200000, 0x4200200, 0x5200200
pc2_12 dd 0, 0x1000, 0x8000000, 0x8001000, 0x80000, 0x81000, 0x8080000, 0x8081000, 0x10, 0x1010, 0x8000010, 0x8001010, 0x80010, 0x81010, 0x8080010, 0x8081010
pc2_13 dd 0, 0x4, 0x100, 0x104, 0, 0x4, 0x100, 0x104, 0x1, 0x5, 0x101, 0x105, 0x1, 0x5, 0x101, 0x105
 
sbox_1 dd 0x1010400, 0, 0x10000, 0x1010404, 0x1010004, 0x10404, 0x4, 0x10000, 0x400, 0x1010400, 0x1010404, 0x400, 0x1000404, 0x1010004, 0x1000000, 0x4, 0x404, 0x1000400, 0x1000400, 0x10400, 0x10400, 0x1010000, 0x1010000, 0x1000404, 0x10004, 0x1000004, 0x1000004, 0x10004, 0, 0x404, 0x10404, 0x1000000, 0x10000, 0x1010404, 0x4, 0x1010000, 0x1010400, 0x1000000, 0x1000000, 0x400, 0x1010004, 0x10000, 0x10400, 0x1000004, 0x400, 0x4, 0x1000404, 0x10404, 0x1010404, 0x10004, 0x1010000, 0x1000404, 0x1000004, 0x404, 0x10404, 0x1010400, 0x404, 0x1000400, 0x1000400, 0, 0x10004, 0x10400, 0, 0x1010004
sbox_2 dd 0x80108020, 0x80008000, 0x8000, 0x108020, 0x100000, 0x20, 0x80100020, 0x80008020, 0x80000020, 0x80108020, 0x80108000, 0x80000000, 0x80008000, 0x100000, 0x20, 0x80100020, 0x108000, 0x100020, 0x80008020, 0, 0x80000000, 0x8000, 0x108020, 0x80100000, 0x100020, 0x80000020, 0, 0x108000, 0x8020, 0x80108000, 0x80100000, 0x8020, 0, 0x108020, 0x80100020, 0x100000, 0x80008020, 0x80100000, 0x80108000, 0x8000, 0x80100000, 0x80008000, 0x20, 0x80108020, 0x108020, 0x20, 0x8000, 0x80000000, 0x8020, 0x80108000, 0x100000, 0x80000020, 0x100020, 0x80008020, 0x80000020, 0x100020, 0x108000, 0, 0x80008000, 0x8020, 0x80000000, 0x80100020, 0x80108020, 0x108000
sbox_3 dd 0x208, 0x8020200, 0, 0x8020008, 0x8000200, 0, 0x20208, 0x8000200, 0x20008, 0x8000008, 0x8000008, 0x20000, 0x8020208, 0x20008, 0x8020000, 0x208, 0x8000000, 0x8, 0x8020200, 0x200, 0x20200, 0x8020000, 0x8020008, 0x20208, 0x8000208, 0x20200, 0x20000, 0x8000208, 0x8, 0x8020208, 0x200, 0x8000000, 0x8020200, 0x8000000, 0x20008, 0x208, 0x20000, 0x8020200, 0x8000200, 0, 0x200, 0x20008, 0x8020208, 0x8000200, 0x8000008, 0x200, 0, 0x8020008, 0x8000208, 0x20000, 0x8000000, 0x8020208, 0x8, 0x20208, 0x20200, 0x8000008, 0x8020000, 0x8000208, 0x208, 0x8020000, 0x20208, 0x8, 0x8020008, 0x20200
sbox_4 dd 0x802001, 0x2081, 0x2081, 0x80, 0x802080, 0x800081, 0x800001, 0x2001, 0, 0x802000, 0x802000, 0x802081, 0x81, 0, 0x800080, 0x800001, 0x1, 0x2000, 0x800000, 0x802001, 0x80, 0x800000, 0x2001, 0x2080, 0x800081, 0x1, 0x2080, 0x800080, 0x2000, 0x802080, 0x802081, 0x81, 0x800080, 0x800001, 0x802000, 0x802081, 0x81, 0, 0, 0x802000, 0x2080, 0x800080, 0x800081, 0x1, 0x802001, 0x2081, 0x2081, 0x80, 0x802081, 0x81, 0x1, 0x2000, 0x800001, 0x2001, 0x802080, 0x800081, 0x2001, 0x2080, 0x800000, 0x802001, 0x80, 0x800000, 0x2000, 0x802080
sbox_5 dd 0x100, 0x2080100, 0x2080000, 0x42000100, 0x80000, 0x100, 0x40000000, 0x2080000, 0x40080100, 0x80000, 0x2000100, 0x40080100, 0x42000100, 0x42080000, 0x80100, 0x40000000, 0x2000000, 0x40080000, 0x40080000, 0, 0x40000100, 0x42080100, 0x42080100, 0x2000100, 0x42080000, 0x40000100, 0, 0x42000000, 0x2080100, 0x2000000, 0x42000000, 0x80100, 0x80000, 0x42000100, 0x100, 0x2000000, 0x40000000, 0x2080000, 0x42000100, 0x40080100, 0x2000100, 0x40000000, 0x42080000, 0x2080100, 0x40080100, 0x100, 0x2000000, 0x42080000, 0x42080100, 0x80100, 0x42000000, 0x42080100, 0x2080000, 0, 0x40080000, 0x42000000, 0x80100, 0x2000100, 0x40000100, 0x80000, 0, 0x40080000, 0x2080100, 0x40000100
sbox_6 dd 0x20000010, 0x20400000, 0x4000, 0x20404010, 0x20400000, 0x10, 0x20404010, 0x400000, 0x20004000, 0x404010, 0x400000, 0x20000010, 0x400010, 0x20004000, 0x20000000, 0x4010, 0, 0x400010, 0x20004010, 0x4000, 0x404000, 0x20004010, 0x10, 0x20400010, 0x20400010, 0, 0x404010, 0x20404000, 0x4010, 0x404000, 0x20404000, 0x20000000, 0x20004000, 0x10, 0x20400010, 0x404000, 0x20404010, 0x400000, 0x4010, 0x20000010, 0x400000, 0x20004000, 0x20000000, 0x4010, 0x20000010, 0x20404010, 0x404000, 0x20400000, 0x404010, 0x20404000, 0, 0x20400010, 0x10, 0x4000, 0x20400000, 0x404010, 0x4000, 0x400010, 0x20004010, 0, 0x20404000, 0x20000000, 0x400010, 0x20004010
sbox_7 dd 0x200000, 0x4200002, 0x4000802, 0, 0x800, 0x4000802, 0x200802, 0x4200800, 0x4200802, 0x200000, 0, 0x4000002, 0x2, 0x4000000, 0x4200002, 0x802, 0x4000800, 0x200802, 0x200002, 0x4000800, 0x4000002, 0x4200000, 0x4200800, 0x200002, 0x4200000, 0x800, 0x802, 0x4200802, 0x200800, 0x2, 0x4000000, 0x200800, 0x4000000, 0x200800, 0x200000, 0x4000802, 0x4000802, 0x4200002, 0x4200002, 0x2, 0x200002, 0x4000000, 0x4000800, 0x200000, 0x4200800, 0x802, 0x200802, 0x4200800, 0x802, 0x4000002, 0x4200802, 0x4200000, 0x200800, 0, 0x2, 0x4200802, 0, 0x200802, 0x4200000, 0x800, 0x4000002, 0x4000800, 0x800, 0x200002
sbox_8 dd 0x10001040, 0x1000, 0x40000, 0x10041040, 0x10000000, 0x10001040, 0x40, 0x10000000, 0x40040, 0x10040000, 0x10041040, 0x41000, 0x10041000, 0x41040, 0x1000, 0x40, 0x10040000, 0x10000040, 0x10001000, 0x1040, 0x41000, 0x40040, 0x10040040, 0x10041000, 0x1040, 0, 0, 0x10040040, 0x10000040, 0x10001000, 0x41040, 0x40000, 0x41040, 0x40000, 0x10041000, 0x1000, 0x40, 0x10040040, 0x1000, 0x41040, 0x10001000, 0x40, 0x10000040, 0x10040000, 0x10040040, 0x10000000, 0x40000, 0x10001040, 0, 0x10041040, 0x40040, 0x10000040, 0x10040000, 0x10001000, 0x10001040, 0, 0x10041040, 0x41000, 0x41000, 0x1040, 0x1040, 0x40040, 0x10000000, 0x10041000
/programs/network/vncc/gui.inc
79,7 → 79,7
mov esi, 0xCCCCCC
mcall 8 ; Login button
 
mov ebx, 240 shl 16 + 49
mov ebx, 240 shl 16 + 52
mov edx, loginstr
mov esi, loginstr_e-loginstr
mcall 4 ; Login button text
175,7 → 175,6
jmp .loop
 
.mouse:
mcall 23
cmp [status], STATUS_INITIAL
jne @f
invoke edit_box_mouse, URLbox
188,4 → 187,5
jmp .loop
 
.close:
mov [status], STATUS_CLOSED
mcall -1
/programs/network/vncc/network.inc
29,8 → 29,7
mov [sockaddr1.ip], eax
 
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.ip]:1, [sockaddr1.ip+1]:1, [sockaddr1.ip+2]:1, [sockaddr1.ip+3]:1, \
[sockaddr1.port]:2
 
invoke freeaddrinfo, esi
49,25 → 48,118
 
cmp dword[receive_buffer], "RFB "
jne err_proto
DEBUGF 1, "received: %s\n", receive_buffer
DEBUGF 1, "Sending handshake\n"
mcall send, [socketnum], HandShake, 12, 0
DEBUGF 1, "Sending handshake: protocol version\n"
 
call wait_for_data
 
cmp dword[receive_buffer], 0x01000000
je no_security
cmp dword[receive_buffer], 0x02000000
cmp dword[receive_buffer], 0x01000000 ; no security
je initialize
cmp dword[receive_buffer], 0x02000000 ; VNC security
je vnc_security
 
jmp err_security
 
vnc_security:
mov [status], STATUS_LOGIN
call draw_gui
 
no_security:
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 ebx, dword[receive_buffer+4]
mov edx, dword[receive_buffer+8]
call encrypt_DES
mov dword[receive_buffer+4], ebx
mov dword[receive_buffer+8], edx
 
mov ebx, dword[receive_buffer+12]
mov edx, dword[receive_buffer+16]
call encrypt_DES
mov dword[receive_buffer+12], ebx
mov dword[receive_buffer+16], 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
 
mcall send, [socketnum], receive_buffer+4, 16, 0
 
call wait_for_data
cmp dword[receive_buffer], 0
jne err_login
; jmp initialize
 
initialize:
DEBUGF 1, "Sending ClientInit\n"
mcall send, [socketnum], ClientInit, 1, 0
DEBUGF 1, "ClientInit sent\n"
 
call wait_for_data ; now the server should send init message
 
349,3 → 441,9
inc [update_gui]
mcall -1
ret
 
err_login:
mov [status], STATUS_LOGIN_FAILED
inc [update_gui]
mcall -1
ret
/programs/network/vncc/vncc.asm
73,6 → 73,7
STATUS_REQ_LOGIN = 2
STATUS_LOGIN = 3
STATUS_CONNECTED = 4
STATUS_CLOSED = 5
 
STATUS_DISCONNECTED = 10
STATUS_DNS_ERR = 11
82,6 → 83,7
STATUS_SECURITY_ERR = 15
STATUS_LIB_ERR = 16
STATUS_THREAD_ERR = 17
STATUS_LOGIN_FAILED = 18
 
include "keymap.inc"
include "gui.inc"
89,6 → 91,7
include "raw.inc"
include "copyrect.inc"
include "rre.inc"
include "des.inc"
 
START:
 
210,6 → 213,7
 
button:
mcall 17 ; get id
mov [status], STATUS_CLOSED
mcall close, [socketnum]
mcall -1
 
320,8 → 324,8
update_framebuffer dd 0
 
URLbox edit_box 235, 70, 10, 0xffffff, 0x6f9480, 0, 0, 0, 65535, serveraddr, mouse_dd, ed_focus, 0, 0
USERbox edit_box 150, 70, 10, 0xffffff, 0x6f9480, 0, 0, 0, 127, username, mouse_dd, ed_focus, 0, 0
PASSbox edit_box 150, 90, 10, 0xffffff, 0x6f9480, 0, 0, 0, 127, password, mouse_dd, 0, 0, 0
USERbox edit_box 200, 90, 10, 0xffffff, 0x6f9480, 0, 0, 0, 127, username, mouse_dd, ed_focus, 0, 0
PASSbox edit_box 200, 90, 30, 0xffffff, 0x6f9480, 0, 0, 0, 127, password, mouse_dd, ed_pass, 0, 0
 
serverstr db "server:"
userstr db "username:"
338,6 → 342,7
sz_err_security db "Server requested an unsupported security type.", 0
sz_err_library db "Could not load needed libraries.", 0
sz_err_thread db "Could not create thread.", 0
sz_err_login_failed db "Login failed.", 0
 
err_msg dd sz_err_disconnected
dd sz_err_dns
347,6 → 352,7
dd sz_err_security
dd sz_err_library
dd sz_err_thread
dd sz_err_login_failed
 
; import
align 4
408,6 → 414,8
keymap_alt rw 128
username rb 128
password rb 128
keys rd 32*2 ; DES keys for VNC authentication
 
serveraddr rb 65536
receive_buffer rb RECEIVE_BUFFER_SIZE
framebuffer_data rb 1280*1024*3 ; framebuffer