اشترك في قناتنا ليصلك جديدنا

اشترك في قناتنا على اليوتيوب ليصلك جديدنا

كذلك الاعجاب بصفحتنا على الفيسبوك

كيف تقوم باالتشفير

كيف تقوم باالتشفير


النتائج 1 إلى 1 من 1

الموضوع: كيف تقوم باالتشفير

  1. #1
    هكر مبتديء Array
    تاريخ التسجيل
    Apr 2010
    المشاركات
    19

    New كيف تقوم باالتشفير



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim x As New OpenFileDialog
    Dim a(5) As Byte
    x.Filter = "*.jpg|*.jpg"
    If x.ShowDialog = Windows.Forms.DialogResult.OK Then
    FileOpen(1, x.FileName, OpenMode.Binary)
    FileGet(1, a(0), 1)
    FileGet(1, a(1), 2)
    FileGet(1, a(2), 3)
    FileGet(1, a(3), 4)
    FileGet(1, a(4), 5)
    FilePut(1, 255 - a(0), 1)
    FilePut(1, 255 - a(1), 2)
    FilePut(1, 255 - a(2), 3)
    FilePut(1, 255 - a(3), 4)
    FilePut(1, 255 - a(4), 5)


    End If
    FileClose(1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim x As New OpenFileDialog
    Dim a(5) As Byte
    x.Filter = "*.jpg|*.jpg"
    If x.ShowDialog = Windows.Forms.DialogResult.OK Then
    FileOpen(1, x.FileName, OpenMode.Binary)
    FileGet(1, a(0), 1)
    FileGet(1, a(1), 2)
    FileGet(1, a(2), 3)
    FileGet(1, a(3), 4)
    FileGet(1, a(4), 5)
    FilePut(1, 255 - a(0), 1)
    FilePut(1, 255 - a(1), 2)
    FilePut(1, 255 - a(2), 3)
    FilePut(1, 255 - a(3), 4)
    FilePut(1, 255 - a(4), 5)


    End If
    FileClose(1)
    Shell("explorer " & x.FileName, AppWinStyle.NormalFocus)
    End Sub

    التعديل الأخير تم بواسطة lassuis ; 05-15-2010 الساعة 02:51 PM


المواضيع المتشابهه

  1. يقوم بتشفير أي نص تقوم بوضعه فيه
    بواسطة Next dream في المنتدى منتدى البرامج - تحميل برامج
    مشاركات: 9
    آخر مشاركة: 05-20-2011, 08:16 AM
  2. اميركا تقوم بتحريف القرأن الكريم
    بواسطة ASDELY-ScOrPiOn في المنتدى المنتدى العام
    مشاركات: 17
    آخر مشاركة: 08-01-2010, 03:21 PM
  3. كيف تقوم بترتيب موقعك وتحسن من ترتيبه وظهوره في محركات البحث وفي قوقل
    بواسطة جليس الذكرى في المنتدى تطوير المواقع والمنتديات
    مشاركات: 1
    آخر مشاركة: 05-13-2010, 07:29 PM

وجد الزوار هذه الصفحة بالبحث عن:

لم يصل أحد إلى هذه الصفحة عن طريق محرك بحث، ذلك حتى الآن!

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •