Servidor:
1. Al final del modulo General Ponemos:
- Public Function AntiClienteEditados(ByVal Password As String) As Boolean
- If Password <> "Tupassword" Then 'La password debe ser igual en el cliente y en el servidor.
- AntiClienteEditados = False
- Else
- AntiClienteEditados = True
- End If
- End Function
2. Buscamos:
- Case "OLOGIN"
Y en alguna parte del case ponemos:
- If AnticlienteEditados(ReadField(4, rData, 44)) = False Then
- Call SendData(SendTarget.toindex, UserIndex, 0, "ERRSe ha producido un error, reintentelo nuevamente.")
- Call CloseSocket(UserIndex)
- Exit Sub
- End If
3. Buscamos:
- Case "NLOGIN"
y en alguna parte del case ponemos:
- If AnticlienteEditados(ReadField(30, rData, 44)) = False Then
- Call SendData(SendTarget.toindex, UserIndex, 0, "ERRSe ha producido un error, reintentelo nuevamente.")
- Call CloseSocket(UserIndex)
- Exit Sub
- End If
Cliente:
1. Buscamos:
- SendData ("OLOGIN" & UserName & "," & UserPassword & "," & App.Major & "." & App.Minor & "." & App.Revision)
Y la remplazamos, por:
- SendData ("OLOGIN" & UserName & "," & UserPassword & "," & App.Major & "." & App.Minor & "." & App.Revision & "," & "Tupassword")
2. Buscamos:
- SendData ("NLOGIN" & UserName & "," & UserPassword _
- & "," & App.Major & "." & App.Minor & "." & App.Revision _
- & "," & UserRaza & "," & UserSexo & "," & UserClase _
- & "," & UserSkills(1) & "," & UserSkills(2) _
- & "," & UserSkills(3) & "," & UserSkills(4) _
- & "," & UserSkills(5) & "," & UserSkills(6) _
- & "," & UserSkills(7) & "," & UserSkills(8) _
- & "," & UserSkills(9) & "," & UserSkills(10) _
- & "," & UserSkills(11) & "," & UserSkills(12) _
- & "," & UserSkills(13) & "," & UserSkills(14) _
- & "," & UserSkills(15) & "," & UserSkills(16) _
- & "," & UserSkills(17) & "," & UserSkills(18) _
- & "," & UserSkills(19) & "," & UserSkills(20) _
- & "," & UserSkills(21) & "," & UserEmail _
- & "," & UserHogar)
y la remplazamos por esta:
- SendData ("NLOGIN" & UserName & "," & UserPassword _
- & "," & App.Major & "." & App.Minor & "." & App.Revision _
- & "," & UserRaza & "," & UserSexo & "," & UserClase _
- & "," & UserSkills(1) & "," & UserSkills(2) _
- & "," & UserSkills(3) & "," & UserSkills(4) _
- & "," & UserSkills(5) & "," & UserSkills(6) _
- & "," & UserSkills(7) & "," & UserSkills(8) _
- & "," & UserSkills(9) & "," & UserSkills(10) _
- & "," & UserSkills(11) & "," & UserSkills(12) _
- & "," & UserSkills(13) & "," & UserSkills(14) _
- & "," & UserSkills(15) & "," & UserSkills(16) _
- & "," & UserSkills(17) & "," & UserSkills(18) _
- & "," & UserSkills(19) & "," & UserSkills(20) _
- & "," & UserSkills(21) & "," & UserEmail _
- & "," & UserHogar & "," & "TUPASSWORD")
Bueno, con esto tenemos un anti Clientes editados, simple y funcional.
Saludos y espero que les guste!






399![Destructor de Mentes [5] Destructor de Mentes [5]](./images/ranks/Rango17.gif)

![Newbie [4] Newbie [4]](./images/ranks/Rango3.gif)


![Dragon Ancestral [1] Dragon Ancestral [1]](./images/ranks/Rango30.gif)

![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)

![Oraculo [1] Oraculo [1]](./images/ranks/Rango25.gif)
![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)


![Aprendiz [1] Aprendiz [1]](./images/ranks/Rango6.gif)

![Aprendiz [5] Aprendiz [5]](./images/ranks/Rango10.gif)

![Aprendiz [4] Aprendiz [4]](./images/ranks/Rango9.gif)

![Destructor de Mentes [11] Destructor de Mentes [11]](./images/ranks/Rango23.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)



![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)
