Encriptador de packets

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