Correspondance de cryptage de mot de passe ASP/PHP

Question

Bonjour à tous,
Je suis entrain de traduire un site qui a été développé en ASP vers PHP. Une base de données existe déjà avec l'ancien site. Dans la base j'ai une table client avec des mots de passe encryptés avec une fonction ASP. J'aimerais utiliser ces mots de passe sur le nouveau site en PHP. Dois-je modifier tous les mots de passe clients pour les utiliser sur le nouveau site php ? Existe-t-il un moyen de changer la clé de cryptage actuelle ASP pour PHP ? Ou tout autre moyen sans devoir modifier tous les mots de passe clients ? Est-ce que quelqu'un a déjà rencontré ce genre de problème ? Toute aide est la bienvenue.
Merci par avance !

NHenry · Answer

Si le site a été un peu bien fait, il ne s'agit pas de chiffrement, mais de hashage, donc pas de retour possible.

Il y a 2 méthode :
- Soit tu refais le même hashage qu'en ASP (là il faut savoir comment c'était fait)
- Soit tu reset tout les MDP et les utilisateurs doivent les redéfinir.

Attention, un minimum de protection réside dans le fait de "saler" le hash, sinon, ça se réverse très facilement via des sites spécialisés.

Utilisateur anonyme · Answer

Bonjour @NHenry,

Merci d'avoir le temps de me répondre. 
Je préfère la première méthode. Mais je ne maîtrise pas assez le langage ASP. Est-ce possible que je te montre la clé de cryptage ASP pour le faire en PHP ?

Merci

Utilisateur anonyme · Answer

Je t'enverrai le code et t'expliquer comment ça a été fait.

Utilisateur anonyme · Answer

ReBonjour @NHenry,

Je te mets ci-dessous les fonctions qui permettent d'encrypter les mots de passe :

sPlain = "0000000000000000" g_CryptThis = sPlainConst g_KeyLocation = "/code.txt"Dim g_Keyg_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))Function ReadKeyFromFile(strFileName)    Dim keyFile, fso, f    set fso = Server.CreateObject("Scripting.FileSystemObject")     set f = fso.GetFile(strFileName)     set ts = f.OpenAsTextStream(1, -2)    Do While not ts.AtEndOfStream   keyFile = keyFile & ts.ReadLine    Loop     ReadKeyFromFile = keyFileEnd FunctionsPassword = g_KeyMyEncrypt(sPlain, sPassword)Public Function MyEncrypt(sPlain, sPassword) Dim bytIn() Dim bytPassword() Dim lLength Dim lCount Dim sTemp      lLength = Len(sPlain)    ReDim bytIn(lLength-1)    For lCount = 1 To lLength        bytIn(lCount-1)=CByte(AscB(Mid(sPlain,lCount,1)))    Next    lLength = Len(sPassword)    ReDim bytPassword(lLength-1)    For lCount = 1 To lLength        bytPassword(lCount-1)=CByte(AscB(Mid(sPassword,lCount,1)))    Next     bytOut = EncryptData(bytIn, bytPassword)        sTemp = ""    For lCount = 0 To UBound(bytOut)        sTemp = sTemp & Right("0" & Hex(bytOut(lCount)), 2)    Next    MyEncrypt = sTempEnd Function
// fichier code.txtSupprimé pour raison de sécurité
Cdlt,

Utilisateur anonyme · Answer

C'est comme ça que ça a été et J'ai trouvé le code tel quel. Il est utilisé depuis des années. Je ne peux pas le changer tout de suite.

Correspondance de cryptage de mot de passe ASP/PHP

5 réponses

Votre réponse

Discussions similaires