'****************************************************************************** ' ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, ' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED ' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. ' ' Copyright (C) 1999- 2002. Microsoft Corporation. All rights reserved. ' '****************************************************************************** ' ' CEncrypt.vbs ' ' This is a sample script to illustrate how to use the CAPICOM's EncryptedData ' to encrypt/decrypt text file. ' ' Note: For simplicity, this script does not handle exception. ' '****************************************************************************** Option Explicit Const ForReading = 1, ForWriting = 2 ' Command. Const Unknown = 0 Const Encrypt = 1 Const Decrypt = 2
