Accueil > > > CRYPTAGE XOR EN FONCTION D'UNE CLÉ ET DU CARACTÈRE PRÉCÉDENT
CRYPTAGE XOR EN FONCTION D'UNE CLÉ ET DU CARACTÈRE PRÉCÉDENT
Information sur la source
Description
Ces fonctions permettent de coder un texte avec une clé de 1 caractère. Chaque caractère sera codé avec la clé et le caractère précédent comme ça c'est plus dur à décoder j'ai bien commenté (je pense) le code affiché dans cette page par contre j'ai pas bcp commenté celui de la source, désolé.
Source
- ' Codage
- ' Txt c'est le texte à coder
- ' Clé c'est la clé (1 seul caractère)
- Public Function CodXor(ByVal Txt As String, ByVal Clé As String) As String
- ' Les variables
- Dim Key As String
- Dim Char As String
- Dim ExChar As Long
- Dim Ajout As String
- ' La clé
- Key = Asc(Clé)
- ' Vide la destination
- CodXor = ""
- ' Le caractère précédent celui codé est vide car on est au début
- ExChar = 0
- ' Code le texte
- ' on code lettre après lettre
- For T = 1 To Len(Txt)
- ' récupère le caractère que l'on traite
- Char = Mid(Txt, T, 1)
- ' Codage Xor du caractère (Char) en fonction de la clé (Key) et du caractère précédent (ExChar)
- Ajout = Chr(Key Xor Asc(Char) Xor ExChar)
- ' Ajoute le caractère codé à la phrase codée
- CodXor = CodXor + Ajout
- ' Sauvegarde le caractère pour le codage de la lettre suivante
- ExChar = Asc(Char)
- Next
- End Function
-
- ' Décodage
- Public Function DeCodXor(ByVal Txt As String, ByVal Clé As String) As String
- ' Les variables
- Dim Key As String
- Dim Char As String
- Dim ExChar As Long
- Dim Ajout As String
- ' La clé
- Key = Asc(Clé)
- ' Vide la destination
- ExChar = 0
- DeCodXor = ""
- ' Décode le texte avec la même méthode que le codage
- For T = 1 To Len(Txt)
- Char = Mid(Txt, T, 1)
- Ajout = Chr(Key Xor Asc(Char) Xor ExChar)
- DeCodXor = DeCodXor + Ajout
- ExChar = Asc(Ajout)
- Next
- End Function
' Codage
' Txt c'est le texte à coder
' Clé c'est la clé (1 seul caractère)
Public Function CodXor(ByVal Txt As String, ByVal Clé As String) As String
' Les variables
Dim Key As String
Dim Char As String
Dim ExChar As Long
Dim Ajout As String
' La clé
Key = Asc(Clé)
' Vide la destination
CodXor = ""
' Le caractère précédent celui codé est vide car on est au début
ExChar = 0
' Code le texte
' on code lettre après lettre
For T = 1 To Len(Txt)
' récupère le caractère que l'on traite
Char = Mid(Txt, T, 1)
' Codage Xor du caractère (Char) en fonction de la clé (Key) et du caractère précédent (ExChar)
Ajout = Chr(Key Xor Asc(Char) Xor ExChar)
' Ajoute le caractère codé à la phrase codée
CodXor = CodXor + Ajout
' Sauvegarde le caractère pour le codage de la lettre suivante
ExChar = Asc(Char)
Next
End Function
' Décodage
Public Function DeCodXor(ByVal Txt As String, ByVal Clé As String) As String
' Les variables
Dim Key As String
Dim Char As String
Dim ExChar As Long
Dim Ajout As String
' La clé
Key = Asc(Clé)
' Vide la destination
ExChar = 0
DeCodXor = ""
' Décode le texte avec la même méthode que le codage
For T = 1 To Len(Txt)
Char = Mid(Txt, T, 1)
Ajout = Chr(Key Xor Asc(Char) Xor ExChar)
DeCodXor = DeCodXor + Ajout
ExChar = Asc(Ajout)
Next
End Function
Conclusion
dites moi si vous avez des idées pour améliorer le codage, s'il ya des défauts, des bugs... et laissez votre commentaire svp ça aide toujours
@ + MadMatt
Historique
- 13 août 2004 14:42:31 :
- petit bug corrigé ;-)
- 23 novembre 2005 20:26:33 :
- Ajout des mots clés
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Puissance de codage d'une clé [ par MadM@tt ]
Salut tout le monde,ça fait super longtemps que j'essaie de calculer la puissance de codage d'une clé (lors du codage d'un fichier ou d'un texte).En f
Cryptage [ par Blanc ]
Bonsoir,J'aimerai savoir si quelqu'un pouvais m'expliquer comment faire pour crypter (du texte par exemple..) (en VB.Net.....) mais pas de crypter ca
CRYPTAGE PAR XOR [ par tekila_bandita ]
Je suis en train d'ESSAYER de créer un petit prog de cryptage de fichier au niveau binaire par xor, mais je rencontre quelque probleme, voicila p
cryptage de données [ par Tikaf ]
Bonjour tout le monde,Je travaille actuellement sur une application développée en VisualBasic .NET qui est protégée par
cryptage de données dans une clé [ par Tikaf ]
Bonjour tout le monde,J'avais écrit le message suivant dans la rubrique "J'AI BESOIN D'AIDE", mais je n'ai pas eu de réponses.J'espère
cryptage et decryptage par une clé [ par idream000 ]
bonjour je developpe une application monétaire en utilisant la plate-forme VB.net avec une base données SQLserveur. Avant d'enregistrer les données da
Cryptage 128, 256 ????? [ par hippo92210b ]
Bonjours, Il u a quelque jour, je me suis intéresser de prés au cryptage et j'ai donc pris une source de cryptage RC4et je voudrai que le texte soi c
S.O.S ! clé de cryptage xp non sauvegardée avant reinstallation [ par ralfspark ]
salut j ai un gros probleme j ai crypté mes photo sous xp (je sais c'est idiot mais trop tard !),et apres avoir reinstallé xp il refuse de les lire et
chaine de caractère [ par clovis23 ]
Bonjour!je voudrais savoir comment procéder pour récupérer séparement les voyelles et les consonnes d'un mot saisi dans un texte box sous visual basi
rechercher un guillemet dans une chaîne de caractères [ par hotsauce ]
bonjour à tous,je souhaite rechercher dans une variable donnée le caractère guillemet; voici le code que j'utilise:if instr(1,val, " " ")<>0 the
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
VB.NET ET COMBOBOXVB.NET ET COMBOBOX par minouthebreaker
Cliquez pour lire la suite par minouthebreaker
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|