Paquete del chat cliente de ares

Topología de redes, usos de las redes...

Moderador: Moderadores

Paquete del chat cliente de ares

Notapor Narciso » Jue Dic 24, 2015 4:03 pm

Hola,
miren estos cuatro codigos:

Código: Seleccionar todo
1.socks_ip:=readstring('Proxy.Addr');


Código: Seleccionar todo
ip_user,ip_server,ip_utente_interno:cardinal;


Código: Seleccionar todo
if pos('PUSH ',sock.buffstr)=1 then begin  //download firewall

2.

3.  socket_globale:=ttcpblocksocket.create(false); //ASSEGNIAZIONE SOCKET GLOBALE

4.  with socket_globale do begin

5.   socket:=sock.socket;

6.   ip:=sock.ip;

7.   port:=sock.port;

8.   buffstr:=sock.buffstr;

9.   tag:=sock.tag;

10.  end;

11.  synchronize(accept_put_arrived_push);

12.

13.  sock.socket:=INVALID_SOCKET;

14.  sock.free;

15.end else

16.if pos('CHAT PUSH/1.0 ',sock.buffstr)=1 then begin

17.

18.  { socket_globale:=ttcpblocksocket.create(false); //ASSEGNIAZIONE SOCKET GLOBALE

19.   with socket_globale do begin

20.    socket:=sock.socket;

21.    ip:=sock.ip;

22.    port:=sock.port;

23.    buffstr:=hexstr_to_bytestr(copy(sock.buffstr,15,32));  //32 (2*16) di randoms

24.    tag:=sock.tag;

25.   end;

26.   synchronize(add_chat_push_arrived); //nel caso non trovi randoms in lista, cancella lui il socket

27.

28.   sock.socket:=INVALID_SOCKET; }

29.   sock.free;

30.

31.end else sock.free;

32.end;




Código: Seleccionar todo
1.try

2.LanIPC:=getlocalip;

3.LanIPS:=ipint_to_dotstring(LanIPC);

4.except

5. LanIPC:=0;

6. LanIPS:=cAnyHost;

7.end;

8.

9.getcursorpos(prev_cursorpos);

10.vars_global.minutes_idle:=0;

11.

12.desktopPath:=Get_Desktop_Path;

13.reg_set_desktopPath(desktopPath+'\'+STR_MYSHAREDFOLDER);

14.

15.    try

16.

17.     myshared_folder:=prendi_reg_my_shared_folder(desktopPath);

18.

19.     if not direxistsW(myshared_folder) then begin

20.      if (tntwindows.Tnt_createdirectoryW(pwidechar(desktopPath+'\'+STR_MYSHAREDFOLDER),nil)) then begin

21.       myshared_folder:=desktopPath+'\'+STR_MYSHAREDFOLDER;

22.      end else begin

23.        if not direxistsW('c:\'+STR_MYSHAREDFOLDER) then begin

24.         tntwindows.Tnt_createdirectoryW(pwidechar(widestring('c:\')+STR_MYSHAREDFOLDER),nil);

25.         myshared_folder:=desktopPath+'\'+STR_MYSHAREDFOLDER;

26.        end;

27.      end;

28.

29.     end;

30.    except

31.       myshared_folder:='c:\';

32.    end;



Es este el paquete (que tiene el nombre de usuario, guid, etc) que envio a una sala de chat de ares al conectarme?

Gracias y saludos
Narciso
:-D
:-D
 
Mensajes: 192
Registrado: Mar May 12, 2015 5:41 pm

Volver a Redes

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado