Accueil > > > 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
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
Sources de la même categorie
Commentaires et avis
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é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: "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
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|