방법: Microsoft Office 응용 프로그램에 대한 Visual Basic에서 Visual Basic .NET 클래스 라이브러리 호출

기술 자료 번역 기술 자료 번역
기술 자료: 317535 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

이 단계별 가이드에서는 응용 프로그램에 대한 Visual Basic .NET 클래스 라이브러리를 호출할 수 있습니다. 이 샘플에서는 VBA 프로그램 Visual Basic .NET 클래스 라이브러리를 문자열을 암호화하고 사용할 수 있는 방법을 보여 줍니다. .NET에 포함된 암호화 네임스페이스 사용할 암호화/해독용 프레임워크.

Visual Basic .NET 클래스 라이브러리 만들기

  1. Microsoft Visual Studio .NET 시작하십시오. 파일 메뉴에서 새로 만들기를 가리킨 다음 프로젝트 를 클릭하십시오. Visual Basic 프로젝트클래스 라이브러리 를 선택하십시오. CryptoClass 클래스의 이름을 지정하고 확인 을 클릭하십시오. Class1 기본적으로 만들어집니다.
  2. Class1의 내용을 다음 코드로 대체하십시오.

    Imports System.Security.Cryptography
    
    <ComClass(Class1.ClassId, Class1.InterfaceId, Class1.EventsId)> Public Class Class1
        Public Const ClassId As String = "98349785-8BE2-4604-848D-F5B103D61715"
        Public Const InterfaceId As String = "36613EE9-125F-493d-9968-771E18C2226A"
        Public Const EventsId As String = "A036F02F-F87E-4548-A536-7DD7EA8E62B5"
    
        Const sKey As String = "MyKey"
    
        Public Function EncryptTripleDES(ByVal sIn As String) As String
            Dim DES As New TripleDESCryptoServiceProvider()
            Dim hashMD5 As New MD5CryptoServiceProvider()
    
            ' Compute the MD5 hash.
            DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
            ' Set the cipher mode.
            DES.Mode = CipherMode.ECB
            ' Create the encryptor.
            Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()
            ' Get a byte array of the string.
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(sIn)
            ' Transform and return the string.
            Return Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
        End Function
    
        Public Function DecryptTripleDES(ByVal sOut As String) As String
            Dim DES As New TripleDESCryptoServiceProvider()
            Dim hashMD5 As New MD5CryptoServiceProvider()
    
            ' Compute the MD5 hash.
            DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
            ' Set the cipher mode.
            DES.Mode = CipherMode.ECB
            ' Create the decryptor.
            Dim DESDecrypt As ICryptoTransform = DES.CreateDecryptor()
            Dim Buffer As Byte() = Convert.FromBase64String(sOut)
            ' Transform and return the string.
            Return System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
        End Function
    End Class
    						

    참고 GUID 생성기 ClassId, InterfaceId 및 EventsId에 대해 새 GUID를 생성할 수 있습니다. 도구 메뉴에서 GUID 만들기 클릭하여 새 GUID를 생성합니다.
  3. 프로젝트 속성구성 속성 을 선택하십시오. 빌드 를 클릭하여 선택하고 해당 COM Interop 등록 확인란을. 확인 을 클릭하십시오.
  4. 빌드 메뉴에서 솔루션 DLL을 만들려면 클릭하십시오.

VBA .NET 클래스 라이브러리 호출 응용 프로그램의 매크로 만들기

  1. Microsoft Excel 을 시작하십시오. VBA 편집기를 시작하려면 Alt + F11 키를 누릅니다.
  2. 삽입 메뉴에서 모듈 빈 모듈 삽입 을 클릭하십시오.
  3. 도구 메뉴에서 참조 를 누릅니다. CryptoClass 라이브러리에 대한 참조를 추가하고 확인 을 클릭하십시오.
  4. 입력하거나 Module1 코드 창에서 다음 코드를 붙여:
    Sub TestCrypto()
      Dim oCrypto As New CryptoClass.Class1
      Dim sCrypt As String
      
      sCrypt = oCrypto.EncryptTripleDES("This is a test")
      MsgBox "Encrypted text = " & sCrypt
      MsgBox "Decrypted text = " & oCrypto.DecryptTripleDES(sCrypt)
    End Sub
    					

코드 테스트

  1. 도구 메뉴에서 매크로 클릭하십시오. 매크로 목록에서 TestCrypto 를 클릭한 다음 실행 을 클릭하십시오.
  2. 암호화된 문자열을 보여주는 메시지 상자가 나타나면 확인 을 클릭하십시오. 해독된 문자열을 보여 주는 두 번째 메시지 상자가 나타납니다.
  3. 클래스 라이브러리는 .NET Framework를 실행하는 다른 컴퓨터에서 등록해야 할 경우 DLL이 시스템에 복사하여 다음 명령을 실행하십시오.
    regasm CryptoClass.dll/tlb:CryptoClass.tlb

참조

자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
301070방법: 암호화 및 Visual Basic .NET을 사용하여 파일 해독
자세한 내용은 다음 Microsoft 개발자 네트워크 (MSDN) 웹 사이트를 참조하십시오.
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx

속성

기술 자료: 317535 - 마지막 검토: 2007년 3월 29일 목요일 - 수정: 8.5
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Office Word 2003
  • Microsoft Visual Studio .NET 2003 Professional Edition
  • Microsoft Word 2002 Standard Edition
  • Microsoft Visual Studio .NET 2002 Professional Edition
키워드:?
kbmt kbcrypt kbsecurity kbhowtomaster KB317535 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com