cet source permet au débutant de comprendre la cryptographie, c'est à dire de rendre un code incompréhensible pour les utilisateurs qui n'ont pas "la clé".
Pour les initié, il s'agit d'une comparaison de chaine avec la clé, chaque chiffre est remplacer par un caractère 'alphanumerique'.
Source / Exemple :
///Encodage
Private Sub Command1_Click()
Dim clé As String
clé = "aqwzsxedcrfvtgbyhnujikolpm&é'(-è_çà)=^$ù*,;:!~#{[|`\^@]}¤AQWZSXEDCRFVTGBYHNUJ?IK.OL/PM§%µ¨£°+"
Dim Max As Single
Max = Len(clé)
Dim SeRr(500)
For a = 1 To Max
SeRr(a) = Mid(clé, a, 1)
Next
Dim Max2 As Single
Max2 = Len(Text1.Text)
Dim Mat(500)
For a = 1 To Max2
Dim caract As String
caract = Mid(Text1.Text, a, 1)
If caract = "," Then
Mat(b) = SeRr(x)
b = b + 1
Mat(b) = "²"
b = b + 1
x = 0
End If
If caract = " " Then
Mat(b) = SeRr(x)
b = b + 1
Mat(b) = " "
b = b + 1
x = 0
End If
If x & Val(caract) >= Max Then
Mat(b) = SeRr(x)
b = b + 1
x = 0
End If
x = x & Val(caract)
If a = Max2 Then Mat(b) = SeRr(x)
Next
Dim T As String
For a = 0 To b
T = T & Mat(a)
Next
Text2.Text = T
End Sub
//Décodage
Private Sub Command2_Click()
Text3.Text = ""
Dim clé As String
clé = "aqwzsxedcrfvtgbyhnujikolpm&é'(-è_çà)=^$ù*,;:!~#{[|`\^@]}¤AQWZSXEDCRFVTGBYHNUJ?IK.OL/PM§%µ¨£°+"
Dim Max As Single
Max = Len(clé)
Dim SeRr(200)
For a = 1 To Max
SeRr(a) = Mid(clé, a, 1)
Next
Dim T As String
Dim Max2 As Single
Max2 = Len(Text2.Text)
For a = 1 To Max2
Dim caract As String
caract = Mid(Text2.Text, a, 1)
For b = 1 To Max
If caract = "²" Then
T = T & ","
Exit For
End If
If caract = " " Then
T = T & " "
Exit For
End If
If SeRr(b) = caract Then
T = T & b
End If
Next
Next
Text3.Text = T
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.