Page 1 sur 1
[..] Input & Unicode
Posté : mar. 23 févr. 2010 09:42
par 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.
Re: [..] Input & Unicode
Posté : mer. 24 févr. 2010 06:39
par 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 ?
Re: [..] Input & Unicode
Posté : mer. 24 févr. 2010 08:48
par 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.
Re: [..] Input & Unicode
Posté : mer. 24 févr. 2010 09:25
par 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