Utente non riconosciuto.

**fraude** · 23-08-2006, 12:13

Ciao di nuovo.

Potete spiegarmi dove sbaglio in questo codice che permette il cambio della propria psw d'accesso ad un portale web?

Inserendo i dati esatti cade cmq sempre nella condizione utente non riconosciuto.

Il DB è MySQL.

codice:

'RECUPERO I DATI DAL FORM
                strUser = request.form("user")		
		strCode1 = request.form("act_code")
		strCode1 = cripta(strCode1,key)

		strCode2 = request.form("new_code1")
		strCode3 = request.form("new_code2")

		strMail= request.form("mail")
		
'CONTROLLO SUI DATI DEL FORM
	
	if(strUser<>"") AND (strCode1<>"") AND (strCode2<>"") AND (strCode2=strCode3) AND (strMail<>"") then

'ESEGUO QUERY DI CONTROLLO USERNAME E PSW

		strSql = "SELECT * FROM codici WHERE userName = '"&strUser&"' AND userCode = '"&strCode1&"'"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, cn, 3, 3
'SE PRESENTI
		
	if not(rs.eof) then
		
		UserCode = rs("UserCode")
		UserCodeDue = rs("UserCodeDue")
		UserCodeTre = rs("UserCodeTre")
		UserCodeNuova = cripta(strCode2,Key)
		
		UserID = rs("Utente_ID")
		
'CONTROLLO SU PSW
		
if UserCodeNuova = UserCode or UserCodeNuova = UserCodeDue or UserCodeNuova = UserCodeTre then

RESPONSE.WRITE "Questa password è già stata utilizzata in passato."

'ALTRIMENTI AGGIORNO IL DATO

else

sql_update = "UPDATE codici "
sql_update = sql_update & " set UserCode = '"&cripta(strCode2,Key)&"', "
sql_update = sql_update & " where utente_id = "& UserID
cn.Execute(sql_update)

RESPONSE.WRITE "Utente riconosciuto!"

end if

else

RESPONSE.WRITE "Utente non riconosciuto!"


		'chiudo il database
		rs.Close
		set rs = Nothing
		cn.Close 
		set cn = Nothing
		
		end if
		end if
		
		
%>

**optime** · 23-08-2006, 12:21

da' un'indentata fatta bene, ché non si capisce dove inizia / finisce un blocco if else endif

**fraude** · 23-08-2006, 12:26

Non è che mi riesce tanto bene, in realtà cmq:

codice:

'RECUPERO I DATI DAL FORM
                strUser = request.form("user")		
		strCode1 = request.form("act_code")
		strCode1 = cripta(strCode1,key)

		strCode2 = request.form("new_code1")
		strCode3 = request.form("new_code2")

		strMail= request.form("mail")
		
'CONTROLLO SUI DATI DEL FORM
	
	if(strUser<>"") AND (strCode1<>"") AND (strCode2<>"") AND (strCode2=strCode3) AND (strMail<>"") then

'ESEGUO QUERY DI CONTROLLO USERNAME E PSW

		strSql = "SELECT * FROM codici WHERE userName = '"&strUser&"' AND userCode = '"&strCode1&"'"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, cn, 3, 3
'SE PRESENTI
		
	     if not(rs.eof) then
		
		UserCode = rs("UserCode")
		UserCodeDue = rs("UserCodeDue")
		UserCodeTre = rs("UserCodeTre")
		UserCodeNuova = cripta(strCode2,Key)
		
		UserID = rs("Utente_ID")
		
'CONTROLLO SU PSW
		
                    if UserCodeNuova = UserCode or UserCodeNuova = UserCodeDue or UserCodeNuova = UserCodeTre then

RESPONSE.WRITE "Questa password è già stata utilizzata in passato."

'ALTRIMENTI AGGIORNO IL DATO

                             else

sql_update = "UPDATE codici "
sql_update = sql_update & " set UserCode = '"&cripta(strCode2,Key)&"', "
sql_update = sql_update & " where utente_id = "& UserID
cn.Execute(sql_update)

RESPONSE.WRITE "Utente riconosciuto!"

                    end if

       else

RESPONSE.WRITE "Utente non riconosciuto!"


		'chiudo il database
		rs.Close
		set rs = Nothing
		cn.Close 
		set cn = Nothing
		
	end if
end if
		
		
%>

**optime** · 23-08-2006, 12:35

a fra', mica è difficile

codice:

IF ....
   ......
   IF ....
      ....
      IF ...
          ...
      ELSE
          ....
      END IF
      ....
   ELSE
      ...
   END IF
   ....
ELSE
   ...
END IF

le righe sotto la IF le fai rientrare di 3 spazi
la ELSE la rimetti sotto la IF
le righe sotto la ELSE le fai rientrare di 3 spazi (come quelle sotto la IF)
la END IF la rimetti sotto la IF

**fraude** · 23-08-2006, 13:21

Speriamo bene:

codice:

'RECUPERO I DATI DAL FORM
                strUser = request.form("user")		
		strCode1 = request.form("act_code")
		strCode1 = cripta(strCode1,key)

		strCode2 = request.form("new_code1")
		strCode3 = request.form("new_code2")

		strMail= request.form("mail")
		
'CONTROLLO SUI DATI DEL FORM
	
if(strUser<>"") AND (strCode1<>"") AND (strCode2<>"") AND (strCode2=strCode3) AND (strMail<>"") then

'ESEGUO QUERY DI CONTROLLO USERNAME E PSW

		strSql = "SELECT * FROM codici WHERE userName = '"&strUser&"' AND userCode = '"&strCode1&"'"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, cn, 3, 3
'SE PRESENTI
		
  if not(rs.eof) then
		
     UserCode = rs("UserCode")
     UserCodeDue = rs("UserCodeDue")
     UserCodeTre = rs("UserCodeTre")
     UserCodeNuova = cripta(strCode2,Key)
     UserID = rs("Utente_ID")
		
'CONTROLLO SU PSW
		
    if UserCodeNuova = UserCode or UserCodeNuova = UserCodeDue or UserCodeNuova = UserCodeTre then

       RESPONSE.WRITE "Questa password è già stata utilizzata in passato."

'ALTRIMENTI AGGIORNO IL DATO

    else

       sql_update = "UPDATE codici "
       sql_update = sql_update & " set UserCode = '"&cripta(strCode2,Key)&"', "
       sql_update = sql_update & " where utente_id = "& UserID
       cn.Execute(sql_update)

    RESPONSE.WRITE "Utente riconosciuto!"

   end if

 else

RESPONSE.WRITE "Utente non riconosciuto!"


		'chiudo il database
		rs.Close
		set rs = Nothing
		cn.Close 
		set cn = Nothing
		
 end if
end if
		
		
%>

**fraude** · 23-08-2006, 13:44

E' mai possibile che con access funziona e con mysql no?
Gli stessi dati di accesso vengono convalidati da access ma non da mysql...

E' come se non funzionasse più la decriptazione della password:

codice:

<%
	' Parte Modificabile : Chiave INTERA di codifica e decodifica
	' ATTENZIONE: intKey deve esser compreso tra 0 e 64 
	dim key
		key = 5
	' Fine Parte modificabile
	
	function cripta(strTesto,intKey)
		dim ctInd
		dim chrAnalisi
		dim strTesto2
        For ctInd = 1 To Len(strTesto)
			chrAnalisi = Mid(strTesto, ctInd, 1)
            chrAnalisi = Asc(chrAnalisi) + intKey
            chrAnalisi = chrAnalisi Mod 256
            strTesto2 = strTesto2 & Chr(chrAnalisi)
		Next
		cripta=strTesto2
	end function

	function decripta(strTesto, intKey)
		dim ctInd
		dim chrAnalisi
		dim IntValore
		dim intResto
		dim strTesto2
            For ctInd = 1 To Len(strTesto)
                chrAnalisi = Mid(strTesto, ctInd, 1)
                intValore = Asc(chrAnalisi)
                intResto = (intKey + intValore) Mod 256
                If (intValore + intKey < 256) Then
                    strTesto2 = strTesto2 & Chr(intValore - intKey)
                Else
                    strTesto2 = strTesto2 & Chr(256 - intKey + intResto)
                End If
            Next
			decripta=strTesto2
	end function
%>

Ma ho provato ad inserirla criptata come sta nel db mysql e non funziona lo stesso... :master:

**fraude** · 23-08-2006, 15:02

In questa query i dati passano correttamente:

codice:

SELECT * FROM codici WHERE userName = 'pippo' AND userCode = 'P\]ZHW-='

la usercode è criptata... così come sta nel db mysql ma non mi autorizza...

:master:

**fraude** · 23-08-2006, 16:35

Scoperto il problema:

Non so perchè ma mysql non riesce a decifrare questo tipo di psw: P\]ZHW-=

infatti quando l'ho cambiata l'accesso è stato autorizzato, avete qualche idea? qualche funzione di criptaggio compatibile con mysql?

**santino83_11_04** · 24-08-2006, 02:45

Originariamente inviato da fraude
Scoperto il problema:

Non so perchè ma mysql non riesce a decifrare questo tipo di psw: P\]ZHW-=

infatti quando l'ho cambiata l'accesso è stato autorizzato, avete qualche idea? qualche funzione di criptaggio compatibile con mysql?

boh...provato a vedere sul sito di mysql?

Discussione: Utente non riconosciuto.

Strumenti discussione

Ricerca discussione

Visualizza

Utente non riconosciuto.

Permessi di invio