Oturum a�

Select the product you need help with

NAS�L YAP�L�R: Microsoft Office uygulamalar� Visual Basic .NET Class Library Visual Basic'den �a��r

Makale numaras�: 317535 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

Bu ad�m ad�m k�lavuzda, bir .NET s�n�f kitapl��n�n Visual Basic for Applications aramak i�in kullan�n. Bu �rnek, bir Visual Basic for Applications program� �ifrelemek ve dize �ifresini ��zmek i�in bir Visual Basic .NET s�n�f kitapl��n�n nas�l kullanaca��n�z� g�sterir. .NET dahil �ifreleme ad kullanabilece�iniz Framework, �ifreleme/�ifre ��zme i�in.

Visual Basic .NET s�n�f kitapl�� olu�turma

Microsoft Visual Studio .NET'i ba�lat�n. Dosya men�s�nde Yeni ' nin �zerine gelin ve sonra Project ' i t�klat�n. Visual Basic Projects alt�nda S�n�f kitapl�� se�in. S�n�f CryptoClass adland�r�n ve sonra Tamam ' � t�klat�n. Class1, varsay�lan olarak olu�turulur.

Class1 i�eri�ini a�a��daki kodla de�i�tirin:

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

Not GUID �reticisi, Class�d, �nterface�d ve EventsId i�in yeni bir Gu�d olu�turmak i�in kullanabilirsiniz. Yeni bir Gu�d olu�turmak i�in <a0></a0>, Ara�lar men�s�nden Olu�tur GUID ' i t�klat�n.

Proje �zellikleri, Yap�land�rma �zellikleri ' ni se�in. Olu�tur ' u t�klat�n ve sonra da COM birlikte �al��ma i�in kayd� se�in onay kutusu. Tamam ' � t�klat�n.
Yap�) men�s�nde, dll DOSYAS�N� olu�turmak i�in Build Solution ' � t�klat�n.

Bir Visual Basic for Applications makrosu .NET s�n�f kitapl�� arama olu�turma

Microsoft Excel'i ba�lat�n. Visual Basic D�zenleyicisi'ni ba�latmak i�in ALT+F11 tu�lar�na bas�n.
Ekle men�s�nde bo� bir mod�l eklemek i�in mod�l� ' n� t�klat�n.
Ara�lar men�s�nde, Ba�vurular ' � t�klat�n. CryptoClass kitapl��a bir ba�vuru ekleyin ve Tamam ' � t�klat�n.

Module1 kod penceresinde a�a��daki kodu yap��t�r�n veya yaz�n:

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

Kod s�nay�n.

Ara�lar men�s�nden makrolar ' � t�klat�n. Makrolar� listesini TestCrypto ' � t�klat�n ve sonra da <a2>�al��t�r</a2>'� t�klat�n.
�ifrelenmi� dize g�steren bir ileti kutusu g�r�nt�lenirse, Tamam ' � t�klat�n. �ifresi ��z�len dize g�steren ikinci BIR ileti kutusu g�r�n�r.
S�n�f kitapl��, .NET Framework �al��t�ran ba�ka bir bilgisayarda kay�tl� olmas� gerekiyorsa, DLL sisteme kopyalay�n ve a�a��daki komutu �al��t�r�n:
RegAsm CryptoClass.dll /tlb:CryptoClass.tlb

�ste | Geri Bildirim Ver

Referanslar

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

301070

(http://support.microsoft.com/kb/301070/ )

NAS�L YAP�L�R: �ifreleme ve bir Visual Basic .NET kullanarak �ifresini

Daha fazla bilgi i�in a�a��daki Microsoft Developer Network (MSDN) Web sitesine bak�n:

http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx

(http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx)

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 317535 - Son G�zden Ge�irme: 29 Mart 2007 Per�embe - G�zden ge�irme: 8.5

Bu makaledeki bilginin uyguland�� durum:

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 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:317535

(http://support.microsoft.com/kb/317535/en-us/ )

�ste | Geri Bildirim Ver