WebSVN – Kolibri OS – Diff – /programs/network/icq/trunk/ki.asm


; <--- description --->
; compiler:     FASM 1.67.21
; name:         ICQ for Kolibri
; version:      0.01
; written by:   LV
; e-mail:       lv4evil@ya.ru
 
 
; <--- include all MeOS stuff --->
include "lang.inc"
include "../../../macros.inc"
purge mov
;include "ASCL9/ascl.inc"
;include "debug.inc"
include "editbox.inc"
 
; <--- start of MenuetOS application --->
MEOS_APP_START
 
;include "debug.inc"
include "2000.inc"
include "comp.inc"
 
use_edit_box procinfo,22,5
 
; <--- start of code --->
CODE
    
    
    ;mov eax, 40
    ;mov ebx, 47h
    ;int 40h
   
    call    loaduin
    call    draw_window 	   ; at first create and draw the window
    
    ;call    buttonbox
 
  wait_event:			   ; main cycle
    mov     eax, 23
    mov     ebx, 20
    int     0x40
 
    cmp     eax, 1		   ;   if event == 1
    je	    redraw		   ;     jump to redraw handler
    cmp     eax, 2		   ;   else if event == 2
    je	    key 		   ;     jump to key handler
    cmp     eax, 3		   ;   else if event == 3
    je	    button		   ;     jump to button handler
   
    ;
    ; ¤¥¬ ¤ ­­ëå
    ;
    mov     eax, 53
    mov     ebx, 2
    push    ecx
    mov     ecx, [socket]
    int     0x40
    pop     ecx
    cmp     eax, 0
    jnz     read_socket
 
    mouse_edit_box inputbox
    ;
    ; á«¨ ¥áâì á®¥¤¨­¥­¨¥ á á¥à¢¥à®¬, ¯®áë« ¥¬ ¯ ª¥âë - ¯®¤â¢¥¦¤¥­¨ï ª ¦¤ë¥ 60 á
    ;
    call    sendkeep
    
    jmp     wait_event		   ;   else return to the start of main cycle
 
 
  redraw:			   ; redraw event handler
    call    draw_window
    jmp     wait_event
 
 
  key:				   ; key event handler
    mov     eax, 2		   ;   get key code
    int     0x40
 
    cmp ah, 0Dh 		   ; à®¡¥« - ®â¯à ¢¨âì á®®¡é¥­¨¥
    jz send
 
 
    key_edit_box inputbox
 
    jmp     wait_event
 
 
  button:			   ; button event handler
    mov     eax, 17		   ;   get button identifier
    int     0x40
 
    cmp     ah, 2
    jz	    connect
 
    cmp     ah, 3
    jz	    disconnect
 
    cmp     ah, 4
    jz	    send
 
    ;
    ; à®¢¥àï¥¬, ­¥ ­ ¦ â  «¨ ª­®¯ª  ¢ 
    ; 100 
    cmp ah, UINS+100
    jnc @f
    cmp ah, 100
    jc @f
    ;
    ;  ¦ â 
    ;
    sub ah, 100
    mov [curruser], ah
    ;
    ; ë¢®¤¨¬ áâà®çªã, ª®¬ã
    ;
    shr eax, 8
    and eax, 000000FFh
    push eax
    mov eax, CUSER
    call strlen
    mov ecx, eax
    mov eax, CUSER
    mov ebx, buff
    call strcpy
    pop eax
    mov ebx, NAME_LEN
    imul ebx, eax
    lea eax, [names+ebx]
    mov [buff+ecx], ' ' ; à®¡¥«
    lea ebx, [buff+ecx+1]
    mov ecx, NAME_LEN
    call strcpy
    mov eax, buff
    xor ebx, ebx
    call writemsg
 
 
 
 
  @@:
    cmp     ah, 1
    jne     wait_event		   ;   return if button id != 1
 
    or	    eax, -1		   ;   exit application
    int     0x40
 
 
  draw_window:
    mov     eax, 12		   ; start drawing
    mov     ebx, 1
    int     0x40
 
    mov     eax, 0		   ; create and draw the window
    mov     ebx, 100*65536+700	   ;   (window_cx)*65536+(window_sx)
    mov     ecx, 100*65536+500	   ;   (window_cy)*65536+(window_sy)
    mov     edx, 0x03ffffff	   ;   work area color & window type 3
;   mov     esi, 0                 ;   grab color (not used)
;   mov     edi, 0                 ;   frame color (not used)
    int     0x40
 
    mov     eax, 4		   ; window header
    mov     ebx, 8*65536+8	   ;   coordinates
    mov     ecx, 0x10ffffff	   ;   color & font N1
    mov     edx, header 	   ;   address of text
    mov     esi, header.size	   ;   length of text
    int     0x40
 
    draw_edit_box inputbox
 
    rect 10, 30, 500, 450, 0
 
    draw_button 600, 460, 60, 15, 2, 'CONNECT'
    ;draw_button 600, 460, 60, 15, 3, 'Disconnect'
    draw_button 530, 460, 60, 15, 4, 'SEND'
 
    call printbuff
    call    buttonbox
    
 
    mov     eax, 12		   ; finish drawing
    mov     ebx, 2
    int     0x40
 
  ret
 
;
;  ®¥¤¨­¥­¨¥
;
  connect:
  mov eax, ICQ_IP
  mov ebx, ICQ_PORT
  call srv_connect
  ;call srv_login
 
 
  jmp wait_event
 
 
;
;
;
  disconnect:
  mov ecx, [socket]
  call closesocket
 
  jmp wait_event
 
 
;
;
;
  send:
  ;
  ; ¯à¥¤¥«ï¥¬, ­¥ á¬¥­¥­ «¨ â¥ªãé¨© 
  ;
  ; «ï á¬¥­ë ¨á¯®«ì§ã¥âáï / ¢ ­ ç «¥ áâà®ª¨ ¨ ­®¬¥à ã¨­  
  ; ¯® ¯®àï¤ªã. á«¨ ¤«¨­  > 2 á¨¬¢®«®¢, áç¨â ¥âáï, çâ® ¯¥à¥¤ ­
  ; á ¬ ã¨­ - ¤«ï ®â¯à ¢ª¨ á®®¡é¥­¨© î§¥à ¬, ª®â®àëå ­¥â ¢ 
  ;
    mov al, [inputbuff]
    cmp al, '/'
    jnz sd_message
    ; ¬¥­  ã¨­ 
    ;mov al, [inputbuff+2]
    ;cmp al, 20h
    ;jz sd_use_kl
    mov al, [inputbuff+3]
    cmp al, 20h 	   ; à®¡¥«
    jz sd_use_kl
    ;
    ; é¥¬ ¯¥à¢ë© ¯à®¡¥«, ¨¬ ¤®«¦¥­ § ª®­ç¨âìáï ã¨­
    ;
    xor ecx, ecx
  sd_loop:
    mov al, [inputbuff+ecx]
    cmp al, 20h
    jz sd_space
    cmp al, 0
    jz	wait_event
    inc ecx
    jmp sd_loop
 
  sd_space:
    ;
    ;  ¬¥­ï¥¬ ¯à®¡¥« ­  0, ®âáë« ¥¬ á®®¡é¥­¨¥
    mov [inputbuff+ecx], byte 0
    lea ebx, [inputbuff+1]
    lea eax, [inputbuff+ecx+1]
    call sendmsg
    mov ebx, 0000FFh
    call writemsg
    jmp wait_event
 
 
 
  sd_use_kl:
    lea eax, [inputbuff+1]
    mov [inputbuff+3], byte 0
    call ascitoint
    lea eax, [eax-1]	; .ª. ¢  ®âáç¥â á 0
    mov [curruser], al
    
 
  sd_message:
  ;
  ; ®®¡é¥­¨¥
    movzx eax, [curruser]
    mov ebx, UIN_LEN
    imul ebx, eax
    lea ebx, [uins+ebx]
    mov al, [inputbuff]
    cmp al, '/'
    jz @f
    mov eax, inputbuff
    jmp sd_send
  @@:
    ;mov al, [inputbuff+2]
    ;cmp al, ' '
    ;jz @f
    lea eax, [inputbuff+4]
    ;jmp sd_send
  ;@@: lea eax, [inputbuff+3]
  
  sd_send:
    call sendmsg
    mov ebx, 0000FFh
    call writemsg
 
 
  jmp wait_event
 
 
;
; áâì ¯à¨­ïâë¥ ¤ ­­ë¥
;
  read_socket:
    pushf
    pushad
    ;write_debug 'Some data in socket'
    ;
    ; à®¢¥àï¥¬, ­¥ ¡ë« «¨ ¯®«ãç¥­ § £®«®¢®ª ®â¤¥«ì­® ®â ¤ ­­ëå 
    ; ¢ ¯à¥¤ë¤ãé¥¬ æ¨ª«¥
    ;
    cmp [hrf], 1
    jz rs_head_recived
 
 
    mov eax, 53
    mov ebx, 2
    mov ecx, [socket]
    int 40h
    cmp eax, 6 ; Flap head size
    jc r_end
    ;
    ; à¨­¨¬ ¥¬ § £®«®¢®ª
    ;
    xor edx, edx
 
    ;mov ecx, [socket]
   rs_loop:
    mov eax,  53
    mov ebx, 3
    
    int 40h
 
    mov [mbuff+edx], bl
    inc edx
    cmp edx, 6
 
    jnz rs_loop
    ;
    ;  ¯®«­ï¥¬ § £®«®¢®ª
    ;
    ;xor eax, eax
 
    ;
    ;  £®«®¢®ª ¯à¨­ïâ!
    ;
    mov [hrf], 1
 
    mov bl, [mbuff]
    mov [rflap.bId], bl
 
    mov bl, [mbuff+1]
    mov [rflap.bCh], bl
 
    mov bh, [mbuff+2]
    mov bl, [mbuff+3]
    mov [rflap.wSn], bx
 
    mov bh, [mbuff+4]
    mov bl, [mbuff+5]
    mov [rflap.wDs], bx 
 
    ;
    ; à¨­¨¬ ¥¬ ¤ ­­ë¥
    ;
    ;xor edx, edx
    cmp [rflap.bId], 2Ah
    jnz rs_flap_error
    ;
    ;  à®¢¥àï¥¬, ¯®«ãç¥­ë «¨ ¤ ­­ë¥
    ;
  rs_head_recived:
 
    mov eax, 53
    mov ebx, 2
    ;mov ecx, [socket]
    int 40h
    cmp ax, [rflap.wDs]   ;  §¬¥à ¤ ­­ëå
    jc r_end
    ;
    ;
    mov ax, [rflap.wDs]
    ;
    ; à®¢¥àï¥¬ à §¬¥à ¤ ­­ëå
    ;
    cmp ax, MBUFF_SIZE+1
    jnc rs_big_flap
 
    xor esi, esi     
    mov esi, eax
    xor edx, edx
 
    ;mov ecx, [socket]
 
   rs_data_loop:
    cmp edx, esi
    jz rs_data_end
 
    mov eax, 53
    mov ebx, 3
    int 40h
    mov [mbuff+edx], bl
    inc edx
    jmp rs_data_loop
 
    ;
    ;  ­­ë¥ ¯à¨­ïâë
    ;
    rs_data_end:
    mov [hrf], 0
    write_debug 'Some data received'
    ;
    ;
    ;
    cmp [login], 0
    jz rs_login
    call main_loop
    jmp r_end
 
 
    rs_login:
    call srv_login
    ;write_debug 'Exited srv_login'
    jmp r_end
 
    rs_flap_error:
    write_debug 'Invalid Flap'
    ;
    ; FLAP.id ­¥¢¥à­ë©. ­ã¦­® § ªàëâì á®ª¥â
    ;
 
    mov ecx, [socket]
    ;call closesocket
    jmp r_end
 
    ;
    ;  «¨èª®¬ ¡®«ìè®© ¯ ª¥â!
    ;
    rs_big_flap:
 
    write_debug 'Too BIG FLAP Received'
    mov [hrf], 0
 
    mov ecx, [socket]
    mov ax, [rflap.wDs]
    xor esi, esi     
    mov esi, eax
    xor edx, edx
 
   rs_data_loop2:
    cmp edx, esi
    jz r_end
 
    mov eax, 53
    mov ebx, 3
    int 40h
    ;mov [mbuff+edx], bl
    inc edx
    jmp rs_data_loop2
 
 
 
 
 
    r_end:
    
    popad
    popf
  jmp wait_event
 
; ®¥¤¨­¥­¨¥ á á¥à¢¥à®¬, ¢®§¢à é ¥â ¢ eax - åí­¤« á®ª¥â 
; ¯¥à¥¤ ¥¬ ¢ ¥ å IP  ¤à¥á á¥à¢¥à 
; ¢ ebx - ¯®àâ
  srv_connect:	
    push ecx 
    push edx 
    push esi 
    push edi
    push ebx
    
    mov esi, eax	     ; IP - ¢ esi
    ; find free port
    mov    ecx, 1000	     ; ¯à¥¤¥«ï¥¬ «®ª «ì­ë© ¯®àâ, ­ ç¨­ ¥¬ á 1000
 
    getlp:
    inc    ecx
    push   ecx
    mov    eax, 53
    mov    ebx, 9
    int    0x40
    pop    ecx
    cmp    eax, 0	     ; íâ®â «®ª «ì­ë© ¯®àâ ¨á¯®«ì§ã¥âáï?
    jz	   getlp	     ; ¤  - ¯à®¤®«¦ ¥¬ ¯¥à¥¡¨à âì
    ;OK ecx = port number
    ;Open Socket
    mov eax, 53
    mov ebx, 5
    xor edx, edx
    ;mov dx, ICQ_PORT
    pop edx
    ;mov esi,ICQ_IP
    mov edi, 1;SOCKET_ACTIVE
 
    int 040h
    ;
    mov [socket], eax
    ;
    ; ¤¥¬ ãáâ ­®¢ª¨ á®¥¤¨¥­¨ï
    mov ecx, eax
  srv_loop:
    
    mov eax, 53
    mov ebx, 6
    int 40h
    cmp eax, TCB_ESTABLISHED 
    jz fin
    cmp eax, 11
    jae @f
    ;
    mov eax, 5
    mov ebx, 50
    int 40h
    jmp srv_loop
 
 
 
 
    ;cmp eax,-1
    ;jnz fin
    ;delay 100
    write_debug 'CONNECTION FAILED'		      ;®¤ª«îç¥­¨¥ ­¥ ã¤ «®áì
    jmp @f
    ;connrcted:  
					  ;CONNECTED
    
    fin:
    write_debug 'Connected!!!!'
  @@:
    pop edi 
    pop esi 
    pop edx 
    pop ecx 
    ;pop ebx
  ret
 
;
; --> ecx socket handle
;
  buff db 1024 dup 0
  lbuff db 8 dup 0	 ; «ï 1 ¯ ª¥â  ®â á¥à¢¥à 
  srv_login:
    pushf
    push eax
    push ebx
    ;push ecx
    push edx
 
    ;
    ; ¯à¥¤¥«ï¥¬ â¨¯ ¯®«ãç¥­­ëå ¤ ­­ëå
    ;
    movzx eax, [rflap.bCh]
    cmp eax, 01
    jz s_new_connection
    cmp eax, 04
    jz s_cookie        ; cookie
    jmp l_flap_err
 
  s_new_connection:
    ;
    ; à®¢¥àï¥¬ ¯®«ãç¥­­ë© ¯ ª¥â
    ;
    movzx eax, [rflap.wDs]
    cmp eax, 4
    jnz l_len_err
    mov eax, dword [mbuff]
    cmp eax, 01000000h	    ; 00 00 00 01
    jnz l_data_err
    ;
    ;®à¬¨àã¥¬ ¯ ª¥â ¤«ï á®¥¤¨­¥­¨ï
    ;
    ;mov [flap.bId], FLAP_ID
    mov [flap.bCh], NEW_CONNECTION
    
    mov eax, 26
    mov ebx, 9
    int 40h
    mov [seq], ax
 
    mov [flap.wSn], ax	    ; Sequence number
    ;mov [buff],0
    ;mov [buff+1],0
    ;mov [buff+2],0
    mov dword [buff], 0x01000000 ;login Protokol version  00 00 00 01
    ;mov[buff+4],0
    mov word [buff+4], 0x0100; TLV.TYPE = UIN     00 01
 
    mov eax, UIN
    call strlen
    mov [buff+6], ah
    mov [buff+7], al ; Length of UIN 
    mov edx, eax
    add edx, 7		       ; ¢ edx ¤«¨­  § ¯®«­¥­­®£® ¡ãä¥à 
    
    mov ecx, eax	      ;«¨­  áâà®ª¨
 
    mov eax, UIN
    lea ebx, [buff+8]	      ; + à §¬¥à ¤ ­­ëå ¢ ¡ãä¥à¥ + 1 
 
    call strcpy
 
    
    mov eax, PASS
    call roast
    
    mov [buff+edx+2], 2 ; TLV.TYPE - rosted password
    call strlen
    mov word [buff+edx+4], ax  ; Length of pass
 
    add edx, 4
    mov ebx, buff
    add ebx, edx	       ; ­ §­ ç¥­¨¥
    add edx, eax	       ; ®åà ­ï¥¬ ¢ EDX ¤«¨­ã § ¯®«­¥­­®£® ¡ãä­à 
    mov ecx, eax	       ; «¨­  áâà®ª¨
    mov eax, PASS	       ; áâ®ç­¨ª
    inc ebx
    call strcpy
    
    mov [buff+edx+2], 3 ; TLV.TYPE - client id string
    mov eax, ID_STRING
    call strlen
    mov word [buff+edx+4], ax
 
    add edx, 4
    mov ecx, eax
    mov ebx, buff
    add ebx, edx
    add edx, eax
    inc ebx
    mov eax, ID_STRING
    call strcpy
 
    mov [buff+edx+2], 016h  ; TLV.TYPE - Client id
    mov [buff+edx+4], 2
    mov word [buff+edx+6], ID_NUM
    add edx, 6
 
    mov [buff+edx+2], 017h ; Client major version
    mov [buff+edx+4], 2
    mov [buff+edx+6], MAJOR
    add edx, 6
 
    mov [buff+edx+2], 018h ; Client minor version
    mov [buff+edx+4], 2
    mov [buff+edx+6], MINOR
    add edx, 6
 
    mov [buff+edx+2], 019h ; Client lesser version
    mov [buff+edx+4], 2
    mov [buff+edx+6], LESSER
    add edx, 6
 
    mov [buff+edx+2], 01Ah ; Client build number
    mov [buff+edx+4], 2
    mov word [buff+edx+6], BUILD
    add edx, 6
    
    mov [buff+edx+2], 014h ; Client distribution number
    mov [buff+edx+4], 4
    mov [buff+edx+8], DISTR
    add edx, 8
 
    mov [buff+edx+2], 0Fh ; Client language
    mov eax, CL_LANG
    call strlen
    mov word [buff+edx+4], ax
    add edx, 4
    mov ecx, eax
    mov ebx, buff
    add ebx, edx
    inc ebx
    add edx, eax
    mov eax, CL_LANG
    call strcpy
 
    mov [buff+edx+2], 0Fh ; Client language
    mov eax, CL_COUNTRY
    call strlen
    mov word [buff+edx+4], ax
    add edx, 4
    mov ecx, eax
    mov ebx, buff
    add ebx, edx
    inc ebx
    add edx, eax
    mov eax, CL_COUNTRY
    call strcpy
    
   ;write_debug 'Connect attemption'
   ; mov eax, ICQ_IP
   ; call srv_connect
   ; cmp eax, -1   ; ®¤ª«îç¥­¨¥ ­¥ ã¤ «®áì
   ; jz l_fin
 
   ; mov ecx, eax
   ; mov eax, rflap
   ; mov ebx, lbuff
   ; call recvflap
    
  ;  cmp eax, -1
   ; jz l_flap_err
   ; cmp [rflap.bCh], 01 ; AUTH channel
   ; jnz l_ch_err
   ; cmp eax, 4
   ; jnz l_len_err
   ; cmp dword [lbuff+3], dword 1
   ; jnz l_data_err
 
    mov ecx, [socket]
    inc dx
    mov [flap.wDs], dx ; Data size
    mov eax, flap
    mov ebx, buff
    call sendflap
    cmp eax, 0
    jnz l_fin		; ¥ãá¯¥å
    jmp l_end
    
 
    s_cookie:
    ;mov eax, rflap
    ;mov ebx, buff
    ;call recvflap
    ;cmp eax, -1
    ;jz l_flap_err
    ;cmp [rflap.bCh], 4
    ;jnz l_ch_err
 
    ;write_debug 'UIN'
    xor ebx, ebx
 
   uin_loop:
    xor eax, eax
    mov ax, word [mbuff+ebx]
    cmp ax, 0100h	       ;  00 01 TLV.Type UIN
    jz l_uin_ok 		 ;  ¥¯¥àì á¥à¢¥à ¯¥à¥¤ ¥â ¥é¥ ¤ ­­ë¥ ¯à¨ á®¥¤¨­¥­¨¨,   ¯®â®¬ ®¯ïâì
    add ebx, 5			       ; â®â ¦¥ TLV 1
    cmp ebx, 5
    ja l_tlvt_err
    jmp uin_loop
 
 
 
 
 
  l_uin_ok:
    mov eax, ebx
    xor ebx, ebx
    mov bl, [mbuff+eax+3]	    ;
    mov bh, [mbuff+eax+2]	    ;  «¨­  ¤ ­­ëå
    ;
    ;  UIN ®ª  ­¥ ¯à®¢¥àï¥âáï
    ;
    
 
    lea ebx, [ebx+eax+4]
    mov ax, word [mbuff+ebx]
    cmp ax, 0500h	      ; 00 05 Bos address
    jz l_all_ok
    cmp ax, 0400h	      ; UIN incorrect
    jz l_uin_err
    cmp ax, 0800h
    jz l_pass_err
    jmp l_tlvt_err
    ;
    ; ¥á«¨ ­¥¢¥à­ë© UIN/ ¯ à®«ì, ¯®«ãç ¥¬ TLV.TYPE 4/8 
    ;
 
    l_all_ok:
    xor ecx, ecx
    mov cl, [mbuff+ebx+3]	;length
    mov ch, [mbuff+ebx+2]	;
    
    lea eax, [mbuff+ebx+4]
    push ebx
    mov ebx, bos_address
    call strcpy
    pop ebx
    add ebx, ecx
    lea ebx, [ebx+4]		    ;  §¬¥à § £®«®¢ª                 
    ;         
    ; cookie
    ;
    ;write_debug 'Login Cookie'
 
    xor eax, eax
    mov ax, word [mbuff+ebx]
    cmp ax, 0600h		   ; TLV.Type cookie
    jnz l_tlvt_err
    mov cl, [mbuff+ebx+3]	    ;
    mov ch, [mbuff+ebx+2]	    ; Length
    mov [cookie_len], cx
    lea eax, [mbuff+ebx+4]
    push ebx
    mov ebx, srv_cookie
    call strcpy
    pop ebx
	    
    ;                         
    ;  ®¥¤¨­ï¥¬áï á BOS    
    ;                       
    ;call srv_disconnect
    mov ecx, [socket]
    ;write_debug 'Closing socket'
    ;call closesocket
    ;
    ;
    ;mov eax, 53
    ;mov ebx, 8
    ;int 40h
 
 
 
			
    mov eax, bos_address
    call ip_parser
    
    call htonl
    data_debug 'BOS Address: ', eax
    data_debug 'BOS Port: ', ebx
    mov [bos_ip], eax	    
    mov [bos_port], ebx     
    call srv_connect
    mov [login], 1		  ; ®¥¤¨­¥­¨¥ á ®á­®¢­ë¬ á¥à¢¥à®¬ ãáâ ­®¢«¥­®
    ;mov [socket], eax
			    
 
    
    jmp l_end
    ; 
    ;
    ;
    l_pass_err:
    write_debug 'PASSWORD INVALID'
    jmp l_fin
 
    l_uin_err:
    write_debug 'UIN INVALID'
    jmp l_fin
 
    l_data_err:
    write_debug 'LOGIN DATA MISMATCH'
    jmp l_fin
 
    l_len_err:
    write_debug 'RECEIVED DATA LENGTH MISMATCH'
    jmp l_fin
 
    l_tlvt_err:
    write_debug 'TLV TYPE MISMATCH'
    jmp l_fin
 
    l_ch_err:
    write_debug 'FLAP CHANNEL MISMATCH'
    jmp l_fin
 
    l_flap_err:
    write_debug 'FLAP ID MISMATCH / RECEIVE ERROR'
 
    l_fin:
 
    ;
    ; ¥®¡å®¤¨¬® § ªàëâì á®ª¥â
    ;
    ;call srv_disconnect
    ;call closesocket
    l_end:
    pop edx
    ;pop ecx
    pop ebx
    pop eax
    popf			  
  ret		     
 
;
; Length of string
; input eax = offset string
; output eax = strlen
;
  strlen:
    push ebx
    push ecx
    pushf
    xor ebx, ebx
    xor ecx, ecx
 
    loop_s:
    mov cl, [eax+ebx]
    cmp ecx,0
    jz	nl
    inc ebx
    jmp loop_s
 
    nl:
    mov eax, ebx
    popf
    pop ecx
    pop ebx
  ret
 
;
; Roasting password
; EAX = offset password
;
 
  roast:
    pushf
    push ecx
    push ebx
 
    xor ecx, ecx
    xor ebx, ebx
 
    loop_r:
    mov bl, [eax+ecx] ;¨¬¢®« ¨§ ¬ áá¨¢  ¯ à®«ï
    cmp bl, 0	      ;®­¥æ áâà®ª¨
    jz r_fin
    
    xor bl, [ROASTING_ARRAY+ecx]
    mov [eax+ecx], bl
    inc ecx
    jmp loop_r
 
    r_fin:
    pop ebx
    pop ecx
    popf
  ret
 
 
;
;Copy string of bytes
; EAX =  ¤à¥á ¨áå®¤­®© áâà®ª¨
; EBX =  ¤à¥á ­ §­ ç¥­¨ï
; ECX = ¤«¨­  áâà®ª¨
;
  strcpy:
    pushf
    push esi
    push edi
    push ecx
 
    cld      ;¡à ¡ âë¢ ¥¬ áâà®ªã ®â ­ ç «  ª ª®­æã
    mov esi, eax
    mov edi, ebx
 
    rep movsb
 
    pop ecx
    pop edi
    pop esi
    popf    
  ret
 
 
;
;  ¯®«­ï¥â ¡ãä¥à, ¯®  ¤à¥áã ¢ ebx
; ¤ ­­ë¬¨, ¯®  ¤à¥áã eax, ¢
; cx  - ¨¯ TLV
; dx  - ¤«¨­  ¤ ­­ëå
; 
;
 
  tlvstr:
    ;pushf
    push edx
    push ecx
    push ebx
 
    mov [ebx], ch     ; Type
    mov [ebx+1], cl
 
    mov [ebx+2], dh   ; Length
    mov [ebx+3], dl
    
    lea ebx, [ebx+4]
    ; EBX = offset of destination
    mov ecx, edx
 
    call strcpy
 
    pop ebx
    pop ecx
    pop edx
    ;popf
  ret
 
;
; eax - ãª § â¥«ì ­  FLAP_head
; ebx - ãª § â¥«ì ­  ¬ áá¨¢, § ¯®«­¥­­ë© ¤ ­­ë¬¨
; ecx - å¥­¤« á®ª¥â 
; 
;  eax ¢®§¢à é ¥â à¥§ã«ìâ â § ¯¨á¨ ¢ á®ª¥â
;
  sendflap:
    pushf
    push edx
    ;push ecx
    push esi
    push ebx
    push ecx
 
    xor edx, edx
 
    mov dl, [eax]	   ; ID byte
    mov [sbuff], dl
 
    mov dl, [eax+1]	   ; FLAP channel
    mov [sbuff+1], dl
 
    mov dl, [eax+2]	   ; FLAP datagramm seq number
    mov [sbuff+3], dl	   ; ¬¥­ï¥¬ ¬¥áâ ¬¨ ¡ ©âë ¤«ï ¯¥à¥¤ ç¨ ¯® á¥â¨
    mov dl, [eax+3]
    mov [sbuff+2], dl
 
    mov dl, [eax+4]	   ; FLAP data size
    mov [sbuff+5], dl
    mov dl, [eax+5]
    mov [sbuff+4], dl
    mov dx, word [eax+4]
 
    xchg ecx, edx	    ; ecx - size edx - handle
    mov eax, ebx	    ; data
    mov ebx, sbuff	    ; dest
    add ebx, 6		    ; + header size
    call strcpy
 
    xchg ecx, edx	    ; ecx - handle, edx - data size
 
    s_wait:
    mov eax, 53 	    ; à®¢¥àï¥¬ á®áâ®ï­¨¥ á®ª¥â . á«¨ á®¥¤¨¥­¨¥
    mov ebx, 6		    ; ãáâ ­®¢«¥­® - ¯®áë« ¥¬ ¡ãä¥à, ¥á«¨ á®ª¥â § ªàëâ, ãå®¤¨¬
    int 40h
    cmp eax, TCB_ESTABLISHED ; ãáâ ­®¢«¥­®
    jz s_est
    cmp eax, TCB_CLOSED 
    jz s_fin
    cmp eax, 12 	   ;   ¬¥­ï â ª®¥ ¡ë«®, ª®£¤  á®¥¤¨­¥­¨¥ ãáâ ­ ¢«¨¢ «®áì á ¯ãáâ®â®© :-)
    jnc s_fin		   ;
 
    
    mov eax, 5
    mov ebx, 1
    int 40h		   ; ¤¥¬
    jmp s_wait
 
 
    s_est:
    mov eax, 53
    mov ebx, 7		   ; ¯¨á âì ¢ á®ª¥â
    ;xchg ecx, edx          ; ecx - handle, edx - data length
    add edx, 6		   ; + size of header
    mov esi, sbuff	   ; data
    int 40h
 
    s_fin:
    pop ecx
    pop ebx
    pop esi
    ;pop ecx
    pop edx
    popf
  ret
 
;
; à¨­¨¬ ¥â ¯ ª¥â ¨§ á®ª¥â 
; eax - ãª § â¥«ì ­  FLAP_head
; ebx - ãª § â¥«ì ­  ¬ áá¨¢
; ecx - å¥­¤« á®ª¥â 
; ®§¢à é ¥â ¢ eax ª®«¨ç¥áâ¢® ¯à¨­ïâëå ¡ ©â ¢ ¬ áá¨¢¥
;
;  recvflap:
;    pushf
;
;    ;push eax
;    push ebx
;    push esi
;    push edi
;    push edx
;    mov esi, eax
;    mov edi, ebx
;
;    r_fail:
;    mov eax, 53         ;  ¯à è¨¢  ¥¬ á®ª¥â
;    mov ebx, 2          ;  ¢ eax ª®«¨ç¥áâ¢® ¯®«ãç¥­­ëå ¡ ©â
;    int 40h             ;
;    cmp eax, 6          ;  ¡ãä¥à ­¥ ¯ãáâ®©
;    jnc r_ok
;    
;    mov eax, 53         ;  ®«ãç ¥¬ á®áâ®ï­¨¥ á®ª¥â  
;    mov ebx, 6          ;
;    int 40h             ;
;
;    cmp eax, TCB_CLOSED ; § ªàëâ - ãå®¤¨¬
;    jz r_err
;
;
;   ;mov eax, 5         ; ¦¤¥¬
;    ;mov ebx, 1
;    ;int 40h
;    ; ãå®¤¨¬
;
;    ;jmp r_fail
;    jmp rf_fin
;
;    r_ok:               ;  ¡ãä¥à¥ ¤ ­­ë¥
;    
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi], bl       ; flap.bId
;    cmp bl, FLAP_ID
;    jnz r_err
;    
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi+1], bl   ; flap.bCh
;   
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi+3], bl   ; flap.wSn áâ àè¨© ¡ ©â
;
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi+2], bl   ; flap.wSn ¬« ¤è¨© ¡ ©â
;
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi+5], bl   ; flap.wDs áâ àè¨© ¡ ©â
;
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [esi+4], bl   ; flap.wDs ¬« ¤è¨© ¡ ©â
;
;    r_check:
;    mov eax, 53       ; à®¢¥àï¥¬ ç¨á«® ¯®«ãç¥­­ëå ¡ ©â
;    mov eax, 2
;    int 40h
;    
;    xor ebx, ebx
;    mov bx, word [esi+4] ; flap.wDs
;    cmp eax, ebx
;    jnc r_drr           ;>=
;    
;    mov eax, 68           ; wait
;    mov ebx, 1
;    int 40h
;    jmp r_check
;    
;    r_drr:            ; ready for data  recive
;
;
;    xor edx, edx
;    mov dx, word [esi+4] ; flap.wDs
;    xor esi, esi
;    
;    rf_loop:
;    mov eax, 53
;    mov ebx, 3
;    int 40h
;    mov [edi+esi], bl
;    inc esi
;    cmp esi, edx
;    jnz rf_loop
;    mov eax, edx 
;    jmp rf_fin
; 
;    r_err:
;    ;pop ebx
;    ;pop eax
;    mov eax, -1
;    jmp rf_fin
;
;
;    rf_fin:
;    pop edx
;    pop edi
;    pop esi
;    pop ebx
;    ;pop eax
;    popf
;  ret
 
;
; eax - ãª § â¥«ì ­  ¡ãä¥à
; ebx - §­ ç¥­¨¥, ª®â®àë¬ ­¥®¡å®¤¨¬® § â®«­¨âì. á¯®«ì§ã¥âáï â®«ìª® bl
; ecx - à §¬¥à
;
 
  memset:
    pushf
    push edi
    push eax
    push ebx
    push ecx
 
    cld
    mov edi, eax
    mov eax, ebx
    rep stosb
 
    pop ecx
    pop ebx
    pop eax
    pop edi
    popf
  ret
 
;
;  àá¨¬ TLV
; <-- ¢ eax  ¤à¥á TLV
; <-- ¢ ebx  ¤à¥á ¡ãä¥à , ª®â®àë© ­ã¦­® § ¯®«­¨âì
; --> ¢ ebx ¤«¨­  ¯®«ãç¥­­ëå ¤ ­­ëå
; --> ¢ eax â¨¯ TLV
;
 
  tlvpar:
    pushf
    ;push esi
    ;push edi
    push ecx
    xor ecx, ecx
 
    mov cl, [eax+3]  ;TLV.Length
    mov ch, [eax+2]
    call strcpy
 
    xor eax, eax
    mov al, [ebx+1]  ;TLV.Type
    mov ah, [ebx]
    mov ebx, ecx
 
 
    pop ecx
    ;pop edi
    ;pop esi
    popf
  ret
 
;
;  <-- ECX - å¥­¤« á®ª¥â , ª®â®àë© ­ã¦­® § ªàëâì
;  --> ECX - ¥§ã«ìâ â (¥­ ¤¥¦­®)
;
  closesocket:
    push eax
    push ebx
 
    mov eax, 53
    mov ebx, 8
    int 40h
 
    mov ecx, eax
 
    pop ebx
    pop eax
  ret
 
;
; ecx <-- å¥­¤« á®ª¥â 
;
;
 
  srv_disconnect:
    pushf
    push eax
    push ebx
    mov [flap.bId], FLAP_ID
    mov [flap.bCh], 4	   ;Disconnect
    xor eax, eax
    mov ax, [seq]
    mov [flap.wSn], ax
    mov [flap.wDs], 0
    mov eax, flap
    mov ebx, buff
    call sendflap
 
 
    pop ebx
    pop eax
    popf
  ret
 
;
; <-- eax [bos_address]
; --> eax = IP ADDRESS
; --> ebx = port number
;
par_buff db 9 dup 0
 
  ip_parser:
    pushf
    push ecx
    push edx
    push esi
    push edi
 
    xor ecx, ecx
    ;xor eax, eax
    xor ebx, ebx
    xor edx, edx
    xor esi, esi
    xor edi, edi 
   
    ip_loop:
    xor eax, eax
    ;xor edx, edx
    mov al, [bos_address+ecx]
    cmp al, '.'
    jz ip_dot
    
    cmp al, 0
    jz ip_end_str
    
    cmp al, ':'
    jz ip_colon
    
    ;sub al, 30h
    ;cmp al, 9
    ;ja ip_err        ; ¥ æ¨äà 
    
    mov [par_buff+edx], al
    inc ecx
    inc edx
    jmp ip_loop 
 
    ip_dot:
    ;xor eax, eax
    mov [par_buff+edx], 0 ; ®­¥æ áâà®ª¨
    mov eax, par_buff
    call ascitoint
 
    ;data_debug 'Debug eax: ', eax
 
    cmp ecx, 0	     ; ¥ ¬®¦¥â ­ ç¨­ âìáï á â®çª¨
    jz ip_err
    shl esi, 8	     ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
    add esi, eax
    inc ecx
    xor edx, edx     ; ç¥âç¨ª ¡ãä¥à  = 0
    jmp ip_loop
 
 
    ip_colon:	      ; :  áâà®ª¥  ¤à¥á 
    inc edi	      ; ë«® :
    jmp ip_dot
    
    ip_end_str:
    cmp edi, 1
    jz @f
			  ; : ¥ ¡ë«®
    mov [par_buff+edx], 0 ; ®­¥æ áâà®ª¨
    mov eax, par_buff
    call ascitoint
    shl esi, 8	     ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
    add esi, eax
    ;mov eax, esi     ; IP ¢ 16 à¨ç­®© ä®à¬¥
    ;xor ebx, ebx    ; ®¬¥à  ¯®àâ  ­¥â
    jmp ip_end
 
    @@: 			   ; ë«® :
    mov [par_buff+edx], 0	   
    mov eax, par_buff
    call ascitoint
    mov ebx, eax
    jmp ip_end
 
    ip_err:
    xor esi, esi
 
    ip_end:
    mov eax, esi
 
    pop edi
    pop esi
    pop edx
    pop ecx
    popf
  ret
 
;
; <-- eax ãª § â¥«ì ­  asci
; --> eax int
; 
  ascitoint:
    pushf
    push ebx
    push ecx
    push edx
    push esi
    push edi
 
    xor ebx, ebx  
    xor ecx, ecx
    xor edx, edx
    ;xor esi, esi
    xor edi, edi
   
    ati_loop:
    mov bl, [eax+ecx]
    cmp bl, 0	      ; ®­¥æ áâà®ª¨
    jz ati_str_end
    cmp bl, 39h
    ja ati_err	      ; ¥ æ¨äà 
    cmp bl, 30h
    jb ati_err
 
    inc ecx
    jmp ati_loop
 
    ati_str_end:      ;  ecx ¤«¨­  áâà®ª¨ 
    ;dec ecx           ; áâ ­®¢¨¬ ­  ¯®á«¥¤­¨© á¨¬¢®«
    add eax, ecx      ; ª § â¥«ì ­  áâà®ªã + «¨­  áâà®ª¨
    dec eax
    
    ati_loop2:
    cmp edx, ecx
    jz ati_all
    push eax
    sub eax, edx	      ; ëç¥áâì áç¥âç¨ª 
    movzx ebx, byte [eax]     ;  bl á¨¬¢®«
    ;pop eax
    sub bl, 30h       ; ëç¨á«ï¥¬ 10â¨ç­ãî æ¨äàã
 
    ;push eax
    mov eax, ebx     ;  eax - æ¨äà 
    mov ebx, 10      ; ­®¦¨â¥«ì
 
    xor esi, esi
 
    ati_mul: 
 
    cmp esi, edx     ; ¬­®¦ ¥¬ ­  10 n à §
    jz ati_mul_end
    ;push eax
    ;mov eax, ebx
    imul eax, ebx
    ;mov ebx, eax
    ;pop eax
    inc esi
    jmp ati_mul
 
 
    ati_mul_end:
    mov ebx, eax    ;  ebx ¢ëç¨á«¥­­®¥ ç¨á«®
    pop eax
 
    add edi, ebx
    inc edx
    jmp ati_loop2
 
    ati_all:
    mov eax, edi
    jmp ati_end
 
    ati_err:
 
    ;ati_str_end:
    xor eax, eax
 
    ati_end:
    pop edi
    pop esi
    pop edx
    pop ecx
    pop ebx
    popf
  ret
 
;
;
; <-- ecx å¥­¤« á®ª¥â 
; <-- eax ãª § â¥«ì ­  áâàãªâãàã SNAC_head
; <-- ebx ãª § â¥«ì ­  ¤ ­­ë¥
; <-- edx à §¬¥à ¤ ­­ëå
; --> eax à¥§ã«ìâ â § ¯¨á¨ ¢ á®ª¥â
;
 
snac_buff db 1024 dup 0
 
  sendsnac:
    pushf
    push esi
    push edi
    push ebx
    push edx
    ;xor ebx, ebx
    mov esi, ecx	    ; å¥­¤« á®ª¥â 
    mov edi, ebx	    ; ª § â¥«ì ­  ¤ ­­ë¥
 
    xor ebx, ebx
    mov bl, [eax]	    ;
    mov [snac_buff+1], bl   ; Family ID
    mov bl, [eax+1]	    ; ®­¢¥àâ¨àã¥âáï ¢ BigEndian
    mov [snac_buff], bl     ;
 
    mov bl, [eax+2]	    ;
    mov [snac_buff+3], bl   ; Subtype ID
    mov bl, [eax+3]	    ;
    mov [snac_buff+2], bl   ;
    
    mov bl, [eax+4]	    ;
    mov [snac_buff+5], bl   ;
    mov bl, [eax+5]	    ; Flags
    mov [snac_buff+4], bl   ;
 
    mov bl, [eax+6]	    ;
    mov [snac_buff+9], bl   ;
    mov bl, [eax+7]	    ;
    mov [snac_buff+8], bl   ;
    mov bl, [eax+8]	    ; Reqest ID
    mov [snac_buff+7], bl   ;
    mov bl, [eax+9]	    ;
    mov [snac_buff+6], bl   ;
 
    lea ebx, [snac_buff+10]				 
  
    mov eax, edi	    ; ª § â¥«ì ­  ¤ ­­ë¥
    ;add ebx, 10             ; + à §¬¥à § £®«®¢ª  SNAC
    mov ecx, edx	    ; à §¬¥à ¤ ­­ëå
    call strcpy
 
 
    mov ecx, esi	    ; ¥­¤« á®ª¥â 
    mov [flap.bId], FLAP_ID
    mov [flap.bCh], 2	    ;  ­ « ¤«ï ¯®áë«ª¨ SNAC
    xor ebx, ebx
    inc [seq]		    ; seq ¢¥«¨ç¨¢ ¥âáï ­  1 ¯à¨ ª ¦¤®© ¯®áë«ª¥
    mov bx, [seq]
    mov [flap.wSn], bx
    add edx, 10 	    ; à §¬¥à ¤ ­­ëå + à §¬¥à § £®«®¢ª  SNAC
    mov [flap.wDs], dx
    mov eax, flap
    mov ebx, snac_buff
    call sendflap
 
    pop edx
    pop ebx
    pop edi
    pop esi
    popf
  ret
 
 
 
; ¡à ¡®âª  ¢á¥å ¯ ªâ®¢, ¯à¨å®¤ïé¨å ®â á¥à¢¥à 
; ECX <-- ¥­¤« á®ª¥â 
;
;
;
;
;        
  main_loop:
    pushf
    ;push eax
    ;push ebx
    ;push edx
    pushad
 
    mov ecx, [socket]
    ;
    ;  ¦¤¥¬ ¯ ª¥â
    ;
  ;m_loop:
    ;mov eax, 53
    ;mov ebx, 2
    ;int 40h
    ;cmp eax, 6       ; à §¬¥à § £®«® ª  FLAP
    ;jnc recived      ; >=
    ;
    ; å®¤¨¬
    ;
    ;jmp m_fin
    ;mov eax, 5
    ;mov ebx, 5
    ;int 40h
    ;jmp m_loop
    ;
    ;  ¥áâì ¯ ª¥â
    ;
  ;recived:
    ;mov eax, rflap
    ;mov ebx, rbuff
    ;call recvflap
    ;
    ; ¯à¥¤¥«ï¥¬ â¨¯ ¯à¨­ïâ®£® FLAP
    ;
    xor ebx, ebx
    mov bl, [rflap.bCh]
    cmp bl, 1		     ; áâ ­®¢ª  á®¥¤¨­¥­¨ï
    jz	m_login
    cmp bl, 2
    jz m_snac		     ; ®«ãç¥­ SNAC
    cmp bl, 3
    jz m_flap_err	     ; FLAP-level error
    cmp bl, 4
    jz m_close_conn	     ;  ªàëâ¨¥ á®¥¤¨­¥­¨ï
    cmp bl, 5
    jz m_keep_alive	     ;
    ;
    ; ¡à ¡®âª  à áá®¥¤¨­¥­¨ï
    ;
  m_close_conn:
    write_debug 'Another Computer is Useing YOUR UIN!'
    call srv_disconnect
    call closesocket
    jmp m_fin
    ;
    ; ®¡à ¡®âª  á®¥¤¨­¥­¨ï
    ;
  m_login:
    ;
    ; ¯à®¢¥àï¥¬ ¢¥àá¨î ¯à®â®ª®« 
    ;
    xor eax, eax
    mov al, [mbuff+3]
    cmp eax, 1
    jnz m_login_other	 ; ¥ ¯®¤å®¤¨â
 
 
    ;
    ; £¥­¥à¨àã¥¬ á«ãç ©­ë© seq
    ; «ï íâ®£® ¡¥à¥¬ ¢à¥¬ï, ¯à®è¥¤è¥¥ á ¬®¬¥­â  § ¯ãáª  á¨áâ¥¬ë
    ;
    mov eax, 26
    mov ebx, 9
    int 40h
    mov [seq], ax
    ;
    ; â¤ ¥¬ á¥à¢¥àã cookie
    ;
    mov [flap.bCh], 1
    mov [flap.wSn], ax
    xor eax, eax
    mov ax, [cookie_len]
    add eax, 8		  ; TLV len + protocol version len
    mov [flap.wDs], ax
    mov dword [buff], 01000000h  ; 00 00 00 01 ®¬¥à ¯à®â®ª®« 
    mov word [buff+4], 0600h	 ; 00 06   TLV.Type
 
    mov ax, [cookie_len]
    mov [buff+6], ah		 ;
    mov [buff+7], al		 ; TLV.Length
 
    mov edx, ecx		 ; edx <-- socket handle
 
    mov ecx, eax		 ; ecx <-- cookie len
    mov eax, srv_cookie 	 ; Src
    lea ebx, [buff+8]
    call strcpy
    
    mov ecx, edx		 ; ecx <-- socket handle
    mov eax, flap
    mov ebx, buff
    call sendflap
    jmp m_fin
 
    m_login_other:
    jmp m_fin
 
    ;
    ;  ª ®¡à ¡®â âì ®è¨¡ªã, ï ­¥ §­ î
    ;
  m_flap_err:
  jmp m_fin
 
    ;
    ; ®ª  ­¥ ®¡à ¡ âë¢ ¥âáï
    ;
  m_keep_alive:
  jmp m_fin
 
 
    ;
    ; ®«ãç¥­ SNAC
    ;  á¯®§­ ¥¬ ¥£® â¨¯
    ;
  m_snac:
    mov eax, rsnac
    mov ebx, mbuff
    call snacpar
    xor ebx, ebx
    xor edx, edx
    mov bx, [rsnac.wFid]
    mov dx, [rsnac.wSid]
 
    cmp bx, 1
    jz m_snac_1 	     ;Generic service controls
    cmp bx, 2
    jz m_snac_2 	     ;Location services
    cmp bx, 3
    jz m_snac_3 	     ;Buddy List management service
    cmp bx, 4
    jz m_snac_4 	     ;ICBM (messages) service
    cmp bx, 9
    jz m_snac_9 	     ;Privacy management service
    cmp bx, 015h
    jz m_snac_15	     ;ICQ specific extensions service
    cmp bx, 013h
    jz m_snac_13	     ;Server Side Information (SSI) service
    
    jmp m_other_snac
    ;
    ;   FAMILY 1
    ;
  m_snac_1:
    cmp dx, 7
    jz m_snac_1_7
    cmp dx, 3
    jz m_snac_1_3
    cmp dx, 018h
    jz m_snac_1_18
    cmp dx, 01Fh
    jz m_snac_1_f
    cmp dx, 13h
    jz m_snac_13
    cmp dx, 1
    jz m_snac_1_1
    jmp m_snac_1_other
    ;
    ; Rate limits information response
    ;
  m_snac_1_7:		   ; â¢¥ç ¥¬
    mov [ssnac.wFid], 1    ; Family
    mov [ssnac.wSid], 8    ; Subtype
    mov [ssnac.dRi], 8
    mov word [buff], 0100h   ; 0001
    mov word [buff+2], 0200h ; 0002
    mov word [buff+4], 0300h ; 0003
    mov word [buff+6], 0400h ; 0004
    mov word [buff+8], 0500h ; 0005
    mov eax, ssnac
    mov ebx, buff
    mov edx, 10 	     ;  §¬¥à ¤ ­­ëå
    call sendsnac
    ;
    ; Client ask server location service limitations
    ;
    mov [ssnac.wFid], 2    ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
    jmp m_fin
 
    ;
    ;  Server supported snac families list
    ;
  m_snac_1_3:
    ;
    ;  Server sends supported services list
    ;
 
    ;
    ;   SNAC(01,17)       
    ;   Client ask for services version numbers
    ;
    mov [ssnac.wFid], 1    ; Family
    mov [ssnac.wSid], 17h    ; Subtype
    mov [ssnac.dRi], 17h
    ;
    ;   ¯¨á®ª á¥à¢¨á®¢, ª®â®àë¥ ­ ¬ ­ã¦­ë
    ;
    ;    xx xx          word            family number #1
    ;    xx xx          word            family version
    ;      ...           ...             ...
    ;
 
    ;
    ; ®¯à ¢¨« ¨§ ¤ ¬¯  &RQ
    ;
    mov word [buff], 0100h   ; 0001
    mov word [buff+2], 0300h ; 0003
 
    mov word [buff+4], 1300h ; 0013
    mov word [buff+6], 0200h ; 0002
 
    mov word [buff+8], 0200h ; 0002
    mov word [buff+10], 0100h ; 0001
 
    mov word [buff+12], 0300h ; 0002
    mov word [buff+14], 0100h ; 0001
 
    mov word [buff+16], 1500h ; 0015
    mov word [buff+18], 0100h ; 0001
 
    mov word [buff+20], 0400h ; 0004
    mov word [buff+22], 0100h ; 0001
 
    mov word [buff+24], 0600h ; 0006
    mov word [buff+26], 0100h ; 0001
 
    mov word [buff+28], 0900h ; 0009
    mov word [buff+30], 0100h ; 0001
 
    mov word [buff+32], 1300h ; 0013
    mov word [buff+34], 0400h ; 0004
 
    mov word [buff+36], 1500h ; 0015
    mov word [buff+38], 0400h ; 0004
 
    mov word [buff+40], 1000h ; 0010
    mov word [buff+42], 0100h ; 0001
 
 
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, 44
    call sendsnac
 
    jmp m_fin
 
 
    ;
    ; Server services versions
    ;
  m_snac_1_18:
    ;
    ; ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
    ;
    ; Client ask server for rate limits info
    ; SNAC(01,06)
    ;
    mov [ssnac.wFid], 1    ; Family
    mov [ssnac.wSid], 6    ; Subtype
    mov [ssnac.dRi], 6
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
 
 
    jmp m_fin
 
    ;
    ; Requested online info response
    ;
  m_snac_1_f:
    ;
    ;ãâ ¤®«¦­  ¡ëâì ­ è  ¨­ä®à¬ æ¨ï, ¯®ª  ®¡à ¡®âª¨ ­¥â
    ;
 
 
    jmp m_fin
 
    ;
    ; Message of the day (MOTD)
    ;
  m_snac_1_13:
    ;
    ; ¥ç¥£® ®¡à ¡ âë¢ âì :-))
    ;
    jmp m_fin
 
    ;
    ; ®®¡é¥­¨¥ ®¡ ®è¨¡ª¥
    ;
 
  m_snac_1_1:
    xor eax, eax
    mov ax, word [mbuff+10]
    call ntohs
    data_debug 'SERVER SEND ERROR #', eax
 
 
    jmp m_fin
 
 
  m_snac_1_other:
     data_debug 'Unknown SNAC Family 1 received, type ', edx
     jmp m_fin
 
 
 
    ;
    ; Family 2
    ;
  m_snac_2:
    cmp dx, 3
    jz m_snac_2_3
    jmp m_snac_2_other
    ;
    ; Server replies via location service limitations
    ;
  m_snac_2_3:
    ;
    ;  ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
    ;
    ;  ¯®áë« ¥¬ capabilities / profile
    ;
    mov [ssnac.wFid], 2    ; Family
    mov [ssnac.wSid], 4    ; Subtype
    mov [ssnac.dRi], 4
 
    ;mov eax, CAPABILITIES
    ;mov ebx, buff
    ;push ecx
    ;mov ecx, 5             ; TLV.Type(0x05) - CLSID values
    ;mov edx, C_LEN
    ;call tlvstr
    ;pop ecx
    mov word [buff], 0500h  ; 00 05
    mov eax, C_LEN
    call htons
    mov word [buff+2], ax
 
 
 
    push ecx
 
    mov eax, CAPABILITIES
    lea ebx, [buff+4]
    mov ecx, C_LEN
    call strcpy
 
    pop ecx
 
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, C_LEN+4		; «¨­  ¤ ­­ëå+à §¬¥à § £®«®¢ª  TLV
    call sendsnac
 
    ;
    ; § ¯à è¨¢ ¥¬ server BLM service limitations
    ;
    mov [ssnac.wFid], 3    ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
 
    jmp m_fin
 
  m_snac_2_other:
    write_debug 'Unknown SNAC Family 2 Recived'
    jmp m_fin
 
 
 
    ;
    ;  FAMILY 3
    ;
  m_snac_3:
    cmp dx, 3
    jz m_snac_3_3
    cmp dx, 0Bh
    jz m_snac_3_b
    cmp dx, 0Ch
    jz m_snac_3_c
    jmp m_snac_3_other
 
    ;
    ; Server replies via BLM service limitations
    ;
  m_snac_3_3:
    ;
    ; ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
    ;
    ; Client ask server for ICBM service parameters
    ;
    mov [ssnac.wFid], 4    ; Family
    mov [ssnac.wSid], 4    ; Subtype
    mov [ssnac.dRi], 4	   ; request-id
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
 
 
    jmp m_fin
 
    ;
    ;  User online notification
    ;
  m_snac_3_b:
    ;
    ; § ¢á¥© ¨­ä®à¬ æ¨¨ ¯®ª  ­ã¦¥­ â®«ìª® áâ âãá
    ;
    xor edx, edx	   ; ç¥âç¨ª
    xor ecx, ecx
    xor eax, eax
    cld 	    ;  ­ ¯à ¢«¥­¨¨ ã¢¥«¨ç¥­¨ï  ¤à¥á®¢
 
    dec edx
  m_snac_3_b_loop:
    inc edx
    cmp edx, UINS
    jnc m_snac_3_b_end	   ;>=
 
    mov cl, [mbuff+10]	   ; «¨­  
    mov eax, ecx
    mov edi, UIN_LEN
    imul edi ,edx
    lea edi, [uins+edi]    
    lea esi, [mbuff+11]
    repe cmpsb
    
    jnz m_snac_3_b_loop
    ;
    ; UIN ¯à¥¤¥«¥­
    ;
 
    lea ecx, [eax+10+11]	   ; +sizeof SNAC_head + offset #2 TLV
    mov ax, word [mbuff+ecx]		;#2 TLV.Type
    cmp ax, 0C00h		   ;dc info (optional)
    jz m_snac_3_b_dc
    cmp ax, 0A00h		   ;external ip address
    jz m_snac_3_b_extip
    jmp m_snac_3_b_bad_tlv
    
 
  m_snac_3_b_dc:
    ;
    ; à®¯ãáª ¥¬ íâ®â TLV
    ;
    lea ecx, [ecx+41]
  m_snac_3_b_extip:
    ;
    ;  íâ®â :-)
    lea ecx, [ecx+8]
    mov ax, word [mbuff+ecx]
    cmp ax, 0600h		  ;TLV.Type(0x0A) - external ip address
    jz m_snac_3_b_status
    jmp m_snac_3_b_bad_tlv
 
  m_snac_3_b_status:
    ;
    ; ­ ª®­¥æ-â® áâ âãá 8-)
    ;
    mov eax, dword [mbuff+ecx+4]
    call ntohl
    ;mov ebx, 4
    ;imul ebx, edx
    ;mov [stats+ebx], eax
    mov ecx, eax
    mov ebx, NAME_LEN
    imul ebx, edx
    lea ebx, [names+ebx]
    mov eax, edx
    call loadbb
    jmp m_fin
 
 
  m_snac_3_b_bad_tlv:
    write_debug 'TLV Type Mismatch in SNAC(3,b)'
    jmp m_fin
 
  m_snac_3_b_end:
    write_debug 'UIN not in local Contact List'
    jmp m_fin
 
 
 
  m_snac_3_c:
    ;
    ; User offline notification
    ;
  xor edx, edx
  xor ecx, ecx
 
    dec edx
    m_snac_3_c_loop:
    inc edx
    cmp edx, UINS
    jnc m_snac_3_b_end	   ;>=
 
    mov cl, [mbuff+10]	   ; «¨­  
    mov edi, UIN_LEN
    imul edi ,edx
    lea edi, [uins+edi]    
    lea esi, [mbuff+11]
    repe cmpsb
    jnz m_snac_3_c_loop
    ;
    ; UIN ¯à¥¤¥«¥­
    ;
    ;mov eax, -1
    ;mov ebx, 4
    ;imul ebx, edx
    ;mov [stats+ebx], eax
    mov ecx, -1
    mov ebx, NAME_LEN
    imul ebx, edx
    lea ebx, [names+ebx]
    mov eax, edx
    call loadbb
    jmp m_fin
 
 
 
 
 
 
  m_snac_3_other:
    write_debug 'Unknown SNAC Family 3 Received'
    jmp m_fin
 
 
    ;
    ;  FAMILY 4
    ;
  m_snac_4:
    cmp dx, 5
    jz m_snac_4_5
    cmp dx, 7
    jz m_snac_4_7
    jmp m_snac_4_other
 
    ;
    ;  Server sends ICBM service parameters to client
    ;
  m_snac_4_5:
    ;
    ;  ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
    ;
    ;  Client change default ICBM parameters command
    ;
    mov [ssnac.wFid], 4    ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
 
    mov eax, ICBM_PARAMS
    mov ebx, buff
    push ecx
    mov ecx, ICBMP_LEN
    call strcpy
    pop ecx
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, ICBMP_LEN
    call sendsnac
 
    ;
    ;   Client ask server PRM service limitations
    ;
    mov [ssnac.wFid], 9    ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
 
    jmp m_fin
 
    ;
    ;  Message for client from server
    ;
  m_snac_4_7:
    ;
    ;  ¯à¥¤¥«ï¥¬ â¨¯ á®®¡é¥­¨ï ¯® ¯®«î message channel
    ;
    xor eax, eax
    mov ax, word [mbuff+10+8]		; +10 - à §¬¥à SNAC
					; +8 á¬¥é¥­¨¥ ¤® message channel
    cmp ax, 0100h			; 00 01 
    jz m_snac_ch1
    cmp ax, 0200h
    jz m_snac_ch2
    cmp ax, 0400h
    jz m_snac_ch4
    jmp m_ch_other
    ;
    ;  channel 1 plain text
    ;
  m_snac_ch1:
    ;
    ; .ª ¢ ®ç¥à¥¤­®© à § ®¯¨á ­¨¥ ¯à®â®ª®«  ­¥ á®¢¯ ¤ ¥â á à¥ «ì­®áâìî
    ; à §¡¨à ¥¬ ¢á¥ TLV ¯® ¯®àï¤ªã
 
    mov eax, dword [mbuff+10]	       ; cookie
    mov [msg_cookie1], eax
    mov eax, dword [mbuff+10+4]
    mov [msg_cookie2], eax	       ; á¯®«ì§ãîâáï ¤«ï ¯®â¢¥à¦¤¥­¨ï ¯à¨¥¬  á®®¡é¥­¨©
 
    mov al, [mbuff+10+10]	       ; Sender UIN length
    mov [ui.bUinLength], al
 
    push ecx
    movzx ecx, al
 
    lea eax, [mbuff+10+11]	       ; UIN string 
    lea ebx, [ui.bUin]		       ; Dest
    call strcpy
 
    lea ecx, [ecx+10+15]	       ; ¯¥à¢ë© TLV
    
 
 m_snac_ch1_loop:
 
    movzx eax, word [mbuff+ecx]
    cmp eax, 0100h		       ;TLV.Type(0x01) - user class
    jz m_snac_ch1_1
    cmp eax, 0600h		       ;TLV.Type(0x06) - user status
    jz m_snac_ch1_6
    cmp eax, 0800h		       ; Unknown type
    jz m_snac_ch1_8
    cmp eax, 0500h		       ; Unknown type
    jz m_snac_ch1_5
    cmp eax, 0F00h		       ; TLV.Type(0x0f) - user idle time
    jz m_snac_ch1_f
    cmp eax, 0300h		       ; TLV.Type(0x03) - account creation time
    jz m_snac_ch1_3
    cmp eax, 0400h		       ; TLV.Type(0x04) - automated response flag
    jz m_snac_ch1_4
    cmp eax, 0200h		       ; TLV.Type(0x02) - message data
    jz m_snac_ch1_mess
    jmp m_snac_msg_tlv_err
 
    ;
    ; ®§¬®¦­®, ¤®¯®«­¨â¥«ì­ ï ¨¨ä®à¬ æ¨ï ¡ã¤¥â ®¡à ¡ âë¢ âìáï
    ; ­® ¯®ª  ­¥â 
 
  m_snac_ch1_1:
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    jmp m_snac_ch1_loop
 
  m_snac_ch1_6:
 
    mov eax, dword [mbuff+ecx+4]	    ; User status
    call ntohl
    mov [ui.dUserStatus], eax
 
 
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    ;
    ; 
   
    
    jmp m_snac_ch1_loop
 
  m_snac_ch1_8:
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    jmp m_snac_ch1_loop
 
  m_snac_ch1_5:
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    jmp m_snac_ch1_loop
 
  m_snac_ch1_f:
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    jmp m_snac_ch1_loop
 
  m_snac_ch1_3:
    movzx eax, word [mbuff+ecx+2]	; TLV.Length
    call ntohs
    lea ecx, [eax+ecx+4]
    jmp m_snac_ch1_loop
 
 
  m_snac_ch1_4:
    ;movzx eax, word [buff+ecx+2]       ; TLV.Length
    lea ecx, [ecx+4]
    jmp m_snac_ch1_loop
 
 
 
  m_snac_ch1_mess:
    ;
    ;
    movzx eax, word [mbuff+ecx+4]    ;
    cmp eax, 0105h		     ; 05 fragment identifier (array of required capabilities)
    jnz m_snac_ch1_fr_err	     ; 01 fragment version
 
    movzx eax, word [mbuff+ecx+6]    ; Length
    call ntohs
 
    lea ecx, [ecx+eax+8]	     ; à®¯ãáª ¥¬  byte array of required capabilities (1 - text)
 
    movzx eax, word [mbuff+ecx]      ;  fragment identifier (message text)
    cmp eax, 0101h		     ;  fragment version
    jnz m_snac_ch1_fr_err
 
    movzx eax, word [mbuff+ecx+2]    ; TLV Length
    call ntohs
    xchg eax, ecx
 
    lea eax, [eax+8]		     ;  ç «® â¥ªáâ®¢®£® á®®¡é¥­¨ï
    lea ecx, [ecx-4]		     ; - sizeof Message charset number, Message charset subset
 
    push eax
    push ecx
 
    ;
    ;  ë¢®¤¨¬ Message From UIN
    ;
 
    mov eax, MESS
    call strlen
    mov ecx, eax
 
    mov eax, MESS
    mov ebx, buff
    call strcpy
 
    lea ebx, [ebx+ecx]
    lea eax, [ui.bUin]
    movzx ecx, byte [ui.bUinLength]
    call strcpy
 
    mov [ebx+ecx], byte 0
 
    mov eax, buff
    xor ebx, ebx
 
    call writemsg
    ;
    ;   ¬® á®®¡é¥­¨¥
    ;
 
    pop ecx
    pop eax
    lea eax, [mbuff+eax]
 
    mov ebx, buff
    call strcpy
    mov [ebx+ecx], byte 0
    
    mov eax, buff
    call win2dos
    mov ebx, 00FF0000h
    call writemsg
 
    ;
    ;  ®¤â¢¥à¦¤ ¥¬ ¯à¨¥¬
    ;
 
    pop ecx
    ;
    ; ®ª  ­¥ à¥ «¨§®¢ ­®, â.ª. ­¥ ¬®£ã ­ ©â¨ ª«¨¥­â, ª®â®àë© íâ® ¨á¯®«ì§ã¥â :-)
    ;
 
    jmp m_fin
 
  m_snac_msg_tlv_err:
    write_debug 'TLV TYPE MISMATCH'
    pop ecx
    jmp m_fin
 
  m_snac_ch1_fr_err:
    write_debug 'UNKNOWN FRAGMENT IDENTIFIER OR FRAGMENT VERSION'
 
  ;m_snac_ch1_end:
    pop ecx
 
    jmp m_fin
 
    ;
    ;   Channel 2 message format (rtf messages, rendezvous)
    ;
  m_snac_ch2:
    ;
    ;  ®â¯à ¢¨¬ á®®¡é¥­¨¥, çâ® ª ­ « ­¥ ¯®¤¤¥à¦¨¢ ¥âáï
    ;  ­ã¦­ë ªãª¨ ¨ ã¨­
    mov eax, dword [mbuff+10]
    mov [msg_cookie1], eax
    mov eax, dword [mbuff+10+4]
    mov [msg_cookie2], eax
 
    mov al, [mbuff+10+10]	       ; Sender UIN length
    mov [ui.bUinLength], al
 
    push ecx
    movzx ecx, al
 
    lea eax, [mbuff+10+11]	       ; UIN string 
    lea ebx, [ui.bUin]		       ; Dest
    call strcpy
 
 
    mov [ssnac.wFid], 4      ; Family
    mov [ssnac.wSid], 0Bh    ; Subtype
    mov [ssnac.dRi], 0Bh
 
    mov eax, [msg_cookie1]
    mov dword [buff], eax
    mov eax, [msg_cookie2]
    mov dword [buff+4], eax
    mov word [buff+8], 0200h	  ; Channel 2
 
    mov al, [ui.bUinLength]
    mov [buff+10], al
    lea eax, [ui.bUin]
    lea ebx, [buff+11]
    call strcpy
    lea ecx, [ecx+11]
 
    mov word [buff+ecx], 0100h	  ; reason code (1 - unsupported channel, 2 - busted payload, 3 - channel specific)
    mov edx, ecx
 
    pop ecx
    mov eax, ssnac
    mov ebx, buff
    call sendsnac
 
 
    jmp m_fin
 
    ;
    ;  Channel 4 message format (typed old-style messages)
    ;
  m_snac_ch4:
 
 
 
  m_ch_other:
    write_debug 'Unknown message channel'
 
    jmp m_fin
 
 
  m_snac_4_other:
    write_debug 'Unknown SNAC Family 4 received'
    jmp m_fin
 
 
 
    ;
    ; FAMILY 9
    ;
  m_snac_9:
    cmp dx, 3
    jz m_snac_9_3
    jmp m_snac_9_other
 
    ;
    ; Server sends PRM service limitations to client
    ;
  m_snac_9_3:
    ;
    ; ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
 
    ; âª«îç¥­®, âª ­¥ ¯®¤¤¥à¦¨¢ ¥âáï SIQ
    ;
 
    ;
    ;  Client ask server for SSI service limitations
    ;
    ;mov [ssnac.wFid], 13h  ; Family
    ;mov [ssnac.wSid], 2    ; Subtype
    ;mov [ssnac.dRi], 2     ; request-id
    ;mov eax, ssnac
    ;mov ebx, buff
    ;xor edx, edx
    ;call sendsnac
 
    ;
    ; ¯®á«¥¤­ïï áâ ¤¨ï á®¥¤¨­¥­¨ï
    ;
 
    ;
    ;  ¯à è¨¢ ¥¬ á¢®î ¨­ä®à¬ æ¨î
    ;
    mov [ssnac.wFid], 1  ; Family
    mov [ssnac.wSid], 0Eh    ; Subtype
    mov [ssnac.dRi], 0Eh     ; request-id
 
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx	     ; TLV head len
    call sendsnac
 
 
    ;
    ; Client sends its DC info and status to server
    ;
    mov [ssnac.wFid], 1  ; Family
    mov [ssnac.wSid], 1Eh    ; Subtype
    mov [ssnac.dRi], 1Eh     ; request-id
 
    mov [buff], 0	    ;  TLV type 06
    mov [buff+1], 6h	    ;
    mov [buff+2], 0	    ;  TLV data length
    mov [buff+3], 4	    ;
    ;
    ;
    mov ax, STATUS_DCDISABLED  ; DC disabled
    call htons
    mov word [buff+4], ax
    mov ax, STATUS_ONLINE
    mov [status], ax
    mov word [buff+6], ax
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, 8		 ; TLV head len+ data len
    call sendsnac
 
 
    ;
    ;  ë£àã¦ ¥¬ ­  á¥à¢¥à 
    ;
    call uploadkl
 
    ;
    ; ë£àã¦ ¥¬ ¨­¢¨§¨¡« «¨áâ, ¯®ª  ¯ãáâ®©
    ;
    mov [ssnac.wFid], 9  ; Family
    mov [ssnac.wSid], 7    ; Subtype
    mov [ssnac.dRi], 7
 
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
    ;
    ;  &RQ áâì ¯ ª¥â ãáâ ­®¢ª¨ à §à¥è¥­¨©. ï ¨á¯®«ì§ãî ¥£® ¡¥§ ¨§¬¥­¥­¨ï
    ;  â.ª. ­¥ §­ î, çâ® ®­ á®¤¥à¦¨â
    ;
 
    mov [ssnac.wFid], 15  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2
 
    mov word [buff], 0100h   ; 00 01 encapsulated META_DATA
    mov word [buff+2], 1000h ; 00 10     Len
    mov word [buff+4], 000Eh ;  LE Len
    mov word [buff+10], 07D0h ; META_DATA_REQ
 
 
    mov eax, UIN
    call ascitoint
    mov dword [buff+6], eax
 
    mov word [buff+12], 0102h	; request sequence number (incrementing)
    mov word [buff+14], 0424h	; META_SET_PERMS_USERINFO
    mov [buff+16], 1		; authorization (1-required, 0-not required)
    mov [buff+17], byte 0	; webaware (0-no, 1-yes)
    mov [buff+18], 1		 ; dc_perms (0-any, 1-contact, 2-authorization)
    mov [buff+19], 0		;unknown
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, 20
 
 
    ;
    ; Client READY command
    ;
    mov [ssnac.wFid], 1  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
 
    mov eax, FAMILY_ARR
    mov ebx, buff
    push ecx
    mov ecx, FA_LEN
    call strcpy
    pop ecx
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, FA_LEN
    call sendsnac
 
 
    ;
    ;  ¯à è¨¢ ¥¬ offline á®®¡é¥­¨ï
    ;
    mov [ssnac.wFid], 15h  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
 
    mov word [buff], 0100h	;  TLV type 01
    mov word [buff+2], 0A00h	;  00 0a «¨­ 
    mov word [buff+4], 0008h	;  08 00
    mov eax, UIN
    call ascitoint
    mov dword [buff+6], eax
 
    mov [buff+10],  003Ch ; 3C 00 -  ¯à®á ­  ®ää« ©­®¢ë¥ á®®¡é¥­¨ï
    mov [buff+12],  0002  ; 02 00 - request sequence number
   
    mov edx, 14        ; ¡é¨© à §¬¥à ¤ ­­ëå ¢ ¡ãä¥à¥
 
    mov eax, ssnac
    mov ebx, buff
    call sendsnac
 
    
 
    ;
    ;  ¯à è¨¢ ¥¬ ¨­ä®à¬ æ¨î ¢á¥å UIN
    ;
    call getinfo
    ;
    ; § ¢¥àè¥­® á®¥¤¨­¥­¨¥
    ;
    mov [login], 2
 
    jmp m_fin
 
  m_snac_9_other:
    write_debug 'Unknown SNAC Family 9 Received'
    jmp m_fin
 
 
    ;
    ; FAMILY 13
    ;
  m_snac_13:
    cmp dx, 3
    jz m_snac_13_3
    cmp dx, 0fh
    jz m_snac_13_F
 
    jmp m_snac_13_other
 
    ;
    ; Server sends SSI service limitations to client
    ;
  m_snac_13_3:
    ;
    ; ¡à ¡®âª¨ ¯®ª  ­¥â
    ;
 
    ;
    ;  SNAC(13,05)        Client check if its local SSI copy is up-to-date
    ;
    mov [ssnac.wFid], 13h  ; Family
    mov [ssnac.wSid], 5    ; Subtype
    mov [ssnac.dRi], 5	   ; request-id
    mov eax, ssnac
    ;  3D E7 48 17
    mov [buff], 03Dh	  ;
    mov [buff+1], 0E7h	  ;     modification date/time of client local SSI copy
    mov [buff+2], 48h	  ;
    mov [buff+3], 17h	  ;
    ; 00 10
    mov [buff+4], 00	  ;
    mov [buff+5], 10h	  ;     number of items in client local SSI copy
    
    mov ebx, buff
    mov edx, 5
    call sendsnac
 
    jmp m_fin
 
    ;
    ;  Server tell client its local copy up-to-date
    ;
  m_snac_13_F:
    ;
    ;  ¡à ¡®âª¨ ­¥â 
    ;
 
    ;
    ;  Client activates server SSI data
    ;
    mov [ssnac.wFid], 13h  ; Family
    mov [ssnac.wSid], 7    ; Subtype
    mov [ssnac.dRi], 7	   ; request-id
    mov eax, ssnac
    mov ebx, buff
    xor edx, edx
    call sendsnac
 
    ;
    ; ¯®á«¥¤­ïï áâ ¤¨ï á®¥¤¨­¥­¨ï
    ;
 
    ;
    ; Client sends its DC info and status to server
    ;
    mov [ssnac.wFid], 1  ; Family
    mov [ssnac.wSid], 1Eh    ; Subtype
    mov [ssnac.dRi], 1Eh     ; request-id
 
    mov [buff], 0	    ;  TLV type 06
    mov [buff+1], 6h	    ;
    mov [buff+2], 0	    ;  TLV data length
    mov [buff+3], 4	    ;
    ;
    ;
    mov ax, STATUS_DCDISABLED  ; DC disabled
    call htons
    mov word [buff+4], ax
    mov ax, STATUS_ONLINE
    mov [status], ax
    mov word [buff+6], ax
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, 8		 ; TLV head len+ data len
    call sendsnac
 
    ;
    ; Client READY command
    ;
    mov [ssnac.wFid], 1  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
 
    mov eax, FAMILY_ARR
    mov ebx, buff
    push ecx
    mov ecx, FA_LEN
    call strcpy
    pop ecx
 
    mov eax, ssnac
    mov ebx, buff
    mov edx, FA_LEN
    call sendsnac
 
 
    ;
    ;  ¯à è¨¢ ¥¬ offline á®®¡é¥­¨ï
    ;
    mov [ssnac.wFid], 15h  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 2	   ; request-id
 
    mov word [buff], 0100h	;  TLV type 01
    mov word [buff+2], 0A00h	;  00 0a «¨­ 
    mov word [buff+4], 0008h	;  08 00
    mov eax, UIN
    call ascitoint
    mov dword [buff+6], eax
 
    mov [buff+10],  003Ch ; 3C 00 -  ¯à®á ­  ®ää« ©­®¢ë¥ á®®¡é¥­¨ï
    mov [buff+12],  0002  ; 02 00 - request sequence number
   
    mov edx, 14        ; ¡é¨© à §¬¥à ¤ ­­ëå ¢ ¡ãä¥à¥
 
    mov eax, ssnac
    mov ebx, buff
    call sendsnac
 
 
 
    jmp m_fin
 
  m_snac_13_other:
    write_debug 'Unknown SNAC Family 13 Received'
    jmp m_fin
 
 
 
 
    ;
    ;  Family 15
    ;
 
  m_snac_15:
    
    cmp dx, 3
    jz m_snac_15_3
    
    jmp m_snac_15_other
 
 
    ;
    ; Server sends message #N
    ;
  m_snac_15_3:
    ;
    ; ¯à¥¤¥«ï¥¬ ¯®¤â¨¯ ¯à¨­ïâ®£® ¯ ª¥â 
    ;
 
    ;write_debug 'SNAC 15, 3'
 
    xor eax, eax
    mov ax, word [mbuff+10]  ; + SNAC.head size
    cmp ax, 0100h	     ; 00 01 TLV type
    jnz m_snac_tlv_err
 
    mov ax, word [mbuff+10+10]
    cmp ax, 0041h	      ; Offline Message
    jz m_snac_offline_mes
    cmp ax, 0042h	      ; End messages
    jz m_snac_offline_end
    cmp ax, 07DAh
    jz m_snac_meta_data
 
 
    write_debug 'Unknown Subtype SNAC (15,3)'
    jmp m_fin
 
  m_snac_offline_mes:
    mov eax, MESS		       ;
    call strlen 		       ;  ë¢®¤¨¬ áâà®ªã á á®®¡é¥­¨¥¬ ® ®â¯à ¢¨â¥«¥ ¨ ¢à¥¬¥­¨ ®â¯à ¢ª¨
    push ecx			       ;
    mov ecx, eax		   ;
    mov eax, MESS
    mov ebx, buff
    call strcpy
 
    mov eax, dword [mbuff+14+10]	  ; Sender UIN
    lea ebx, [buff+ecx] 	       ; ®á«¥ áâà®çª¨ ® á®®¡é¥­¨¨
    call int2strd
 
    lea ebx, [ebx+eax]
    mov [ebx], byte ' '
    inc ebx
 
				       ; + «¨­  UIN
    movzx eax, byte [mbuff+21+10]	  ; Day
    call int2strd
 
    lea ebx, [ebx+eax]
    mov [ebx], byte '.'
    inc ebx
 
    
    movzx eax, byte [mbuff+20+10]	  ;Mounth
    call int2strd
 
    lea ebx, [ebx+eax]
    mov [ebx], byte ' '
    inc ebx
 
    movzx eax, [mbuff+22+10]		  ; Hour
    call int2strd
 
    lea ebx, [ebx+eax]
    mov [ebx], byte ':'
    inc ebx
 
    movzx eax, [mbuff+23+10]		  ; Minute
    call int2strd
 
    lea ebx, [ebx+eax]
    ;mov [ebx], byte ' '
    ;inc ebx
 
    mov [ebx], byte 0			   ; Str end
    mov eax, buff
    xor ebx, ebx
 
    call writemsg
 
    movzx ecx, word [mbuff+26+10]	      ; «¨­  á®®®¡é¥­¨ï
    lea eax, [mbuff+28+10]
    mov ebx, buff
    call strcpy
 
    mov [ebx+ecx], byte 0
 
    mov eax, buff
    call win2dos			      ;¯¥à¥ª®¤¨àã¥¬
 
    mov ebx, 00FF0000h			      ;¢¥â
 
    call writemsg
 
 
    pop ecx
 
    jmp m_fin
 
 
  m_snac_offline_end:
    ;
    ; ¤ «ï¥¬ á®®¡é¥­¨ï ­  á¥à¢¥à¥
    ;
    mov [ssnac.wFid], 15h  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 0602h     ; request-id
 
    mov word [buff], 0100h     ;  00 01 TLV.Type(1) - encapsulated META_DATA1
    mov word [buff+2], 0A00h   ;  00 0A TLV.Length
    mov word [buff+4], 0008h   ;  08 00 data chunk size (TLV.Length-2)
    mov eax, UIN
    call ascitoint
    mov dword [buff+6], eax    ; xx xx xx xx (LE) client uin
    mov word [buff+10], 003Eh  ; 3E 00  (LE) data type: delete offline msgs request cmd
    mov word [buff+12], 0007h  ;  xx xx (LE) request sequence number
 
    mov edx, 14 	       ;  §¬¥à ¤ ­­ëå
    mov eax, ssnac
    mov ebx, buff
    call sendsnac
 
 
 
    jmp m_fin
 
    ;
    ; â¢¥â ­  § ¯à®á ® ¯®«ì§®¢ â¥«ïå
    ;
  m_snac_meta_data:
    ;
    ; ¯à¥¤¥«ï¥¬ ®ç¥à¥¤­®© ¯®¤â¨¯ :-)
    ;
    mov ax, word [mbuff+10+14]
    cmp ax, 0104h		    ;data subtype: META_SHORT_USERINFO
    jz m_snac_short_userinfo
    cmp ax, 00C8h
    jz m_snac_basic_userinfo	    ;data subtype: META_BASIC_USERINFO
    write_debug 'Unknown META DATA subtype'
    jmp m_fin
 
 
 
  m_snac_short_userinfo:
    ;
    ; § ¢á¥© ¨­ä®à¬ æ¨¨ ¯®ª  ­ã¦¥­ â®«ìª® ­¨ª
    ;
    mov al, [mbuff+10+16]
     cmp al, 0Ah		    ;success byte
     jnz m_fin
 
     movzx eax, word [mbuff+10+12]  ;request sequence number
     ;
     ;  § ¯à®á¥ ï ¨á¯®«ì§®¢ « ¯®àï¤ª®¢ë© ­®¬¥à î§¥à  ¢ 
     lea ebx, [mbuff+10+19]	    ;nickname string
     ; «¨­  áâà®ª¨ ­¥ ­ã¦­ , â.ª. áâà®ª  Null-Terminated
     ;¯à¥¤¥«ï¥¬ áâ âãá
     mov ecx, 4
     imul ecx, eax
     mov ecx, [stats+ecx]
 
     call loadbb
 
 
 
    jmp m_fin
 
  ;
  ; âª SIQ ­  § ¯à®á ª®à®âª®© ¨­äë ®â¢¥ç ¥â 
  ; ¯ ª¥â®¬ ¡ §®¢®© ¨­ä®à¬ æ¨¨, à¥ «¨§ãî ¯®ª  â®«ìª® ¥£®
  ;
  m_snac_basic_userinfo:
     mov al, [mbuff+10+16]
     cmp al, 0Ah		    ;success byte
     jnz m_fin
 
     movzx eax, word [mbuff+10+12]  ;request sequence number
     ;
     ;  § ¯à®á¥ ï ¨á¯®«ì§®¢ « ¯®àï¤ª®¢ë© ­®¬¥à î§¥à  ¢ 
     lea ebx, [mbuff+10+19]	    ;nickname string
     ; «¨­  áâà®ª¨ ­¥ ­ã¦­ , â.ª. áâà®ª  Null-Terminated
     ;¯à¥¤¥«ï¥¬ áâ âãá
     mov ecx, 4
     imul ecx, eax
     mov ecx, [stats+ecx]
 
     call loadbb
 
       
 
    jmp m_fin
 
  m_snac_tlv_err:
    write_debug 'TLV TYPE MISMATCH'
 
    jmp m_fin
    
 
  m_snac_15_other:
 
    write_debug 'Unknown SNAC Family 15 Received'
 
    jmp m_fin
 
 
  m_other_snac:
    write_debug 'Unknown SNAC received'
    jmp m_fin
 
 
 
  m_fin:
    ;pop edx
    ;pop ebx
    ;pop eax
    popad
    popf
  ret
 
; «ï ¯¥à¥¢®¤  DWORD ¨§ Little Endian ¢ Big Endian
; ¨ ­ ®¡®à®â :-)
; <--EAX DWORD
; -->EAX
;
  ntohl:
  htonl:
    ;pushf
    push ebx
    ;push ecx
 
    xor ebx, ebx
 
    mov bl, ah
    mov bh, al
    shl ebx, 16
    
    shr eax, 16
    mov bl, ah
    mov bh, al
    
    mov eax, ebx
 
    ;pop ecx
    pop ebx
    ;popf
  ret
 
 
; «ï ¯¥à¥¢®¤  WORD ¨§ Little Endian ¢ Big Endian
; <--AX WORD                                             
; -->AX WORD
;
 
  ntohs:
  htons:
    ;pushf
    push ebx
 
    xor ebx, ebx
    mov bl, ah
    mov bh, al
    mov eax, ebx
 
    pop ebx
    ;popf
  ret
 
;
; ¯ àá¨â SNAC
; <--EAX ãª § â¥«ì ­  SNAC_head
; <--EBX ãª § â¥«ì ­  ¡ãää¥à
; -->EAX ãª § â¥«ì ­ ç «® ¤ ­­ëå = buffer+sizeof SNAC_head
; 
;
  snacpar:
    pushf
    push ecx
    ;push edx
 
    mov cl, [ebx+1]	; Family (service) id number ¬« ¤è¨© ¡ ©â
    mov ch, [ebx]	; áâ àè¨©
    mov word [eax], cx
 
    mov cl, [ebx+3]	; Family subtype id number
    mov ch, [ebx+2]	;
    mov word [eax+2], cx
 
    mov cl, [ebx+5]	 ; SNAC flags
    mov ch, [ebx+4]	 ;
    mov word [eax+4], cx ;
			   
    mov cl, [ebx+7]	    ;
    mov ch, [ebx+6]	    ;
    mov word [eax+8], cx    ; SNAC request id
    mov cl, [ebx+8]	    ;
    mov ch, [ebx+7]	    ;
    mov word [eax+6], cx    ;
    
    add ebx, 10 	    ; §¬¥à § £®«®¢ª 
    mov eax, ebx
 
 
    ;pop edx
    pop ecx 
    popf
  ret
 
;
; ¯ àá¨â userinfo block
;  FIXIT
;
 
;  userinfopar:
;    pushf
;
;
;
;
;
;
;    popf
;  ret
 
;
;  ¯®áë«ª  á®®¡é¥­¨ï
;  [eax] <-- â¥ªáâ®¢ë© ¡ãä¥à  \
;  [ebx] <-- UIN              /  Null-terminated
 
  sendmsg:
    pushf
    pushad
    push eax
    push ebx
 
    mov [ssnac.wFid], 4h  ; Family
    mov [ssnac.wSid], 6    ; Subtype
    mov [ssnac.dRi], 106h     ; request-id
    ;
    ;  ®«ãç ¥¬ ¢à¥¬ï á § ¯ãáª  á¨áâ¥¬ë, ¤«ï cookie
    ;
    mov eax, 26
    mov ebx, 9
    int 40h
 
    mov dword [buff], eax      ; Cookie 1
    mov dword [buff+4], eax    ; Cookie 2
 
    mov word [buff+8], 0100h   ; Message channel 00 01
 
 
    pop ebx
    mov eax, ebx
    call strlen
 
    mov [buff+10], al
    mov ecx, eax
    mov eax, ebx
    lea ebx, [buff+11]
    call strcpy
    lea ecx, [ecx+11]
 
    mov word [buff+ecx], 0200h	  ;     TLV.Type(0x02) - message data
    
    ;push ecx                      ;
				   ; TLV.Length
 
    mov word [buff+ecx+4], 0105h	 ; 05 01   01 - fragment version, 05 - fragment identifier
    
    mov word [buff+ecx+6], 0100h	 ; data length 
    
    mov [buff+ecx+8], 01		 ; byte array of required capabilities (1 - text)
 
    mov [buff+ecx+9], 01		 ; fragment identifier (text message)
    mov [buff+ecx+10], 01		  ; fragment version
 
    pop ebx
    mov eax, ebx
    call strlen
    mov edx, eax
    lea eax, [eax+4]			 ; «¨­  á®®¡é¥­¨ï + Message charset number+ Message language number
    
    call htons
    mov word [buff+ecx+11], ax
 
    mov eax, edx
    lea eax, [eax+13]			  ; + ¤«¨­  á«ã¦¥¡­ëå ¤ ­­ëå
    call htons
    mov word [buff+ecx+2], ax
 
 
    mov word [buff+ecx+13], 0700h	 ; Message charset number
    mov word [buff+ecx+15], 0300h	 ; Message language number
 
    mov eax, ecx
    mov ecx, edx			 ; Len
    lea edx, [eax+17]
 
    mov eax, ebx			 ;Source
    
    lea ebx, [buff+edx] 		 ;Dest
    
    call strcpy
    lea ecx, [ecx+edx]			 ; +String length
    
    mov [buff+ecx], byte 0
    mov eax, ebx
    call dos2win
 
 
    mov word [buff+ecx], 0600h		     ; TLV.Type(0x06) - store message if recipient offline
    mov word [buff+ecx+2], 0		     ; TLV.Length
 
    lea edx, [ecx+4]			     ; +TLV_head length
    mov eax, ssnac
    mov ebx, buff
    mov ecx, [socket]
    call sendsnac
 
 
 
    popad
    popf
  ret
 
;
;    ¯à®á ¨­ä®à¬ æ¨¨ UIN®¢
;
  getinfo:
    pushad
    pushf
    ;
    ; SNAC (15,2) - Meta information request 
    ;
 
    mov [ssnac.wFid], 15h  ; Family
    mov [ssnac.wSid], 2    ; Subtype
    mov [ssnac.dRi], 702h     ; request-id
 
    mov word [buff], 0100h	   ;TLV.Type(1) - encapsulated META_DATA
    mov word [buff+2], 1000h	   ; 00 10  TLV.Length
    mov word [buff+4], 000Eh	   ; (LE)               data chunk size (TLV.Length-2)
    mov eax, UIN
    call ascitoint
    mov dword [buff+6], eax	   ;(LE)                request owner uin
    mov word [buff+10], 07D0h	   ;data type: META_DATA_REQ
    ;mov word [buff+12], 0008h      ; request sequence number <<<-- ®¦¥â ¬¥­ïâìáï FIXIT
    mov word [buff+14], 04BAh	   ; data subtype: META_SHORTINFO_REQUEST
 
    mov ecx, [socket]
    mov edx, 20
 
    xor esi, esi	; ç¥âç¨ª
    xor eax, eax
 
  gi_loop:
    mov ebx, esi
    mov word [buff+12], bx	; request sequence number
    mov ebx, UIN_LEN
    imul ebx, esi
    mov al,  [uins+ebx]
    cmp al, 0
    jz	gi_end
 
    lea eax, [uins+ebx]
    call ascitoint
    mov dword [buff+16], eax
 
    mov eax, ssnac
    mov ebx, buff
    
    call sendsnac
    inc esi
    cmp esi, UINS
    jnc gi_end
    jmp gi_loop
 
 
 
 
 
 
  gi_end:
    popf
    popad
  ret
 
;
;  £àã¦ ¥¬ «®ª «ì­ë©  ­  á¥à¢¥à ¤«ï ¯®«ãç¥­¨ï áâ âãá  î§¥à®¢
;
  uploadkl:
    pushf
    pushad
    ;
    ;  Add buddy(s) to contact list
    ;
    mov [ssnac.wFid], 3   ; Family
    mov [ssnac.wSid], 4   ; Subtype
    mov [ssnac.dRi], 4	  ; request-id
 
    xor esi, esi	  ; ç¥âç¨ª
    xor edx, edx	  ;  ¯®«­¥­® ¡ ©â
 
  ukk_loop:
    mov ebx, UIN_LEN
    imul  ebx, esi
    mov al, [uins+ebx]
    cmp al, 0
    jz ukk_end
    lea eax, [uins+ebx]
    
    call strlen
    mov [buff+edx], al
    inc edx
 
    mov ecx, eax
    lea eax, [uins+ebx]    ; Source
    lea ebx, [buff+edx]
    call strcpy
    add edx, ecx
    inc esi
    cmp esi, UINS
    jz ukk_end
    jmp ukk_loop
 
    
 
 
 
  ukk_end:
    mov eax, ssnac
    mov ebx, buff
    mov ecx, [socket]
    call sendsnac
 
    popad
    popf
  ret
 
;
;
;
  sendkeep:
    pushf
    pushad
    cmp [login], 2
    jnz @f
    mov ax, [timer]
    cmp ax, 300 	  ;60 c
    jb @f
    mov [timer], 0
    mov [flap.bId], FLAP_ID
    mov [flap.bCh], 5	      ;Keep alive
    mov [flap.wDs], 0
    inc [seq]
    mov ax, [seq]
    mov [flap.wSn], ax
    mov eax, flap
    mov ebx, buff
    mov ecx, [socket]
    call sendflap
 
 
  @@:
    popad
    popf
  ret
 
 
 
 
; <--- initialised data --->
DATA
  lsz header,\
    ru, "KI",\			  
    en, "KI",\
    fr, "KI"
 
 
;
MESS db 'Message from ', 0
CUSER db 'Current user: ', 0 
 
;
 
;ICQ_IP =  0x0A00A8C0   ; 192.168.0.10
 ICQ_IP =  0x99A10C40
;
flap FLAP_head
rflap FLAP_head
;
ssnac SNAC_head        ; ¤«ï ¯¥à¥¤ ç¨ SNAC
rsnac SNAC_head        ; ¤«ï ¯à¨­ïâ®£® SNAC
;
ui UI_head	       ; User info
;
procinfo process_information
;
UIN db '123456789',0
PASS db 'coolpass',0
ID_STRING db 'ICQ Inc. - Product of ICQ (TM).2000b.4.65.1.3281.85',0
;ID_STRING db 'ICQ Inc. - Product of ICQ (TM).2001b.5.17.1.3642.85',0
CAPABILITIES db 053h, 054h, 0, 0, 097h, 0B1h, 027h, 051h, 024h, 03Ch, 043h, 034h, 0ADh, 022h, 0D6h, 0ABh,\
		0F7h, 03Fh, 014h, 092h, 02Eh, 07Ah, 064h, 075h, 0FAh, 0DFh, 04Dh, 0C8h, 088h, 06Fh, 0EAh, 035h,\ 
		095h, 0FDh, 0B6h, 0DFh, 09h, 046h, 013h, 044h,	04Ch, 07Fh, 011h, 0D1h, 082h, 022h, 044h, 045h,\ 
		053h, 054h, 0, 0
;
; From &RQ
;
 
;CAPABILITIES db 0x09, 0x46, 0x13, 0x49, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45,\    ;...P.F.IL.T"DE
;                0x53, 0x54, 0x00, 0x00, 0x09, 0x46, 0x13, 0x44, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45,\        ;ST...F.DL.T"DE
;                0x53, 0x54, 0x00, 0x00, 0x09, 0x46, 0x13, 0x4E, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45,\        ;ST...F.NL.T"DE
;                0x53, 0x54, 0x00, 0x00, 0x09, 0x46, 0x00, 0x00, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45,\        ;ST...F..L.T"DE
;                0x53, 0x54, 0x00, 0x00, 0x26, 0x52, 0x51, 0x69, 0x6E, 0x73, 0x69, 0x64, 0x65, 0x02, 0x07, 0x09,\        ;ST..&RQinside...
;                0x00, 0x00, 0x00, 0x00                                         
 
 
C_LEN = 40h
;C_LEN = 80
ICBM_PARAMS db 0, 0, 0, 0, 0, 0Bh, 01Fh, 040h, 3, 0E7h, 3, 0E7h, 0, 0, 0, 0
ICBMP_LEN = 16		 ;    ^^^ from &RQ
 
 
;
; from &rq
;
FAMILY_ARR db  0x00, 0x01, 0x00, 0x03, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x13, 0x00, 0x02, 0x01, 0x10, 0x04, 0x7B,\    
	       0x00, 0x02, 0x00, 0x01, 0x01, 0x01, 0x04, 0x7B,	0x00, 0x03, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\    
	       0x00, 0x15, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x04, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\    
	       0x00, 0x06, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x09, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\    
	       0x00, 0x0A, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x10, 0x00, 0x01, 0x00, 0x10, 0x06, 0x6A	  
 
 
 
 
 
FA_LEN = 50h
 
;
ID_NUM = 010Ah
MAJOR = 05h
;MAJOR = 04h
;MINOR = 041h
MINOR = 011h
LESSER = 01h
;BUILD = 0CD1h
BUILD = 0E3Ah
DISTR = 055h
TCB_ESTABLISHED = 4
TCB_CLOSED = 11
;
CL_LANG db 'en',0
CL_COUNTRY db 'us',0
 
 
sbuff db 1024 dup 0	; ãä¥à ¤«ï ¯¥à¥¤ ç¨ ¨á¯®«ì§ã¥âáï ¢­ãâà¨ sendflap
 
rbuff db 1024 dup 0	; à¨¥¬­ë© ¡ãä¥à
tbuff db 512 dup 0	; «ï TLV
srv_cookie db 512 dup 0 ; ãª¨ ¤«ï  ¢â®à¨§ æ¨¨
bos_address db 128 dup 0 ; ¤à¥á BOS á¥à¢¥à 
cookie_len dw 0 	 ; «¨­  ªãª¨
seq dw 0		 ; Sequence number
bos_ip dd 0
bos_port dd 0
status dw 0		; status
 
mbuff db 2048 dup 0	; «ï ¯à¨¥¬ 
MBUFF_SIZE		= 2048
 
hrf db 0		; « £ ¯à¨¥¬  § £®«®¢ª 
 
mouse_flag dd 0
socket dd 0
login db 0
 
msg_cookie1 dd 0	;   á¯®«ì§ãîâáï ¤«ï ¯®â¢¥à¦¤¥­¨ï ¯à¨¥¬  á®®¡é¥­¨©
msg_cookie2 dd 0	;
 
curruser    db 0	;  â¥ªãé¨© ¯®«ì§®¢ â¥«ì, ª®â®à®¬ã ¡ã¤ãâ ®â¯à ¢«ïâìáï á®®¡é¥­¨ï
			; - ®¬¥à ¢  ¯® ¯®àï¤ªã
 
 
timer dw 0
 
;ltest db "ADMIN",0
 
 
 
;
; EDITBOXES
;
inputbuff: 
       rb 512
 
inputbox edit_box 490,10,460,0xffffff,0x6a9480,0,0xAABBCC,0,511,inputbuff,ed_focus,0,0
 
 
; <--- uninitialised data --->
UDATA
 
 
MEOS_APP_END
; <--- end of MenuetOS application --->

Rev 1832	Rev 1833
1	; <--- description --->	1	; <--- description --->
2	; compiler: FASM 1.67.21	2	; compiler: FASM 1.67.21
3	; name: ICQ for Kolibri	3	; name: ICQ for Kolibri
4	; version: 0.01	4	; version: 0.01
5	; written by: LV	5	; written by: LV
6	; e-mail: lv4evil@ya.ru	6	; e-mail: lv4evil@ya.ru
7		7
8		8
9	; <--- include all MeOS stuff --->	9	; <--- include all MeOS stuff --->
10	include "lang.inc"	10	include "lang.inc"
11	include "MACROS.INC"	11	include "../../../macros.inc"
12	purge mov	12	purge mov
13	;include "ASCL9/ascl.inc"	13	;include "ASCL9/ascl.inc"
14	;include "debug.inc"	14	;include "debug.inc"
15	include "editbox.inc"	15	include "editbox.inc"
16		16
17	; <--- start of MenuetOS application --->	17	; <--- start of MenuetOS application --->
18	MEOS_APP_START	18	MEOS_APP_START
19		19
20	;include "debug.inc"	20	;include "debug.inc"
21	include "2000.inc"	21	include "2000.inc"
22	include "comp.inc"	22	include "comp.inc"
23		23
24	use_edit_box procinfo,22,5	24	use_edit_box procinfo,22,5
25		25
26	; <--- start of code --->	26	; <--- start of code --->
27	CODE	27	CODE
28		28
29		29
30	;mov eax, 40	30	;mov eax, 40
31	;mov ebx, 47h	31	;mov ebx, 47h
32	;int 40h	32	;int 40h
33		33
34	call loaduin	34	call loaduin
35	call draw_window ; at first create and draw the window	35	call draw_window ; at first create and draw the window
36		36
37	;call buttonbox	37	;call buttonbox
38		38
39	wait_event: ; main cycle	39	wait_event: ; main cycle
40	mov eax, 23	40	mov eax, 23
41	mov ebx, 20	41	mov ebx, 20
42	int 0x40	42	int 0x40
43		43
44	cmp eax, 1 ; if event == 1	44	cmp eax, 1 ; if event == 1
45	je redraw ; jump to redraw handler	45	je redraw ; jump to redraw handler
46	cmp eax, 2 ; else if event == 2	46	cmp eax, 2 ; else if event == 2
47	je key ; jump to key handler	47	je key ; jump to key handler
48	cmp eax, 3 ; else if event == 3	48	cmp eax, 3 ; else if event == 3
49	je button ; jump to button handler	49	je button ; jump to button handler
50		50
51	;	51	;
52	; ¤¥¬ ¤ ëå	52	; ¤¥¬ ¤ ëå
53	;	53	;
54	mov eax, 53	54	mov eax, 53
55	mov ebx, 2	55	mov ebx, 2
56	push ecx	56	push ecx
57	mov ecx, [socket]	57	mov ecx, [socket]
58	int 0x40	58	int 0x40
59	pop ecx	59	pop ecx
60	cmp eax, 0	60	cmp eax, 0
61	jnz read_socket	61	jnz read_socket
62		62
63	mouse_edit_box inputbox	63	mouse_edit_box inputbox
64	;	64	;
65	; á«¨ ¥áâì á®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¯®áë« ¥¬ ¯ ª¥âë - ¯®¤â¢¥¦¤¥¨ï ª ¦¤ë¥ 60 á	65	; á«¨ ¥áâì á®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¯®áë« ¥¬ ¯ ª¥âë - ¯®¤â¢¥¦¤¥¨ï ª ¦¤ë¥ 60 á
66	;	66	;
67	call sendkeep	67	call sendkeep
68		68
69	jmp wait_event ; else return to the start of main cycle	69	jmp wait_event ; else return to the start of main cycle
70		70
71		71
72	redraw: ; redraw event handler	72	redraw: ; redraw event handler
73	call draw_window	73	call draw_window
74	jmp wait_event	74	jmp wait_event
75		75
76		76
77	key: ; key event handler	77	key: ; key event handler
78	mov eax, 2 ; get key code	78	mov eax, 2 ; get key code
79	int 0x40	79	int 0x40
80		80
81	cmp ah, 0Dh ; à®¡¥« - ®â¯à ¢¨âì á®®¡é¥¨¥	81	cmp ah, 0Dh ; à®¡¥« - ®â¯à ¢¨âì á®®¡é¥¨¥
82	jz send	82	jz send
83		83
84		84
85	key_edit_box inputbox	85	key_edit_box inputbox
86		86
87	jmp wait_event	87	jmp wait_event
88		88
89		89
90	button: ; button event handler	90	button: ; button event handler
91	mov eax, 17 ; get button identifier	91	mov eax, 17 ; get button identifier
92	int 0x40	92	int 0x40
93		93
94	cmp ah, 2	94	cmp ah, 2
95	jz connect	95	jz connect
96		96
97	cmp ah, 3	97	cmp ah, 3
98	jz disconnect	98	jz disconnect
99		99
100	cmp ah, 4	100	cmp ah, 4
101	jz send	101	jz send
102		102
103	;	103	;
104	; à®¢¥àï¥¬, ¥ ¦ â «¨ ª®¯ª ¢	104	; à®¢¥àï¥¬, ¥ ¦ â «¨ ª®¯ª ¢
105	; 100	105	; 100
106	cmp ah, UINS+100	106	cmp ah, UINS+100
107	jnc @f	107	jnc @f
108	cmp ah, 100	108	cmp ah, 100
109	jc @f	109	jc @f
110	;	110	;
111	; ¦ â	111	; ¦ â
112	;	112	;
113	sub ah, 100	113	sub ah, 100
114	mov [curruser], ah	114	mov [curruser], ah
115	;	115	;
116	; ë¢®¤¨¬ áâà®çªã, ª®¬ã	116	; ë¢®¤¨¬ áâà®çªã, ª®¬ã
117	;	117	;
118	shr eax, 8	118	shr eax, 8
119	and eax, 000000FFh	119	and eax, 000000FFh
120	push eax	120	push eax
121	mov eax, CUSER	121	mov eax, CUSER
122	call strlen	122	call strlen
123	mov ecx, eax	123	mov ecx, eax
124	mov eax, CUSER	124	mov eax, CUSER
125	mov ebx, buff	125	mov ebx, buff
126	call strcpy	126	call strcpy
127	pop eax	127	pop eax
128	mov ebx, NAME_LEN	128	mov ebx, NAME_LEN
129	imul ebx, eax	129	imul ebx, eax
130	lea eax, [names+ebx]	130	lea eax, [names+ebx]
131	mov [buff+ecx], ' ' ; à®¡¥«	131	mov [buff+ecx], ' ' ; à®¡¥«
132	lea ebx, [buff+ecx+1]	132	lea ebx, [buff+ecx+1]
133	mov ecx, NAME_LEN	133	mov ecx, NAME_LEN
134	call strcpy	134	call strcpy
135	mov eax, buff	135	mov eax, buff
136	xor ebx, ebx	136	xor ebx, ebx
137	call writemsg	137	call writemsg
138		138
139		139
140		140
141		141
142	@@:	142	@@:
143	cmp ah, 1	143	cmp ah, 1
144	jne wait_event ; return if button id != 1	144	jne wait_event ; return if button id != 1
145		145
146	or eax, -1 ; exit application	146	or eax, -1 ; exit application
147	int 0x40	147	int 0x40
148		148
149		149
150	draw_window:	150	draw_window:
151	mov eax, 12 ; start drawing	151	mov eax, 12 ; start drawing
152	mov ebx, 1	152	mov ebx, 1
153	int 0x40	153	int 0x40
154		154
155	mov eax, 0 ; create and draw the window	155	mov eax, 0 ; create and draw the window
156	mov ebx, 10065536+700 ; (window_cx)65536+(window_sx)	156	mov ebx, 10065536+700 ; (window_cx)65536+(window_sx)
157	mov ecx, 10065536+500 ; (window_cy)65536+(window_sy)	157	mov ecx, 10065536+500 ; (window_cy)65536+(window_sy)
158	mov edx, 0x03ffffff ; work area color & window type 3	158	mov edx, 0x03ffffff ; work area color & window type 3
159	; mov esi, 0 ; grab color (not used)	159	; mov esi, 0 ; grab color (not used)
160	; mov edi, 0 ; frame color (not used)	160	; mov edi, 0 ; frame color (not used)
161	int 0x40	161	int 0x40
162		162
163	mov eax, 4 ; window header	163	mov eax, 4 ; window header
164	mov ebx, 8*65536+8 ; coordinates	164	mov ebx, 8*65536+8 ; coordinates
165	mov ecx, 0x10ffffff ; color & font N1	165	mov ecx, 0x10ffffff ; color & font N1
166	mov edx, header ; address of text	166	mov edx, header ; address of text
167	mov esi, header.size ; length of text	167	mov esi, header.size ; length of text
168	int 0x40	168	int 0x40
169		169
170	draw_edit_box inputbox	170	draw_edit_box inputbox
171		171
172	rect 10, 30, 500, 450, 0	172	rect 10, 30, 500, 450, 0
173		173
174	draw_button 600, 460, 60, 15, 2, 'CONNECT'	174	draw_button 600, 460, 60, 15, 2, 'CONNECT'
175	;draw_button 600, 460, 60, 15, 3, 'Disconnect'	175	;draw_button 600, 460, 60, 15, 3, 'Disconnect'
176	draw_button 530, 460, 60, 15, 4, 'SEND'	176	draw_button 530, 460, 60, 15, 4, 'SEND'
177		177
178	call printbuff	178	call printbuff
179	call buttonbox	179	call buttonbox
180		180
181		181
182	mov eax, 12 ; finish drawing	182	mov eax, 12 ; finish drawing
183	mov ebx, 2	183	mov ebx, 2
184	int 0x40	184	int 0x40
185		185
186	ret	186	ret
187		187
188	;	188	;
189	; ®¥¤¨¥¨¥	189	; ®¥¤¨¥¨¥
190	;	190	;
191	connect:	191	connect:
192	mov eax, ICQ_IP	192	mov eax, ICQ_IP
193	mov ebx, ICQ_PORT	193	mov ebx, ICQ_PORT
194	call srv_connect	194	call srv_connect
195	;call srv_login	195	;call srv_login
196		196
197		197
198	jmp wait_event	198	jmp wait_event
199		199
200		200
201	;	201	;
202	;	202	;
203	;	203	;
204	disconnect:	204	disconnect:
205	mov ecx, [socket]	205	mov ecx, [socket]
206	call closesocket	206	call closesocket
207		207
208	jmp wait_event	208	jmp wait_event
209		209
210		210
211	;	211	;
212	;	212	;
213	;	213	;
214	send:	214	send:
215	;	215	;
216	; ¯à¥¤¥«ï¥¬, ¥ á¬¥¥ «¨ â¥ªãé¨©	216	; ¯à¥¤¥«ï¥¬, ¥ á¬¥¥ «¨ â¥ªãé¨©
217	;	217	;
218	; «ï á¬¥ë ¨á¯®«ì§ã¥âáï / ¢ ç «¥ áâà®ª¨ ¨ ®¬¥à ã¨	218	; «ï á¬¥ë ¨á¯®«ì§ã¥âáï / ¢ ç «¥ áâà®ª¨ ¨ ®¬¥à ã¨
219	; ¯® ¯®àï¤ªã. á«¨ ¤«¨ > 2 á¨¬¢®«®¢, áç¨â ¥âáï, çâ® ¯¥à¥¤	219	; ¯® ¯®àï¤ªã. á«¨ ¤«¨ > 2 á¨¬¢®«®¢, áç¨â ¥âáï, çâ® ¯¥à¥¤
220	; á ¬ ã¨ - ¤«ï ®â¯à ¢ª¨ á®®¡é¥¨© î§¥à ¬, ª®â®àëå ¥â ¢	220	; á ¬ ã¨ - ¤«ï ®â¯à ¢ª¨ á®®¡é¥¨© î§¥à ¬, ª®â®àëå ¥â ¢
221	;	221	;
222	mov al, [inputbuff]	222	mov al, [inputbuff]
223	cmp al, '/'	223	cmp al, '/'
224	jnz sd_message	224	jnz sd_message
225	; ¬¥ ã¨	225	; ¬¥ ã¨
226	;mov al, [inputbuff+2]	226	;mov al, [inputbuff+2]
227	;cmp al, 20h	227	;cmp al, 20h
228	;jz sd_use_kl	228	;jz sd_use_kl
229	mov al, [inputbuff+3]	229	mov al, [inputbuff+3]
230	cmp al, 20h ; à®¡¥«	230	cmp al, 20h ; à®¡¥«
231	jz sd_use_kl	231	jz sd_use_kl
232	;	232	;
233	; é¥¬ ¯¥à¢ë© ¯à®¡¥«, ¨¬ ¤®«¦¥ § ª®ç¨âìáï ã¨	233	; é¥¬ ¯¥à¢ë© ¯à®¡¥«, ¨¬ ¤®«¦¥ § ª®ç¨âìáï ã¨
234	;	234	;
235	xor ecx, ecx	235	xor ecx, ecx
236	sd_loop:	236	sd_loop:
237	mov al, [inputbuff+ecx]	237	mov al, [inputbuff+ecx]
238	cmp al, 20h	238	cmp al, 20h
239	jz sd_space	239	jz sd_space
240	cmp al, 0	240	cmp al, 0
241	jz wait_event	241	jz wait_event
242	inc ecx	242	inc ecx
243	jmp sd_loop	243	jmp sd_loop
244		244
245	sd_space:	245	sd_space:
246	;	246	;
247	; ¬¥ï¥¬ ¯à®¡¥« 0, ®âáë« ¥¬ á®®¡é¥¨¥	247	; ¬¥ï¥¬ ¯à®¡¥« 0, ®âáë« ¥¬ á®®¡é¥¨¥
248	mov [inputbuff+ecx], byte 0	248	mov [inputbuff+ecx], byte 0
249	lea ebx, [inputbuff+1]	249	lea ebx, [inputbuff+1]
250	lea eax, [inputbuff+ecx+1]	250	lea eax, [inputbuff+ecx+1]
251	call sendmsg	251	call sendmsg
252	mov ebx, 0000FFh	252	mov ebx, 0000FFh
253	call writemsg	253	call writemsg
254	jmp wait_event	254	jmp wait_event
255		255
256		256
257		257
258	sd_use_kl:	258	sd_use_kl:
259	lea eax, [inputbuff+1]	259	lea eax, [inputbuff+1]
260	mov [inputbuff+3], byte 0	260	mov [inputbuff+3], byte 0
261	call ascitoint	261	call ascitoint
262	lea eax, [eax-1] ; .ª. ¢ ®âáç¥â á 0	262	lea eax, [eax-1] ; .ª. ¢ ®âáç¥â á 0
263	mov [curruser], al	263	mov [curruser], al
264		264
265		265
266	sd_message:	266	sd_message:
267	;	267	;
268	; ®®¡é¥¨¥	268	; ®®¡é¥¨¥
269	movzx eax, [curruser]	269	movzx eax, [curruser]
270	mov ebx, UIN_LEN	270	mov ebx, UIN_LEN
271	imul ebx, eax	271	imul ebx, eax
272	lea ebx, [uins+ebx]	272	lea ebx, [uins+ebx]
273	mov al, [inputbuff]	273	mov al, [inputbuff]
274	cmp al, '/'	274	cmp al, '/'
275	jz @f	275	jz @f
276	mov eax, inputbuff	276	mov eax, inputbuff
277	jmp sd_send	277	jmp sd_send
278	@@:	278	@@:
279	;mov al, [inputbuff+2]	279	;mov al, [inputbuff+2]
280	;cmp al, ' '	280	;cmp al, ' '
281	;jz @f	281	;jz @f
282	lea eax, [inputbuff+4]	282	lea eax, [inputbuff+4]
283	;jmp sd_send	283	;jmp sd_send
284	;@@: lea eax, [inputbuff+3]	284	;@@: lea eax, [inputbuff+3]
285		285
286	sd_send:	286	sd_send:
287	call sendmsg	287	call sendmsg
288	mov ebx, 0000FFh	288	mov ebx, 0000FFh
289	call writemsg	289	call writemsg
290		290
291		291
292	jmp wait_event	292	jmp wait_event
293		293
294		294
295	;	295	;
296	; áâì ¯à¨ïâë¥ ¤ ë¥	296	; áâì ¯à¨ïâë¥ ¤ ë¥
297	;	297	;
298	read_socket:	298	read_socket:
299	pushf	299	pushf
300	pushad	300	pushad
301	;write_debug 'Some data in socket'	301	;write_debug 'Some data in socket'
302	;	302	;
303	; à®¢¥àï¥¬, ¥ ¡ë« «¨ ¯®«ãç¥ § £®«®¢®ª ®â¤¥«ì® ®â ¤ ëå	303	; à®¢¥àï¥¬, ¥ ¡ë« «¨ ¯®«ãç¥ § £®«®¢®ª ®â¤¥«ì® ®â ¤ ëå
304	; ¢ ¯à¥¤ë¤ãé¥¬ æ¨ª«¥	304	; ¢ ¯à¥¤ë¤ãé¥¬ æ¨ª«¥
305	;	305	;
306	cmp [hrf], 1	306	cmp [hrf], 1
307	jz rs_head_recived	307	jz rs_head_recived
308		308
309		309
310	mov eax, 53	310	mov eax, 53
311	mov ebx, 2	311	mov ebx, 2
312	mov ecx, [socket]	312	mov ecx, [socket]
313	int 40h	313	int 40h
314	cmp eax, 6 ; Flap head size	314	cmp eax, 6 ; Flap head size
315	jc r_end	315	jc r_end
316	;	316	;
317	; à¨¨¬ ¥¬ § £®«®¢®ª	317	; à¨¨¬ ¥¬ § £®«®¢®ª
318	;	318	;
319	xor edx, edx	319	xor edx, edx
320		320
321	;mov ecx, [socket]	321	;mov ecx, [socket]
322	rs_loop:	322	rs_loop:
323	mov eax, 53	323	mov eax, 53
324	mov ebx, 3	324	mov ebx, 3
325		325
326	int 40h	326	int 40h
327		327
328	mov [mbuff+edx], bl	328	mov [mbuff+edx], bl
329	inc edx	329	inc edx
330	cmp edx, 6	330	cmp edx, 6
331		331
332	jnz rs_loop	332	jnz rs_loop
333	;	333	;
334	; ¯®«ï¥¬ § £®«®¢®ª	334	; ¯®«ï¥¬ § £®«®¢®ª
335	;	335	;
336	;xor eax, eax	336	;xor eax, eax
337		337
338	;	338	;
339	; £®«®¢®ª ¯à¨ïâ!	339	; £®«®¢®ª ¯à¨ïâ!
340	;	340	;
341	mov [hrf], 1	341	mov [hrf], 1
342		342
343	mov bl, [mbuff]	343	mov bl, [mbuff]
344	mov [rflap.bId], bl	344	mov [rflap.bId], bl
345		345
346	mov bl, [mbuff+1]	346	mov bl, [mbuff+1]
347	mov [rflap.bCh], bl	347	mov [rflap.bCh], bl
348		348
349	mov bh, [mbuff+2]	349	mov bh, [mbuff+2]
350	mov bl, [mbuff+3]	350	mov bl, [mbuff+3]
351	mov [rflap.wSn], bx	351	mov [rflap.wSn], bx
352		352
353	mov bh, [mbuff+4]	353	mov bh, [mbuff+4]
354	mov bl, [mbuff+5]	354	mov bl, [mbuff+5]
355	mov [rflap.wDs], bx	355	mov [rflap.wDs], bx
356		356
357	;	357	;
358	; à¨¨¬ ¥¬ ¤ ë¥	358	; à¨¨¬ ¥¬ ¤ ë¥
359	;	359	;
360	;xor edx, edx	360	;xor edx, edx
361	cmp [rflap.bId], 2Ah	361	cmp [rflap.bId], 2Ah
362	jnz rs_flap_error	362	jnz rs_flap_error
363	;	363	;
364	; à®¢¥àï¥¬, ¯®«ãç¥ë «¨ ¤ ë¥	364	; à®¢¥àï¥¬, ¯®«ãç¥ë «¨ ¤ ë¥
365	;	365	;
366	rs_head_recived:	366	rs_head_recived:
367		367
368	mov eax, 53	368	mov eax, 53
369	mov ebx, 2	369	mov ebx, 2
370	;mov ecx, [socket]	370	;mov ecx, [socket]
371	int 40h	371	int 40h
372	cmp ax, [rflap.wDs] ; §¬¥à ¤ ëå	372	cmp ax, [rflap.wDs] ; §¬¥à ¤ ëå
373	jc r_end	373	jc r_end
374	;	374	;
375	;	375	;
376	mov ax, [rflap.wDs]	376	mov ax, [rflap.wDs]
377	;	377	;
378	; à®¢¥àï¥¬ à §¬¥à ¤ ëå	378	; à®¢¥àï¥¬ à §¬¥à ¤ ëå
379	;	379	;
380	cmp ax, MBUFF_SIZE+1	380	cmp ax, MBUFF_SIZE+1
381	jnc rs_big_flap	381	jnc rs_big_flap
382		382
383	xor esi, esi	383	xor esi, esi
384	mov esi, eax	384	mov esi, eax
385	xor edx, edx	385	xor edx, edx
386		386
387	;mov ecx, [socket]	387	;mov ecx, [socket]
388		388
389	rs_data_loop:	389	rs_data_loop:
390	cmp edx, esi	390	cmp edx, esi
391	jz rs_data_end	391	jz rs_data_end
392		392
393	mov eax, 53	393	mov eax, 53
394	mov ebx, 3	394	mov ebx, 3
395	int 40h	395	int 40h
396	mov [mbuff+edx], bl	396	mov [mbuff+edx], bl
397	inc edx	397	inc edx
398	jmp rs_data_loop	398	jmp rs_data_loop
399		399
400	;	400	;
401	; ë¥ ¯à¨ïâë	401	; ë¥ ¯à¨ïâë
402	;	402	;
403	rs_data_end:	403	rs_data_end:
404	mov [hrf], 0	404	mov [hrf], 0
405	write_debug 'Some data recived'	405	write_debug 'Some data received'
406	;	406	;
407	;	407	;
408	;	408	;
409	cmp [login], 0	409	cmp [login], 0
410	jz rs_login	410	jz rs_login
411	call main_loop	411	call main_loop
412	jmp r_end	412	jmp r_end
413		413
414		414
415	rs_login:	415	rs_login:
416	call srv_login	416	call srv_login
417	;write_debug 'Exited srv_login'	417	;write_debug 'Exited srv_login'
418	jmp r_end	418	jmp r_end
419		419
420	rs_flap_error:	420	rs_flap_error:
421	write_debug 'Invalid Flap'	421	write_debug 'Invalid Flap'
422	;	422	;
423	; FLAP.id ¥¢¥àë©. ã¦® § ªàëâì á®ª¥â	423	; FLAP.id ¥¢¥àë©. ã¦® § ªàëâì á®ª¥â
424	;	424	;
425		425
426	mov ecx, [socket]	426	mov ecx, [socket]
427	;call closesocket	427	;call closesocket
428	jmp r_end	428	jmp r_end
429		429
430	;	430	;
431	; «¨èª®¬ ¡®«ìè®© ¯ ª¥â!	431	; «¨èª®¬ ¡®«ìè®© ¯ ª¥â!
432	;	432	;
433	rs_big_flap:	433	rs_big_flap:
434		434
435	write_debug 'Too BIG FLAP Recived'	435	write_debug 'Too BIG FLAP Received'
436	mov [hrf], 0	436	mov [hrf], 0
437		437
438	mov ecx, [socket]	438	mov ecx, [socket]
439	mov ax, [rflap.wDs]	439	mov ax, [rflap.wDs]
440	xor esi, esi	440	xor esi, esi
441	mov esi, eax	441	mov esi, eax
442	xor edx, edx	442	xor edx, edx
443		443
444	rs_data_loop2:	444	rs_data_loop2:
445	cmp edx, esi	445	cmp edx, esi
446	jz r_end	446	jz r_end
447		447
448	mov eax, 53	448	mov eax, 53
449	mov ebx, 3	449	mov ebx, 3
450	int 40h	450	int 40h
451	;mov [mbuff+edx], bl	451	;mov [mbuff+edx], bl
452	inc edx	452	inc edx
453	jmp rs_data_loop2	453	jmp rs_data_loop2
454		454
455		455
456		456
457		457
458		458
459	r_end:	459	r_end:
460		460
461	popad	461	popad
462	popf	462	popf
463	jmp wait_event	463	jmp wait_event
464		464
465	; ®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¢®§¢à é ¥â ¢ eax - åí¤« á®ª¥â	465	; ®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¢®§¢à é ¥â ¢ eax - åí¤« á®ª¥â
466	; ¯¥à¥¤ ¥¬ ¢ ¥ å IP ¤à¥á á¥à¢¥à	466	; ¯¥à¥¤ ¥¬ ¢ ¥ å IP ¤à¥á á¥à¢¥à
467	; ¢ ebx - ¯®àâ	467	; ¢ ebx - ¯®àâ
468	srv_connect:	468	srv_connect:
469	push ecx	469	push ecx
470	push edx	470	push edx
471	push esi	471	push esi
472	push edi	472	push edi
473	push ebx	473	push ebx
474		474
475	mov esi, eax ; IP - ¢ esi	475	mov esi, eax ; IP - ¢ esi
476	; find free port	476	; find free port
477	mov ecx, 1000 ; ¯à¥¤¥«ï¥¬ «®ª «ìë© ¯®àâ, ç¨ ¥¬ á 1000	477	mov ecx, 1000 ; ¯à¥¤¥«ï¥¬ «®ª «ìë© ¯®àâ, ç¨ ¥¬ á 1000
478		478
479	getlp:	479	getlp:
480	inc ecx	480	inc ecx
481	push ecx	481	push ecx
482	mov eax, 53	482	mov eax, 53
483	mov ebx, 9	483	mov ebx, 9
484	int 0x40	484	int 0x40
485	pop ecx	485	pop ecx
486	cmp eax, 0 ; íâ®â «®ª «ìë© ¯®àâ ¨á¯®«ì§ã¥âáï?	486	cmp eax, 0 ; íâ®â «®ª «ìë© ¯®àâ ¨á¯®«ì§ã¥âáï?
487	jz getlp ; ¤ - ¯à®¤®«¦ ¥¬ ¯¥à¥¡¨à âì	487	jz getlp ; ¤ - ¯à®¤®«¦ ¥¬ ¯¥à¥¡¨à âì
488	;OK ecx = port number	488	;OK ecx = port number
489	;Open Socket	489	;Open Socket
490	mov eax, 53	490	mov eax, 53
491	mov ebx, 5	491	mov ebx, 5
492	xor edx, edx	492	xor edx, edx
493	;mov dx, ICQ_PORT	493	;mov dx, ICQ_PORT
494	pop edx	494	pop edx
495	;mov esi,ICQ_IP	495	;mov esi,ICQ_IP
496	mov edi, 1;SOCKET_ACTIVE	496	mov edi, 1;SOCKET_ACTIVE
497		497
498	int 040h	498	int 040h
499	;	499	;
500	mov [socket], eax	500	mov [socket], eax

Subversion Repositories Kolibri OS

(root)/programs/network/icq/trunk/ki.asm – Rev 1832 → 1833