Comment crypter dans VBScript en utilisant AES?

Question

Je cherche à crypter certaines données en utilisant Rijndael/AES en VBScript en utilisant une clé spécifique et IV valeur. Y a-t-il de bonnes bibliothèques de fonctions ou de bons composants COM?

J'ai regardé CAPICOM; il autorise uniquement une phrase secrète et ne permet pas de définir des valeurs de clé et IV spécifiques.

Answer 1

Quelqu'un a écrit un tutoriel sur l'utilisation de AES est VBScript: http://www.example-code.com/vbscript/AesIv.asp

Le module mentionné dans ce tutoriel peut être trouvé à: http://www.chilkatsoft.com/refdoc/xChilkatCrypt2Ref.html

Answer 2

Une option serait de créer une classe simple wrapper dans. NET pour le RijndaelManaged class à partir de l'infrastructure .NET et l'exposer via COM Interop afin que vous puissiez l'appeler à partir de VBScript.

Answer 3

Une réponse a suggéré d'envelopper la classe RijndaelManaged dans COM. Vous pouvez également inclure d'autres implémentations AES dans COM. Je viens d'essayer SlowAES, qui est une implémentation JavaScript d'AES. En l'enveloppant dans COM via un composant Windows Script le rend accessible depuis VBScript. Je recommanderais ceci seulement si vous ne pouvez pas utiliser l'approche .NET; Je suppose que l'AES pour .NET sera plus rapide que l'AES implémenté en JavaScript. Dans mes tests de SlowAEs encapsulés dans COM, j'ai utilisé le mode CBC et le cryptage était complètement compatible avec la classe RijndaelManaged dans .NET.

Voici le WSC; J'ai omis les 3 fichiers .js fournis par SlowAES. Vous devez les insérer inchangés là où j'ai marqué le fichier.

<?xml version="1.0"?> 

<!-- 

// 
// Ionic.COM.SlowAES.wsc 
// 
// This is a Windows Script Component that exposes the SlowAES 
// encryption engine via COM. This AES can be used from any 
// COM-capable environment, including Javascript or VBScript. 
// 
// 
// This code is licensed under the Microsoft Public License. See the 
// accompanying License.txt file for details. 
// 
// Copyright 2009 Dino Chiesa 
// 

--> 

<package> 

<component id="Ionic.Com.SlowAES"> 

    <comment> 
SlowAES is a Javascript implementation of AES. 
    See http://code.google.com/p/slowaes. 
This is a COM package for SlowAES. 
    </comment> 

<?component error="true" debug="true"?> 

<registration 
    description="WSC Component for SlowAES" 
    progid="Ionic.Com.SlowAES" 
    version="1.00" 
    classid="{ba78383f-1bcc-4df6-9fb9-61cd639ebc94}" 
    remotable="False"> 

    <!-- boilerplate registration/unregistration logic --> 
    <script language="VBScript"> 
    <![CDATA[ 

strComponent = "Ionic SlowAES" 

Function Register 
    MsgBox strComponent & " - registered." 
End Function 

Function Unregister 
    MsgBox strComponent & " - unregistered." 
End Function 

    ]]> 
    </script> 
</registration> 

<public> 
    <method name="EncryptString"> 
<parameter name="plainText"/> 
    </method> 

    <method name="DecryptBytes"> 
<parameter name="cipherText"/> 
    </method> 

    <method name="DecryptBytesToString"> 
<parameter name="cipherText"/> 
    </method> 

    <method name="DecryptHexString"> 
<parameter name="hexStringCipherText"/> 
    </method> 

    <method name="DecryptCommaDelimitedStringToString"> 
<parameter name="cipherText"/> 
    </method> 

    <property name="Key"> 
    <put/> 
    </property> 

    <property name="Mode"> 
    <put/> 
    <get/> 
    </property> 

    <property name="IV"> 
    <put/> 
    <get/> 
    </property> 

    <property name="KeySize"> 
    <put/> 
    <get/> 
    </property> 
</public> 

<script language="JavaScript"> 
<![CDATA[ 

// ...insert slowAES code here... // 

// defaults 
var _keysize = slowAES.aes.SIZE_128; 
var _mode = slowAES.modeOfOperation.CBC; 
var _iv = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]; 
var _key; 

/* 
* byteArrayToHexString 
* convert a byte array to hex string. 
*/ 
function byteArrayToHexString(a) 
{ 
try { hexcase } catch(e) { hexcase=0; } 
var hex_tab = hexcase ? "ABCDEF" : "abcdef"; 
var r= ""; 
for (var i = 0; i < a.length; i++) 
{ 
    var b = hex_tab.charAt((a[i] >> 4) & 0x0F) + 
    hex_tab.charAt(a[i] & 0x0F); 
    r+= b; 
} 
return r; 
} 

/* 
* hexStringToByteArray 
* convert a string of hex byts to a byte array 
*/ 
function hexStringToByteArray(s) 
{ 
var r= Array(s.length/2); 
for (var i = 0; i < s.length; i+=2) 
{ 
    r[i/2] = parseInt(s.substr(i,2),16); 
} 
return r; 
} 

function EncryptString(plainText) 
{ 
var bytesToEncrypt = cryptoHelpers.convertStringToByteArray(plainText); 
var result = slowAES.encrypt(bytesToEncrypt, 
    _mode, 
    _key, 
    _keysize, 
    _iv); 
return result['cipher']; 
} 

function DecryptBytesToString(cipherText) 
{ 
var d = DecryptBytes(cipherText); 
var s = cryptoHelpers.convertByteArrayToString(d); 
s[cipherText.length]= 0; 
return s; 
} 

function DecryptHexString(hexStringCipherText) 
{ 
var cipherText = hexStringToByteArray(hexStringCipherText); 
return DecryptBytesToString(cipherText); 
} 

function DecryptCommaDelimitedStringToString(cipherText) 
{ 
var c = []; 
var atoms = cipherText.split(","); 
for (i=0; i < atoms.length; i++) 
{ 
    c.push(parseInt(atoms[i], 10)); 
} 
var d = DecryptBytes(c); 
return cryptoHelpers.convertByteArrayToString(d); 
} 

function DecryptBytes(cipherText) 
{ 
if (cipherText == undefined) return null; 

var originalSize = cipherText.length; 

var result = slowAES.decrypt(cipherText, 
    originalSize, 
    _mode, 
    _key, 
    _keysize, 
    _iv); 

return result; 
} 

function put_Key(keyString) 
{ 
    _key = hexStringToByteArray(keyString); 
} 

function put_KeySize(size) 
{ 
if (size == 128) _keysize = slowAES.aes.keySize.SIZE_128; 
else if (size == 192) _keysize = slowAES.aes.keySize.SIZE_192; 
else if (size == 256) _keysize = slowAES.aes.keySize.SIZE_256; 
else 
    throw "Unsupported key size. Must be one of { 128, 192, 256 }."; 
} 

function get_KeySize() 
{ 
if (_keysize == slowAES.aes.keySize.SIZE_128) return 128; 
else if (_keysize == slowAES.aes.keySize.SIZE_192) return 192; 
else if (_keysize == slowAES.aes.keySize.SIZE_256) return 256; 
else return -1; 
} 

function put_IV(ivString) 
{ 
    _iv = hexStringToByteArray(ivString); 
} 

function get_IV() 
{ 
return byteArrayToHexString(_iv); 
} 

function put_Mode(mode) 
{ 
if (mode == "CBC") _mode= slowAES.modeOfOperation.CBC; 
else if (mode == "OFB") _mode= slowAES.modeOfOperation.OFB; 
else if (mode == "CFB") _mode= slowAES.modeOfOperation.CFB; 
else throw "Unsupported mode. Must be one of {CBC, OFB, CFB}"; 
} 

function get_Mode() 
{ 
if (_mode == slowAES.modeOfOperation.CBC) return "CBC"; 
if (_mode == slowAES.modeOfOperation.OFB) return "OFB"; 
if (_mode == slowAES.modeOfOperation.CFB) return "CFB"; 
return "???"; 
} 

]]> 

</script> 

</component> 

</package> 

Enregistrez-le dans un fichier appelé SlowAES.wsc. Inscrivez-le avec "regsvr32 SlowAES.wsc." Voici un code VBScript qui utilise le composant.

' ' 
' byteArrayToHexString' 
' convert a byte array to hex string.' 
' ' 
Function byteArrayToHexString(a) 
Dim r,b,i 
r = "" 
For i = 0 To UBound(a) 
    b = Hex((a(i) And &HF0)/16) & Hex(a(i) And &HF) 
    r= r & b 
Next 
byteArrayToHexString= r 
End Function 

' ' 
' hexStringToByteArray' 
' convert a string of hex byts to a byte array' 
' ' 
Function hexStringToByteArray(s) 
Dim r() 
ReDim r(Len(s)/2-1) 
Dim x 
For i = 0 To Len(s)-2 Step 2 
    x= "&H" & Mid(s,i+1,2) 
    r(i/2) = CInt(x) 
Next 
hexStringToByteArray= r 
End Function 

Function DemoEncryption() 
WScript.echo "Testing Ionic.Com.SlowAES..." 

WScript.echo "key:    " & byteArrayToHexString(key) 
WScript.echo "iv:    " & byteArrayToHexString(iv) 
WScript.echo "key length:  " & keyLengthInBytes & " bytes" 
WScript.echo "key length:  " & (keyLengthInBytes*8) & " bits" 
WScript.echo "plaintext:  " & plaintext 
WScript.echo "plaintext.length: " & Len(plaintext) 

WScript.echo "instantiate Ionic.Com.SlowAES" 
Dim aes 
set aes = CreateObject("Ionic.Com.SlowAES") 

WScript.echo "keysize" 
aes.KeySize = keyLengthInBytes * 8 

WScript.echo "key" 
aes.Key = byteArrayToHexString(key) 

WScript.echo "iv " 
aes.IV= byteArrayToHexString(iv) 

WScript.echo "mode " 
aes.Mode = "CBC" 

WScript.echo "encrypting... " 
Dim result 
result= aes.EncryptString(plaintext) 

' result is a comma-separated string ' 
' if we Eval() on it we convert it to an array ' 
Dim expr 
expr = "Array(" & result & ")" 

result= Eval(expr) 

WScript.echo "Cryptotext/Eval: " & byteArrayToHexString(result) 
WScript.echo "Cryptotext.length: " & UBound(result)+1 

WScript.echo "decrypting... " 
Dim decrypted 
'The javascript way to do this is to pass the byte array.' 
' Like so:' 
' var decrypted = aes.DecryptBytesToString(result);' 
' ' 
'This does not work from VBScript. So, convert to a hexstring,' 
'pass the hex string, and then convert back, in the COM component.' 
decrypted= aes.DecryptHexString(byteArrayToHexString(result)) 

WScript.echo "decrypted: " & decrypted 
End Function 

dim plaintext, iv, key, keyLengthInBytes 

plaintext= "Hello. This is a test. of the emergency broadcasting system." 
' iv must be a hexstring representation of an array of bytes, length=16' 
iv = hexStringToByteArray("feedbeeffeedbeefbaadf00dbaadf00d") 
' key must be a hexstring representation of an array of bytes, length=16 or 32' 
key = hexStringToByteArray("cafebabe0099887766554433221100AA") 
keyLengthInBytes= UBound(key)+1 

If Err.Number <> 0 Then Err.Clear 

Call DemoEncryption 

If (Err.Number <> 0) Then WScript.echo("Error: " & Err.Description) 

Si vous souhaitez également une capacité de dérivation de clé par mot de passe, vous pouvez saisir the very succint JavaScript code for PBKDF2 here et create another WSC for that, sans trop de difficultés.

---

EDIT: Je l'ai fait ce que je l'ai décrit - attrapé la source PBKDF2 et intégrée dans le code pour SlowAES. J'ai également produit une deuxième implémentation indépendante en C# qui utilise les bibliothèques de classe .NET intégrées pour effectuer la dérivation RFC 2898 et le chiffrement AES.

Le résultat est 3 applications de test, une en C#, une en JavaScript et une autre en VBScript. The source is available. Ils prennent tous le même jeu d'arguments. Ils utilisent chacun une fonction de dérivation de clé compatible RFC 2898. Vous pouvez spécifier le mot de passe, salt, IV et le texte en clair, ainsi que le nombre d'itérations RFC 2898 à utiliser dans PBKDF2. Vous pouvez facilement vérifier que le texte chiffré est le même pour chacun de ces programmes de test. Peut-être que cet exemple sera utile pour quelqu'un.

Answer 4

Je sais que cette question est ancienne et OP a disparu, mais il est intéressant de noter pour les futurs utilisateurs de vb6 que VbCorLib supporte maintenant la cryptographie, y compris le redoutable Rijndael.

Lien: http://vbcorlib.blogspot.com/

Answer 5

Old question- qui devient vraiment jamais vieux! Une façon consiste à déclarer des classes de chiffrement dans vbscript, sans avoir besoin d'objets COM ou de wrapper externes ajoutés. L'exemple suivant prend une chaîne, et déchiffre en utilisant encrypte classe managée Rijndael:

'----------------------------------------------------- 
Dim obj,arr,i,r,str,enc,asc 
dim bytes,bytesd,s,sc,sd 
set obj=WScript.CreateObject("System.Security.Cryptography.RijndaelManaged") 
Set asc = CreateObject("System.Text.UTF8Encoding") 
s="This is a private message" 
bytes=asc.GetBytes_4(s) 
obj.GenerateKey() 
obj.GenerateIV() 
set enc=obj.CreateEncryptor() 
set dec=obj.CreateDecryptor() 

bytec=enc.TransformFinalBlock((bytes),0,lenb(bytes)) 
sc=asc.GetString((bytec)) 
msgbox sc 

byted=dec.TransformFinalBlock((bytec),0,lenb(bytec)) 
sd=asc.GetString((byted)) 
msgbox sd 
'----------------------------------------------------- 

Best,

Answer 6

Voilà ma solution. Il enregistre la clé de chiffrement et le vecteur d'initialisation dans un fichier afin qu'ils puissent être réutilisés.

Dim objAes, objAesEncryptor, objAesDecryptor, objUtf8Encoder 
Dim objStream, objFileSystem 
Dim strMyTextInUtf8, strMyEncyptedInUtf8, strMyText, strEncryptedInAnsi, strDecryptedInAnsi 
Dim strMyAesKeyFilename,strMyAesIvFilename 
Const adTypeBinary = 1 
Const adSaveCreateOverWrite = 2 
Const adSaveCreateNotExist = 1 

' https://stackoverflow.com/questions/270510/how-to-encrypt-in-vbscript-using-aes#28129895 

Set objAes=WScript.CreateObject("System.Security.Cryptography.RijndaelManaged") 
Set objUtf8Encoder = CreateObject("System.Text.UTF8Encoding") 
strMyText = "This is a private message" 
strMyTextInUtf8=objUtf8Encoder.GetBytes_4(strMyText) 

strMyAesKeyFilename = "c:\Temp\objAes.Key" 'objAes.Key 
strMyAesIvFilename = "c:\Temp\objAes.IV" 'objAes.IV 
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 
set objStream = createobject("Adodb.Stream") 
objStream.Type = adTypeBinary 
objStream.open 
If (objFileSystem.FileExists(strMyAesKeyFilename) And objFileSystem.FileExists(strMyAesKeyFilename)) Then 
    objStream.LoadFromFile strMyAesKeyFilename 
    objAes.Key = objStream.Read 
    objStream.Close 
    objStream.Open 
    objStream.LoadFromFile strMyAesIvFilename 
    objAes.IV = objStream.Read 
Else 
    objAes.GenerateKey() 
    objAes.GenerateIV() 
    objStream.write objAes.Key 
    objStream.savetofile strMyAesKeyFilename, adSaveCreateOverWrite 
    objStream.Close 
    objStream.open 
    objStream.write objAes.IV 
    objStream.savetofile strMyAesIvFilename, adSaveCreateOverWrite 
    objStream.Close 
End IF 

Set objAesEncryptor = objAes.CreateEncryptor() 
Set objAesDecryptor = objAes.CreateDecryptor() 

strMyEncyptedInUtf8 = objAesEncryptor.TransformFinalBlock((strMyTextInUtf8),0,lenb(strMyTextInUtf8)) 
strEncryptedInAnsi = objUtf8Encoder.GetString((strMyEncyptedInUtf8)) 
WScript.Echo "Encrypted In Ansi: " & strEncryptedInAnsi 

strMyDecyptedInUtf8 = objAesDecryptor.TransformFinalBlock((strMyEncyptedInUtf8),0,lenb(strMyEncyptedInUtf8)) 
strDecryptedInAnsi = objUtf8Encoder.GetString((strMyDecyptedInUtf8)) 
WScript.Echo "Decrypted In Ansi: " & strDecryptedInAnsi 

L'exécution du script ressemble à ceci:

c:\Temp>cscript //nologo TestAesCipher2.vbs 
Encrypted In Ansi: M!???↔???I?!?Q?%&↑?M?n?(?\??o? 
Decrypted In Ansi: This is a private message 

c:\Temp>cscript //nologo TestAesCipher2.vbs 
Encrypted In Ansi: M!???↔???I?!?Q?%&↑?M?n?(?\??o? 
Decrypted In Ansi: This is a private message