WebSVN – Kolibri OS – Diff – /programs/network/smtps/trunk/smtps.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                   ;;
;;    SMTP server for MenuetOS                       ;;
;;                                                   ;;
;;    License: GPL / See file COPYING for details    ;;
;;    Copyright 2002 (c) Ville Turjanmaa             ;;
;;                                                   ;;
;;    Compile with FASM for Menuet                   ;;
;;                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
version equ '0.1'
 
use32
 
                org     0x0
 
                db      'MENUET01'              ; 8 byte id
                dd      0x01                    ; required os
                dd      START                   ; program start
                dd      I_END                   ; program image size
                dd      0x200000                ; required amount of memory
                dd      0xffff0
                dd      0,0
 
 
 
 
 
 
include 'macros.inc'
 
save_file:
 
;   cmp  [file_start],0x100000+10
;   jbe  nosub
;   sub  [file_start],8
;  nosub:
 
   mov  eax,[file_start]
   sub  eax,0x100000
 
 
 
   mov  ebx,files
   mov  [ebx+12],eax
 
   mov  eax,70
   int  0x40
 
   ret
 
 
START:                          ; start of execution
 
    mov  [file_start],0x100000
 
    mov  eax,70
    mov  ebx,filel
    int  0x40
 
    test eax,eax
    jz   @f
    cmp  eax,6
    jnz  notfound
@@:
    add  [file_start],ebx
  notfound:
 
 
    mov  edi,I_END
    mov  ecx,60*120
    mov  al,32
    cld
    rep  stosb
 
    mov  eax,[rxs]
    imul eax,11
    mov  [pos],eax
 
    mov  ebp,0
    mov  edx,I_END
    call draw_window            ; at first, draw the window
 
still:
 
    inc  [cursor_on_off]
 
    mov  eax,5
    mov  ebx,1
    int  0x40
 
    mov  eax,11                 ; wait here for event
    int  0x40
 
    cmp  eax,1                  ; redraw
    je   redraw
    cmp  eax,2                  ; key
    je   key
    cmp  eax,3                  ; button
    je   button
 
    cmp  [I_END+120*60],byte 1
    jne  no_main_update
    mov  [I_END+120*60],byte 0
    mov  edx,I_END
    call draw_channel_text
  no_main_update:
 
    cmp  [server_active],0
    je   noread
    cmp  [status],4
    jne  noread
    call read_incoming_data
    inc  [close_connection]
    cmp  [close_connection],15*100
    jbe  noread
 
    call yq
 
  noread:
 
    call print_status
 
    cmp  [status],4
    je   check_header
 
    jmp  still
 
 
check_header:
 
    cmp [header_sent],1
    je  still
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,6
    mov  esi,r220
    int  0x40
    mov  [header_sent],1
 
    jmp  still
 
 
 
redraw:                         ; redraw
 
    call draw_window
    jmp  still
 
 
button:                         ; button
 
    mov  eax,17                 ; get id
    int  0x40
 
    cmp  ah,1                   ; close program
    jne  noclose
    mov  eax,-1
    int  0x40
  noclose:
 
    call socket_commands
 
    jmp  still
 
 
old_status dd 0x0
 
print_status:
 
    pusha
 
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    int  0x40
 
    mov  [status],eax
 
    cmp  eax,[old_status]
    je   no_print
 
    mov  [old_status],eax
 
    push eax
 
    mov  eax,13
    mov  ebx,360*65536+30
    mov  ecx,151*65536+10
    mov  edx,0xffffff
    int  0x40
 
    pop  ecx
    mov  eax,47
    mov  ebx,3*65536
    mov  edx,360*65536+151
    mov  esi,0x000000
 
    cmp  [server_active],0
    je   no_print
 
    int  0x40
 
  no_print:
 
    popa
 
    ret
 
 
socket_commands:
 
    cmp  ah,22       ; open socket
    jnz  tst3
    mov  eax,3
    int  0x40
 
    mov  [server_active],1
 
    mov  eax,53
    mov  ebx,5
    mov  ecx,25     ; local port # - http
    mov  edx,0      ; no remote port specified
    mov  esi,0      ; no remote ip specified
    mov  edi,0      ; PASSIVE open
    int  0x40
    mov  [socket], eax
 
    ret
  tst3:
 
 
    cmp  ah,24     ; close socket
    jnz  no_24
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    int  0x40
    mov  [header_sent],0
    mov  [mail_rp],0
    mov  [server_active],0
 
    ret
  no_24:
 
 
    ret
 
 
 
key:
 
    mov  eax,2
    int  0x40
 
    jmp  still
 
 
 
read_incoming_data:
 
    pusha
 
  read_new_byte:
 
    call read_incoming_byte
    cmp  ecx,-1
    je   no_data_in_buffer
 
    mov  eax,[file_start]
    mov  [eax],bl
    inc  [file_start]
 
    cmp  bl,10
    jne  no_start_command
    mov  [cmd],1
  no_start_command:
 
    cmp  bl,13
    jne  no_end_command
    mov  eax,[cmd]
    mov  [eax+command-2],byte 0
    call analyze_command
    mov  edi,command
    mov  ecx,250
    mov  eax,0
    cld
    rep  stosb
    mov  [cmd],0
  no_end_command:
 
    mov  eax,[cmd]
    cmp  eax,250
    jge  still
 
    mov  [eax+command-2],bl
    inc  [cmd]
 
    jmp  read_new_byte
 
  no_data_in_buffer:
 
    popa
 
    ret
 
 
 
 
 
analyze_command:
 
    pusha
 
    mov  [text_start],I_END
    mov  ecx,[rxs]
    imul ecx,11
    mov  [pos],ecx
 
    mov  bl,13
    call print_character
    mov  bl,10
    call print_character
 
    cmp  [cmd],2
    jbe  nott
    mov  ecx,[cmd]
    sub  ecx,2
    mov  esi,command+0
  newcmdc:
    mov  bl,[esi]
    call print_character
    inc  esi
    loop newcmdc
 
   nott:
 
    mov   edx,I_END
    call  draw_channel_text
 
  cmd_len_ok:
 
    cmp  [command],dword 'data'
    je   datacom
    cmp  [command],dword 'DATA'
    je   datacom
    cmp  [command],dword 'Data'
    je   datacom
    jmp  nodatacom
  datacom:
    inc  [mail_rp]
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,6
    mov  esi,r354
    int  0x40
    mov  [cmd],0
    popa
    ret
 
  nodatacom:
 
    cmp  [mail_rp],0
    jne  nomrp0
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,6
    mov  esi,r250
    int  0x40
    mov  [cmd],0
    popa
    ret
  nomrp0:
 
 
 
    cmp  [command],dword 'QUIT'
    je   yesquit
    cmp  [command],dword 'Quit'
    je   yesquit
    cmp  [command],dword 'quit'
    je   yesquit
    jmp  noquit
  yq:
     pusha
 
  yesquit:
 
    mov  [close_connection],0
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,6
    mov  esi,r221
    int  0x40
    mov  [cmd],0
 
    mov  eax,5
    mov  ebx,5
    int  0x40
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    int  0x40
 
    mov  eax,5
    mov  ebx,5
    int  0x40
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    int  0x40
 
    mov  [header_sent],0
    mov  [mail_rp],0
 
    call save_file
 
    mov  eax,5
    mov  ebx,20
    int  0x40
 
    mov  eax,53
    mov  ebx,5
    mov  ecx,25     ; local port # - http
    mov  edx,0      ; no remote port specified
    mov  esi,0      ; no remote ip specified
    mov  edi,0      ; PASSIVE open
    int  0x40
    mov  [socket], eax
 
    popa
    ret
  noquit:
 
 
 
    cmp  [command],byte '.'
    jne  nodot
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,6
    mov  esi,r250
    int  0x40
    mov  [cmd],0
    popa
    ret
  nodot:
 
    popa
    ret
 
 
r250  db  '250 ',13,10
r221  db  '221 ',13,10
r220  db  '220 ',13,10
r354  db  '354 ',13,10
 
 
 
draw_data:
 
    pusha
 
    add  eax,[text_start]
    mov  [eax],bl
 
    popa
    ret
 
 
 
 
print_text:
 
    pusha
 
    mov  ecx,command-2
    add  ecx,[cmd]
 
  ptr2:
    mov  bl,[eax]
    cmp  bl,dl
    je   ptr_ret
    cmp  bl,0
    je   ptr_ret
    call print_character
    inc  eax
    cmp  eax,ecx
    jbe  ptr2
 
  ptr_ret:
 
    mov  eax,[text_start]
    mov  [eax+120*60],byte 1
 
    popa
    ret
 
 
 
print_character:
 
    pusha
 
    cmp  bl,13     ; line beginning
    jne  nobol
    mov  ecx,[pos]
    add  ecx,1
  boll1:
    sub  ecx,1
    mov  eax,ecx
    xor  edx,edx
    mov  ebx,[rxs]
    div  ebx
    cmp  edx,0
    jne  boll1
    mov  [pos],ecx
    jmp  newdata
  nobol:
 
    cmp  bl,10     ; line down
    jne  nolf
   addx1:
    add  [pos],dword 1
    mov  eax,[pos]
    xor  edx,edx
    mov  ecx,[rxs]
    div  ecx
    cmp  edx,0
    jnz  addx1
    mov  eax,[pos]
    jmp  cm1
  nolf:
  no_lf_ret:
 
 
    cmp  bl,15    ; character
    jbe  newdata
 
    mov  eax,[irc_data]
    shl  eax,8
    mov  al,bl
    mov  [irc_data],eax
 
    mov  eax,[pos]
    call draw_data
 
    mov  eax,[pos]
    add  eax,1
  cm1:
    mov  ebx,[scroll+4]
    imul ebx,[rxs]
    cmp  eax,ebx
    jb   noeaxz
 
    mov  esi,[text_start]
    add  esi,[rxs]
 
    mov  edi,[text_start]
    mov  ecx,ebx
    cld
    rep  movsb
 
    mov  esi,[text_start]
    mov  ecx,[rxs]
    imul ecx,61
    add  esi,ecx
 
    mov  edi,[text_start]
    mov  ecx,[rxs]
    imul ecx,60
    add  edi,ecx
    mov  ecx,ebx
    cld
    rep  movsb
 
    mov  eax,ebx
    sub  eax,[rxs]
  noeaxz:
    mov  [pos],eax
 
  newdata:
 
    mov  eax,[text_start]
    mov  [eax+120*60],byte 1
 
    popa
    ret
 
 
 
read_incoming_byte:
 
    mov  eax, 53
    mov  ebx, 2
    mov  ecx, [socket]
    int  0x40
 
    mov  ecx,-1
 
    cmp  eax,0
    je   no_more_data
 
    mov  eax, 53
    mov  ebx, 3
    mov  ecx, [socket]
    int  0x40
 
    mov  ecx,0
 
  no_more_data:
 
    ret
 
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    int  0x40
 
    mov  [old_status],300
 
    mov  eax,0                     ; draw window
    mov  ebx,5*65536+400
    mov  ecx,5*65536+200
 
 
 
 
 
 
 
 
    mov  edx,0x13ffffff
    mov  edi,labelt
 
    int  0x40
 
    mov  eax,8                     ; button: open socket
    mov  ebx,23*65536+22
    mov  ecx,169*65536+10
    mov  edx,22
    mov  esi,0x55aa55
    int  0x40
 
    mov  eax,8                     ; button: close socket
    mov  ebx,265*65536+22
    mov  ecx,169*65536+10
    mov  edx,24
    mov  esi,0xaa5555
    int  0x40
 
    mov  eax,38                    ; line
    mov  ebx,5*65536+395
    mov  ecx,108*65536+108
    mov  edx,0x000000
    int  0x40
 
    mov  ebx,5*65536+123          ; info text
    mov  ecx,0x000000
    mov  edx,text
    mov  esi,70
  newline:
    mov  eax,4
    int  0x40
    add  ebx,12
    add  edx,70
    cmp  [edx],byte 'x'
    jne  newline
 
    mov  edx,I_END                ; text from server
    call draw_channel_text
 
    mov  eax,12
    mov  ebx,2
    int  0x40
 
    popa
 
    ret
 
 
 
 
 
draw_channel_text:
 
    pusha
 
    mov   eax,4
    mov   ebx,10*65536+26
    mov   ecx,[scroll+4]
    mov   esi,[rxs]
  dct:
    pusha
    mov   cx,bx
    shl   ecx,16
    mov   cx,9
    mov   eax,13
    mov   ebx,10*65536
    mov   bx,word [rxs]
    imul  bx,6
    mov   edx,0xffffff
    int   0x40
    popa
    push  ecx
    mov   eax,4
    mov   ecx,0
    cmp   [edx],word '* '
    jne   no_red
    mov   ecx,0xff0000
   no_red:
    cmp   [edx],word '**'
    jne   no_light_blue
    cmp   [edx+2],byte '*'
    jne   no_light_blue
    mov   ecx,0x0000ff
  no_light_blue:
    cmp   [edx],byte '#'
    jne   no_blue
    mov   ecx,0x00ff00
  no_blue:
    int   0x40
    add   edx,[rxs]
    add   ebx,10
    pop   ecx
    loop  dct
 
    popa
    ret
 
 
 
text:
 
db '   Incoming mails are written to /rd/1/smtps.txt                      '
db '   The file can be fetched with TinyServer and a Html-browser.        '
db '   Timeout is set to 15 seconds.                                      '
db '                                                                      '
db '        Open SMTP server port 25                Close SMTP            '
 
db 'x' ; <- END MARKER, DONT DELETE
 
 
irc_server_ip   db      192,168,1,1
 
file_start      dd      0x100000
 
files:
       dd  2,0,0,?,0x100000
       db  '/rd/1/smtps.txt',0
filel:
       dd  0,0,0,0x100000,0x100000
       db  '/rd/1/smtps.txt',0
 
 
server_active dd 0
 
status  dd  0x0
header_sent db 0
 
channel_temp:         times   100   db   0
channel_temp_length   dd      0x0
 
close_connection   dd 0x0
 
mail_rp      dd  0
 
socket  dd  0x0
 
bgc  dd  0x000000
     dd  0x000000
     dd  0x00ff00
     dd  0x0000ff
     dd  0x005500
     dd  0xff00ff
     dd  0x00ffff
     dd  0x770077
 
tc   dd  0xffffff
     dd  0xff00ff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
 
cursor_on_off  dd  0x0
 
max_windows    dd  20
 
thread_stack   dd  0x9fff0
thread_nro     dd 1
thread_screen  dd I_END+120*80*1
 
action_header_blue  db  10,'*** ',0
action_header_red   db  10,'*** ',0
 
action_header_short db  10,'* ',0
 
posx             dd  0x0
incoming_pos     dd  0x0
incoming_string: times 128 db 0
 
pos          dd  0x0
 
text_start   dd  I_END
irc_data     dd  0x0
print        db  0x0
cmd          dd  0x0
rxs          dd  56
 
res:         db  0,0
command:     times  256  db 0x0
 
nick         dd  0,0,0
irc_command  dd  0,0
 
command_position  dd 0x0
counter           dd  0
send_to_server    db 0
 
channel_list:     times 32*20 db 32
send_to_channel   dd 0x0
 
send_string:         times  100  db  0x0
 
xpos        dd  0
attribute   dd  0
scroll      dd  1
            dd  8
 
numtext     db  '                     '
 
 
 
 
 
labelt      db  'Tiny SMTP email server v ',version,0
 
I_END:

Rev 109	Rev 474
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; SMTP server for MenuetOS ;;	3	;; SMTP server for MenuetOS ;;
4	;; ;;	4	;; ;;
5	;; License: GPL / See file COPYING for details ;;	5	;; License: GPL / See file COPYING for details ;;
6	;; Copyright 2002 (c) Ville Turjanmaa ;;	6	;; Copyright 2002 (c) Ville Turjanmaa ;;
7	;; ;;	7	;; ;;
8	;; Compile with FASM for Menuet ;;	8	;; Compile with FASM for Menuet ;;
9	;; ;;	9	;; ;;
10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11	include 'lang.inc'	-
-		11
12	version equ '0.1'	12	version equ '0.1'
13		13
14	use32	14	use32
15		15
16	org 0x0	16	org 0x0
17		17
18	db 'MENUET01' ; 8 byte id	18	db 'MENUET01' ; 8 byte id
19	dd 0x01 ; required os	19	dd 0x01 ; required os
20	dd START ; program start	20	dd START ; program start
21	dd I_END ; program image size	21	dd I_END ; program image size
22	dd 0x200000 ; required amount of memory	22	dd 0x200000 ; required amount of memory
23	dd 0xffff0	23	dd 0xffff0
24	dd 0,0	24	dd 0,0
25		25
26	save_file:	-
27		-
28	pusha	-
29		-
30	cmp [file_start],0x100000+10	-
31	jbe nosub	26	include 'macros.inc'
-		27
-		28	save_file:
32	sub [file_start],8	29
-		30	; cmp [file_start],0x100000+10
33	nosub:	31	; jbe nosub
34		32	; sub [file_start],8
35	mov edi,[file_start]	33	; nosub:
36		34
37	mov eax,[file_start]	35	mov eax,[file_start]
38	sub eax,0x100000	36	sub eax,0x100000
39	mov [files+8],eax	-
40		-
41	mov eax,58	-
42	mov ebx,files	37	mov ebx,files
43	int 0x40	38	mov [ebx+12],eax
44		39
-		40	mov eax,70
45	popa	41	int 0x40
46		42
47	ret	43	ret
48		44
49		45
50	START: ; start of execution	46	START: ; start of execution
51		47
52	mov [file_start],0x100000	48	mov [file_start],0x100000
53		49
54	mov eax,58	50	mov eax,70
55	mov ebx,filel	51	mov ebx,filel
56	int 0x40	52	int 0x40
-		53
-		54	test eax,eax
57		55	jz @f
58	cmp eax,0	56	cmp eax,6
-		57	jnz notfound
59	jne notfound	58	@@:
60	add [file_start],ebx	59	add [file_start],ebx
61	notfound:	60	notfound:
62		61
63		62
64	mov edi,I_END	63	mov edi,I_END
65	mov ecx,60*120	64	mov ecx,60*120
66	mov eax,32	65	mov al,32
67	cld	66	cld
68	rep stosb	67	rep stosb
69		68
70	mov eax,[rxs]	69	mov eax,[rxs]
71	imul eax,11	70	imul eax,11
72	mov [pos],eax	71	mov [pos],eax
73		72
74	mov ebp,0	73	mov ebp,0
75	mov edx,I_END	74	mov edx,I_END
76	call draw_window ; at first, draw the window	75	call draw_window ; at first, draw the window
77		76
78	still:	77	still:
79		78
80	inc [cursor_on_off]	79	inc [cursor_on_off]
81		80
82	mov eax,5	81	mov eax,5
83	mov ebx,1	82	mov ebx,1
84	int 0x40	83	int 0x40
85		84
86	mov eax,11 ; wait here for event	85	mov eax,11 ; wait here for event
87	int 0x40	86	int 0x40
88		87
89	cmp eax,1 ; redraw	88	cmp eax,1 ; redraw
90	je redraw	89	je redraw
91	cmp eax,2 ; key	90	cmp eax,2 ; key
92	je key	91	je key
93	cmp eax,3 ; button	92	cmp eax,3 ; button
94	je button	93	je button
95		94
96	cmp [I_END+120*60],byte 1	95	cmp [I_END+120*60],byte 1
97	jne no_main_update	96	jne no_main_update
98	mov [I_END+120*60],byte 0	97	mov [I_END+120*60],byte 0
99	mov edx,I_END	98	mov edx,I_END
100	call draw_channel_text	99	call draw_channel_text
101	no_main_update:	100	no_main_update:
102		101
103	cmp [server_active],0	102	cmp [server_active],0
104	je noread	103	je noread
105	cmp [status],4	104	cmp [status],4
106	jne noread	105	jne noread
107	call read_incoming_data	106	call read_incoming_data
108	inc [close_connection]	107	inc [close_connection]
109	cmp [close_connection],15*100	108	cmp [close_connection],15*100
110	jbe noread	109	jbe noread
111		110
112	call yq	111	call yq
113		112
114	noread:	113	noread:
115		114
116	call print_status	115	call print_status
117		116
118	cmp [status],4	117	cmp [status],4
119	je check_header	118	je check_header
120		119
121	jmp still	120	jmp still
122		121
123		122
124	check_header:	123	check_header:
125		124
126	cmp [header_sent],1	125	cmp [header_sent],1
127	je still	126	je still
128		127
129	mov eax,53	128	mov eax,53
130	mov ebx,7	129	mov ebx,7
131	mov ecx,[socket]	130	mov ecx,[socket]
132	mov edx,6	131	mov edx,6
133	mov esi,r220	132	mov esi,r220
134	int 0x40	133	int 0x40
135	mov [header_sent],1	134	mov [header_sent],1
136		135
137	jmp still	136	jmp still
138		137
139		138
140		139
141	redraw: ; redraw	140	redraw: ; redraw
142		141
143	call draw_window	142	call draw_window
144	jmp still	143	jmp still
145		144
146		145
147	button: ; button	146	button: ; button
148		147
149	mov eax,17 ; get id	148	mov eax,17 ; get id
150	int 0x40	149	int 0x40
151		150
152	cmp ah,1 ; close program	151	cmp ah,1 ; close program
153	jne noclose	152	jne noclose
154	mov eax,-1	153	mov eax,-1
155	int 0x40	154	int 0x40
156	noclose:	155	noclose:
157		156
158	call socket_commands	157	call socket_commands
159		158
160	jmp still	159	jmp still
161		160
162		161
163	old_status dd 0x0	162	old_status dd 0x0
164		163
165	print_status:	164	print_status:
166		165
167	pusha	166	pusha
168		167
169	mov eax,53	168	mov eax,53
170	mov ebx,6	169	mov ebx,6
171	mov ecx,[socket]	170	mov ecx,[socket]
172	int 0x40	171	int 0x40
173		172
174	mov [status],eax	173	mov [status],eax
175		174
176	cmp eax,[old_status]	175	cmp eax,[old_status]
177	je no_print	176	je no_print
178		177
179	mov [old_status],eax	178	mov [old_status],eax
180		179
181	push eax	180	push eax
182		181
183	mov eax,13	182	mov eax,13
184	mov ebx,360*65536+30	183	mov ebx,360*65536+30
185	mov ecx,151*65536+10	184	mov ecx,151*65536+10
186	mov edx,0xffffff	185	mov edx,0xffffff
187	int 0x40	186	int 0x40
188		187
189	pop ecx	188	pop ecx
190	mov eax,47	189	mov eax,47
191	mov ebx,3*65536	190	mov ebx,3*65536
192	mov edx,360*65536+151	191	mov edx,360*65536+151
193	mov esi,0x000000	192	mov esi,0x000000
194		193
195	cmp [server_active],0	194	cmp [server_active],0
196	je no_print	195	je no_print
197		196
198	int 0x40	197	int 0x40
199		198
200	no_print:	199	no_print:
201		200
202	popa	201	popa
203		202
204	ret	203	ret
205		204
206		205
207	socket_commands:	206	socket_commands:
208		207
209	cmp ah,22 ; open socket	208	cmp ah,22 ; open socket
210	jnz tst3	209	jnz tst3
211	mov eax,3	210	mov eax,3
212	int 0x40	211	int 0x40
213		212
214	mov [server_active],1	213	mov [server_active],1
215		214
216	mov eax,53	215	mov eax,53
217	mov ebx,5	216	mov ebx,5
218	mov ecx,25 ; local port # - http	217	mov ecx,25 ; local port # - http
219	mov edx,0 ; no remote port specified	218	mov edx,0 ; no remote port specified
220	mov esi,0 ; no remote ip specified	219	mov esi,0 ; no remote ip specified
221	mov edi,0 ; PASSIVE open	220	mov edi,0 ; PASSIVE open
222	int 0x40	221	int 0x40
223	mov [socket], eax	222	mov [socket], eax
224		223
225	ret	224	ret
226	tst3:	225	tst3:
227		226
228		227
229	cmp ah,24 ; close socket	228	cmp ah,24 ; close socket
230	jnz no_24	229	jnz no_24
231	mov eax,53	230	mov eax,53
232	mov ebx,8	231	mov ebx,8
233	mov ecx,[socket]	232	mov ecx,[socket]
234	int 0x40	233	int 0x40
235	mov [header_sent],0	234	mov [header_sent],0
236	mov [mail_rp],0	235	mov [mail_rp],0
237	mov [server_active],0	236	mov [server_active],0
238		237
239	ret	238	ret
240	no_24:	239	no_24:
241		240
242		241
243	ret	242	ret
244		243
245		244
246		245
247	key:	246	key:
248		247
249	mov eax,2	248	mov eax,2
250	int 0x40	249	int 0x40
251		250
252	jmp still	251	jmp still
253		252
254		253
255		254
256	read_incoming_data:	255	read_incoming_data:
257		256
258	pusha	257	pusha
259		258
260	read_new_byte:	259	read_new_byte:
261		260
262	call read_incoming_byte	261	call read_incoming_byte
263	cmp ecx,-1	262	cmp ecx,-1
264	je no_data_in_buffer	263	je no_data_in_buffer
265		264
266	mov eax,[file_start]	265	mov eax,[file_start]
267	mov [eax],bl	266	mov [eax],bl
268	inc [file_start]	267	inc [file_start]
269		268
270	cmp bl,10	269	cmp bl,10
271	jne no_start_command	270	jne no_start_command
272	mov [cmd],1	271	mov [cmd],1
273	no_start_command:	272	no_start_command:
274		273
275	cmp bl,13	274	cmp bl,13
276	jne no_end_command	275	jne no_end_command
277	mov eax,[cmd]	276	mov eax,[cmd]
278	mov [eax+command-2],byte 0	277	mov [eax+command-2],byte 0
279	call analyze_command	278	call analyze_command
280	mov edi,command	279	mov edi,command
281	mov ecx,250	280	mov ecx,250
282	mov eax,0	281	mov eax,0
283	cld	282	cld
284	rep stosb	283	rep stosb
285	mov [cmd],0	284	mov [cmd],0
286	no_end_command:	285	no_end_command:
287		286
288	mov eax,[cmd]	287	mov eax,[cmd]
289	cmp eax,250	288	cmp eax,250
290	jge still	289	jge still
291		290
292	mov [eax+command-2],bl	291	mov [eax+command-2],bl
293	inc [cmd]	292	inc [cmd]
294		293
295	jmp read_new_byte	294	jmp read_new_byte
296		295
297	no_data_in_buffer:	296	no_data_in_buffer:
298		297
299	popa	298	popa
300		299
301	ret	300	ret
302		301
303		302
304		303
305		304
306		305
307	analyze_command:	306	analyze_command:
308		307
309	pusha	308	pusha
310		309
311	mov [text_start],I_END	310	mov [text_start],I_END
312	mov ecx,[rxs]	311	mov ecx,[rxs]
313	imul ecx,11	312	imul ecx,11
314	mov [pos],ecx	313	mov [pos],ecx
315		314
316	mov bl,13	315	mov bl,13
317	call print_character	316	call print_character
318	mov bl,10	317	mov bl,10
319	call print_character	318	call print_character
320		319
321	cmp [cmd],2	320	cmp [cmd],2
322	jbe nott	321	jbe nott
323	mov ecx,[cmd]	322	mov ecx,[cmd]
324	sub ecx,2	323	sub ecx,2
325	mov esi,command+0	324	mov esi,command+0
326	newcmdc:	325	newcmdc:
327	mov bl,[esi]	326	mov bl,[esi]
328	call print_character	327	call print_character
329	inc esi	328	inc esi
330	loop newcmdc	329	loop newcmdc
331		330
332	nott:	331	nott:
333		332
334	mov edx,I_END	333	mov edx,I_END
335	call draw_channel_text	334	call draw_channel_text
336		335
337	cmd_len_ok:	336	cmd_len_ok:
338		337
339	cmp [command],dword 'data'	338	cmp [command],dword 'data'
340	je datacom	339	je datacom
341	cmp [command],dword 'DATA'	340	cmp [command],dword 'DATA'
342	je datacom	341	je datacom
343	cmp [command],dword 'Data'	342	cmp [command],dword 'Data'
344	je datacom	343	je datacom
345	jmp nodatacom	344	jmp nodatacom
346	datacom:	345	datacom:
347	inc [mail_rp]	346	inc [mail_rp]
348	mov eax,53	347	mov eax,53
349	mov ebx,7	348	mov ebx,7
350	mov ecx,[socket]	349	mov ecx,[socket]
351	mov edx,6	350	mov edx,6
352	mov esi,r354	351	mov esi,r354
353	int 0x40	352	int 0x40
354	mov [cmd],0	353	mov [cmd],0
355	popa	354	popa
356	ret	355	ret
357		356
358	nodatacom:	357	nodatacom:
359		358
360	cmp [mail_rp],0	359	cmp [mail_rp],0
361	jne nomrp0	360	jne nomrp0
362	mov eax,53	361	mov eax,53
363	mov ebx,7	362	mov ebx,7
364	mov ecx,[socket]	363	mov ecx,[socket]
365	mov edx,6	364	mov edx,6
366	mov esi,r250	365	mov esi,r250
367	int 0x40	366	int 0x40
368	mov [cmd],0	367	mov [cmd],0
369	popa	368	popa
370	ret	369	ret
371	nomrp0:	370	nomrp0:
372		371
373		372
374		373
375	cmp [command],dword 'QUIT'	374	cmp [command],dword 'QUIT'
376	je yesquit	375	je yesquit
377	cmp [command],dword 'Quit'	376	cmp [command],dword 'Quit'
378	je yesquit	377	je yesquit
379	cmp [command],dword 'quit'	378	cmp [command],dword 'quit'
380	je yesquit	379	je yesquit
381	jmp noquit	380	jmp noquit
382	yq:	381	yq:
383	pusha	382	pusha
384		383
385	yesquit:	384	yesquit:
386		385
387	mov [close_connection],0	386	mov [close_connection],0
388		387
389	mov eax,53	388	mov eax,53
390	mov ebx,7	389	mov ebx,7
391	mov ecx,[socket]	390	mov ecx,[socket]
392	mov edx,6	391	mov edx,6
393	mov esi,r221	392	mov esi,r221
394	int 0x40	393	int 0x40
395	mov [cmd],0	394	mov [cmd],0
396		395
397	mov eax,5	396	mov eax,5
398	mov ebx,5	397	mov ebx,5
399	int 0x40	398	int 0x40
400		399
401	mov eax,53	400	mov eax,53
402	mov ebx,8	401	mov ebx,8
403	mov ecx,[socket]	402	mov ecx,[socket]
404	int 0x40	403	int 0x40
405		404
406	mov eax,5	405	mov eax,5
407	mov ebx,5	406	mov ebx,5
408	int 0x40	407	int 0x40
409		408
410	mov eax,53	409	mov eax,53
411	mov ebx,8	410	mov ebx,8
412	mov ecx,[socket]	411	mov ecx,[socket]
413	int 0x40	412	int 0x40
414		413
415	mov [header_sent],0	414	mov [header_sent],0
416	mov [mail_rp],0	415	mov [mail_rp],0
417		416
418	call save_file	417	call save_file
419		418
420	mov eax,5	419	mov eax,5
421	mov ebx,20	420	mov ebx,20
422	int 0x40	421	int 0x40
423		422
424	mov eax,53	423	mov eax,53
425	mov ebx,5	424	mov ebx,5
426	mov ecx,25 ; local port # - http	425	mov ecx,25 ; local port # - http
427	mov edx,0 ; no remote port specified	426	mov edx,0 ; no remote port specified
428	mov esi,0 ; no remote ip specified	427	mov esi,0 ; no remote ip specified
429	mov edi,0 ; PASSIVE open	428	mov edi,0 ; PASSIVE open
430	int 0x40	429	int 0x40
431	mov [socket], eax	430	mov [socket], eax
432		431
433	popa	432	popa
434	ret	433	ret
435	noquit:	434	noquit:
436		435
437		436
438		437
439	cmp [command],byte '.'	438	cmp [command],byte '.'
440	jne nodot	439	jne nodot
441	mov eax,53	440	mov eax,53
442	mov ebx,7	441	mov ebx,7
443	mov ecx,[socket]	442	mov ecx,[socket]
444	mov edx,6	443	mov edx,6
445	mov esi,r250	444	mov esi,r250
446	int 0x40	445	int 0x40
447	mov [cmd],0	446	mov [cmd],0
448	popa	447	popa
449	ret	448	ret
450	nodot:	449	nodot:
451		450
452	popa	451	popa
453	ret	452	ret
454		453
455		454
456	r250 db '250 ',13,10	455	r250 db '250 ',13,10
457	r221 db '221 ',13,10	456	r221 db '221 ',13,10
458	r220 db '220 ',13,10	457	r220 db '220 ',13,10
459	r354 db '354 ',13,10	458	r354 db '354 ',13,10
460		459
461		460
462		461
463	draw_data:	462	draw_data:
464		463
465	pusha	464	pusha
466		465
467	add eax,[text_start]	466	add eax,[text_start]
468	mov [eax],bl	467	mov [eax],bl
469		468
470	popa	469	popa
471	ret	470	ret
472		471
473		472
474		473
475		474
476	print_text:	475	print_text:
477		476
478	pusha	477	pusha
479		478
480	mov ecx,command-2	479	mov ecx,command-2
481	add ecx,[cmd]	480	add ecx,[cmd]
482		481
483	ptr2:	482	ptr2:
484	mov bl,[eax]	483	mov bl,[eax]
485	cmp bl,dl	484	cmp bl,dl
486	je ptr_ret	485	je ptr_ret
487	cmp bl,0	486	cmp bl,0
488	je ptr_ret	487	je ptr_ret
489	call print_character	488	call print_character
490	inc eax	489	inc eax
491	cmp eax,ecx	490	cmp eax,ecx
492	jbe ptr2	491	jbe ptr2

Subversion Repositories Kolibri OS

(root)/programs/network/smtps/trunk/smtps.asm – Rev 109 → 474