0,0 → 1,212 |
use32 |
; standard header |
db 'MENUET01' ; signature |
dd 1 ; header version |
dd start ; entry point |
dd i_end ; initialized size |
dd mem ; required memory |
dd mem ; stack pointer |
dd 0 ; parameters |
dd 0 ; path |
|
|
BUFFERSIZE equ 1500 |
; useful includes |
include '../macros.inc' |
purge mov,add,sub |
include '../proc32.inc' |
include 'dll.inc' |
|
include '../network.inc' |
|
; entry point |
start: |
; load libraries |
stdcall dll.Load, @IMPORT |
test eax, eax |
jnz exit |
; initialize console |
push 1 |
call [con_start] |
push title |
push -1 |
push -1 |
push -1 |
push -1 |
call [con_init] |
; main loop |
push str1 |
call [con_write_asciiz] |
main: |
; write prompt |
push str2 |
call [con_write_asciiz] |
; read string |
mov esi, s |
push 256 |
push esi |
call [con_gets] |
; check for exit |
test eax, eax |
jz done |
cmp byte [esi], 10 |
jz done |
; delete terminating '\n' |
push esi |
@@: |
lodsb |
test al, al |
jnz @b |
mov byte [esi-2], al |
pop esi |
; resolve name |
push esp ; reserve stack place |
push esp ; fourth parameter |
push 0 ; third parameter |
push 0 ; second parameter |
push esi ; first parameter |
call [getaddrinfo] |
pop esi |
; test for error |
test eax, eax |
jnz fail |
|
; write results |
push str3 |
call [con_write_asciiz] |
; mov edi, esi |
|
; convert IP address to decimal notation |
mov eax, [esi+addrinfo.ai_addr] |
mov eax, [eax+sockaddr_in.sin_addr] |
mov [sockaddr1.ip], eax |
push eax |
call [inet_ntoa] |
; write result |
push eax |
call [con_write_asciiz] |
; free allocated memory |
push esi |
call [freeaddrinfo] |
|
push str4 |
call [con_write_asciiz] |
|
mcall socket, AF_INET4, IPPROTO_TCP, 0 |
cmp eax, -1 |
jz fail2 |
mov [socketnum], eax |
|
mcall connect, [socketnum], sockaddr1, 18 |
|
mcall 40, 1 shl 7 ; + 7 |
call [con_cls] |
|
mcall 51, 1, thread, mem - 2048 |
|
mainloop: |
mcall 10 |
|
mcall recv, [socketnum], buffer_ptr, BUFFERSIZE, 0 |
cmp eax, -1 |
je mainloop |
|
mov esi, buffer_ptr |
mov byte [esi + eax], 0 |
|
@@: |
cmp byte [esi], 0xff ; 'IAC' = Interpret As Command |
jne @f |
; TODO: parse options, for now, we will reply with 'WONT' to everything |
mov byte [esi + 1], 252 ; WONT |
add esi, 3 ; a command is always 3 bytes |
jmp @r |
|
@@: |
push esi |
|
cmp esi, buffer_ptr |
je .nocommands |
|
mov edx, buffer_ptr |
sub esi, buffer_ptr |
xor edi, edi |
mcall send, [socketnum] |
|
.nocommands: |
call [con_write_asciiz] |
jmp mainloop |
|
|
; write newline and continue main loop |
push str4 |
@@: |
call [con_write_asciiz] |
jmp main |
fail: |
push str5 |
jmp @b |
fail2: |
push str6 |
jmp @b |
|
done: |
push 1 |
call [con_exit] |
exit: |
mcall -1 |
|
|
|
thread: |
mcall 40, 0 |
call [con_getch2] |
mov byte [send_data], al |
mcall send, [socketnum], send_data, 1 |
jmp thread |
|
; data |
title db 'Telnet',0 |
str1 db 'Telnet v0.1',10,' for KolibriOS # 1250 or later. ',10,10,0 |
str2 db '> ',0 |
str3 db 'Connecting to: ',0 |
str4 db 10,0 |
str5 db 'Name resolution failed.',10,10,0 |
str6 db 'Could not open socket',10,10,0 |
str7 db 'Got data!',10,10,0 |
|
sockaddr1: |
dw AF_INET4 |
.port dw 23 shl 8 |
.ip dd 0 |
rb 10 |
|
|
|
; import |
align 4 |
@IMPORT: |
|
library network, 'network.obj', console, 'console.obj' |
import network, \ |
getaddrinfo, 'getaddrinfo', \ |
freeaddrinfo, 'freeaddrinfo', \ |
inet_ntoa, 'inet_ntoa' |
import console, \ |
con_start, 'START', \ |
con_init, 'con_init', \ |
con_write_asciiz, 'con_write_asciiz', \ |
con_exit, 'con_exit', \ |
con_gets, 'con_gets',\ |
con_cls, 'con_cls',\ |
con_getch2, 'con_getch2' |
i_end: |
|
socketnum dd ? |
buffer_ptr rb BUFFERSIZE |
send_data rb 100 |
|
s rb 256 |
align 4 |
rb 4096 ; stack |
mem: |