HOW TO: مكالمة مكتبة الفئات ".NET Visual Basic من Visual Basic للتطبيقات في Microsoft Office

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية317535
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
استخدم هذا دليل خطوة بخطوة استدعاء مكتبة فئة .NET من Visual Basic for Applications. يظهر هذا النموذج كيفية برنامج Visual Basic for Applications استخدام مكتبة فئة Visual Basic .NET لتشفير وفك تشفيرها سلسلة. يمكنك استخدام مساحة الاسم التشفير تضمينها في .NET Framework، التشفير/فك التشفير.

back to the top

إنشاء مكتبة الفئات 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 FunctionEnd Class						

    ملاحظة يمكنك استخدام منشئ GUID لإنشاء GUID جديد ClassId و InterfaceId و EventsId. لإنشاء GUID جديد انقر فوق إنشاء GUID على القائمة أدوات.
  3. حدد خصائص تكوين من خصائص المشروع. انقر فوق إنشاء ثم قم بتحديد تسجيل COM Interop خانة الاختيار. انقر فوق موافق.
  4. في القائمة إنشاء ، انقر فوق إنشاء حلول لإنشاء DLL.
back to the top

إنشاء Visual Basic for ماكرو تطبيقات استدعاء مكتبة الفئات في .NET

  1. بدء تشغيل Microsoft Excel. اضغط ALT + F11 لبدء تشغيل محرر Visual Basic.
  2. من القائمة إدراج ، انقر فوق الوحدة النمطية إدراج وحدة نمطية فارغة.
  3. من القائمة أدوات ، انقر "مراجع". إضافة مرجع إلى مكتبة CryptoClass ثم انقر فوق موافق.
  4. اكتب أو الصق التعليمة البرمجية التالية في إطار التعليمات البرمجية الوحدة النمطية 1:
    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					
back to the top

اختبار التعليمات البرمجية

  1. من القائمة أدوات، انقر فوق وحدات الماكرو. في القائمة وحدات الماكرو ، انقر فوق TestCrypto ثم انقر فوق تشغيل.
  2. إذا ظهر مربع رسالة إظهار سلسلة المشفرة ، انقر فوق "موافق". يظهر مربع رسالة ثاني تظهر سلسلة تم فك تشفيره.
  3. إذا احتاج مكتبة الفئة تسجيل على كمبيوتر آخر يقوم بتشغيل .NET Framework, بنسخ DLL إلى النظام ثم قم بتشغيل الأمر التالي:
    /tlb:CryptoClass.tlb CryptoClass.dll regasm
back to the top
مراجع
للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
301070HOW TO: التشفير و فك تشفير ملف باستخدام Visual Basic .NET
لمزيد من المعلومات، راجع موقع المطور Microsoft Network (MSDN) التالي على الويب: back to the top
vba التشفير

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 317535 - آخر مراجعة: 12/07/2015 08:53:46 - المراجعة: 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

  • kbnosurvey kbarchive kbmt kbcrypt kbsecurity kbhowtomaster KB317535 KbMtar
تعليقات