• أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
  • بادئ الموضوع FLASH
  • تاريخ البدء
الحالة
مغلق و غير مفتوح للمزيد من الردود.
New Developer

  • إنضم
    2 يوليو 2016
    المشاركات
    20
    الإعجابات
    10
    النقاط
    20
    العمر
    40
    نظام التشغيل
    other
    التوجّه
    grey_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Ksa
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 20
    رصيدي البنكي الحالي ( 0 )
    المستوى 10
#1
السلام عليكم ورحمه الله وبركاته

كيفكم اعضاء عراق تيم
اليوم اول مشاركه لي ف المنتدى

اتيت اليكم ب شرح عمل برنامج تحويل السيرفر الى خورازميات

رابط الشرح على اليوتيوب
الخورازميه gzip

كود:
Imports System.IO.Compression
Imports System.IO

Public Class Compression

    Public Shared Function Compress(ByVal bytData() As Byte) As Byte()
        Using oMS As New MemoryStream()
            'GZip object that compress the file
            Using oGZipStream As New GZipStream(oMS, CompressionMode.Compress)
                'Write to the Stream object from the buffer
                oGZipStream.Write(bytData, 0, bytData.Length)
                oGZipStream.Close()
                ReDim bytData(oMS.ToArray.Length - 1)
                bytData = oMS.ToArray
            End Using
            oMS.Close()
        End Using
        Return bytData
    End Function

    Public Shared Function Decompress(ByVal bytData() As Byte) As Byte()
        Using oMS As New MemoryStream(bytData)
            Using oGZipStream As New GZipStream(oMS, CompressionMode.Decompress)
                Const CHUNK As Integer = 1024
                Dim intTotalBytesRead As Integer = 0
                Do
                    ' Enlarge the buffer.
                    ReDim Preserve bytData(intTotalBytesRead + CHUNK - 1)
                    ' Read the next chunk.
                    Dim intBytesRead As Integer = oGZipStream.Read(bytData, intTotalBytesRead, CHUNK)
                    intTotalBytesRead += intBytesRead
                    ' See if we're done.
                    If intBytesRead < CHUNK Then
                        ' We're done. Make the buffer fit the data.
                        ReDim Preserve bytData(intTotalBytesRead - 1)
                        Exit Do
                    End If
                Loop
                oGZipStream.Close()
            End Using
            oMS.Close()
        End Using
        Return bytData
    End Function

End Class
اهداء الى
Screeam
Dr.srag
 


New Developer

  • إنضم
    2 يوليو 2016
    المشاركات
    20
    الإعجابات
    10
    النقاط
    20
    العمر
    40
    نظام التشغيل
    other
    التوجّه
    grey_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Ksa
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 20
    رصيدي البنكي الحالي ( 0 )
    المستوى 10
#2
up
up
up
 


Mira Mrmr


.::|| زهره منتدى عراق تيم ||::.
V • I • P

  • إنضم
    9 يوليو 2015
    المشاركات
    654
    الإعجابات
    140
    النقاط
    465
    نظام التشغيل
    windows_8_1
    برنامج الحماية ؟
    eset_nod
    المتصفح
    chrome
    الإقامة
    Baghdad
    آخر نشاط
    الإجابات المقدمة: 1
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 465
    رصيدي البنكي الحالي ( 0 )
    المستوى 140
#3
عاشت ايدك شرح واضح
 


New Developer

  • إنضم
    2 يوليو 2016
    المشاركات
    20
    الإعجابات
    10
    النقاط
    20
    العمر
    40
    نظام التشغيل
    other
    التوجّه
    grey_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Ksa
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 20
    رصيدي البنكي الحالي ( 0 )
    المستوى 10
#4


V • I • P

  • إنضم
    7 يونيو 2014
    المشاركات
    2,921
    الإعجابات
    2,778
    النقاط
    555
    نظام التشغيل
    windows_7
    التوجّه
    white_hat
    المتصفح
    firefox
    الإقامة
    IraQ
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 555
    رصيدي البنكي الحالي ( 0 )
    المستوى 3K
#5
عاشت الايادي :D
 


New Developer

  • إنضم
    2 يوليو 2016
    المشاركات
    20
    الإعجابات
    10
    النقاط
    20
    العمر
    40
    نظام التشغيل
    other
    التوجّه
    grey_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Ksa
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 20
    رصيدي البنكي الحالي ( 0 )
    المستوى 10
#6


موقوف لمخالفة الشروط

  • إنضم
    1 فبراير 2016
    المشاركات
    246
    الإعجابات
    49
    النقاط
    75
    نظام التشغيل
    windows_7
    اللغة البرمجية
    visual_basic
    التوجّه
    grey_hat
    برنامج الحماية ؟
    eset_nod
    المتصفح
    firefox
    الإقامة
    العراق
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 75
    رصيدي البنكي الحالي ( 0 )
    المستوى 49
#7
عاشت الايادي شرح رائع
 


New Developer

  • إنضم
    2 يوليو 2016
    المشاركات
    20
    الإعجابات
    10
    النقاط
    20
    العمر
    40
    نظام التشغيل
    other
    التوجّه
    grey_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Ksa
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 20
    رصيدي البنكي الحالي ( 0 )
    المستوى 10
#8


Developer

  • إنضم
    4 يناير 2015
    المشاركات
    33
    الإعجابات
    1
    النقاط
    30
    نظام التشغيل
    windows_7
    اللغة البرمجية
    python
    التوجّه
    black_hat
    برنامج الحماية ؟
    avira
    المتصفح
    firefox
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 30
    رصيدي البنكي الحالي ( 0 )
    المستوى 1
#9
مجهوود رائع بارك الله فيك ياغالي
 


إدارة الموقع

  • إنضم
    12 أبريل 2015
    المشاركات
    1,603
    الإعجابات
    1,312
    النقاط
    555
    نظام التشغيل
    windows_7
    اللغة البرمجية
    visual_basic
    التوجّه
    black_hat
    المتصفح
    firefox
    آخر نشاط
    الإجابات المقدمة: 7


  • 24
     



  • النقاط المتوفره 555
    رصيدي البنكي الحالي ( 0 )
    المستوى 1K
#10
مبدع موضوع متعوب عليه
شكرا لك على مجهودك يغالي
 


شرح عمل برنامج تحويل السيرفر الى خورازميات | VB.NET
الحالة
مغلق و غير مفتوح للمزيد من الردود.