AKO: Volať Visual Basic.NET triedy knižnica z Visual Basic for Applications v programe Microsoft Office

Preklady článku Preklady článku
ID článku: 317535 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Použite tento krokový volať.ČISTÝ triedy knižnica z Visual Basic for Applications. Táto vzorka ukazuje, ako Visual Basic for Aplikácie programu môžete použiť Visual Basic.ČISTÝ triedy knižnica na zašifrovanie a dešifrovať reťazec. Môžete použiť kryptografia namespace zahrnuté do.NET Rámec pre šifrovania alebo dešifrovania.

Vytvoriť Visual Basic.NET triedy knižnica

  1. Spustiť Microsoft Visual Studio.NET. Na Súbor ponuku, ukážte na Nové, a potom kliknite na tlačidlo Projekt. Podľa Projektov programu Visual Basic, vyberte Triedy knižnica. Názov triedy CryptoClass a kliknite na tlačidlo ok. V predvolenom nastavení sa vytvorí Class1.
  2. Nahradiť obsah Class1 s nasledujúcim kódom:

    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
    						

    Poznámka Môžete použiť identifikátor GUID generátor generovať nové GUID pre ClassId, InterfaceId a EventsId. Generovať nové GUID, kliknite na tlačidlo Vytvoriť GUID na Nástroje ponuka.
  3. Z Vlastnosti projektu, vyberte Konfigurácia vlastnosti. Kliknite na tlačidlo Vybudovať a potom vyberte Zaregistrujte sa na COM Interopzačiarkavacie políčko. Kliknite na tlačidlo ok.
  4. Na Vybudovať ponuky, kliknite na tlačidlo Riešenie Ak chcete vytvoriť knižnicu DLL.

Vytvoriť Visual Basic for Applications a hovor.NET triedy knižnica

  1. Štart Program Microsoft Excel. Stlačte klávesy ALT + F11 Spustite Editor jazyka Visual Basic.
  2. Na Vložiť ponuky, kliknite na tlačidlo Modul Ak chcete vložiť prázdne modul.
  3. Na Nástroje ponuky, kliknite na tlačidlo Odkazy. Pridať odkaz na CryptoClass Knižnica a kliknite na tlačidlo ok.
  4. Zadajte alebo prilepte nasledujúci kód Module1 kód okno:
    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
    					

Testovať kód

  1. Na Nástroje ponuky, kliknite na tlačidlo Makrá. V zozname makier kliknite na TestCrypto, a potom kliknite na tlačidlo Spustiť.
  2. Ak sa zobrazí hlásenie zobrazujúce šifrované reťazec kliknite na tlačidlo ok. Druhé okno s hlásením zobrazí s dešifrovaný reťazec.
  3. Ak triedy knižnica potrebuje zaregistrovať na inom počítač so systémom.NET Framework, skopírujte DLL systému a spustiť nasledujúci príkaz:
    regasm CryptoClass.dll /tlb:CryptoClass.tlb

ODKAZY

Ďalšie informácie získate po kliknutí na nasledovné číslo článku databázy Microsoft Knowledge Base:
301070AKO: Šifrovanie a dešifrovanie súboru pomocou jazyka Visual Basic.NET
Ďalšie informácie nájdete v nasledujúcich Microsoft Webová lokalita Developer Network (MSDN):
http://msdn2.Microsoft.com/en-us/library/aa188489 (office.10) .aspx

Vlastnosti

ID článku: 317535 - Posledná kontrola: 8. novembra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Visual Studio .NET 2003 Professional Edition
  • Microsoft Word 2002 Standard Edition
  • Microsoft Visual Studio .NET 2002 Professional Edition
Kľúčové slová: 
kbcrypt kbsecurity kbhowtomaster kbmt KB317535 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:317535

Odošlite odozvu

 

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