AES Chiffrement d'un Champ Microsoft Access Via VBA

J'ai besoin de créer une base de données Microsoft Access, mais qui ont besoin d'une, dans une de mes tables, pour un même champ à être fortement cryptées.

Depuis AES nécessite à la fois une clé et un vecteur d'initialisation, j'ai décidé de résoudre ce problème en exigeant un mot de passe pour accéder à la base de données (la clé), et un champ dans la table de tenir un hash SHA1 de la plaintext le champ crypté.

Quelqu'un sait-il où je peux trouver VBA code compatible réellement faire le cryptage?

InformationsquelleAutor Jason | 2010-06-14
  1. 2

    Certaines solutions de rechange à l'écrit à partir de zéro;

    • Vous pouvez le faire avec le natif de CryptoAPI (la racine de l'API est CryptAquireContext)
    • Vous pouvez utiliser Microsoft CAPICOM qui est un wrapper COM à la CryptoAPI et prend en charge AES.
    • Vous pouvez utiliser une 3ème partie de la bibliothèque, l'une à partir de ebCrypt est excellent, compact et gratuit.
    InformationsquelleAutor Alex K.
  2. 1

    Il utilise le chiffrement RC4. Crypte et Décrypte et vous l'appeler à partir d'cliquez sur le bouton ou quelque soit l'événement que vous voulez dans MS Access. Vous ne savez pas si vous pouvez l'utiliser, mais c'est tout ce que j'ai.
    Je l'ai eu à partir d'ici:
    http://bytes.com/topic/access/insights/906671-rc4-encryption-algorithm-vba-vbscript

    Fonction fRunRC4(sMessage, strKey) as String
    Dim kLen, x, y, i, j, temp
    Dim s(256), k(256)

    'Init keystream
kLen = Len(strKey)
For i = 0 To 255
    s(i) = i
    k(i) = Asc(Mid(strKey, (i Mod kLen) + 1, 1))
Next

j = 0
For i = 0 To 255
    j = (j + k(i) + s(i)) Mod 255
    temp = s(i)
    s(i) = s(j)
    s(j) = temp
Next

'Drop n bytes from keystream
x = 0
y = 0
For i = 1 To 3072
    x = (x + 1) Mod 255
    y = (y + s(x)) Mod 255
    temp = s(x)
    s(x) = s(y)
    s(y) = temp
Next

'Encode/Decode
For i = 1 To Len(sMessage)
    x = (x + 1) Mod 255
    y = (y + s(x)) Mod 255
    temp = s(x)
    s(x) = s(y)
    s(y) = temp

    fRunRC4 = fRunRC4 & Chr(s((s(x) + s(y)) Mod 255) Xor Asc(Mid(sMessage, i, 1)))
Next

    Fin De La Fonction

    • Il y a aussi un VBA version de l'AES sur le lien mentionné
    InformationsquelleAutor JustJohn
  3. 0

    Vous pouvez le faire avec SlowAES, un Javascript implemnentation de l'AES, enveloppé comme un objet COM.

    plus d'infos dans cet autre réponse.

    Comment chiffrer en VBScript à l'aide d'AES?

    de travail code source ici:

    http://cheeso.members.winisp.net/srcview.aspx?dir=AES-example

    InformationsquelleAutor Cheeso
  4. 0

    La MS de la Base de Connaissances fournit Code VB pour l'utilisation de la CryptoAPI. Notez que cet exemple explique comment chiffrer, mais pas comment décrypter les résultats. Mais c'est assez facile à faire, comme le déchiffrer déclaration d'API a presque les mêmes arguments. Notez, cependant, que la chaîne octet de routine de conversion dans l'exemple de code, à tort, bande espaces pendant le processus de déchiffrement, de sorte que vous devez modifier ce code pour résoudre ce problème.

    • C'est pour Vb.Net. MS Access utilise VBA, qui est une VB6 (c'est à dire, pas .Net) instruments dérivés
    InformationsquelleAutor David-W-Fenton