Cryptage simple de texte

Soyez le premier à donner votre avis sur cette source.

Vue 4 818 fois - Téléchargée 361 fois

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

Ajouter un commentaire

Commentaires

BigBadboy
Messages postés
26
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 novembre 2008
-
Merci a tous pour vos commantaire qui me touche bcp.
@+ Bonne prog a tous
BigBaBoy
crazyjoke
Messages postés
147
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2005
-
bieeeen charlax moi je suis d'accord avec toi! et pis ma source de cryptage elle est bcp mieux maintenant, disons que g 1 peu amélioré la méthode césar

bonne prog ;-)
cs_charlax
Messages postés
21
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
16 février 2003
-
Franchement arrêtez de taper sur la gueule de tout le monde ! ! !
Sa source est très simple, mais elle marche et elle permet d'expliquer la base de la base du cryptage !
alors c'est pas la peine de l'engueuler
cs_aKheNathOn
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012
-
bon , pas mal pour un début bigbadboy :) ...

Continue comme çà .

Bonne prog amigo :)
BigBadboy
Messages postés
26
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 novembre 2008
-
Dsl Couriousous lol
Lamouche2002 je suis tout a fais d'accord avec toi comme je les dis cette source et pour les newbie du site.
Tout le monde c'ets que le "cryptage" a la Cesar et plus facile a décrypter.
Mais bon j'ai fais cette source en 5 minute pour montrer a crazyjoke qui a deposer la source (http://www.vbfrance.com/article.aspx?Val=6875) que son cryptage pouver être ameliorer simplement en utilisent un decalage de lettre comme mon prog
@+ Bonen prog a tous
BigBadBoy

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.