begin process at 2012 02 17 08:28:21
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

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

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


 Information sur la source

Note :
8,33 / 10 - par 9 personnes
8,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :crypter, décrypter Niveau :Débutant Date de création :06/01/2001 Vu :5 984
Auteur : Stephane

Ecrire un message privé
Site perso
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!


 Sources du même auteur

Source avec Zip Source avec une capture UTILISER LA TELECOMMANDE PCTV AVEC KTV
Source avec Zip OUVRIR PLUSIEURS FICHIERS DANS UNE SEULE INSTANCE
Source avec Zip Source avec une capture CLASSE DE DESSIN (API) PLUS RAPIDE QUE VB
Source avec Zip Source avec une capture DOCKCONTROL : DOCKER/UNDOCKER VOS BARRE D'OUTILS ET AUTRES C...
Source avec Zip ROTATION DANS L'ESPACE 3D > 2D
Toutes les sources de Stephane

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CRYPTAGE ET DÉCRYPTAGE DE TEXTE (SIMPLE) par miata
Source avec Zip CRYPTEUR DÉCRYPTEUR DE FICHIERS par sergevbserge
Source avec Zip Source avec une capture CRYPTER/DÉCRYPTER UN TEXTE AVEC UNE CLÉ DE CRYPTAGE DE FAÇON... par ThePilot
Source avec Zip ENCRYPTER / DÉCRYPTER UN TEXTE par sergevbserge
Source avec Zip Source avec une capture CRYPTAGE / DECRYPTAGE DE TEXTE EN UTILISANT L'ALGORYTHME DE ... par darkeenu

Commentaires et avis

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

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 ^_^

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??

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 eMail et mdp [ par Helljoker ] Bonjour à tous, Je débute dans la programmation en VB.net et j'ai une question qui me taquine, je ne trouve pas la solution et c'est plutôt... éner crypter une lettre d'une chaine de caractère [ par alanito ] bonjour, je voudrais crypter une lettre d'une chaine de caractère par le cryptage de cesar. je sais pa comment faire: en C la méthode es aide pour crypter mon projet [ par cocaine84 ] bonjour a tous, voila j'ai fait un programme qui me renvoi id et passe sur mon gmail mais le probleme et que ce logiciel je peut l'ouvrir avec refle Demande d'aides [ par aymi60 ] [b][i][size=200]By TheAyminame'S[/size][/i][/b] Bonsoir , Mon problème est assez simple ^^ : Bein je veux créer un logiciel qui permet de crypter m


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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,920 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)