[..] Traitement de texte et changement de zone d'édition

[BeCool]

Bonjour a tous.

Cela fait un moment que je ne suis plus dans le coin, et donc, ca fait un moment que je n'ai pas codé .. Donc je me rappel plus de grand choses...

J'aurais voulu savoir si quelqu'un pouvait m'indiquer comment faire pour faire en sorte que quand j'appuie sur un bouton, ca me transmette le texte qu'il y a d'écrit dans la zone de texte "edit1", vers la seconde zone d'édition "edit2", sachant qu'au passage, il faut que j'applique une modification a ce texte. (le crypter avec une fonction de cryptage que je suis en train de faire)

Merci d'avance et bon appétit a tous !

[Tlem]

- Une GUI.
- Deux input.
- Un GUIRegisterMsg sur l'input 1 pour surveiller la saisie.
- Une fonction de cryptage (déclenchée par le GUIRegisterMsg) qui lit input 1 puis écrit le résultat crypté dans l'input 2.

Pour la partie GUIRegisterMsg et la surveillance d'un input, j'ai donné un code tout près il y a quelques temps sur le forum. Je ne doute pas que vous le retrouverez rapidement.

[BeCool]

Merci beaucoup.
Je vais regarder tout cela et je vous tiens au courant

Edit : c'est pas avec des input, mais avec des "GUICtrlCreateEdit", ca marche aussi non ?
Edit 2 : Je n'arrive même plus a retrouver la fonction qui permet de copier le texte d'une zone de texte vers une autre zone de texte ...

[zeshrek]

Charge a toi de mettre une 'vraie' fonction de cryptage a la place du truc tout bidon que j'y ai colé.

Juste un détail, là, je recrypte la totalité de ce qui est dans la zone d'input, donc ca suppose un texte d'entrée pas trop long. Sinon, il faut procéder prenant juste le dernier caractère et non pas la chaine entière...

► Afficher le texte

Code : Tout sélectionner

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

$MsgCrypte = ""

$Form1 = GUICreate("Form1", 633, 454, 192, 114)
$Label1 = GUICtrlCreateLabel("Zone d'input", 16, 16, 63, 17)
$Edit1 = GUICtrlCreateEdit("", 8, 40, 241, 401)
GUICtrlSetData(-1, "Edit1")
$Label2 = GUICtrlCreateLabel("Zone d'output", 376, 16, 70, 17)
$Edit2 = GUICtrlCreateEdit("", 368, 40, 241, 401,$Edit2 = GUICtrlCreateEdit("", 368, 40, 241, 401, BitOR($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_MULTILINE))
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If StringLen(GUICtrlRead($Edit2)) <> StringLen(GUICtrlRead($Edit1)) Then
        GUICtrlSetData($Edit2,_crypte(GUICtrlRead($Edit1)))
    EndIf
WEnd

Func _crypte($clair)
    Local $crypt = ""
    For $i = 1 To StringLen($clair)
        $crypt = $crypt & Chr(255 - Asc(StringMid($clair, $i, 1)))
    Next
    Return $crypt
EndFunc   ;==>_crypte 

Bref tu coles ce que tu veux dans l'input, ca atterit dans l'output.
Du copie le contenu de l'output, tu lemets dans l'input, et oh miracle, ca décode !
C'est beau la vie !

[BeCool]

Merci beaucoup
C'est exactement ca que je voulais faire en plus.. En changeant bien sur la méthode de cryptage !

Bon aller, c'est pas tout, mais faut que je m'y remette moi ... Ca fait trop longtemps que j'ai pas touché a Autoit.. J'y comprend plus rien

[zeshrek]

J'ai fait 2-3 edits juste apres l'avoir posé, donc je sais pas lequel tu avais pris...

Bon, sinon, je viens de tester, sur une machine moyenne, jusque vers 15-20.000 caracteres c'est quasi instantanné quand tu tapes. Bien sur, si ton alogo de cryptage met des heures, ca va singulièrement ralentire les choses. par rapport a mon pauvre bidule qui se contente de faire un décalage ascii...

[BeCool]

J'ai pris la première version. C'est pas grave, je vais la mettre a jour.
Merci beaucoup en tout cas.

[BeCool]

En fait mon plus gros problème (et ca, j'ai a mes souvenirs jamais su le faire), c'est de faire en sorte que dès que le programme voit un "e", il le remplace par un "x" par exemple. "x" étant une constante définie auparavant tel que :

Code : Tout sélectionner

Const $0 = 01, $z = 02, $y = 03, $9 = 04, $x = 05, $w = 06, $v = 07, $8 = 08, $u = 09, $t = 10, $s = 11, $7 = 12, $r = 13, $q = 14, $p = 15, $6 = 16, $o = 17, $n = 18, $m = 19, $5 = 20, $l = 21, $k = 22, $j = 23, $4 = 24, $i = 25, $h = 26, $g = 27, $3 = 28, $f = 29, $e = 30, $d = 31, $2 = 32, $c = 33, $b = 34, $a = 35, $1 = 36

(dites moi si je fais mauvaise route dès le début, parce que j'ai l'impression de pas avancer :s)

[zeshrek]

Si tu dois remplacer un caractere par un autre qui est toujours le même, passe par un tableau. Un truc du genre
$tableau[0] à $tableau[255] contenant le code ascii de la valeur 'cryptée'
comme ca tu as

$CaractereCrypté = Chr($tableau[Asc($CaractereClair)])

Mais bon, ce genre de cryptage ne tient pas plus de qq minutes face a une analyse de fréquence des lettres... (on a eu une discussion sur la cryptographie y a pas longtemps, cherche sur le forum)

[BeCool]

Oui oui je sais, mais ce que j'ai donné n'est que le début de mon cryptage. Je voulais juste avoir la réponse de la dernière question pour continuer le cryptage.

[BeCool]

Toujours pas de solution ?
J'me suis pris la tête dessus 3h dans le train hier a essayer plein de trucs différent, mais rien n'y fait...
J'me suis surtout rendu compte que je n'utilisais pas la bonne méthode... Donc zeshrek, si tu passes dans le coin, je veux bien que tu m'explique un peu, ou que tu me file un lien si tu as, comment faire et utiliser un tableau

[jchd]

Un tableau ? Voir l'aide ou ci-dessous.
Une permutation aléatoire d'ycelui ?

► Afficher le texte

#Include <Array.au3>

SRandom(@AutoItPID)

; Une table des 256 caractères ANSI
Local Const $limit = 256
Dim $Data[$limit]
For $i = 0 To $limit - 1
$Data[$i] = Chr($i)
Next
_ArrayDisplay($Data)

; on en fait une permutation aléatoire
For $i = UBound($Data) - 1 To 1 Step -1
$j = Random(0, $i, 1)
$Temp = $Data[$j]
$Data[$j] = $Data[$i]
$Data[$i] = $Temp
Next
_ArrayDisplay($Data)

Ne pas imaginer "inventer" un chiffrement valable par ses propres moyens, sans avoir passé un minimum de 15 ans à [tenter de] casser les algorithmes valables reconnus. Fort bagage mathématique impératif !

[zeshrek]

Tiens, un petit script de chiffrement par masque jettable.
Si ta clé répond a 3 conditions :
- composition aléatoire
- longueur de la clé identique a la longueur du texte a chiffrer
- la clé n'est utilisée qu'une seule fois (principe du masque jettable)
alors cette méthode de chiffrement est incassable (ca a été démontré mathématiquement, tout texte faisant la longueur du cryptogramme peut etre la source). Ca permet d'aviter l'écueil des maths qu'évoque l'ami jchd ci dessus

Le hic est donc d'arriver a générer les clés, et comme le cryptage est symétrique (la même clé sert a chiffrer et déchiffrer) les transmettre de facon sure au destinataire du cryptogramme.

► 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