Perguntas Senha de Admin

Galera, bom dia!

Sou novo aqui e encontrei um fonte disponibilizado para pegar a senha de admin do protheus...

Compilei esse fonte e executei, só que traz a senha em branco e só o email cadastrado, alguem saberia me dizer se mudou a variavel que grava a senha do protheus? Tem alguma alteração a ser feita?

Estou em cliente que perdeu a senha de admin e nao consigo acessar o configurador por outro usuario.

Obrigado.

Att
Antonio Remigio

Opa...

Então já havia tentando esse procedimento, mas a TOTVS bloqueou a função SPF_CLOSE, antigamente eu utilizava esse procedimento...

Abri um chamado na TOTVS solicitando que eles recuperem.

Mas enquanto eles nao recuperam, eu fui tentando o que achei aqui no forum.

Obrigado.

Olá, este fonte só terá efeito no versão 10 do Protheus, na 11 mudaram o esquema de encriptação da
senha.

Raul.

Obrigado Raul,

Executei no P10 agora e funcionou, mas a senha de admin continua em branco e testei pra ver se era e nao é....

As senhas dos outros usuarios estao trazendo normais, ah do admin nao...

=\

Uso o fonte abaixo e funciona perfeitamente na 10, com o ID 000000 - que é do admin.

Raul.


#INCLUDE "RWMAKE.CH"
#INCLUDE "PROTHEUS.CH"

/*/
+

---

+
¦Programa ¦ PegaSenha ¦ Autor ¦ Israel Neves ¦ Data ¦ 18.03.09 ¦
+

---

+

---

¦
¦Descrição ¦ PegaSenha do usuario protheus ¦
+

---

+

---

¦
*/

User function GetPass()

Local cIdUser := Space(6) //"000000" //Administrador
Private _cSenha := ' '
Private cDe := ' '


_aGrp := UsrRetGRP()
If ! Empty( _aGrp )
_cGrupo := GRPRetName( _aGrp[ 1 ] )
Else
_cGrupo := ' '
End
If _cGrupo <> 'Administradores'
MsgInfo( 'Você não tem direitos para acessar esta opção !'+chr(10)+chr(13)+'Contate o Administrador do Siga','Atenção' )
Return
End

display := "Descobre a senha de Usuário"
DEFINE MSDIALOG oDlg1 FROM 20,1 TO 100,250 TITLE DISPLAY PIXEL
@ 01,02 say "Informe o ID :"
@ 01,08 get cIdUser
DEFINE SBUTTON FROM 25, 010 TYPE 1 ENABLE OF oDlg1 Action (PegaSenha(alltrim(cIdUser)),MsgAlert(_cSenha+' - '+cDe,"Senha / Email"))
DEFINE SBUTTON FROM 25, 050 TYPE 2 ENABLE OF oDlg1 Action close(oDlg1)
ACTIVATE MSDIALOG oDlg1 Centered
Return()


Static function PegaSenha(cIdUser)

Local cPswFile := "sigapss.spf"
Local cPswId := ""
Local cPswName := ""
Local cPswPwd := ""
Local cPswDet := ""
Local lEncrypt := .F.
Local nPswRec := 0
Default cIdUser := __cUserId // variavel publica utilizada pelo sisitema para identificar quem esta logado

nPswRec := SPF_Seek( cPswFile , "1U" + cIdUser , 1 )
If nPswRec > 0
Spf_GetFields( @cPswFile , @nPswRec , @cPswId , @cPswName , @cPswPwd , @cPswDet )
cPswPwd := PswEncript( Alltrim( cPswPwd ) , 1 )
cPswPwd := Substr( cPswPwd, 1, At( Space(1) , cPswPwd ) -1 )
Endif
_cSenha := cPswPwd
cDe := AllTrim(USRRETMAIL(cIdUser))
Return(_cSenha, cDe)