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
   mcall
 
   ret
 
 
START:                          ; start of execution
 
    mov  [file_start],0x100000
 
    mov  eax,70
    mov  ebx,filel
    mcall
 
    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
 
redraw:
    call draw_window            ; at first, draw the window
 
still:
 
    inc  [cursor_on_off]
 
    mov  eax,5
    mov  ebx,1
    mcall
 
    mov  eax,11                 ; wait here for event
    mcall
 
    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
    mcall
    mov  [header_sent],1
 
    jmp  still
 
 
button:                         ; button
 
    mov  eax,17                 ; get id
    mcall
 
    cmp  ah,1                   ; close program
    jne  noclose
    or   eax,-1
    mcall
  noclose:
 
    call socket_commands
 
    jmp  still
 
 
old_status dd 0x0
 
print_status:
 
    pusha
 
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    mcall
 
    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
    mcall
 
    pop  ecx
    mov  eax,47
    mov  ebx,3*65536
    mov  edx,360*65536+151
    mov  esi,0x000000
 
    cmp  [server_active],0
    je   no_print
 
    mcall
 
  no_print:
 
    popa
 
    ret
 
 
socket_commands:
 
    cmp  ah,22       ; open socket
    jnz  tst3
    mov  eax,3
    mcall
 
    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
    mcall
    mov  [socket], eax
 
    ret
  tst3:
 
 
    cmp  ah,24     ; close socket
    jnz  no_24
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
    mov  [header_sent],0
    mov  [mail_rp],0
    mov  [server_active],0
 
    ret
  no_24:
 
 
    ret
 
 
 
key:
 
    mov  eax,2
    mcall
 
    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
    mcall
    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
    mcall
    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
    mcall
    mov  [cmd],0
 
    mov  eax,5
    mov  ebx,5
    mcall
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
    mov  eax,5
    mov  ebx,5
    mcall
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
    mov  [header_sent],0
    mov  [mail_rp],0
 
    call save_file
 
    mov  eax,5
    mov  ebx,20
    mcall
 
    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
    mcall
    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
    mcall
    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]
    mcall
 
    mov  ecx,-1
 
    cmp  eax,0
    je   no_more_data
 
    mov  eax, 53
    mov  ebx, 3
    mov  ecx, [socket]
    mcall
 
    mov  ecx,0
 
  no_more_data:
 
    ret
 
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    mov  [old_status],300
 
    mov  eax,0                     ; draw window
    mov  ebx,5*65536+400
    mov  ecx,5*65536+200
    mov  edx,0x13ffffff
    mov  edi,title
    mcall
 
    mov  eax,8                     ; button: open socket
    mov  ebx,23*65536+22
    mov  ecx,169*65536+10
    mov  edx,22
    mov  esi,0x55aa55
    mcall
 
 ;   mov  eax,8                     ; button: close socket
    mov  ebx,265*65536+22
    mov  edx,24
    mov  esi,0xaa5555
    mcall
 
    mov  eax,38                    ; line
    mov  ebx,5*65536+395
    mov  ecx,108*65536+108
    mov  edx,0x000000
    mcall
 
    mov  eax,4
    mov  ebx,5*65536+123          ; info text
    mov  ecx,0x000000
    mov  edx,text
    mov  esi,70
  newline:
    mcall
    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
    mcall
 
    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
    mcall
    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:
    mcall
    add   edx,[rxs]
    add   ebx,10
    pop   ecx
    loop  dct
 
    popa
    ret
 
 
 
text:
 
db '   Incoming mails are written to /sys/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  '/sys/smtps.txt',0
filel:
       dd  0,0,0,0x100000,0x100000
       db  '/sys/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  '                     '
 
title       db  'Tiny SMTP email server v ',version,0
 
I_END:

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

Subversion Repositories Kolibri OS

(root)/programs/network/smtps/trunk/smtps.asm – Rev 485 → 539