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

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

Sp� na za�iatok | Odo�lite odozvu