cryptage decryptage RSA cle prive cle publique

Question

bonjour,

je cherche un code sample sur le cryptage decryptage RSA mais avec de grandes clés.

j'ai testé les differentes sources de VBFrance mais les clés ne sont que sur 32 Bits et en plus j'ai remarqué que cycliquement on revoit les caracteres crypté si on test une chaine de caracteres genre : aaaaaaaaaaaaaaaaaa.

donc si qq a ou connait l'url  pour recuperer un code source VB pour crypter decrypter avec des cles prive et publique de longueur mini de 128 bits, je suis preneur.

merci de votre attention et surtout si vous avez une bonne reponse un grand merci d'avance.

ssebounet · Answer

slt
pour moi rsa n est pas un pbm je pense le plus dure c est d aller chercher la clé public et le modulous dans le certificat que l on souhaite!!!!!
si tu sais le faire pourrai tu me le dire ???
merci!!! :)

thierrydelepine · Answer

le mieux serai d'avoir un programme qui genere de grandes clés et un modulo (peut etre en C) et un autre prog celui ci en VB qui crypte et decrypte avec ces clés et ce modulo.

si tu as deja un code RSA en VB qui serai capable si on lui donnait des grandes clés de les gérer sans problèmes je suis preneur, il restera a trouver un prog pour generer ces cles.

ssebounet · Answer

bin j ai bien les codes en c++ mais ni en c# ni en vb!!!!!! sinon je vais tenter de faire du pgp
cad crypter un texte avec tripledes et une clef qui se genere a chaque fois puis crypter cette clé avec une clef de certificat public avec rsa.
voila ce que je compte faire !!!
sinon j ai reussi a crypter avec tripledes un texte et la j en suis à rsa
je verrai apres pour recuperer la clef du certif.

si t as des indications je suis preneur...

ssebounet · Answer

sinon voila ce que j ai fait mais j ai une erreur comprend pas!!!!!!

look :

Public Class cryptographe

    Inherits System.ComponentModel.Component

    'voici le textconverter necessaire à l'encodage des differents formats:
    Public textconverter As New System.Text.ASCIIEncoding()

    'on cree ensuite une instance d'un de algorithmes du framework .net pour le triple des et rsa
    Public TripleDES As New Security.Cryptography.TripleDESCryptoServiceProvider()
    Public RSA As New Security.Cryptography.RSACryptoServiceProvider()
    Public RSAKeyInfo = New System.Security.Cryptography.RSAParameters()

    'on crée les variables d'échange de valeurs cryptées non cryptées
    Public fromEncrypt() As Byte
    Public encrypted() As Byte
    Public toEncrypt() As Byte

    'on crée les variables de stockage des clefs de cryptage.
    Public keyrsa() As Byte
    Public keytdes() As Byte
    Public IV() As Byte
    Public sizekeytdes = 128
    Public sizekeyrsa = 1024

    Function generer_keytdes() As Byte()
        'on génère les clefs de l'algorithme rc2
        'avec une taille de clé défini
        TripleDES.KeySize = sizekeytdes
        TripleDES.GenerateKey()
        TripleDES.GenerateIV()
        keytdes = TripleDES.Key
        IV = TripleDES.IV
    End Function

    Function crypter_tdes(ByVal message As String) As Byte()

        'on génère un encrypteur avec les clefs que l'on a généré:
        Dim encryptor As Security.Cryptography.ICryptoTransform = TripleDES.CreateEncryptor(keytdes, IV)

        'on converti le texte en byte() : attention les parentheses sont importantes, car l'encrypteur ne travaille qu'avec des flux de données et rien d'autres : 
        toEncrypt = textconverter.GetBytes(message)

        'on crypte les données
        'on crée le flux de données qui recevra le message crypté :
        Dim msencrypt As New System.IO.MemoryStream()

        'on crée le flux de travaille de l'encypteur : 
        Dim csencrypt_des As New Security.Cryptography.CryptoStream(msencrypt, encryptor, Security.Cryptography.CryptoStreamMode.Write)

        'apres encryptage on transfert les données cryptées dans le flux
        'puis dans le variable d'exportation
        csencrypt_des.Write(toEncrypt, 0, toEncrypt.Length)

        csencrypt_des.FlushFinalBlock()
        encrypted = msencrypt.ToArray()

        'on renvoi le texte crypter afin de l'envoyer au web service
        crypter_tdes = encrypted

    End Function

    'il reste à crypter la key et l'IV (du TDES)
    'pour cela on utilisera rsa avec la clé d'un certificat.
    'voyons dans un premier tps rsa:
    Function crypter_rsa() As Byte()
        Dim protected_key As Byte()
        'on initialise les clés
        Dim modulum As Byte() = {12}
        Dim exposant As Byte() = {12, 34, 56}

        RSAKeyInfo.modulus = modulum
        RSAKeyInfo.exponent = exposant

        'on initialise rsacryptoserviceprovider
        RSA.ImportParameters(RSAKeyInfo)

        'on encrypte et on renvoi les news clés
        protected_key = RSA.Encrypt(keytdes, False)
        crypter_rsa = protected_key

    End Function

    'fonction qui permet l'affichage dans une zone texte (conversion en string)
    Function traduire(ByVal text() As Byte) As String
        'on convertit les données byte en texte pour l affichage:
        traduire = textconverter.GetString(text)

    End Function

End Class

et sur ca j ai une erreur sur 
protected_key = RSA.Encrypt(keytdes, False)
cette ligne
il me dit qu il y a a une valeur trop grande mais je comprend pas laquelle!!!

je crois que c est keydes mais comprend pas pk !!!!! qqun sait???
 %-6

Cryptage decryptage RSA cle prive cle publique

4 réponses

Discussions similaires