Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
ronnyrolim Novato
Registrado: Sexta-Feira, 29 de Junho de 2012 Mensagens: 6
|
Enviada: Qui Jul 05, 2012 8:33 pm Assunto: Criar VPN com Delphi |
|
|
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 |
|
|
johnny-walker Moderador
Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Sex Jul 06, 2012 12:56 pm Assunto: |
|
|
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 |
|
|
rodrigoprado Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005 Mensagens: 1074 Localização: Curitiba/PR
|
Enviada: Ter Jul 10, 2012 8:58 am Assunto: |
|
|
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.
_________________ - Compartilhe seus conhecimentos - |
|
Voltar ao Topo |
|
|
johnny-walker Moderador
Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Ter Jul 10, 2012 3:28 pm Assunto: |
|
|
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 |
|
|
tiagoshimizu Membro Junior
Registrado: Segunda-Feira, 28 de Setembro de 2009 Mensagens: 329
|
Enviada: Qua Ago 14, 2013 10:43 pm Assunto: |
|
|
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 |
|
|
Netrunner Aprendiz
Registrado: Domingo, 7 de Julho de 2013 Mensagens: 236
|
Enviada: Qua Ago 14, 2013 11:41 pm Assunto: |
|
|
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 |
|
|
tiagoshimizu Membro Junior
Registrado: Segunda-Feira, 28 de Setembro de 2009 Mensagens: 329
|
Enviada: Qui Ago 15, 2013 5:19 pm Assunto: |
|
|
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 |
|
|
Netrunner Aprendiz
Registrado: Domingo, 7 de Julho de 2013 Mensagens: 236
|
|
Voltar ao Topo |
|
|
tiagoshimizu Membro Junior
Registrado: Segunda-Feira, 28 de Setembro de 2009 Mensagens: 329
|
Enviada: Dom Ago 18, 2013 12:53 pm Assunto: |
|
|
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 |
|
|
tiagoshimizu Membro Junior
Registrado: Segunda-Feira, 28 de Setembro de 2009 Mensagens: 329
|
Enviada: Dom Ago 18, 2013 1:16 pm Assunto: |
|
|
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 |
|
|
Netrunner Aprendiz
Registrado: Domingo, 7 de Julho de 2013 Mensagens: 236
|
Enviada: Dom Ago 18, 2013 4:38 pm Assunto: |
|
|
de nada, precisar tamos ae .. coloque Resolvido no nome do topico por favor.. |
|
Voltar ao Topo |
|
|
tiagoshimizu Membro Junior
Registrado: Segunda-Feira, 28 de Setembro de 2009 Mensagens: 329
|
Enviada: Dom Ago 18, 2013 4:54 pm Assunto: |
|
|
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 |
|
|
|