[R] Rajouter un indicateur de longueur de saisie

[DimVar]

Bonjour,

Suite au code proposé par le vilain monsieur vert , j'aimerais intégrer un compteur de caractères qui préciserai le nombre de caractères restant à saisir pour la longueur de la clef. (affichage en temps reel si possible)

D'avance merci.

PS : Ce n'est l'algo de calcul qui me fait peur mais plutot l'integration dans la GUI.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $Matrice[256][256]

$StringMatrice = ""
For $i = 0 To 255
    $StringMatrice = $StringMatrice & Chr($i)
Next
For $i = 0 To 255
    For $j = 0 To 255
        $Matrice[$i][$j] = StringMid($StringMatrice, $j , 1)
    Next
    $StringMatrice = StringRight($StringMatrice, 1) & StringTrimRight($StringMatrice, 1)
Next

$Form1 = GUICreate("Form1", 562, 413, 192, 114)
$Label1 = GUICtrlCreateLabel("Cle", 16, 8, 19, 17)
$Input1 = GUICtrlCreateInput("", 16, 32, 529, 21)

$Label2 = GUICtrlCreateLabel("Source", 16, 64, 38, 17)
$Edit1 = GUICtrlCreateEdit("", 16, 88, 529, 113)

$Button1 = GUICtrlCreateButton("traiter", 32, 216, 75, 25, $WS_GROUP)

$Label3 = GUICtrlCreateLabel("Destination", 16, 256, 57, 17)
$Edit2 = GUICtrlCreateEdit("", 16, 280, 529, 113)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _chiffre(GUICtrlRead($Edit1), GUICtrlRead($Input1))
    EndSwitch
WEnd

Func _chiffre($Txt_Source, $Cle)
    While StringLen($Cle) < StringLen($Txt_Source)
        $Cle = $Cle & $Cle
    WEnd

    $Txt_Traite = ""
    For $i = 1 To StringLen($Txt_Source)
        $Txt_Traite = $Txt_Traite & $Matrice[Asc(StringMid($Txt_Source, $i, 1))][Asc(StringMid($Cle, $i, 1))]
    Next

    GUICtrlSetData($Edit2, $Txt_Traite)
EndFunc   ;==>_chiffre

[Ahbadiane]

Bonjour,
Un truc, un peu bourrin, comme cela (voir les lignes avec un commentaire ;=<<<<<<<<<<<<)
(Je ne connais pas la longueur de la clé, j'ai pris 13 comme exemple)

► Afficher le texte

Code : Tout sélectionner

$Label1Bis = GUICtrlCreateLabel("", 45, 8, 200, 17) ;=<<<<<<<<<<<<
$iLongCle = 13 ;=<<<<<<<<<<<<
$iNB = -1 ;=<<<<<<<<<<<<
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _chiffre(GUICtrlRead($Edit1), GUICtrlRead($Input1))
    EndSwitch
    Sleep(10)  ;=<<<<<<<<<<<<
    If $iNB <> StringLen(GUICtrlRead($Input1)) Then ;=<<<<<<<<<<<<
        $iNB = StringLen(GUICtrlRead($Input1)) ;=<<<<<<<<<<<<
        Switch $iNB ;=<<<<<<<<<<<<
            Case 0 To $iLongCle -1 ;=<<<<<<<<<<<<
                GUICtrlSetData($Label1Bis, "Saisir encore " & $iLongCle - $iNB & " caractères") ;=<<<<<<<<<<<<
            Case $iLongCle ;=<<<<<<<<<<<<
                GUICtrlSetData($Label1Bis, "La longueur de la clé est OK") ;=<<<<<<<<<<<<
            Case Else ;=<<<<<<<<<<<<
                GUICtrlSetData($Label1Bis, "Vous avez saisi " & $iNB - $iLongCle & " caractères en trop") ;=<<<<<<<<<<<<
        EndSwitch ;=<<<<<<<<<<<<
    EndIf  ;=<<<<<<<<<<<<
WEnd

[DimVar]

Merci Ahbadiane.

Sur le principe c'est ok sauf que :

La longueur de la clef doit etre egale à la longueur du texte saisi

[Ahbadiane]

Il faut donc rendre $iLongCle dynamique

► Afficher le texte

Code : Tout sélectionner

$Label1Bis = GUICtrlCreateLabel("", 45, 8, 200, 17) ;=<<<<<<<<<<<<
$iNB = -1 ;=<<<<<<<<<<<<
$iLongCle = 0 ;=<<<<<<<<<<<<
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _chiffre(GUICtrlRead($Edit1), GUICtrlRead($Input1))
    EndSwitch
    Sleep(10)  ;=<<<<<<<<<<<<
    If ($iLongCle <> StringLen(GUICtrlRead($Edit1))) Or ($iNB <> StringLen(GUICtrlRead($Input1))) Then ;=<<<<<<<<<<<<
        $iLongCle = StringLen(GUICtrlRead($Edit1)) ;=<<<<<<<<<<<<
        $iNB = StringLen(GUICtrlRead($Input1)) ;=<<<<<<<<<<<<
        If $iLongCle > 0 Then ;=<<<<<<<<<<<<
            Switch $iNB ;=<<<<<<<<<<<<
                Case 0 To $iLongCle -1 ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "Saisir encore " & $iLongCle - $iNB & " caractères") ;=<<<<<<<<<<<<
                Case $iLongCle ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "La longueur de la clé est OK") ;=<<<<<<<<<<<<
                Case Else ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "Vous avez saisi " & $iNB - $iLongCle & " caractères en trop") ;=<<<<<<<<<<<<
            EndSwitch ;=<<<<<<<<<<<<
        EndIf
    EndIf  ;=<<<<<<<<<<<<
WEnd

[Tlem]

@Ahbadiane
La coloration syntaxique du code est réservée aux forums :

• - Exemples de script
  - Fonctions et UDF
  - Tutoriels

Merci de ré-éditer vos messages.

@DimVar
Je suppose que vous voulez que le nombre de caractères restant soit mis à jour en cour de saisie ...
Pour cela je vous conseil l'utilisation de http://www.autoitscript.fr/forum/search.php avec les termes LoopBack et éventuellement longueur ou caractère ou input ...
Cela à déjà été vu.

[lesolutionneur]

La coloration syntaxique du code est réservée

Et pourquoi, je vous pris ?

[DimVar]

@Ahbadiane : Merci je teste ca demain.
@Tlem : Les termes me renvoient sur des notions reseaux...
@lesolutionneur : Je pense que la taille de la base est impactée par les balises. (a tort ?)

[Tlem]

Autant pour moi, je voulais dire CallBack au lieu de LoopBack !!!
C'est la fatigue.

Voici le lien direct de ce que je voulais vous faire trouver : http://www.autoitscript.fr/forum/viewto ... 950#p37950

[matwachich]

http://www.autoitscript.com/forum/topic ... eregister/

[Tlem]

Ah, effectivement je ne la connaissais pas celle-là. Au moins, elle à l'avantage d'être toute faite.

[DimVar]

Merci à tous.
Il reste juste à regler un soucis, quand je crypte puis decrypte, ca part en sucette :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $Matrice[256][256]

$StringMatrice = ""
For $i = 0 To 255
    $StringMatrice = $StringMatrice & Chr($i)
Next
For $i = 0 To 255
    For $j = 0 To 255
        $Matrice[$i][$j] = StringMid($StringMatrice, $j , 1)
    Next
    $StringMatrice = StringRight($StringMatrice, 1) & StringTrimRight($StringMatrice, 1)
Next

$Form1 = GUICreate("Form1", 562, 413, 192, 114)
$Label1 = GUICtrlCreateLabel("Cle", 16, 8, 19, 17)
$Input1 = GUICtrlCreateInput("", 16, 32, 529, 21)

$Label2 = GUICtrlCreateLabel("Source", 16, 64, 38, 17)
$Edit1 = GUICtrlCreateEdit("", 16, 88, 529, 113)

$Button1 = GUICtrlCreateButton("traiter", 32, 216, 75, 25, $WS_GROUP)

$Label3 = GUICtrlCreateLabel("Destination", 16, 256, 57, 17)
$Edit2 = GUICtrlCreateEdit("", 16, 280, 529, 113)

GUISetState(@SW_SHOW)

$Label1Bis = GUICtrlCreateLabel("", 45, 8, 200, 17) ;=<<<<<<<<<<<<
$iNB = -1 ;=<<<<<<<<<<<<
$iLongCle = 0 ;=<<<<<<<<<<<<
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _chiffre(GUICtrlRead($Edit1), GUICtrlRead($Input1))
    EndSwitch
    Sleep(10)  ;=<<<<<<<<<<<<
    If ($iLongCle <> StringLen(GUICtrlRead($Edit1))) Or ($iNB <> StringLen(GUICtrlRead($Input1))) Then ;=<<<<<<<<<<<<
        $iLongCle = StringLen(GUICtrlRead($Edit1)) ;=<<<<<<<<<<<<
        $iNB = StringLen(GUICtrlRead($Input1)) ;=<<<<<<<<<<<<
        If $iLongCle > 0 Then ;=<<<<<<<<<<<<
            Switch $iNB ;=<<<<<<<<<<<<
                Case 0 To $iLongCle -1 ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "Saisir encore " & $iLongCle - $iNB & " caractères") ;=<<<<<<<<<<<<
                Case $iLongCle ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "La longueur de la clé est OK") ;=<<<<<<<<<<<<
                Case Else ;=<<<<<<<<<<<<
                    GUICtrlSetData($Label1Bis, "Vous avez saisi " & $iNB - $iLongCle & " caractères en trop") ;=<<<<<<<<<<<<
            EndSwitch ;=<<<<<<<<<<<<
        EndIf
    EndIf  ;=<<<<<<<<<<<<
WEnd




Func _chiffre($Txt_Source, $Cle)
    While StringLen($Cle) < StringLen($Txt_Source)
        $Cle = $Cle & $Cle
    WEnd

    $Txt_Traite = ""
    For $i = 1 To StringLen($Txt_Source)
        $Txt_Traite = $Txt_Traite & $Matrice[Asc(StringMid($Txt_Source, $i, 1))][Asc(StringMid($Cle, $i, 1))]
    Next

    GUICtrlSetData($Edit2, $Txt_Traite)
EndFunc   ;==>_chiffre

[Tlem]

Utilisez la fonction que matwachich vous a indiqué et les choses serons plus simples !

[Ahbadiane]

@DimVar,
qu'est-ce qui part en sucette ?
Je ne vois aucune différence de cryptage entre ta première version et la dernière