AutoIt Français

Code : Tout sélectionner

_Mercury_Crypt($_Char,$mute)

Code : Tout sélectionner

_Mercury_Decrypt($_Char)

Code : Tout sélectionner

#include <String.au3>;J'inclus la bibliothèque String
#include <Array.au3>;J'inclus la bibliothèque Array

Func _Mercury_Decrypt($_char)
    Local $decrypt;Définition de la variable decrypte
    $_array = _StringExplode($_char,":", 0);Définie la variable _array par la fonction _StringExplode 
    $mute = $_array[UBound($_array) -1] + $_array[0];Définie la variable mute par la variable _array[Ubund(_array)] plus _array[0]
    For $i = 1 To UBound($_array) - 2 Step 1;Boucle qui comme à 1 et ce fini à ubund(_array) avec un step de 1
        $decrypt &= _Decalcule_Char($_array[$i],$mute);Définie la variable decrypt par la fonction _Decalcue_Char
    Next
    Return $decrypt;Renvoie le texte décrypté
EndFunc

Func _Decalcule_Char($chars,$mute)
    $mult_chars = $chars / $mute;Définie la variable mult_chars par chars divisé par mute
    $result = Chr($mult_chars);Définie la variable result par mult_chars correspondant à un code d'ASCII qui définie un caractère
    Return $result;Retourne le caractère
EndFunc

Func _Mercury_Crypt($_char,$mute)
    Local $chaine;Définition de la variable chaine
    FileDelete(@TempDir&"\"&"crypt.tmp");Supprime l'ancien fichier crypt.tmp
    $file = FileOpen(@TempDir&"\"&"crypt.tmp", 1);Créer un nouveau fichier crypt.tmp qui est localisé dans TEMP
    If @error Then Exit;Si il y a une erreur, il se coupe
    FileWrite($file,$_char);Ecrit le texte
    FileClose($file);Ferme le handle
    $file = FileOpen(@TempDir&"\"&"crypt.tmp", 0);Réouvre le fichier avec le MODE 0 pour le lire
    If @error Then Exit;Si il y a une erreur, il se coupe
    $rand = StringLen($_char);La variable rand calcule le nombre de caractère qu'il y a dans le texte
    $cal_mute = $mute / 2;La variable cal_mute est égale à la moitié de la variable mute
    $chaine &= Number($cal_mute - $rand) &":";Premier configuration du cryptage, la variable cal_mute - rand et ajoute ':' 
    While 1;Boucle
        $chars = FileRead($file, 1);Définie la variiable chars par les caractères pris 1 par 1 du texte dans le fichier crypt.tmp
        If @error = -1 Then ExitLoop;Quand il n'y a plus de caractère à traîté, fin de boucle
        $chaine &= _Calcule_Char($chars,$mute);Traîte le caractère 1 par 1
    Wend
    $chaine &= $cal_mute + $rand;Ajoute à la variable chaine la variable cal_mute + rand
    FileClose($file);Ferme le handle du fichier
    FileDelete(@TempDir&"\"&"crypt.tmp");Supprime le fichier crypt.tmp
    Return $chaine;Retourne la chaîne du texte sous la forme crypté
EndFunc

Func _Calcule_Char($chars,$mute)
    $mult_chars = Asc($chars) * $mute;Définie la variable mult_chars par la variable chars sous ASCII multiplié par mute
    $mult_chars &= ":";Ajout de ':' 
    Return $mult_chars;Retourne chars traîté
EndFunc

Code : Tout sélectionner

Dim $Message="48746880:68381040:73120320:73120320:75151440:21665280:58902480:75151440:77182560:67704000"
$tab=StringSplit($Message,":")
If Not IsArray($tab) Then Exit 1
$current_pgcd=$tab[1]
For $ind = 1 to $tab[0]-1
    $candidat=pgcd($tab[$ind],$tab[$ind+1])
    If $candidat<$current_pgcd Then $current_pgcd=$candidat
Next
ConsoleWrite($current_pgcd&@CRLF)
If $current_pgcd=0 Then Exit 2
$decoded=""
For $ind = 1 to $tab[0]
    $decoded&=chr($tab[$ind]/$current_pgcd)
Next


ConsoleWrite($decoded)


Func pgcd($a,$b)
    Local $reste
    If $b > $a Then Return pgcd($b,$a)
    If $b = 0 And $a = 0 Then
        SetError(1)
        Return 0
    EndIf
    SetError(0)
    If $b = 0 Then Return $a
    $reste=Mod($a,$b)
    If $reste = 0 Then Return $b
    Return pgcd($b,$reste)
EndFunc