Cryptage facile

Soyez le premier à donner votre avis sur cette source.

Vue 7 117 fois - Téléchargée 578 fois

Description

Salut. Ouais, encore un code de cryptage... Mais franchement, y vaut le coup. Je vous conseille de télécharger le zip plutôt ke de faire du copier - coller avec le code ci-dessous, mais si vous voulez le code et ke vous êtes pas connecté (ce ki m'arrive souvent), vous pourrez kan même avoir le code.
Ah ouais, il vous faut :
1. Une zone de texte pour le texte à crypter ou à décrypter (ici TxtNcrypt)
2. Une autre zone de texte pour mettre le texte crypté ou décrypter (ici TxtCrypt)
3. Un dernière zone de texte pour mettre le mot de passe (TxtMDP)
4. 2 boutons pour crypter et décrypter (CmdCrypter et CmdDecrypter)
5. 1 bouton pour quitter... (CmdQuitter)

Source / Exemple :


Private Sub CmdQuitter_Click()
    Unload Me
End Sub

Private Sub CmdDecrypter_Click()
    TxtCrypt.Text = ""
    If TxtMDP.Text = "" Then
    MsgBox "Il faut d'abord mettre un mot de passe !", vbExclamation, "Erreur !"
    Exit Sub
    End If
    Call decryptage(TxtNcrypt.Text, TxtMDP.Text)
End Sub

Private Sub CmdCrypter_Click()
    TxtCrypt.Text = ""
    If TxtMDP.Text = "" Then
    MsgBox "Il faut d'abord mettre un mot de passe !", vbExclamation, "Erreur !"
    TxtCrypt.Text = ""

Private Sub Cryptage(Textnoncrypter, Motdepasse)
    Dim a, b, Textcrypter, Incr, Text, okm, z, w
    z = 0
    For Incr = 1 To Len(Textnoncrypter)
    'C'a, c pour effectuer le code suivant le nombre de
    'caractère ke contient le texte
        Text = Mid$(Textnoncrypter, Incr, 1)
        'Là, c pour lire le caractère du texte
                a = Asc(Text)
                'Je transforme le caractère alphabétique en
                'caractère ASCII
                z = z + 1
                    If z > Len(Motdepasse) Then
                    z = 1
                    'Kan le mot de passe a été lu, on recommence à
                    'son premier caractère
                    End If
                    
                okm = Mid$(Motdepasse, z, 1)
                'On lit le caractère du mot de passe
                b = Asc(okm)
                'On prend son code ASCII
                w = a + b
                'On additionne le code ASCII du texte et du mot de passe
                    If w > 255 Then
                    w = w - 255
                    'Au cas où l'addition dépasserai 255, on retire 255
                    End If
        Textcrypter = Textcrypter + Chr(w)
        'On additionne les lettres cryptés ki sont
        'retransformées en caractère "lisible" mais crypté
            Next Incr
            'on fait de même pour la lettre suivante du texte à crypter
    TxtCrypt.Text = Textcrypter
    'Et on affiche le texte crypté ki ne ve plus rien dire
End Sub

'Le décryptage est le même avec la démarche inverse
'on part du texte crypté, on le transforme en ASCII
'On enlève l'ASCII du mot de passe et on obtient
'l'ASCII du texte décrypté kon rechange en caractère lisible.

Public Sub decryptage(Textcrypte, Motdepasse)
    Dim a, b, Textdecrypter, Incr, Text, okm, z, w
    z = 0
    For Incr = 1 To Len(Textcrypte)
        Text = Mid$(Textcrypte, Incr, 1)
                a = Asc(Text)
                z = z + 1
                    If z > Len(Motdepasse) Then
                    z = 1
                    End If
                okm = Mid$(Motdepasse, z, 1)
                b = Asc(okm)
                w = a - b
                    If w < 0 Then
                    w = w + 255
                    End If
        Textdecrypter = Textdecrypter + Chr(w)
            Next Incr
    TxtCrypt.Text = Textdecrypter

End Sub

Exit Sub
    End If
    Call Cryptage(TxtNcrypt.Text, TxtMDP.Text)
End Sub

Conclusion :


Vu les critiques - que j'admet sans problèmes -, je préfère changer le titre de ma source.
N'hésitez pas à continuer.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
77
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
5 janvier 2004

Oui simple mais bien pour crypter les texte que l'on veut cacher!

mais bon voila g un petit probleme ! :

voila je veut mettre un mot que j'ai crypter comme nom d'un dossier, tout cela avec VB mais parfois il en veut pas me creer le dossier!

je me suis demander pourkoi et g enfin trouver : windows n'acceptent pas les caractere \ / : * ? " < > | ce qui corespond respectivement au code ascii 92 - 47 - 58 - 42 - 63 - 152 - 60 - 62 et 124

si quelqu'un aurait une tite iD sur la maniere a employer pour changer ces caractere par d'autre ou koi ca serait cool
Messages postés
40
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
15 juin 2009

Très simple, mais il subsiste le problème de la récurrence du mot de passe. Exemple : tu as un mot de passe composé de 25 caractères. Tous les 25 caractères, on recommence avec le premier caractère de ton code. Un oeil (peu) averti risque fort de remarquer cela.
Une solution simple consiste à ajouter à chaque saut une valeur mémorisée : b = Asc(okm) + memoire (où mémoire est par exemple la valeur précédente de b)...
Je ne sais pas si je me suis bien exprimé, mais je me passionne pour tt ce qui traite de cryptage, alors si qqn partage cette passion avec moi, je suis impatient de partager mes idées et mes sources (pas encore publiées) de prog. de cryptage et de certificats !
Messages postés
146
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2005

Vous etes mechants avec lui!!!
Simple, ça je te l'accorde, mais fiable ... ça protege eventuellement les lettres de ma copine des yeux indiscret de ma grand-mére et de mon petit frére ... et encore, le petit frére a bientôt 10 ans, c'est plus trop fiable contre lui ...
Excusez-moi, quelqu'un saurait me dire comment fonctionne le crypt analyser s'il n'a pas la possibilité de savoir si le code est juste ou pas?
Afficher les 10 commentaires

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.