Cryptage facile

Soyez le premier à donner votre avis sur cette source.

Vue 7 045 fois - Téléchargée 567 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

il est où le zip ?
Je n'arrive pas à mettre le zip, mais si tu le ve, écrit moi (zuljin@oreka.com) et je te l'envoie
Un mode de cryptage original mais qui manque Vraiment de fiabilité (relation d'encodage trop basique)
Aucune securité... cracké en 1min30 par n'importe quel cryptanalyste...
et l'exe?????

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.