VBS 加解密 For CAPICOM_vbs教程-查字典教程网

复制代码代码如下:

'******************************************************************************

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

'******************************************************************************

' 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

' CAPICOM's constants.

Const CAPICOM_ENCRYPTION_ALGORITHM_RC2 = 0

Const CAPICOM_ENCRYPTION_ALGORITHM_RC4 = 1

Const CAPICOM_ENCRYPTION_ALGORITHM_DES = 2

Const CAPICOM_ENCRYPTION_ALGORITHM_3DES = 3

Const CAPICOM_ENCRYPTION_ALGORITHM_AES = 4

Const CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM = 0

Const CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS = 1

Const CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS = 2

Const CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS = 3

Const CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS = 4

Const CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS = 5

' Command line arguments.

Dim Command : Command = Unknown

Dim Password : Password = Null

Dim Algorithm : Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_RC2

Dim KeyLength : KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM

Dim Verbose : Verbose = False

Dim FileNames()

' First make sure the script is executed by CScript.exe.

If InStr(1, UCase(Wscript.FullName), "CSCRIPT.EXE", vbTextCompare) = 0 Then

Wscript.Echo "This script can only be executed by CScript.exe." & vbCRLF & vbCRLF &_

"You can either:" & vbCRLF & vbCRLF & _

"1. Set CScript.exe as the default (Run CScript //h:cscript), or" & vbCRLF & _

"2. Run CScript.exe directly as in, CScript " & Wscript.ScriptName & "."

Wscript.Quit(-1)

End If

' Parse the command line.

ParseCommandLine

' Now process the command.

Select Case Command

Case Encrypt

DoEncryptCommand FileNames, Algorithm, KeyLength, Password

Case Decrypt

DoDecryptCommand FileNames, Password

End Select

Wscript.Quit(0)

' End Main

'******************************************************************************

' Subroutine: DoEncryptCommand

' Synopsis : Encrypt content of text file FileNames(0).

' Parameter : FileNames - Array of filenames.

' Algorithm - Encryption algorithm

' KeyLength - Key size.

' Password - Secret password.

'******************************************************************************

Sub DoEncryptCommand (FileNames, Algorithm, KeyLength, Password)

Dim Content

Dim Message

Dim EncryptedData

' Create the EncryptedData object.

Set EncryptedData = CreateObject("CAPICOM.EncryptedData")

' Set algorithm, key size, and encryption password.

EncryptedData.Algorithm.Name = Algorithm

EncryptedData.Algorithm.KeyLength = KeyLength

EncryptedData.SetSecret Password

' Display main title.

Wscript.Stdout.Writeline "Encrypting text file " & FileNames(0) & "."

Wscript.Stdout.Writeline

' Display more detail for verbose operation.

If Verbose Then

DisplayDetail EncryptedData

End If

' Load content of text file to be encrypted.

LoadFile FileNames(0), Content

' Now encrypt it.

EncryptedData.Content = Content

Message = EncryptedData.Encrypt

' Finally, save encrypted message to FileNames(1).

SaveFile FileNames(1), Message

Wscript.Stdout.Writeline "Successful - Encrypted message saved to " & FileNames(1) & "."

' Free resources.

Set EncryptedData = Nothing

End Sub ' End DoEncryptCommand

'******************************************************************************

' Subroutine: DoDecryptCommand

' Synopsis : Decrypt an encrypted file.

' Parameter : FileNames - Array of filenames.

' Password - Secret password.

'******************************************************************************

Sub DoDecryptCommand (FileNames, Password)

Dim Message

Dim EncryptedData

' Create the EncryptedData object.

Set EncryptedData = CreateObject("CAPICOM.EncryptedData")

' Set decryption password.

EncryptedData.SetSecret Password

' Display main title.

Wscript.Stdout.Writeline "Decrypting encrypted text file " & FileNames(0) & "."

Wscript.Stdout.Writeline

' Load the encrypted message.

LoadFile FileNames(0), Message

' Now decrypt it.

EncryptedData.Decrypt(Message)

' Display more detail for verbose operation.

If Verbose Then

DisplayDetail EncryptedData

End If

' Finally, save decrypted content to FileNames(1).

SaveFile FileNames(1), EncryptedData.Content

Wscript.Stdout.Writeline "Successful - Decrypted content saved to " & FileNames(1) & "."

' Free resources.

Set EncryptedData = Nothing

End Sub ' End DoDecryptCommand

'******************************************************************************

' Subroutine: LoadFile

' Synopsis : Read content of a text file.

' Parameter : FileName - Input text filename.

' Buffer - String buffer to receive the text file content.

'******************************************************************************

Sub LoadFile (FileName, Buffer)

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(FileName) Then

Wscript.Stdout.Writeline "Error: File " & FileName & " not found."

Wscript.Quit(-5)

End If

Dim ts

Set ts = fso.OpenTextFile(FileName, ForReading)

Buffer = ts.ReadAll

End Sub ' End LoadFile

'******************************************************************************

' Subroutine: SaveFile

' Synopsis : Save string to file.

' Parameter : FileName - Output filename.

' Buffer - String buffer to be saved.

'******************************************************************************

Sub SaveFile (FileName, Buffer)

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

Dim ts

Set ts = fso.OpenTextFile(FileName, ForWriting, True)

ts.Write Buffer

End Sub ' End SaveFile

'******************************************************************************

' Subroutine: DisplayDetail

' Synopsis : Display detail information.

' Parameter : EncryptedData - EncryptedData object.

'******************************************************************************

Sub DisplayDetail (EncryptedData)

Dim AlgoNames(4)

AlgoNames(0) = "RC2"

AlgoNames(1) = "RC4"

AlgoNames(2) = "DES"

AlgoNames(3) = "3DES"

AlgoNames(4) = "AES"

Wscript.Stdout.Writeline "Algorithm : " & AlgoNames(EncryptedData.Algorithm.Name)

Wscript.Stdout.Write "Key length: "

Select Case EncryptedData.Algorithm.KeyLength

Case CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS

Wscript.Stdout.Writeline "40 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS

Wscript.Stdout.Writeline "56 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS

Wscript.Stdout.Writeline "128 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS

Wscript.Stdout.Writeline "192 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS

Wscript.Stdout.Writeline "256 bits"

Case Else

Wscript.Stdout.Writeline "Maximum"

End Select

Wscript.Stdout.Writeline

End Sub ' End DisplayDetail

'******************************************************************************

' Subroutine: ParseCommandLine

' Synopsis : Parse the command line, and set the options accordingly.

' Parameter : None

'******************************************************************************

Sub ParseCommandLine

' Constants for command line parsing states.

Const ARG_STATE_COMMAND = 0

Const ARG_STATE_OPTIONS = 1

Const ARG_STATE_ALGORITHM = 2

Const ARG_STATE_LENGTH = 3

Const ARG_STATE_FILENAME = 4

Const ARG_STATE_PASSWORD = 5

Const ARG_STATE_END = 6

' Parse command line.

Dim Arg

Dim ArgState : ArgState = ARG_STATE_COMMAND

For Each Arg In Wscript.Arguments

Select Case ArgState

Case ARG_STATE_COMMAND

Select Case UCase(Arg)

Case "ENCRYPT"

Command = Encrypt

Case "DECRYPT"

Command = Decrypt

Case Else

DisplayUsage

End Select

ArgState = ARG_STATE_OPTIONS

Case ARG_STATE_OPTIONS

Select Case UCase(Arg)

Case "-ALG", "/ALG"

ArgState = ARG_STATE_ALGORITHM

Case "-LENGTH", "/LENGTH"

ArgState = ARG_STATE_LENGTH

Case "-V", "/V"

Verbose = True

Case "-?", "/?"

DisplayUsage

Case Else

If Left(Arg, 1) = "-" OR Left(Arg, 1) = "/" Then

DisplayUsage

Else

ReDim FileNames(0)

FileNames(0) = Arg

End If

ArgState = ARG_STATE_FILENAME

End Select

Case ARG_STATE_ALGORITHM

If Left(Arg, 1) = "-" OR Left(Arg, 1) = "/" Then

DisplayUsage

Else

Select Case UCase(Arg)

Case "RC2"

Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_RC2

Case "RC4"

Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_RC4

Case "DES"

Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_DES

Case "3DES"

Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_3DES

Case "AES"

Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_AES

Case Else

DisplayUsage

End Select

End If

ArgState = ARG_STATE_OPTIONS

Case ARG_STATE_LENGTH

If Left(Arg, 1) = "-" OR Left(Arg, 1) = "/" Then

DisplayUsage

Else

Select Case UCase(Arg)

Case "40"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS

Case "56"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS

Case "128"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS

Case "192"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS

Case "256"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS

Case "MAX"

KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM

Case Else

DisplayUsage

End Select

End If

ArgState = ARG_STATE_OPTIONS

Case ARG_STATE_FILENAME

If Left(Arg, 1) = "-" OR Left(Arg, 1) = "/" Then

DisplayUsage

Else

ReDim Preserve FileNames(UBound(FileNames) + 1)

FileNames(UBound(FileNames)) = Arg

End If

ArgState = ARG_STATE_PASSWORD

Case ARG_STATE_PASSWORD

If Left(Arg, 1) = "-" OR Left(Arg, 1) = "/" Then

DisplayUsage

Else

Password = Arg

End If

ArgState = ARG_STATE_END

Case Else

Wscript.Stdout.Writeline "Internal script error: Unknown argument state (" & CStr(ArgState) & ") encountered."

Wscript.Quit(-3)

End Select

' Make sure we are in good state.

If ArgState <> ARG_STATE_END Then

DisplayUsage

End If

End Sub ' ParseCommandLine

'******************************************************************************

' Subroutine: DisplayUsage

' Synopsis : Display the usage screen, and then exit with a negative error

' code.

' Parameter : None.

'******************************************************************************

Sub DisplayUsage

Select Case Command

Case Unknown

Wscript.Stdout.Writeline "Usage: CEncrypt Command [Options] InFile OutFile Password"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "Command:"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " Encrypt -- Encrypt a text file"

Wscript.Stdout.Writeline " Decrypt -- Decrypt an encrypted text file"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "For help on a specific command, enter ""CEncrypt Command -?"""

Case Encrypt

Wscript.Stdout.Writeline "Usage: CEncrypt Encrypt [Options] ContentFile EncryptedFile Password"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "The Encrypt command is used to encrypt a text file based on a secret password."

Wscript.Stdout.Writeline "Encrypting protects the data from being read by others except those who know"

Wscript.Stdout.Writeline "the secret password."

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "Options:"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " -alg <algorithm> -- RC2, RC4, DES, 3DES, or AES (default to RC2)"

Wscript.Stdout.Writeline " -length <key length> -- 40, 56, 128, 192, 256, or MAX (default to MAX,"

Wscript.Stdout.Writeline " and ignored for DES or 3DES)"

Wscript.Stdout.Writeline " -v -- Verbose operation"

Wscript.Stdout.Writeline " -? -- This help screen"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " ContentFile -- Text file to be encrypted"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored."

Wscript.Stdout.Writeline

Case Decrypt

Wscript.Stdout.Writeline "Usage: CEncrypt Decrypt [Options] EncryptedFile ContentFile Password"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "The Decrypt command is used to decrypt an encrypted text file."

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "Options:"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " -v -- Verbose operation"

Wscript.Stdout.Writeline " -? -- This help screen"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline " ContentFile -- Decrypted text file"

Wscript.Stdout.Writeline

Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored."

Wscript.Stdout.Writeline

Case Else

Wscript.Stdout.Writeline "Internal script error: Unknown help state (Command = " & CStr(Command) & ")."

Wscript.Quit(-2)

End Select

Wscript.Quit(-1)

End Sub ' End DisplayUsage