• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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中通过调用CAPICOM对象实现SHA1MD5加密
    上一篇:WMI 创建系统服务的实现代码(Automatic)
    下一篇:VBS 加解密 For MS Script Encode
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS 加解密 For CAPICOM VBS,加,解密,For,CAPICOM,VBS,