Codage et décodage de nombre ou de chiffre

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (zulrigh)