;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; POP CLIENT for MenuetOS ;; ;; - Modified from IRC client ;; ;; ;; ;; License: GPL / See file COPYING for details ;; ;; Copyright 2002 (c) Ville Turjanmaa ;; ;; ;; ;; Compile with FASM for Menuet ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; include 'lang.inc' 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 START: ; start of execution mov [file_start],0x100000 mov eax,58 mov ebx,filel int 0x40 cmp eax,0 jne notfound add [file_start],ebx notfound: mov edi,I_END mov ecx,60*120 mov eax,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: 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_server_data no_main_update: cmp [server_active],0 je noread call read_incoming_data noread: call print_status cmp [status],4 je send_request jmp still ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Save the fetched mails ;; save_file: pusha mov edi,[file_start] mov eax,[file_start] sub eax,0x100000 mov [files+8],eax mov eax,58 mov ebx,files int 0x40 popa ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Send user id/passwd/mailrq ;; send_request: inc [mcounter] cmp [mcounter],1000 jbe no_send mov eax,[ccounter] imul eax,32 add eax,getmail mov esi,eax inc [ccounter] mov edx,32 cmp [ccounter],1 jne no1 mov edx,5+2 add edx,[l2] no1: cmp [ccounter],2 jne no2 mov edx,5+2 add edx,[l3] no2: mov eax,53 mov ebx,7 mov ecx,[socket] int 0x40 mov [mcounter],0 cmp [esi],dword 'quit' je close_fetch no_send: jmp still ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Close connection to server ;; close_fetch: mov eax,53 mov ebx,7 mov ecx,[socket] mov edx,14 mov esi,quitc int 0x40 mov [mcounter],0 mov eax,5 mov ebx,150 int 0x40 call read_incoming_data mov eax,53 mov ebx,8 mov ecx,[socket] int 0x40 mov eax,5 mov ebx,2 int 0x40 mov eax,53 mov ebx,8 mov ecx,[socket] int 0x40 mov [server_active],0 jmp still ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; User input processing ;; redraw: ; redraw call draw_window jmp still key: mov eax,2 int 0x40 jmp still button: ; button mov eax,17 ; get id int 0x40 cmp ah,60 jne no_open mov eax,19 mov ebx,tp mov ecx,pr int 0x40 jmp still no_open: cmp ah,1 ; close program jne noclose mov eax,-1 int 0x40 noclose: cmp ah,51 je read_string cmp ah,52 je read_string cmp ah,53 je read_string call socket_commands jmp still ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Socket open & close ;; socket_commands: cmp ah,22 ; open socket jnz tst3 mov [server_active],1 mov [mcounter],900 mov [ccounter],0 mov eax,3 int 0x40 mov eax,3 int 0x40 mov ecx,eax and ecx,0xffff mov eax,53 mov ebx,5 mov edx,110 mov esi,dword [ip] mov edi,1 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Display connection status ;; 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 nopr mov [old_status],eax push eax mov eax,13 mov ebx,200*65536+30 mov ecx,160*65536+10 mov edx,0xffffff int 0x40 pop ecx cmp [server_active],1 jne nopr mov eax,47 mov ebx,3*65536 mov edx,200*65536+160 mov esi,0x000000 int 0x40 nopr: popa ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Read data from server ;; 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 save_file call analyze_data 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Read user input for ip/user/passwd ;; read_string: shr eax,8 sub eax,51 mov ebx,eax imul eax,12 add eax,181 mov [len],ebx shl [len],2 add [len],l1 imul ebx,50 add ebx,input1 mov [addr],ebx mov [ya],eax mov edi,[addr] mov eax,0 mov ecx,30 cld rep stosb call print_input_text mov edi,[addr] f11: mov eax,10 int 0x40 cmp eax,2 jne read_done mov eax,2 int 0x40 shr eax,8 cmp eax,13 je read_done cmp eax,8 jnz nobsl cmp edi,[addr] jz f11 sub edi,1 mov [edi],byte 32 call print_text jmp f11 nobsl: mov [edi],al call print_input_text add edi,1 mov esi,[addr] add esi,30 cmp esi,edi jnz f11 read_done: push edi mov ecx,40 mov eax,32 cld rep stosb call print_input_text pop edi sub edi,[addr] mov eax,[len] mov [eax],edi cmp [len],l1 jne noip mov esi,input1 mov edi,ip_text+15 mov ecx,16 cld rep movsb call ip_set noip: cmp [len],l2 jne nol2 mov esi,input2 mov edi,l2_text+15 mov ecx,22 cld rep movsb mov esi,input2 mov edi,getmail+5 mov ecx,[l2] cld rep movsb mov al,13 stosb mov al,10 stosb nol2: cmp [len],l3 jne nol3 mov esi,input3 mov edi,getmail+32+5 mov ecx,[l3] cld rep movsb mov al,13 stosb mov al,10 stosb nol3: call draw_window jmp still print_input_text: pusha mov eax,13 mov ebx,95*65536+23*6 mov ecx,[ya] shl ecx,16 mov cx,9 mov edx,0xffffff int 0x40 cmp [len],l3 je noprt mov eax,4 mov edx,[addr] mov ebx,95*65536 add ebx,[ya] mov ecx,0x000000 mov esi,23 int 0x40 noprt: popa ret ip_set: mov esi,input1-1 mov edi,ip xor eax,eax ip1: inc esi cmp [esi],byte '0' jb ip2 cmp [esi],byte '9' jg ip2 imul eax,10 movzx ebx,byte [esi] sub ebx,48 add eax,ebx jmp ip1 ip2: mov [edi],al xor eax,eax inc edi cmp edi,ip+3 jbe ip1 ret no_read_ip: ret analyze_data: 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_server_data cmd_len_ok: cmp [command],dword '-ERR' je close_fetch cmp [command],word '+O' jne nook mov [mcounter],990 nook: popa ret draw_data: push eax add eax,[text_start] mov [eax],bl pop eax 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Window definitions ;; draw_window: pusha mov eax,12 mov ebx,1 int 0x40 mov eax,0 ; draw window mov ebx,5*65536+435 mov ecx,5*65536+232 mov edx,[wcolor] add edx,0x03ffffff mov esi,0x80555599 mov edi,0x00ffffff int 0x40 mov [old_status],300 mov eax,4 ; label mov ebx,9*65536+8 mov ecx,0x10ffffff mov edx,labelt mov esi,labellen-labelt int 0x40 mov eax,8 ; button: open socket mov ebx,23*65536+22 mov ecx,155*65536+10 mov edx,22 mov esi,0x44cc44 int 0x40 mov eax,8 ; button: close socket mov ebx,295*65536+22 mov ecx,155*65536+10 mov edx,24 mov esi,0xcc4444 int 0x40 mov eax,8 ; button: text entries mov ebx,243*65536+8 mov ecx,180*65536+8 mov edx,51 mov esi,0x4488dd newi: int 0x40 inc edx add ecx,12*65536 cmp edx,53 jbe newi mov eax,8 ; open inbox mov ebx,295*65536+102 mov ecx,190*65536+14 mov edx,60 mov esi,0x5577dd int 0x40 mov eax,38 ; line mov ebx,5*65536+430 mov ecx,114*65536+114 mov edx,0x000000 int 0x40 mov ebx,5*65536+133 ; 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_server_data mov eax,12 mov ebx,2 int 0x40 popa ret draw_server_data: pusha mov eax,4 mov ebx,10*65536+26 mov ecx,8 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 int 0x40 add edx,[rxs] add ebx,10 pop ecx loop dct popa ret text: db ' Incoming mails are written to /rd/1/popc.txt ' db ' ' db ' Check for mail. Force close ' db ' ' ip_text: db ' Server IP : 192.168.1.200 < ' l2_text: db ' User : < Open popc.txt ' l3_text: db ' Password : (not shown) < ' db 'x <- END MARKER, DONT DELETE ' file_start dd 0x100000 files: dd 1,0,0,0x100000,0xd0000 db '/rd/1/popc.txt',0 filel: dd 0,0,10000/512,0x100000,0xd0000 db '/rd/1/popc.txt',0 ip db 192,168,1,200 socket dd 0x0 posx dd 0x0 incoming_pos dd 0x0 incoming_string: times 128 db 0 pos dd 0x0 text_start dd I_END print db 0x0 cmd dd 0x0 rxs dd 66 res: db 0,0 command: times 256 db 0x0 command_position dd 0 counter dd 0 numtext db ' ' wcolor dd 0x000000 labelt db 'POP client v ',version labellen: scroll: dd 1,8 tp: db 'TINYPAD ' pr: db 'POPC TXT',0 getmail: db 'user xyz ',13,10 db 'pass xyz ',13,10 db 'retr 1 ',13,10 db 'retr 2 ',13,10 db 'retr 3 ',13,10 db 'retr 4 ',13,10 db 'retr 5 ',13,10 db 'retr 6 ',13,10 db 'retr 7 ',13,10 db 'retr 8 ',13,10 db 'retr 9 ',13,10 quitc: db 'quit ',13,10 mcounter dd 900 ccounter dd 0 ld db 13,10 server_active db 0 header_sent db 0 close_connection dd 0x0 mail_rp dd 0 irc_data dd 0x0 addr dd 0x0 ya dd 0x0 len dd 0x0 input1: times 50 db 32 input2: times 50 db 32 input3: times 50 db 32 l1 dd 0 l2 dd 3 l3 dd 3 status dd 0x0 I_END: