ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Criar VPN com Delphi

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ronnyrolim
Novato
Novato


Registrado: Sexta-Feira, 29 de Junho de 2012
Mensagens: 6

MensagemEnviada: Qui Jul 05, 2012 8:33 pm    Assunto: Criar VPN com Delphi Responder com Citação

Senhores,

Tenho uma aplicação que serve para unir jogadores de um determinado jogo, porém se as portas do modem estiverem bloqueadas, não é possível fazer a conexão obviamente.

Eu preciso incluir uma VPN ou algo parecido com o Hamachi nessa aplicação que já funciona.

Pesquisei e vi que no Indy tem algo sobre isso, mas não achei exatamente como fazer.

Sou inciante em Delphi e programação, mas tenho muito interesse em aprender.

Será que podem me ajudar?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Sex Jul 06, 2012 12:56 pm    Assunto: Responder com Citação

Pesquise sobre RAS api + VPN que vc acha a respeito.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
rodrigoprado
Colaborador
Colaborador


Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR

MensagemEnviada: Ter Jul 10, 2012 8:58 am    Assunto: Responder com Citação

Ainda n tive um tempo pra fazer esta pesquisa mas no google colocando "DELPHI RASAPI VPN", vem varios texto, a grande maioria em inglês.

Pergunta: Algum colega do site tem algum fontes com este tipo de integração, um chat, algo assim que possa ser enviado pra analise.

Desde já agradeço, de qualquer forma se alguem ja passou por esta situação e quiser dar umas dicas mais detalhadas, seria de grande ajuda a nosso colega.

Very Happy
_________________
- Compartilhe seus conhecimentos -
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Jul 10, 2012 3:28 pm    Assunto: Responder com Citação

Mande uma private message com seu email que vejo o que posso fazer.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
tiagoshimizu
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 28 de Setembro de 2009
Mensagens: 329

MensagemEnviada: Qua Ago 14, 2013 10:43 pm    Assunto: Responder com Citação

Olá a todos. Por acaso conseguiram algo relacionado ao tópico?
Também estou precisando de algo parecido. Caso tenham conseguido e desejarem compartilhar, agradeço.

Obrigado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Netrunner
Aprendiz
Aprendiz


Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236

MensagemEnviada: Qua Ago 14, 2013 11:41 pm    Assunto: Responder com Citação

1° VPN não faz você jogar em modo LAN, porque envolve outros packets do game na criação da sala, canal ou qualquer outro modo de criar uma conexão, sem falar na falta de proteção que é pra criar uma VPN e dos famoso 'disconect' no meio do game devido a conexão com a VPN..
2° Você tem que usar protocolos TCP E UDP pra fazer broadcast do game..
e capturar os packets de cada ação do game pelo wireshark..

games disponíveis pra fazer broadcast : Warcraft III, Counter Strike..etc. (tudo que tem opção de jogar em LAN)..

eu tenho um source de um servidor de Diablo 2 em delphi.. talvez eu posso te enviar..


Pra que jogo? dependendo do jogo eu posso ajudar..
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
tiagoshimizu
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 28 de Setembro de 2009
Mensagens: 329

MensagemEnviada: Qui Ago 15, 2013 5:19 pm    Assunto: Responder com Citação

Netrunner, primeiramente obrigado pela resposta.
Na realidade, no meu caso não é para jogos.
Tenho uma aplicação multi camadas. O servidor possui IP fixo e roda windows server com VPN do tipo PPTP ativo. Nas estações clientes, crio manualmente uma conexão do tipo VPN e informo o IP do servidor, juntamente com um usuário e senha contidos no servidor. Funciona show de bola contudo, em cada estação de trabalho fora da rede local preciso criar manualmente a conexão, e um detalhe, para aumentar a segurança, em determinados períodos trocamos o usuário e senha para evitar acessos não permitidos.
A idéia seria criar uma aplicação que criasse automaticamente a a conexão, discasse e desconectasse ao término da aplicação.
Poderia me ajudar?

Obrigado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Netrunner
Aprendiz
Aprendiz


Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236

MensagemEnviada: Qui Ago 15, 2013 8:20 pm    Assunto: Responder com Citação

Desculpe a demora pra responder, estava viajando..
bom, tenho um source de criar conexão

ta ae
http://www.mediafire.com/?ae8r99c0087t22o
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
tiagoshimizu
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 28 de Setembro de 2009
Mensagens: 329

MensagemEnviada: Dom Ago 18, 2013 12:53 pm    Assunto: Responder com Citação

Netrunner, peço desculpas pela demora em responder, só consegui testar hoje.
Então, no exemplo que passou, ele até cria a conexão vpn só que mesmo passando um usuário e senha, ele pede novamente essas informações na primeira conexão. E também, ele não "chama" a conexão por meio do botão "Abrir conexão".
Estou utilizando delphi 2010, por isso tive de alterar o seguinte no código:
Código:
function Create_VPN_Connection(sEntryName, sServer, sUsername, sPassword: PAnsiChar): Boolean;

if Create_VPN_Connection(PAnsiChar(AnsiString(sEntryName)), PAnsiChar(AnsiString(sServer)), PAnsiChar(AnsiString(sUsername)), PAnsiChar(AnsiString(sPassword))) then
Testei no windows 7 e no 8.

Obrigado mesmo assim pela ajuda. Vou estar procurando mais informações sobre esta api e caso consiga algo, vou postando aqui também.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
tiagoshimizu
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 28 de Setembro de 2009
Mensagens: 329

MensagemEnviada: Dom Ago 18, 2013 1:16 pm    Assunto: Responder com Citação

Cara, falta de atenção total minha ao verificar o código...!
Ele funciona perfeitamente, só questão de ajustes mesmo.
Código:
  if Create_VPN_Connection(PAnsichar(AnsiString(sEntryName)),
    PAnsichar(AnsiString(sServer)), PAnsichar(AnsiString(sUsername)),
    PAnsichar(AnsiString(sPassword))) then
Cria a conexão. Se rodar sem permissão de administrador, ele cria a conexão normalmente, só que retorna false.
Código:
  WinExec(PAnsichar(AnsiString
        ('rasdial ' + nome.Text + ' ' + UserEd.Text + ' ' + PwdEd.Text)),
    SW_hide);
Conecta.
Código:
  WinExec(PAnsichar(AnsiString('rasphone.exe   -h   ' + nome.Text)),
    SW_SHOWNORMAL);
Desconecta.
Código:
  WinExec(PAnsichar(AnsiString('rasphone.exe   -h   ' + nome.Text)),
    SW_SHOWNORMAL);
Exclui a conexão.
Show de bola!
Obrigado pela ajuda.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Netrunner
Aprendiz
Aprendiz


Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236

MensagemEnviada: Dom Ago 18, 2013 4:38 pm    Assunto: Responder com Citação

de nada, precisar tamos ae Wink.. coloque Resolvido no nome do topico por favor..
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
tiagoshimizu
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 28 de Setembro de 2009
Mensagens: 329

MensagemEnviada: Dom Ago 18, 2013 4:54 pm    Assunto: Responder com Citação

Então, esta tarefa árdua vou ter de deixar para os moderadores pois visto não ser o criador do post, não tenho como realizar esta alteração. Vlw.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB