Cryptage simple de texte

Description

Petit prog de cryptage simple comme celui de César (Decalage des lettres)
Car j'ai vue sur ce site des prog de cryptage un peu médiocre donc je depose ce petit prog qui est a mon gout pas utile a moi et au élite de vbfrance mais ca pourras aider les newbie de vbfrance ce code et simple à comprendre.

Source / Exemple :


'source du module simple mais facile a comprendre je les commenter a la va-vite

'module de cryptage et de decryptage pour .:: Petit Cryptage de texte simple de niveau 1 ::.
'par BigBadBoy pour vbfrance.com
'Laisser moi un message via Vbfrance pour tout renseignement
'Bonne prog a tous

Function Crypt(texte As String, clef As Integer)
Dim a As Integer 'déclaration de a
Dim b As Integer 'déclaration de b
a = Len(texte) 'a = la longueur de texte
For i = 1 To a 'commence une boucle
b = Asc(Mid(texte, i, 1)) 'b vaut la valeur ascii du caractére qui ce trouve a la position i et de longueur 1
b = b + clef 'on ajoute la valeur de la clef a la valeur ascii de b ce qui fais un decalage de la lettre
Form1.Text2.Text = Form1.Text2.Text & Chr(b) 'le text2 = text2 + la caractére de la valeur de b
Next i
End Function

Function decrypt(texte As String, clef As Integer)
Dim a As Integer 'déclaration de a
Dim b As Integer 'déclaration de b
a = Len(texte)  'a = la longueur de texte
For i = 1 To a 'commence une boucle
b = Asc(Mid(texte, i, 1)) 'b vaut la valeur ascii du caractére qui ce trouve a la position i et de longueur 1
b = b - clef 'on retire la valeur de la clef a la valeur ascii de b
Form1.Text2.Text = Form1.Text2.Text & Chr(b) 'le text2 = text2 + la caractére de la valeur de b
Next i
End Function

Conclusion :


@+ bonne prog @ tous
BigBadBoy

Codes Sources

A voir également

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.