  buf db 100h dup (0)
  proc get_data
	  mov	     edi,buf
	  mov	     ecx,100h
  .loop:     
	  jecxz      .err
		     
	  push	     ecx
	  push	     ecx
	  invoke     recv,ebx,edi,ecx,0
	  pop	     ecx
	  pop	     ecx
		     
	  inc eax
	  je	    .err
	  dec eax
		     
	  add	     edi,eax
	  sub	     ecx,eax
		     
	  cmp	     byte [edi-1],10
	  je	     .ok
		     
  .test:     
	  test	     eax,eax
	  jnz	     .loop
  .err:      
	  xor	     eax,eax
	  jmp	     .end
  .ok:	     
		     
	  cmp	     byte [buf],'2'
	  jz	     .a
		     
	  cmp	     byte [buf],'3'
	  jnz	     .err
  .a:	     
	  inc	     eax
	  inc	     edi
	  mov	     byte [edi],0
		     
  .end:      
		     
	  ret	     
  endp	  
		     

  proc Send_String lpStr
	     
	  invoke     lstrlen,[lpStr]
	  invoke     send,ebx,[lpStr],eax,0
	  ret	     
  endp	  
