How to encrypt in VBScript using AES?

by

One way is to declare encryption classes within vbscript, without needing external added COM objects or wrapper. The following example takes a string, encrypts and decrypts using Rijndael managed class:

'-----------------------------------------------------
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
'-----------------------------------------------------

More Related Contents:

  1. ASP: request.form is not returning value?
  2. Querying Active Directory using VBScript
  3. How to resolve “The requested URL was rejected. Please consult with your administrator.” error?
  4. How to read CSV files line by line in VBScript
  5. Out of memory Microsoft VBScript runtime error 800a0007
  6. Format current date and time in VBScript
  7. Error ASP 0177: 8007007e CreateObject fails for COM DLL
  8. Any good libraries for parsing JSON in Classic ASP? [closed]
  9. Detailed 500 error message, ASP + IIS 7.5
  10. How can I post data using cURL in asp classic?
  11. How to upload files with asp-classic
  12. How do I properly instantiate 32-bit COM objects in classic ASP after installing Windows Update KB4340558?
  13. How to encrypt or decrypt with Rijndael and a block-size of 256 bits?
  14. Parameterized query in Classic Asp
  15. ASP JSON: Object not a collection
  16. convert utf-8 to iso-8859-1 in classic asp
  17. ADODB.Parameters error ‘800a0e7c’ Parameter object is improperly defined. Inconsistent or incomplete information was provided
  18. Compare values of two arrays – classic asp
  19. ADODB.Recordset error ‘800a0bb9’ : Arguments are of the wrong type
  20. How to enable ASP classic in IIS7.5
  21. How to make a parametrized SQL Query on Classic ASP?
  22. Passing Parameters to a Stored Procedure using ASP
  23. Is codepage 65001 and utf-8 the same thing?
  24. HTTP GET Request, ASP – I’m lost!
  25. Download a file using Javascript
  26. Error trying to call stored procedure with prepared statement
  27. Classic ASP (VBScript) convert HTML codes to plain text
  28. Regex to split a CSV
  29. How can I show a message box with two buttons?
  30. How can I convert a VBScript to an executable (EXE) file? [closed]

Leave a Comment