CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS 加解密 For CAPICOM由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

复制代码 代码如下

'****************************************************************************** ' ' 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 ' 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    Next    ' 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 。

最后此篇关于VBS 加解密 For CAPICOM的文章就讲到这里了,如果你想了解更多关于VBS 加解密 For CAPICOM的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。