网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料：

　

标题 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
随便看

　

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

　

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间：2025/5/16 0:50:37