begin process at 2010 02 10 17:37:50
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > FONCTION CRYPTAGE / DECRYPTAGE AVEC CODE

FONCTION CRYPTAGE / DECRYPTAGE AVEC CODE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :4 588 / 304

Auteur : DHKold

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

RACINE CARRÉE (AJOUT AUX FONCTIONS PRÉCÉDENTES)
ENSEMBLE DE FONCTION MATHÉMATIQUE (POUR TRES GRAND NOMBRES)
Source avec Zip Source avec une capture DHCUT - SPLITEUR, RÉ-ASSEMBLEUR (COUPER ET RECONSTRUIRE UN F...
EXTRAIRE LE NOM DU FICHIER D'UN CHEMIN
Source avec Zip Source avec une capture GÉNÉRATEUR DE TEXTE DYNAMIQUE

 Sources de la même categorie

Source avec Zip Source avec une capture AYOUBPAD2009 par ayoube2009
Source avec Zip Source avec une capture PILOTAGE D'AFFICHEURS LCD SUR PORT SÉRIE OU USB par mays
Source avec Zip Source avec une capture TRAITEMENT DE TEXTE RTF par zozo14
FORMATAGE D'UNE CELLULE EXCEL VIA UNE SYNTAXE HTML par 8Tnerolf8
Source avec Zip DÉFILEMENT TEXTE par mimiZanzan

Commentaires et avis

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"

Commentaire de blabla le 07/12/2002 11:43:07

c sympas

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

Commentaire de Danyz le 12/11/2005 01:29:19

J'aime bien ;)

9/10

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales