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 /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  '                     '
 
title       db  'Tiny SMTP email server v ',version,0
 
I_END:

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

Subversion Repositories Kolibri OS

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