algorithme de décryptage

Version imprimable

Salut à tous, voila je travaille dans une société qui utilise un programme écrit en vb6 pour décrypter des information, est ce que quelqu'un peut me dire le type d'algorithme utilisé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
 
'CIPHER.CLS
Option Explicit
 
Private msKeyString As String
Private msText As String
 
'~~~.KeyString
'Une chaîne (clé) utilisée dans l'encryptage et le décryptage
Public Property Let KeyString(sKeyString As String)
    msKeyString = sKeyString
    'Initialize
End Property
 
'~~~.Text
'Ecrit le texte à encrypter ou décrypter
Public Property Let Text(sText As String)
    msText = sText
End Property
 
'Lit le texte qui a été encrypté ou décrypté
Public Property Get Text() As String
    Text = msText
End Property
 
'~~~.DoXor
'Méthode d'encryptage ou de décryptage par ou exclusif
Public Sub DoXor()
    Dim nC As Integer
    Dim nB As Integer
    Dim lI As Long
    lI = 1
    For lI = 1 To Len(msText)
        nC = Asc(Mid(msText, lI, 1))
        nB = Int(Rnd * 256)
        Mid(msText, lI, 1) = Chr(nC Xor nB)
    Next lI
    'MsgBox msText
End Sub
 
'~~~.Stretch (extension)
'Conversion de n'importe quelle chaîne en chaîne imprimable
'et visualisable
Public Sub Stretch()
    Dim nC As Integer
    Dim lI As Long
    Dim lJ As Long
    Dim nK As Integer
    Dim lA As Long
    Dim sB As String
    lA = Len(msText)
    sB = Space(lA + (lA + 2) \ 3)
    For lI = 1 To lA
        nC = Asc(Mid(msText, lI, 1))
        lJ = lJ + 1
        Mid(sB, lJ, 1) = Chr((nC And 63) + 59)
        Select Case lI Mod 3
        Case 1
            nK = nK Or ((nC \ 64) * 16)
        Case 2
            nK = nK Or ((nC \ 64) * 4)
        Case 0
            nK = nK Or (nC \ 64)
            lJ = lJ + 1
            Mid(sB, lJ, 1) = Chr(nK + 59)
            nK = 0
        End Select
    Next lI
    If lA Mod 3 Then
        lJ = lJ + 1
        Mid(sB, lJ, 1) = Chr(nK + 59)
    End If
    msText = sB
    'MsgBox msText
End Sub
 
'~~~.Shrink (Compression)
'Inverse de la méthode Décompactage (Stretch);
'le résultat peut contenir n'importe quelle valeur d'octet (0-255)
Public Sub Shrink()
    Dim nC As Integer
    Dim nD As Integer
    Dim nE As Integer
    Dim lA As Long
    Dim lB As Long
    Dim lI As Long
    Dim lJ As Long
    Dim lK As Long
    Dim sB As String
 
On Error GoTo Errora
 
    lA = Len(msText)
    lB = lA - 1 - (lA - 1) \ 4
    sB = Space(lB)
    For lI = 1 To lB
        lJ = lJ + 1
        nC = Asc(Mid(msText, lJ, 1)) - 59
        Select Case lI Mod 3
        Case 1
            lK = lK + 4
            If lK > lA Then lK = lA
            nE = Asc(Mid(msText, lK, 1)) - 59
            nD = ((nE \ 16) And 3) * 64
        Case 2
            nD = ((nE \ 4) And 3) * 64
        Case 0
            nD = (nE And 3) * 64
            lJ = lJ + 1
        End Select
        Mid(sB, lI, 1) = Chr(nC Or nD)
    Next lI
    msText = sB
    'MsgBox sB
    Exit Sub
Errora:
    'msText = ""
End Sub
 
'Initialise les nombres aléatoires en utilisant la chaîne clé
Private Sub Initialize()
    Dim nI As Double
    Randomize Rnd(-1)
    For nI = 1 To Len(msKeyString)
        Randomize Rnd(-Rnd * Asc(Mid(msKeyString, nI, 1)))
    Next nI
End Sub

Bonjour, ledaker,

cela ressemble fort à une recherche par tâtonnements aléatoires.
Ce n'est pas vraiment un algorithme.

Edit :

Mais allons plutôt droit au but :
Tu cherches à savoir commenty écrire en c# la procédure DoXor, hein ?
Ici, on écrit en VB6, mais on peut te la traduire en "français" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Sub DoXor() Dim nC As Integer ' typage de la variable nC (en Integer) Dim nB As Integer ' typage de la variable nB (en Integer) Dim lI As Long ' typage de la variable lI (en Long) lI = 1 ' on initialise à 1 la valeur de lI (on se demande bien pourquoi, compte tenu de la suite !) For lI = 1 To Len(msText) ' boucle For (de 1 = la longueur de la chaîne traitée) nC = Asc(Mid(msText, lI, 1)) ' valeur ascii du caractère de rang lI nB = Int(Rnd * 256) ' nombre aléatoire entre 0 et 256 Mid(msText, lI, 1) = Chr(nC Xor nB) ' on remplace le caratère de rang lI par une comparaison bit à bit entre nC et nB selon la méthode que tu verras ci-dessous Next lI ' fin de la boucle for 'MsgBox msText End Sub
*** Voilà le mécanisme d'une comlparaison bit à bvit de Xor :

Citation:

If expression1 is And expression2 is Then result is
True True False
True False True
False True True
False False False
The Xor operator performs as both a logical and bitwise operator. A bit-wise comparison of two expressions using exclusive-or logic to form the result, as shown in the following table:

If bit in expression1 is And bit in expression2 is Then result is
0 0 0
0 1 1
1 0 1
1 1 0

Voilà ...;)

Salut j'ai pas bien compris ces deux fonction est ce qu'il y a une relation entre eux à cause du Rnd car mes connaissances en vb sont limitées

Code:

1
2
3
4
5
6
7
8
 
Private Sub Initialize()
    Dim nI As Double
    Randomize Rnd(-1)
    For nI = 1 To Len(msKeyString)
        Randomize Rnd(-Rnd * Asc(Mid(msKeyString, nI, 1)))
    Next nI
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub DoXor()
    Dim nC As Integer
    Dim nB As Integer
    Dim lI As Long
    lI = 1
    For lI = 1 To Len(msText)
        nC = Asc(Mid(msText, lI, 1))
        nB = Int(Rnd * 256)
        Mid(msText, lI, 1) = Chr(nC Xor nB)
    Next lI
    'MsgBox msText
End Sub

17/02/2009, 21h34
ucfoutu

Ouias (-je le savais ...) ...
Lis mon Edit...:lol:
17/02/2009, 22h26
adeldev

Merci de ta réponse :) en effet je programme en c# (code g***),jai oublié de préciser que les appelles se font de la manière suivante :
Initialize
Shrink
DoXor
D'après mes testes il y une relation entre Initialize et DoXor à cause du Rnd à mon avis, et cette relation est ambigue pour moi
17/02/2009, 22h35
ucfoutu

Bon...

Non : l'évènement initialize n'appelle aucune autre procédure ... Il ne fait que préparer un tirage aléatoire (on voit mal la nécessité de le faire de cette manière particulière ... probablement pour un mode aléatoire un peu mieux aléatoire, c'est tout !)

Le développeur aurait utilisé

Code:

Randomize Timer

que le résultat n'aurait pas été vraiment différent (juste, peut-être, un alea moins affiné et plus répétitif, c'est tout).
17/02/2009, 22h44
adeldev

C'est ce que je me suis dit la première fois, mais en supprimant l'appelle de Initialize j'obtiens un résultat erroné 8O !, et le seul lien entre Initialize et DoXor c'est la fonction Rnd
17/02/2009, 22h49
ucfoutu

Rien à voir !
Si tu supprimes le code de l'évènement initialize, tu auras tout simplement un fort mauvais aléa dans les tirages qui suivront, rien de plus ....
Si tu y mets Randomize Timer, tu auras un résultat à peu près identique.
Une autre fois : ce n'est pas là un vrai algorithme mais une recherche par tâtonnements successifs.
Il est clair que la succession des tâtonnements va dépendre de la qualité du tirage aléatoire, mais ce sera là la seule différence (si l'alea est de mauvaise qualité, tu retrouveras souvent ce que tu avais déjà tiré .... voilà tout )
17/02/2009, 22h51
adeldev

Merci bien de ton aide et @+
17/02/2009, 22h51
SfJ5Rpw8

Citation:

Envoyé par ucfoutu

....
Le développeur aurait utilisé

Code:

Randomize Timer

que le résultat n'aurait pas été vraiment différent (juste, peut-être, un alea moins affiné et plus répétitif, c'est tout).

:nono:

un petit coup d'oeil dans l'aide en ligne ;)

Citation:

Note Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un argument négatif juste avant d'utiliser Randomize avec un argument numérique. L'utilisation de Randomize en répétant la valeur précédente pour l'argument number ne permet pas de reproduire une série de nombres.

Quelle est l'utilité d'appeler Randomize Rnd(-1)

Code:

1
2
3
4
5
6
7
Private Sub Initialize()
    Dim nI As Double
    Randomize Rnd(-1)
    For nI = 1 To Len(msKeyString)
        Randomize Rnd(-Rnd * Asc(Mid(msKeyString, nI, 1)))
    Next nI
End Sub