AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 01:34:50
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 !

CRYPTER ET DÉCRYPTER SIMPLEMENT DU TEXTE AVEC LA MEME PROCÉDURE


Information sur la source

Catégorie :Texte Classé sous : crypter, décrypter Niveau : Débutant Date de création : 06/01/2001 Vu : 5 282
Auteur : Stephane Site perso
Ecrire un message privé
Note :
8,33 / 10 - par 9 personnes
8,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Description

La constante Perso est un valeur de 0 à 255 de facon à personnaliser le cryptage du texte
 

Source

  • Const Perso = 154
  • Public Function Crypte(Txt)
  • b = ""
  • For a = 1 To Len(Txt)
  • Crypte = Crypte & Chr(Asc(Mid(Txt, a, 1)) Xor (255 - (a Mod 255)) Xor Perso)
  • Next a
  • End Function
  • Private Sub Form_Load()
  • Debut:
  • re = InputBox("Tapez un texte, il va être crypté, puis décrypter avec la même fonction.", "Test")
  • If re = "" Then End
  • MsgBox "Votre texte crypter est : " & Crypte(re) & ". Puis le texte crypter et décrypter avec la même fonction donne : " & Crypte(Crypte(re))
  • GoTo Debut
  • End Sub 
Const Perso = 154
Public Function Crypte(Txt)
b = ""
For a = 1 To Len(Txt)
Crypte = Crypte & Chr(Asc(Mid(Txt, a, 1)) Xor (255 - (a Mod 255)) Xor Perso)
Next a
End Function

Private Sub Form_Load()
Debut:
re = InputBox("Tapez un texte, il va être crypté, puis décrypter avec la même fonction.", "Test")
If re = "" Then End
MsgBox "Votre texte crypter est : " & Crypte(re) & ". Puis le texte crypter et décrypter avec la même fonction donne : " & Crypte(Crypte(re))
GoTo Debut
End Sub

Conclusion

pour crypter par exemple "Avion" tapez :

MonMessageCrypter = Crypte("Avion")

La casse est respectée

Je répond:
Ce cryptage peut être fiable si le fichier contenant le texte ci dessus(*.frm) n'est vu par personne. Pour le dcrypter, il faut connaitre la formule et un nombre choisi par le créateur.
Comme  le même caractère n'est parfois pas représenter par le même symbole, ça complique l'affaire
Ex:AA  devient(Je ne sais pas)  YD
(c'est des valeurs au hasard)

A mon avis pour décrypter un code sans connaitre la formule, c'est assez complexe!
 

Commentaires et avis

signaler à un administrateur
Commentaire de DarkBoss le 24/12/2002 14:38:13

mais ya un pb kan la clé est au dessus de 154 par ex 999 eh bah il dit invalid call

signaler à un administrateur
Commentaire de NoFutur le 25/01/2006 15:37:38

Voilà un code bien sympathique, juste besoin pour moi de crypter/décrypter un petit fichier ini pour qu'il ne soit pas modifiable par une tierce personne (10/10)

Bonne prog ^_^

signaler à un administrateur
Commentaire de philippe laschweng 1 le 17/07/2006 14:49:32

Ce n'est pas un vrai décryptage si? Un vrai décryptage se fait à partir du texte crypté pour retrouver l'original !!
Ta source fonctionne bien pour le cryptage mais pas le décryptage si??

signaler à un administrateur
Commentaire de soulkeum le 26/10/2007 11:44:26

Bonjour,
est ce que une personne pourrait m'expliquer l'expression :
Crypte = Crypte & Chr(Asc(Mid(Txt, a, 1)) Xor (255 - (a Mod 255)) Xor Perso)

et l'utilité du perso = 154

merci

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

[vb.net] Crypter Décrypter un fichier XML. [ par arnolem ] Bonjour, j'ai fais une application qui copie ma base sql dans un fichier xml, je souhaite donc crypter ce fichier pour le transporter et le d&#233;cry Crypter/décrypter un texte [ par quentindu16 ] Bonsoir, voilà je viens tout juste de finir un programme à l'aide d'un membre vraiment sympa sur le forum. Et il me reste un probleme à régler. Je cre Crypter mot de passe [ par spawnermax ] Bonjours à tousVoici mon souci, j'ai créer un form avec un mot de passe, voici la source <span style="font-size: 10pt; font-family: &quot;Courier New& CRYPTER [ par celbastalavista ] bonjour je vien de creer une applic je voudrais savoir qui peut me cree un crypter tout simple contre le crackage?? cryptage d'ub application [ par medbachar ] salut les amis je veux savoir est ce que c'est possible de crypter une application qui est creer en vb.net  qui peut cen crypter un mot de passe pour excel 2007 [ par Naceredine ] bonjour je suis à la recherche d'un code pour crypter le mot de passe d'un fichier Excel 2007 d'une manière fiable merci d'avance Crypter les données sur une appli client serveur [ par Neow26 ] Salut &#224; tous,Voila je fais une appli client serveur et je voudrai crypter mon &#233;changes.J'ai fait le code suivant pour crypter et d&#233;cryp Crypter un texte en chiffres [ par AlexPoulard ] Bonjour, je voudrais un code permetant de crypter un texte en chiffres uniquement. Tous les cryptages que j'ai trouvé jusqu'à présent sur le site, son Décrypter VIDEO_TS.IFO [ par deltaxxx ] Bonjour a tous !! Je cherche a d&#233;crypter le fichier VIDEO_TS.IFO qui se trouve dans un DVD-VIDEO pour y r&#233;cup&#233;r&#233; les informations Crypter un mot de passe [ par pseudoOM ] Bonjour &#224; tous ! J'aimerais savoir si il est possible de crypter un mot de passe lorque l'on enregistre celui-ci dans la registry ?En fait j'ai u


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


ARCHOS 5 (120 Go)
Entre 327€ et 360€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo friends
Photo cascades de plitvicePhoto poire de lavement bleu

Visiter la photothèque


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
Temps d'éxécution de la page : 0,608 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.