Texte crypter

Soyez le premier à donner votre avis sur cette source.

Vue 3 854 fois - Téléchargée 192 fois

Description

bon, la c vrai, les critiques vont jaillir de partout.
J'avoue que c'est la premiere fois que je touche a ce domaine (crypter) et je me suis inspirer de source que j'ai glaner ( merci a tous)
Il y a enormement de bug et chaque caractere et definit par un autre.( c bidon koi)

Conclusion :


Malgré les critiques que je v encourir, je tenais a mettre la source pour aider quelqu'un qui aurait un probleme quelconque.
sur ce bonne prog :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
30 juin 2005

Cryptage peut intéressant.
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003

C pas du cryptage super costaud, et y'a beaucoup de simplifications à faire.

const sDecrypte="abcdefghijklmnopqrstuvwxyz .éè1234567890"
const sCrypte="z#er~tmp%a*-&|l/=])wà$<èég'4!²530627891^"

sub Crypt()
On Error Resume Next 'pr les erreurs
Dim i As Integer 'declaration variable "i"
Dim a, x 'declaration variable
Form1.Text2 = "" 'text2 se vide
For i = 1 To Len(Form1.Text1) 'boucle qui s'effectue jusk a la fin de longueur de caractere du
a = Mid$(Form1.Text1, i, 1)
x = x & Mid(sCrypte, InStr(1, sDecrypte, a, vbTextCompare), 1) **
Next i 'caractere suivant
Text2 = Text2 & x ' c beaucoup plus rapide d'ajouter le caractère crypter à une variable plutot qu'au textbox
end sub


Sub Decrypt()
On Error Resume Next 'pr les erreurs
Dim i As Integer 'Idem que Crypt mais a l'inverse
Dim a, x
Form1.Text2 = ""
For i = 1 To Len(Form1.Text1)
a = Mid$(Form1.Text1, i, 1)
x = x & Mid(sDecrypte, InStr(1, sCrypte, a, vbTextCompare), 1) **
Next i 'caractere suivant
Text2 = Text2 & x
end sub

Comme la ligne ** est la seule qui change, on peut facilement faire encore + simple en mettant une seule fonction qui prend en paramètre si on crypte ou décrypte.

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.