Discussion :

[troxsa]

Bonjour a tous

Je souhaite faire un cryptage simple mais pas trop non plus

est il possible de faire un cryptage avec une clef que seul l'utilisateur connais ?
genre la clef serais un mot ou une phrase et que ce bout de phrase ou mot serais la clef pour faire le décryptage ?

Si vous avez des sources que vous avez sous la main je suis preneur
en vous remerciant d'avance.

Cordialement,
Troxsa

[Philippe Vialatte]

simple mais pas trop non plus

Bon, allez, pour faire simple, tu devrais jeter un oeil ici:
http://bidou.developpez.com//tutorie...curite/crypto/

[troxsa]

Oué effectivement quand meme !
mais un peux soulant a faire pour un petit programme ...

Il y aurais pas un truc dans le style Cryptage(KeyDeDecryptage, source a Crypter ou a décrypter) ?

[troxsa]

Voila j'ai fini par trouver un bout de script sympa

Pour le scriptage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Function TripleDESEncode(ByVal value As String, ByVal key As String) As String
        Dim des As New Security.Cryptography.TripleDESCryptoServiceProvider
        des.IV = New Byte(7) {}
        Dim pdb As New Security.Cryptography.PasswordDeriveBytes(key, New Byte(-1) {})
        des.Key = pdb.CryptDeriveKey("RC2", "MD5", 128, New Byte(7) {})
        Dim ms As New IO.MemoryStream((value.Length * 2) - 1)
        Dim encStream As New Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), Security.Cryptography.CryptoStreamMode.Write)
        Dim plainBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(value)
        encStream.Write(plainBytes, 0, plainBytes.Length)
        encStream.FlushFinalBlock()
        Dim encryptedBytes(CInt(ms.Length - 1)) As Byte
        ms.Position = 0
        ms.Read(encryptedBytes, 0, CInt(ms.Length))
        encStream.Close()
        Return Convert.ToBase64String(encryptedBytes)
    End Function

Le decryptage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Public Function TripleDESDecode(ByVal value As String, ByVal key As String) As String
        Dim des As New Security.Cryptography.TripleDESCryptoServiceProvider
        des.IV = New Byte(7) {}
        Dim pdb As New Security.Cryptography.PasswordDeriveBytes(key, New Byte(-1) {})
        des.Key = pdb.CryptDeriveKey("RC2", "MD5", 128, New Byte(7) {})
        Dim encryptedBytes As Byte() = Convert.FromBase64String(value)
        Dim ms As New IO.MemoryStream(value.Length)
        Dim decStream As New Security.Cryptography.CryptoStream(ms, des.CreateDecryptor(), Security.Cryptography.CryptoStreamMode.Write)
        decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
        decStream.FlushFinalBlock()
        Dim plainBytes(CInt(ms.Length - 1)) As Byte
        ms.Position = 0
        ms.Read(plainBytes, 0, CInt(ms.Length))
        decStream.Close()
        Return System.Text.Encoding.UTF8.GetString(plainBytes)
    End Function

L'ulisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Dim key As String = "a1B@c3D$"
 
        Dim original As String = "This is a test, blah, blah, blah."
        Console.WriteLine("Original" & vbCrLf & "-----------------")
        Console.WriteLine(original & vbCrLf)
 
        Dim encrypted As String = TripleDESEncode(original, key)
        Console.WriteLine("Encrypted" & vbCrLf & "-----------------")
        Console.WriteLine(encrypted & vbCrLf)
 
        Dim decrypted As String = TripleDESDecode(encrypted, key)
        Console.WriteLine("Decrypted" & vbCrLf & "-----------------")
        Console.WriteLine(decrypted & vbCrLf)
 
        Console.ReadLine()

Le resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Original
-----------------
This is a test, blah, blah, blah.
 
Encrypted
-----------------
sUxLUCy4R8tl+x7EhNA0wG3QyrZjtJVFeDR5pDWA2M8QuJy5m+mXDA==
 
Decrypted
-----------------
This is a test, blah, blah, blah.

Je met eventuellement le site ou j'ai trouvé ce bout de code !
http://addressof.com/blog/archive/2004/10/19/997.aspx

[altahir007]

j'aimerai utiliser ces fonctions mais visiblement dans le Compact Framework 3.5 il n'y a pas de Security.Cryptography.PasswordDeriveBytes

Avez vous un équivalent ? Mon but est de trouver une solution de cryptage symetrique simple (mais pas trop passoire) tournant sous CF3.5 avec clef de cryptage que je définirai