[Aportes indexados] Seguro anti /passwd (v2)

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Miembro del equipo
Administrador
Moderador
Seguro anti /passwd (v2)

Busca en TCP_HandleData2...
Código:
Select Case UCase$(Left$(rdata, 8))
        Case "/PASSWD "
...
...
...
End Select
y reemplazalo por...
Código:
    Select Case UCase$(Left$(rData, 8))
        Case "/PASSWD "
            rData = Right$(rData, Len(rData) - 8)
            ' [GS] Seguro anti /passwd - v2 (idea de Aereal)
            ' /passwd passnuevo passviejo
            Arg1 = ReadField(1, rData, 32)
            Arg2 = ReadField(2, rData, 32)
            If Arg2 <> UserList(UserIndex).Password Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No se ha podido completar el cambio de la contraseña. Utilize /passwd <password_nuevo> <password_anterior>" & FONTTYPE_INFO)
            ElseIf Len(Arg1) < 6 Then
                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El password debe tener al menos 6 caracteres." & FONTTYPE_INFO)
            Else
                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El password ha sido cambiado." & FONTTYPE_INFO)
                 UserList(UserIndex).Password = Arg1
            End If
            ' [/GS] Seguro anti /passwd - v2 (idea de Aereal)
            Exit Sub
    End Select

Khalem: Sacamos las caritas xD
 
Estado
Cerrado para nuevas respuestas.
Arriba