[R] Decrypter un array

[lutin44]

Bonjour à tous,
jusqu'ici mes petits scripts fonctionnent très bien, mais là je pense que je vais avoir besoin de vos conseils une nouvelle fois.

Dans mon boulot ( je fais de la hotline interne ) je suis amené TRES régulièrement a réinitialiser des mot de passe, donc j'ai décidé de créer une appli de gestion de mdp.Jusqu'ici tout va bien,
mais là où ça se complique c'est que dans mon script l'utilsateur créé lui-même des nouveaux mot de passe qui sont cryptés et écris dans un fichier ini, et le probleme c'est qu'ensuite je les lit ( par IniReadSectionNames )les affichent dans un combobox, et là ça se corse car à l'affichage dans la combo les noms de sections apparaissent tels que dans le fichier ini c'est à dire encryptées et je n'arrive pas à les décryptées.

Donc ma question est la suivante est-il possible de décrypter un array avec toutes les données qu'il contient pou ensuite les afficher dans un combobox

Merci d'avance
de vos réponses

[ani]

bonjour lutin
quel fonction avez vous utilisé ?

dans le cas ou c'est _StringEncrypt(mode,texte,mot2passe,niveau)

mode = 1 pour crypté, pour décrypté indiqué 0

[lutin44]

Bonjour ani,
en fait a partir d'une GUI l'utilisateur saisit dans 3 GUICtrlCreateInput different :
1- nom d'appli
2- login
3- mot de passe

ensuite chacune leur tour les données sont encryptée avec _StringEncrypt pour formés une section dans le fichier ini sous ce format:

[nom d'appli]
login=mot de passe

ensuite plus il en rajoute plus il y en a bien sur.

Enfin moi apres dans mon script je lis avec IniReadSectionNames et le résultat est affiché dans un GUICtrlCreateCombo par GUICtrlSetData ce dernier ayant comme valeur le résultat du IniReadSectionNames mais toujours encrypté, donc ma question est de savoir si l'array issu du IniReadSectionNames peut etre décrypté pour ensuite etre affiche en clair dans le GUICtrlCreateCombo

J'espère m'être correctement expliqué.

[lutin44]

Bonjour,
Alors personne n'a d'idée, dois-je en déduire que c'est impossible à faire?

[Tlem]

On peut simplifier (Cela dépend comment vous devez utiliser les informations), mais cela vous donnera une idée :

#include<array.au3>

$Myfile = "C:\monFichier.ini"
$s_EncryptPassword = "Clé de cryptage"

$Array = IniReadSectionNames($Myfile)
Dim $Log_Pwd[$Array[0]]

For $i = 1 to $Array[0]
$Log_Pwd[$i] = $Array[$i] & "|" & _StringEncrypt(0, IniRead($Myfile, $Array[$i], "login", ""), $s_EncryptPassword)
Next

_ArrayDisplay($Log_Pwd, "Login et mot de passe")

[lutin44]

Bonjour Tlem,
Tout d'abord merci pour cette réponse rapide, j'ai tenté avec ce que vous m'aviez envoyé mais je suis confronté au message d'erreur :

test.au3 (109) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

voici mon script (allégé de certaines fonctions inutiles à ce stade)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <String.au3>
#include <Array.au3>

;on install le fichier ini
FileInstall("C:\TEMP\mdp.mdp",@MyDocumentsDir&"\mdp.mdp")
filemove(@MyDocumentsDir&"\mdp.mdp",@MyDocumentsDir&"\mdp.ini")

;on lit le mot de passe courant
$mdp2=IniRead(@MyDocumentsDir&"\mdp.ini","FBD739F4C925","FBD739F4C925","NotFound")
$mdp2decrypt=_StringEncrypt(0,$mdp2,"pswd");mot de passe d'origine mdp crypté = FBD739F4C925

If $mdp2decrypt="mdp" Then
    _guifirstlog()
ElseIf $mdp2decrypt<>"mdp" Then
    _guilog()
EndIf

;on reintialise le mot de passe a la premiere utilisation
Func _guifirstlog()
    $mdp2decrypt="mdp"
    MsgBox(48,"Première utilisation","Il s'agit de votre première utilisation vous devez personnaliser le mot de passe")
    $guinewmdp=GUICreate("Personnalisation du mot de passe",140,150)
    GUICtrlCreateLabel("Nouveau mot de passe",10,10,120,15)
    $newmdp1=GUICtrlCreateInput("password",10,30,120,20,$ES_PASSWORD)
    GUICtrlCreateLabel("Confirmation",10,60,120,15)
    $newmdp2=GUICtrlCreateInput("        ",10,80,120,20,$ES_PASSWORD)
    $buttonnewmdp=GUICtrlCreateButton("valider",10,110,55,-1,$BS_DEFPUSHBUTTON) ;bouton valid
    $buttonnewmdpannul=GUICtrlCreateButton("Annuler",75,110,55) ;bouton annul
    GUISetState()
    while 1
        $msgnewmdp=GUIGetMsg()
        Switch $msgnewmdp
        case $GUI_EVENT_CLOSE
            filemove(@MyDocumentsDir&"\mdp.ini",@MyDocumentsDir&"\mdp.mdp",1)
            FileDelete(@MyDocumentsDir&"\mdp.ini")
            Exit
        case $buttonnewmdp
            $newmdp1read=GUICtrlRead($newmdp1)
            $newmdp2read=GUICtrlRead($newmdp2)
            if $newmdp1read<>$newmdp2read then
                MsgBox(48,"ERREUR","Veuillez saisir deux mot de passe identiques")
            ElseIf $newmdp1read=$newmdp2read then
                $newmdpcrypt=_StringEncrypt(1,$newmdp1read,"pswd")
                IniWrite(@MyDocumentsDir&"\mdp.ini","FBD739F4C925","FBD739F4C925",$newmdpcrypt)
                guidelete($guinewmdp)
                filemove(@MyDocumentsDir&"\mdp.mdp",@MyDocumentsDir&"\mdp.ini")
                ExitLoop
            EndIf
        case $buttonnewmdpannul
            filemove(@MyDocumentsDir&"\mdp.ini",@MyDocumentsDir&"\mdp.mdp",1)
            FileDelete(@MyDocumentsDir&"\mdp.ini")
            Exit
        EndSwitch
    WEnd
EndFunc

;on se connecte
Func _guilog()
    $guimdplog=GUICreate("Connexion",160,95)
    GUICtrlCreateLabel("Saisissez votre mot de passe",10,10,150,15)
    $mdplog=GUICtrlCreateInput("mot de passe",10,30,140,20,$ES_PASSWORD)
    $buttonmdplog=GUICtrlCreateButton("valider",10,60,60,-1,$BS_DEFPUSHBUTTON ) ;bouton valid
    $buttonmdplogannul=GUICtrlCreateButton("Annuler",90,60,60) ;bouton annul
    GUISetState()
    while 1
        $msgmdplog=GUIGetMsg()
        Switch $msgmdplog
        case $GUI_EVENT_CLOSE
            filemove(@MyDocumentsDir&"\mdp.ini",@MyDocumentsDir&"\mdp.mdp",1)
            FileDelete(@MyDocumentsDir&"\mdp.ini")
            Exit
        case $buttonmdplog
            $mdplogread=GUICtrlRead($mdplog)
            $mdplogreadcrypt=_StringEncrypt(1,$mdplogread,"pswd")
            $mdpreadexist=IniRead(@MyDocumentsDir&"\mdp.ini","FBD739F4C925","FBD739F4C925","NotFound")
            if $mdplogreadcrypt<>$mdpreadexist then
                MsgBox(48,"ERREUR","Mot de passe erroné")
            ElseIf $mdplogreadcrypt=$mdpreadexist then
                guidelete($guimdplog)
                filemove(@MyDocumentsDir&"\mdp.mdp",@MyDocumentsDir&"\mdp.ini")
                ExitLoop
            EndIf
        case $buttonmdplogannul
            filemove(@MyDocumentsDir&"\mdp.ini",@MyDocumentsDir&"\mdp.mdp",1)
            FileDelete(@MyDocumentsDir&"\mdp.ini")
            Exit
        EndSwitch
    WEnd
EndFunc

;creation de la fenetre principale de l'appli   
$gui=GUICreate("Maux de passe",160,255)  ;creation de la  fenetre princiale
$listappli=GUICtrlCreateCombo ("Choix de compte",20,10,120)

;partie de lutin44--------------------------------------------------------------------------
;$list=IniReadSectionNames(@MyDocumentsDir&"\mdp.ini")
;If @error Then 
    ;MsgBox(4096,"Erreur","Fichier ini introuvable.")
;Else
    ;For $i = 1 To $list[0]
        ;GUICtrlSetData(-1,$list[$i])
   ;Next
;EndIf
;-----------------------------------------------------------------------------------------

; partie de Tlem---------------------------------------------------------------------------
$Array = IniReadSectionNames(@MyDocumentsDir&"\mdp.ini")
Dim $Log_Pwd[$Array[0]]

For $i = 1 to $Array[0]
$Log_Pwd[$i] = $Array[$i] & "|" & _StringEncrypt(0,IniReadSectionNames(@MyDocumentsDir&"\mdp.ini"),"pswd")
Next

_ArrayDisplay($Log_Pwd, "Login et mot de passe")
GUICtrlSetData(-1,$Log_Pwd)
;-----------------------------------------------------------------------------------------
$Button_1=GUICtrlCreateButton("Lire le compte",10,70,135)  ;creation du bouton de lecture
$Button_2=GUICtrlCreateButton("Ajouter un compte",10,100,135)  ;creation du bouton de nouveau mot de passe
$button_3=GUICtrlCreateButton("Modifier un compte",10,130,135) ;creation du bouton de modification de mot de passe
$button_4=GUICtrlCreateButton("Supprimer un compte",10,160,135) ;creation du bouton de suppression de mot de passe
$button_5=GUICtrlCreateButton("Modifier le mot de passe",10,220,135) ;creation du bouton de suppression de mot de passe
GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
        filemove(@MyDocumentsDir&"\mdp.ini",@MyDocumentsDir&"\mdp.mdp",1)
        FileDelete(@MyDocumentsDir&"\mdp.ini")
        ExitLoop
    Case $Button_1
        _gui1()
    case $Button_2
        _gui2()
    case $button_3
        _gui3()
    case $button_4
        _gui4()
    case $button_5
        _gui5()
    EndSwitch
Wend
;fin de la fenetre principale


;fonction lire de mot de passe
Func _gui1()
    While 1
        $appli=GUICtrlRead($listappli)
        $appliencrypt=_StringEncrypt(1,$appli,"pswd")
            $compte=IniReadSection(@MyDocumentsDir&"\mdp.ini",$appliencrypt)
            If @error Then 
                MsgBox(4096, "", "Error occurred, probably no INI file.")
            Else
                For $i = 1 To $compte[0][0]
                    $applilogindecrypt=_StringEncrypt(0,$compte[$i][0],"pswd")
                    $applimdpdecrypt=_StringEncrypt(0,$compte[$i][1],"pswd")
                    ClipPut($applimdpdecrypt)
                    MsgBox(64,"Lecture du compte","Application:"&$appli&@CRLF&"Login:"&$applilogindecrypt&@CRLF&"Mot de passe:"&$applimdpdecrypt)
                Next
            EndIf
            ExitLoop
    WEnd
EndFunc
    

;fonction creation de nouveau compte
Func _gui2()
    $gui2=GUICreate("Nouveau compte",145,155,-1,-1,-1,-1,$gui)
    $newcpt=GUICtrlCreateInput("Application",10,10,120)
    $newlogin=GUICtrlCreateInput("Login",10,40,120)
    $newmdp=GUICtrlCreateInput("Mot de passe",10,70,120)
    $buttonnewmdp=GUICtrlCreateButton("valider",10,100,55,-1,$BS_DEFPUSHBUTTON) ;creation du bouton de suppression de mot de passe
    $buttonnewmdpannul=GUICtrlCreateButton("annuler",75,100,55) ;creation du bouton de suppression de mot de passe
    GUISetState(@SW_SHOW)
    GUISwitch($gui2)
    While 1
        $msgcre=GUIGetMsg()
        Switch $msgcre
        case $GUI_EVENT_CLOSE
            GUIDelete($gui2)
            exitloop
        Case $buttonnewmdp
            $newcptread=GUICtrlRead($newcpt)
            $newloginread=GUICtrlRead($newlogin)
            $newmdpread=GUICtrlRead($newmdp)
            if $newloginread="Login"or 0 then MsgBox(0,"Nouveau compte","Veuillez saisir un compte")
            If $newloginread<>"Login"or 0 then
                $newcptreadencrypt=_StringEncrypt(1,$newcptread,"pswd")
                $newloginreadencrypt=_StringEncrypt(1,$newloginread,"pswd")
                $newmdpreadencrypt=_StringEncrypt(1,$newmdpread,"pswd")
                IniWrite(@MyDocumentsDir&"\mdp.ini",$newcptreadencrypt,$newloginreadencrypt,$newmdpreadencrypt)
                MsgBox(64,"Nouveau compte","Nouveau compte créé, relancez cette application pour prise en compte")
                GUIDelete($gui2)
                ExitLoop
            EndIf
        Case $buttonnewmdpannul
            GUIDelete($gui2)
            exitloop
        EndSwitch
    WEnd
EndFunc

On retrouve dans la partie creation de la fenetre principale de l'appli un bout de script de ma conception ,et l'adaptation du votre

et voici le contenu de mon fichier ini (crypté):

Code : Tout sélectionner

[b][FBD739F4C925]
FBD739F4C925=FBD739F4C925

[F288DDB9712321A721426B482C47D885227E446DBCE603842417CDA6F99CFDB775D1EB5E0B4D816A3C70682BE530B6E7]
F9A63984C857D99B4156D759=F288DDB9712321A521426B482C46D885227E446DBCE604FD2417CDA5F9E083B675D1EB5D0B4D816A3C70682BE530B6E0
[F9A038F0C925DA974020D75F9C673D63B865FB770272]
FBD73984C852DA974026D75B9C143A12=FCA339F1C926D99C4026D65E9C60
[/b]

Et là franchement je séche, la syntaxe me semble bonne portant

[Tlem]

D'après les nouveaux éléments que vous donnez, cela devrait donner ceci :

Code : Tout sélectionner

#include<array.au3>
#Include <String.au3>

$Myfile = "Fic.ini"
$s_EncryptPassword = "Clé de cryptage"

$Array = IniReadSectionNames($Myfile)
Dim $Log_Pwd[$Array[0]+1]

For $i = 1 to UBound($Array)-1
    $aParam = IniReadSection ( $Myfile, $Array[$i] )
    $DecryptedLogin = _StringEncrypt(0, $aParam[1][0], $s_EncryptPassword)
    $DecryptedPaswd = _StringEncrypt(0, $aParam[1][1], $s_EncryptPassword)
    $Log_Pwd[$i] = $DecryptedLogin & "#" & $DecryptedPaswd
Next

_ArrayDisplay($Log_Pwd, "Login et mot de passe")

[lutin44]

Tlem,
encore une fois vous m'avez été d'un grand secours, j'ai adapté un peu à mon besoin votre example et ca marche super bien

Merci et a une prochaine.

Fred