MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Encriptador de packets

4 participantes

Ir para baixo

Encriptador de packets Empty Encriptador de packets

Mensagem por Lucas Roberto Qui 05 Dez 2013, 23:00

Olá estou nessa madruga de quinta para sexta jogando um joguinho legal até mais por alguns erros que dá la kkk fiquei bravo e resolvi fazer esse codigo pra ajudar a turminha que esta começando espero que ajude!!!!

Cliente

Vá ao ModClientTCP, Na Sub IncomingData e adicione o seguinte código abaixo de:


Código:
frmMirage.Socket.GetData Buffer, vbString, DataLength

Dim i As Long
        Dim b As Long
        Dim s As String
        Dim final As String
        Dim z As Long
        Dim st As Long
        Dim add As Long
        
        For i = 1 To Len(Buffer)
        For b = 0 To 255
        If Mid(Buffer, i, 1) = Chr(b) Then
        s = b + 10
        If s > 255 Then
        s = s - 255
        End If
        End If
        Next b
        final = final & Chr(s)
        s = ""
        Next i
        Buffer = final
Vá agora até a Sub SendData, a abaixo de:


Código:
If IsConnected then

        Dim i As Long
        Dim b As Long
        Dim st As Long
        Dim final As String
        Dim s As String
        Dim add As Long
        For i = 1 To Len(Data)
        For b = 0 To 255
        If Mid(Data, i, 1) = Chr(b) Then
        s = b - 10
        If s < 0 Then
        s = s + 255
        End If
        End If
        Next b
        final = final & Chr(s)
        s = ""
        Next i
        Data = final

Server

Vá no modServerTCP e na sub IncomingData abaixo do código:


Código:
frmServer.Socket(index).GetData Buffer, vbString, DataLength

Adicione:

       
Código:
 Dim i As Long
        Dim b As Long
        Dim S As String
        Dim final As String
        Dim z As Long
        Dim st As Long
        
        For i = 1 To Len(Buffer)
        For b = 0 To 255
        If Mid(Buffer, i, 1) = Chr(b) Then
        S = b + 10
        If S > 255 Then
        S = S - 255
        End If
        End If
        Next b
        final = final & Chr(S)
        S = ""
        Next i
        Buffer = final

Agora vá até a sub SendDataTo e abaixo do código:


Código:
If IsConnected(index) Then
Adicione:

               
Código:
 Dim Data2 As String
        Data2 = Data
        Dim i As Long
        Dim b As Long
        Dim st As Long
        Dim final As String
        Dim S As String
        For i = 1 To Len(Data)
        For b = 0 To 255
        If Mid(Data, i, 1) = Chr(b) Then
        S = b - 10
        If S < 0 Then
        S = S + 255
        End If
        End If
        Next b
        final = final & Chr(S)
        S = ""
        Next i
        Data = final
Fim.

Atenção: É de extrema importância de que vocês usem mais se lembra de mim kkk entrei no jogo e ninguem me conhecia aff fiquei chocado!!! (CREDITOS AII EM!!!)

Creditos 
Lucas Roberto
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por DragonicK Qui 05 Dez 2013, 23:48

???????????????????????????????????????????????
DragonicK
DragonicK
Membro de Honra
Membro de Honra

Mensagens : 315

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por Lucas Roberto Sex 06 Dez 2013, 01:09

DragonicK escreveu:???????????????????????????????????????????????
???
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por *Star* Sex 06 Dez 2013, 06:15

Boaa,concerteza irei Adicionar ao meu Projeto.Obrigado Lucas Roberto +1 Cred.
*Star*
*Star*
Membro Sênior
Membro Sênior

Mensagens : 285

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por jonny157 Sex 06 Dez 2013, 07:26

Lucas o que exatamente é isto? Seja mais específico por favor.
jonny157
jonny157
Membro Sênior
Membro Sênior

Mensagens : 406

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por Lucas Roberto Sex 06 Dez 2013, 09:34

isso ajuda a não tentarem derrubar o servidor com esses hackers de noob rsrs
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por DragonicK Sex 06 Dez 2013, 09:38

Rizos
DragonicK
DragonicK
Membro de Honra
Membro de Honra

Mensagens : 315

Ir para o topo Ir para baixo

Encriptador de packets Empty Re: Encriptador de packets

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos