[Tutorials]Cliente & Socket Bem Simples...

[Anonymous]

Bom galera jah fui um programador de delphi e agora estou voltano epoi de muito tempo
de vicio eim cs e queria dizer que esse e um exemplo bem simples mesmo
de cliente & socket postareia aqui os souurces codes explicando...
chega de enrolar vms começar...

Cliente

Code Select Expand

Bom abra seu delphi crie um novo formulario e coloka lah um edit e dois botoes
nos dois botoes de nomei um de connectr e outro de desconectar
e no edit apague oque ah dentro dele(o texto)
depos pegue na palete internet um  ClienteSocket
e o nomeiii para cs(Ou secha ClienteSocket)
depos dissu defina a porta que vc quer que ele se connect!
depois disso organize o formulario como desejar agora vamos aos codigos mesmo
de um duplo click no botao conectar e digite(NAO COLE xD)
cs.Address:= Edit1.Text;
cs.Active :=True;

agora vou explicar o codgio acima

cs eu chamei  o ClienteSocket certo e define que o indereço de ip sera oque estiver escrito no edit certo
e em baixo novamente chamei o cs e o falei para ele sse conectr


agora de um duplo click no botao desconectar e coloke so issu
cs.close;
ou sejah eu chamei o cs e pedi pra ele fexar ou sejah fexei a conexao tem varios outro modos
mais esse e e o mais simples quem sabeh em outro tutorial explique estou sem tempo =X
mas continuando

Obs:Achu que e so issu no cliente vmos pro servidor?


Servidor

Code Select Expand

Novamente criei outro form no delphi.
criadop jah o form va na paleta internet e de um duplo click no ServeSocket
agora nas propiedades dele nomei o para ss(Server Socket)
e  na port esoclha a porta que voce escolheu como no cliente
lenbra  no meu caso escolhi (27015) pronto agora em active
coloke true(estou usnado mais as propiedaades dos obejtos para nao ir muito com codigos e complicar os inicinates como eu)
pronto agora vmus em eventos e vmus no evento  OnClientConnect do ss(ServeSocket)
chegando lah coloke o seguinte codigo
ShowMessage('Voce foi invadido BY:lack Ou sejah lack no comando agora xP');

aqui define que quando o cliente(cs) se connectar com o ss(ServerSocket) ou computador remoto
ele abira esta msg Voce foi invadido BY:lack Ou sejah lack no comando agora xP.

Bom pessoal e so issu se quiserem algo um pokinhu mais avnçado deixarei um sc(source code) aqui de um simples trojan
abraçaoo espero que gostem tentei explicar ao maximo
bom e issu e ateh a proxima.
Download:http://www.sendspace.com/file/27z5od
Obs:Descubre a propaganda e que o componente que usei e feito do Oper mias jah naum etsa mias on
e desculpe me erros ortograficos sabem como eh neh??MSN e foda xD