Adaptation d'une fonction C++ en VBScript

Bonjour à toutes et à tous,

Pour bien planter le tableau, je commence par le fait que je ne connais pas grand chose au VBScript et que je suis plus à l'aise dans le monde C++.

Pour un besoin ponctuel (export de données d'une base SQLServer vers une base PostGres, avec quelques modifications apportées aux données au passage), on me demande de développer un module VBScript réalisant cette opération (exigence client).

L'une des données concernées est un mot de passe qui est crypté et stockée sous SQLServer dans un champ de type varbinary(15).
Ce mot de passe doit être décrypté dans le module VBScript pour être stocké en clair dans la base PostGres (rassurez-vous, ce n'est que temporaire, l'identification des utilisateurs se fera par un autre biais).

Dans notre application C++, nous avons un module qui se charge de ça.
Je dois donc le transférer dans le module VBScript pour y décrypter les mots de passe.

Mais je n'arrive pas à adapter mon code! :(

Voici le code C++ en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

void CProfil::TransformerPwd(LPSTR pPwd) { // Cette méthode transforme un mot de passe en effectuant un OU EXCLUSIF // avec une "clé magique". // L'opération est réversible puisque le mot de passe transformé peut être // rétabli en clair par un 2ème appel de la méthode. // Attention ! la méthode modifie DIRECTEMENT la donnée située à l'adresse pPwd; // donc utiliser un buffer dans la méthode appelante et non une CString.   // La clé de codage des mots de passe. NE DOIT PAS ETRE MODIFIEE. static char BASED_CODE CleMagique[] = "$:;[9-*|#]=%/?."; // 15 cars   int Lg = strlen(pPwd);   LPCSTR pCle = CleMagique;   for (int i = 0; i < Lg; i++) { *pPwd ^= *pCle; // OU EXCLUSIF entre mot de passe et "clé magique" pCle++; pPwd++; } }

---

Quelqu'un peut-il m'aider à adapter ce code en VBScript (j'ai bien sûr modifié la clé de codage)?

D'avance, merci!

En me basant sur ton algorithme, j'ai pu construire cette fonction que j'espère fonctionnelle pour ton besoin :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Dim CleMagique, Test Function TransformerPwd(pPwd) Dim Lg, pCle, I, Result, Temp CleMagique = "$:;[9-*|#]=%/?." pCle = CleMagique Lg = Len(pPwd) For I = 1 To Lg ': On Error Resume Next Temp = Asc(Mid(pPwd, I, 1)) XOR Asc(Mid(pCle, I, 1)) Result = Result & Chr(Temp) Next TransformerPwd = Result End Function ' Exemple d'utilisation avec le mot de passe: 5hC,*/6\4:M8PSN Test = TransformerPwd("5hC,*/6\4:M8PSN") MsgBox "Resultat de la transformation : " & Test & vbNewLine & "Rétablissement du mot de passe : " & TransformerPwd(Test)

---

Bonjour l_autodidacte,

Merci pour ta réponse et ta fonction.
Malheureusement, ça ne fonctionne pas, mais je pense que ton code n'est pas en cause.

En effet, la valeur retourner par Asc(Mid(pPwd, I, 1)) est systématiquement 63!
J'ai l'impression que c'est la récupération de la donnée qui pose problème (pour rappel, le type du champ dans la base de données SQLServer où sont stockées les mots de passes est de type varbinary)

Voici mon bout de code en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim PwdDecode   MyRecordsetSQLServer.Open "MaProcStock", MyConnectionSQLServer If MyRecordsetSQLServer.EOF Then MsgBox "Aucune donnée disponible" Else Do While NOT MyRecordsetSQLServer.Eof PwdDecode= TransformerPwd(MyRecordsetSQLServer("UT_MDP1")) MsgBox PwdDecode   MyRecordsetSQLServer.MoveNext Loop End If

---

Encore merci à ceux qui pourront m'apporter de l'aide!

Ca y est, j'ai trouvé la solution à mon problème!
J'ai modifié la fonction pour travailler en binaire, ce qui donne ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function TransformerPwd(pPwd) Dim Lg, pCle, I, Result, Temp CleMagique = "$:;[9-*|#]=%/?." pCle = CleMagique Lg = LenB(pPwd) For I = 1 To Lg ': On Error Resume Next Temp = AscB(MidB(pPwd, I, 1)) XOR Asc(Mid(pCle, I, 1)) Result = Result & Chr(Temp) Next TransformerPwd = Result End Function

---

Un grand merci l_autodidacte pour ton aide! :D