Bom eu sei q eh possivel pelo javae jah fiz alguns teste mas a disponibilidade para cgi eh bem maior em servidores por ai a fora, então queria saber se eh possivel esse tipo de conexão e se alguem poderia me mostrar como ou indicar tutoriais a respeito.
obrigado desde jah.
Servidor Socket Pelo Cgi
Started By nandonakahara, 17/09/2005, 01:59
5 replies to this topic
#2
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 17/09/2005, 15:47
este esta em ingles mas mostra um inicio bem simples:
http://www.perlfect....s/sockets.shtml
nao vi nenhum em portugues mas se achar posto aqui.
http://www.perlfect....s/sockets.shtml
nao vi nenhum em portugues mas se achar posto aqui.
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#3
jgcl
-
- Usuários
-
- 559 posts
João Gabriel C. Laass, Serra/ES
- Sexo:Não informado
- Localidade:Serra / ES
- Interesses:Tudo!
Posted 17/09/2005, 16:12
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org
#4
Whitesnake
Whitesnake
-
- Visitantes
Posted 17/09/2005, 16:18
Seria isto?
flw
Criando um Servidor TCP
...
use IO::Socket;
$server = IO::Socket::INET->new(LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10 )
or die "Não foi possível estabelecer um servidor tcp na porta $server_port : $@\n";
while ($client = $server->accept()) {
# $client é a nova conexão
(...)
}
close($server);
Criando um Servidor UDP
...
use IO::Socket;
$server = IO::Socket::INET->new(LocalPort => $server_port,
Proto => "udp")
or die "Não foi possível estabelecer um servidor udp na porta $server_port : $@\n";
# Com um loop começa a receber as mensagens
while ($him = $server->recv($datagram, $max_buffer, $flags)) {
(...)
}
flw
#5
Hospedar-se .Com
-
- Usuários
-
- 1500 posts
Super Veterano
- Sexo:Masculino
- Localidade:São Paulo - SP
Posted 18/09/2005, 16:58
e fazer isso autenticar?
Hospedar-se .Com - Monitor Webfórum - Equipe de Gerenciamento de Servidores
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
#6
Whitesnake
Whitesnake
-
- Visitantes
Posted 18/09/2005, 21:08
Tente usar isso para Identificar o Outro Lado e então fazer a verificação.
...
use Socket;
$outro_lado = getpeername(SOCKET)
or die "Não foi possível identificar o outro lado: $!\n";
($porta, $endrr) = unpack_sockaddr_in($outro_lado);
$ip = inet_ntoa($endrr);
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
