[Aportes indexados] Seguro Anti /passwd

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
Seguro Anti /passwd

Codigo para el Servidor

Este código evita que un macro/troyano ingrese automáticamente el comando /passwd :)

En Declaraciones...

Código:
'Tipo de los Usuarios
Type User
    
    Name As String
    ID As Long
    
    modName As String
    Password As String
    PasswordCh As String '  <<<<<<< [GS] Cambiar pass
    
    Char As Char 'Define la apariencia
    CharMimetizado As Char
En TCP...

Código:
Sub ResetBasicUserInfo(ByVal UserIndex As Integer)
 
UserList(UserIndex).Name = ""
UserList(UserIndex).modName = ""
UserList(UserIndex).Password = ""
UserList(UserIndex).PasswordCh = "" ' <<<<<<< [GS] Cambiar pass
UserList(UserIndex).Desc = ""
En TCP_HandleData2....

Código:
    Select Case UCase$(Left$(rdata, 8))
        Case "/PASSWD "
            UCase$(rData) = Right$(rdata, Len(rdata) - 8)
            ' [GS] Cambia pass
            UserList(UserIndex).PasswordCh = rdata
            rdata = RandomNumber(60000, 99999) & Chr(RandomNumber(65, 90))
            UserList(UserIndex).PasswordCh = UserList(UserIndex).PasswordCh & "~" & rdata
            Call SendData(ToIndex, UserIndex, 0, "||Para autorizar el cambio de password escribe /PASSCF " & rdata & FONTTYPE_INFO)
            Exit Sub
        Case "/PASSCF "
            rdata = Right$(rdata, Len(rdata) - 8)
            ' [GS] Cambia pass
            If LenB(UserList(UserIndex).PasswordCh) = 0 Then Exit Sub
            If rdata = ReadField(2, UserList(UserIndex).PasswordCh, Asc("~")) Then
                ' codigo valido
                 Call SendData(ToIndex, UserIndex, 0, "||El password ha sido cambiado." & FONTTYPE_INFO)
                 UserList(UserIndex).Password = ReadField(1, UserList(UserIndex).PasswordCh, Asc("~"))
                 UserList(UserIndex).PasswordCh = vbNullString
            Else
                Call SendData(ToIndex, UserIndex, 0, "||Código no autorizado." & FONTTYPE_INFO)
            End If
            Exit Sub
    End Select
 
Estado
Cerrado para nuevas respuestas.
Arriba