[..] Input & Unicode

[Davyly]

Bonjour,

Je suis confronté à un souci et j'ai beau chercher, je ne trouve pas de solution ...

Mon souci est la saisie dans un InputBox d'un mot de passe comportant un caractère unicode. Comment faire pour stocker et ensuite vérifier un mot de passe "unicodé"

Exemple : Pa$$w0rd-♫
Ce caractère unicode s'obtient à travers un ALT 14 et n'est pas forcement en fin de chaine.

Avez-vous une solution ou piste à me communiquer

Merci d'avance et bonne journée.

[SagePourpre]

J'suis pas sur de comprendre... tu veux stocker un mot de passe ?

Code : Tout sélectionner

$blu = InputBox("test","Entrez mot de passe","")
MsgBox(0,"","Votre mot de passe a bien été stocké dans la variable $blu ( " & $blu & " )")

Ou ton problème est plus complexe que ça ?

[Davyly]

Bonjour,

Je viens d'essayer et cela ne fonctionne pas :


Par conséquent, ma condition de vérification n'est jamais vérifiée ...
Exemple :

Code : Tout sélectionner

$Pass = InputBox("Password", "Votre mot de passe : ", "", "*")
If $Pass = "Pa$$w0rd-" & ChrW(9835) Then
    MsgBox(0, "Password", "Mot de passe correct.")
Else
    MsgBox(16, "Password", "Mot de passe incorrect.")
EndIf
Exit
 

Dans le doute, sinon tu ne m'aurais pas répondu et vu ton niveau, j'ai essayé sur un poste sous Windows 7 (certainement que sous Windows Vista aussi) et effectivement, cela fonctionne.

Malheureusement, le code fonctionnera à 90% sur la même platerforme que moi, c'est à dire sous Windows XP SP3 ... d'où mon souci et mon intervention

Une petite solution, une ou piste à me donner

En tout cas merci d'avance.
Bonne journée.

[SagePourpre]

Regarde du côté des fonctions AscW et ChrW.


Voici un exemple simple :
Le mot de passe est : password♫

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
Opt("GuiOnEventMode",1)
$gui=GUICreate("Character codes",200,60)
GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
Global $input=GUICtrlCreateInput("",0,0,200,20)
$button = GUICtrlCreateButton("Confirmer",10,30,60,30)
GUICtrlSetOnEvent(-1,"Convertir")

GUISetState()

While 1
    Sleep(100)
WEnd

Func Convertir()
$read = GUICtrlRead($input)
$output = ""
For $i = 1 To StringLen($read)
    $char = StringMid($read,$i,1)
$output&= AscW($char)
    Next
Switch $output
    Case $output = "112971151151191111141009835" ; password♫ en unicode.
        MsgBox(0,"Mot de passe valide !","Bravo !")
    Case Else
        MsgBox(0,"Mot de passe entré","Le mot de passe est erroné" & @CRLF & _
        "Mot de passe entré : " & $read & @CRLF & _
        "Valeur unicode : " & $output)
EndSwitch

EndFunc


Func quit()
    Exit
EndFunc