begin process at 2008 07 04 08:35:43
1 204 518 membres
60 nouveaux aujourd'hui
14 116 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FONCTION CRYPTAGE / DECRYPTAGE AVEC CODE


Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 06/12/2002 Date de mise à jour : 06/12/2002 22:45:23 Vu / téléchargé: 3 144 / 212

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Cryptage par la méthode Vigenère avec code
::CRYPTER::
text1 = crypter(text1,"code")

::DECRYPTER::
text1 = decrypter(text1,"code")

::CARACTERES::
alpha contient la liste des caractères, si vous souhaitez en ajouter c possible mais je ne crois pas en avoir oublié ;-b  

Source

  • Function crypter(acrypt As String, code As String) As String
  • alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
  • crypt = acrypt
  • For i = 1 To Len(acrypt)
  • For a = 1 To Len(alpha)
  • If Mid$(alpha, a, 1) = Mid$(acrypt, i, 1) Then lenbrt = a
  • dfg = i - ((i \ Len(code)) * Len(code))
  • If dfg = 0 Then dfg = Len(code)
  • If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
  • Next a
  • lenbr = (((lenbrt + lenbrc) - 1) - (((lenbrt + lenbrc) - 1) \ Len(alpha)) * Len(alpha))
  • If lenbr = 0 Then lenbr = Len(alpha)
  • Mid$(crypt, i, 1) = Mid$(alpha, lenbr, 1)
  • Next i
  • crypter = crypt
  • End Function
  • Function decrypter(adcrypt As String, code As String) As String
  • alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
  • crypt = adcrypt
  • For i = 1 To Len(adcrypt)
  • For a = 1 To Len(alpha)
  • dfg = i - ((i \ Len(code)) * Len(code))
  • If dfg = 0 Then dfg = Len(code)
  • If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
  • Next a
  • beta = Mid$(alpha, lenbrc, Len(alpha) - lenbrc + 1) & Mid$(alpha, 1, lenbrc - 1)
  • For z = 1 To Len(beta)
  • If Mid$(beta, z, 1) = Mid$(adcrypt, i, 1) Then lenbrt = z
  • Next z
  • Mid$(crypt, i, 1) = Mid$(alpha, lenbrt, 1)
  • Next i
  • decrypter = crypt
  • End Function
Function crypter(acrypt As String, code As String) As String
alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
crypt = acrypt
For i = 1 To Len(acrypt)
    For a = 1 To Len(alpha)
        If Mid$(alpha, a, 1) = Mid$(acrypt, i, 1) Then lenbrt = a
        dfg = i - ((i \ Len(code)) * Len(code))
        If dfg = 0 Then dfg = Len(code)
        If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
    Next a
    lenbr = (((lenbrt + lenbrc) - 1) - (((lenbrt + lenbrc) - 1) \ Len(alpha)) * Len(alpha))
    If lenbr = 0 Then lenbr = Len(alpha)
    Mid$(crypt, i, 1) = Mid$(alpha, lenbr, 1)
Next i
crypter = crypt
End Function

Function decrypter(adcrypt As String, code As String) As String
alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
crypt = adcrypt
For i = 1 To Len(adcrypt)
    For a = 1 To Len(alpha)
        dfg = i - ((i \ Len(code)) * Len(code))
        If dfg = 0 Then dfg = Len(code)
        If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
    Next a
    beta = Mid$(alpha, lenbrc, Len(alpha) - lenbrc + 1) & Mid$(alpha, 1, lenbrc - 1)
    For z = 1 To Len(beta)
        If Mid$(beta, z, 1) = Mid$(adcrypt, i, 1) Then lenbrt = z
    Next z
    Mid$(crypt, i, 1) = Mid$(alpha, lenbrt, 1)
Next i
decrypter = crypt
End Function
   

Conclusion

::REMARQUE::
les retours de lignes sont déconseillés car remplacés par d'autres caractères  
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de Skywalker13 le 07/12/2002 10:26:04

    Salut, tu devrais prendre exemple sur Proger : http://www.vbfrance.com/article.aspx?Val=5285

    Ton algorithme ne passe pas son test.. tu fais un décalage de bits.. test ton programme avec la clef "A" et le texte "AAAAAAAAAAAAAAAA"

  • signaler à un administrateur
    Commentaire de blabla le 07/12/2002 11:43:07

    c sympas

  • signaler à un administrateur
    Commentaire de DHKold le 07/12/2002 15:25:20

    Avec une clé plus longues ca donne mieux, faut pas un code de un seul caractère

  • signaler à un administrateur
    Commentaire de Danyz le 12/11/2005 01:29:19

    J'aime bien ;)

    9/10

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS