Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Encrypter et decrypter tripledes ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 19:19 (2011)    Sujet du message: Encrypter et decrypter tripledes Répondre en citant

Voici un simple crypter décrypter 3Des



Code source



  1. Public Class Form1  
  2.     Public Shared Function TripleDes(ByVal text As String, ByVal password As String, Optional ByVal reverse As Boolean = False) As String  
  3.         Dim crypt As String = Nothing  
  4.         Dim des As New System.Security.Cryptography.TripleDESCryptoServiceProvider  
  5.         Dim hash As New System.Security.Cryptography.MD5CryptoServiceProvider  
  6.         des.Key = hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(password))  
  7.         des.Mode = Security.Cryptography.CipherMode.ECB  
  8.         Select Case reverse  
  9.             Case True  
  10.                 Dim desdecrypter As System.Security.Cryptography.ICryptoTransform = des.CreateDecryptor  
  11.                 Dim buffer As Byte() = Convert.FromBase64String(text)  
  12.                 crypt = System.Text.ASCIIEncoding.ASCII.GetString(desdecrypter.TransformFinalBlock(buffer, 0, buffer.Length))  
  13.             Case False  
  14.                 Dim desencrypter As System.Security.Cryptography.ICryptoTransform = des.CreateEncryptor  
  15.                 Dim buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(text)  
  16.                 crypt = Convert.ToBase64String(desencrypter.TransformFinalBlock(buffer, 0, buffer.Length))  
  17.         End Select  
  18.         Return crypt  
  19.     End Function  
  20.   
  21.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  22.         RichTextBox1.Text = TripleDes(RichTextBox1.Text, "password", False)  
  23.     End Sub  
  24.   
  25.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  26.         RichTextBox1.Text = TripleDes(RichTextBox1.Text, "password", True)  
  27.     End Sub  
  28. End Class  






_________________

le triple DES fonctionne avec une clé de cryptage Dans le code j'utilise les librairie qui inclus tout ce qu'il faut pour dé/crypter

Pour les info sur le tripleDes : http://fr.wikipedia.org/wiki/Triple_DES


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 19:19 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com