[Ajuda] CHAT ONLINE SERVER SOCKET, !

[Igor.ngl 0]

Olha gente, eu estou fazendo um Chat Online para games, ( já está praticamente feito ), Porem estou com duvido no "meu TOP 10" é onde os usuarios vai me enviar as jogadas deles

Primeiramente , eu coloco o código no Cliente:

 

IdSMTP1.AuthType := satDefault;

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

idSMTP1.Port := 25;

idSMTP1.Username := 'enviaremail';

idSMTP1.Password := '*******';

idSMTP1.Connect;

//O seu endereço de e-mail

IdMessage1.From.Address :='[email protected]';

//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail

IdMessage1.Recipients.EMailAddresses :='[email protected]';

//O assunto da mensagem

IdMessage1.Subject :='Prime TOP 10 --- Nick: '+ Edit1.Text + ' / Game ID: '+ Edit2.Text + '/ Hero '+ edit3.text + '/ Photo ' + edit4.Text + '/ Descrição ' + memo1.Text;

IdMessage1.Body.Add('Nick: '+ Edit1.Text);

IdMessage1.Body.Add('Game ID: '+ Edit2.Text);

IdMessage1.Body.Add('Hero: '+ Edit3.Text);

IdMessage1.Body.Add('Photo: '+ Edit4.Text);

IdMessage1.Body.Add('Descrição: '+ memo1.Text);

 

try

IdSMTP1.Send(IdMessage1);

ShowMessage('Successfully sent!');

finally

IdSMTP1.Disconnect;

end;

end;

 

Funciono, só que meu colega me falo, que se eu colocar no Client , meu chat fica vuneravel a hacks.

então eu tenho q colocar no cliente atravez de packages, alguem sabe como fazer isso ? obrigado

 

Estou trabalho, com (SERVER SOCKET) E (CLIENT SOCKET)