.Net - iExploit

Count NULLER

CheaTax — Sun, 31 Mar 2013 03:30:40 -0400

HIIi friends,

i
made a small tool for my self to null the column count value easily..i
thought to share this one with you.. this is a small thing for our great
programmers...but the newbies i think this will help when they are sql
injecting... I think this will work on both of 32bit and 64bit..confirm it buddy...

If there have any issue contact me..

Download it from Here

http://www.mediafire.com/?m5oksq5fe3kye1m

You want .NET Framework 4 to Run this...Download it From Here....

http://www.goo.gl/Wpbzg

Coded Using C#.NET

[VB.NET]How to make a nice GUI!

undead — Tue, 06 Apr 2010 11:21:11 -0400

[align=center]How to make a nice GUI![/align]

Download SkinCrafter Light: Here

Open Visual Basic.
Go to toolbox at "Data" and right click "Choose Items..."

Click Browse... and select C:\Program Files\SkinCrafter3\skincrafter.net-vs2005 light\SkinCrafter.Net VS2005\skincrafter.net-vs2005_light.dll.

http://img411.imageshack.us/img411/9027/37498571.png

Press OK.

Now it will be here:

http://img31.imageshack.us/img31/6391/dataq.png

Drag it to your form.

Go to its properties and select skin from here:

http://img638.imageshack.us/img638/7629/12804104.jpg

I always use Black_Pearl_st to my programs :D

http://img203.imageshack.us/img203/7950/77122036.png

Hope I helped you with this tutorial! :cool:

[ASP.NET] Anyone want a tutorial series?

D0WNGRADE — Thu, 05 May 2011 03:49:04 -0400

Hey iExploit,

I have been programming in ASP.NET for about 6 months now and was wondering if anyone wanted me to make a tutorial series about it?

Let me know in a reply! Thanks!

~D0WNGRADE

[C#] System Info [Source]

Xin — Sat, 21 Aug 2010 18:06:15 -0400

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Diagnostics;
using System.Net;
namespace SystemInfo
{
    class Program

    {
        static void Main(string[] args)
        {
            PerformanceCounter cpuCounter;
            PerformanceCounter ramCounter;
            cpuCounter = new PerformanceCounter();
            cpuCounter.CategoryName = \"Processor\";
            cpuCounter.CounterName = \"% Processor Time\";
            cpuCounter.InstanceName = \"_Total\";
            ramCounter = new PerformanceCounter(\"Memory\", \"Available MBytes\");

            Console.WriteLine(\"PC Name: \" + System.Environment.MachineName);
            Console.WriteLine(\"Operating System: \" + System.Environment.OSVersion);
            Console.WriteLine(\"64Bit True/False : \" + System.Environment.Is64BitOperatingSystem);
            Console.WriteLine(\"User: \" + System.Environment.UserName);
            Console.WriteLine(\"Processors: \" + System.Environment.ProcessorCount);
            Console.WriteLine(\"Domain Name: \" + System.Environment.UserDomainName);
            Console.WriteLine(\"CPU Usage: \" + cpuCounter.NextValue() + \"%\");
            Console.WriteLine(\"RAM Usage: \" + ramCounter.NextValue() + \"MB\");
            WebClient wc;
            wc = new WebClient();
           Console.WriteLine(\"IP Address: \" + wc.DownloadString(\"http://whatismyip.com/automation/n09230945.asp\"));

            Console.ReadLine();

        }
    }
}

Explode Web URL Vulnerability Scanner

Mr. P-teo — Mon, 12 Sep 2011 22:21:15 -0400

Hey everyone, here is a url scanner iv been working on recently just to get me used to coding in VB.NET again. Basically it scans the url you give and checks for well known vulns. You can export the results with a right click or clear the box with a right click.

Chacks for:
[list]
[*]SQLi[/*:m]
[*]Blind SQLi[/*:m]
[*]MsSQL[/*:m]
[*]RFI[/*:m]
[*]XSS[/*:m][/list:u]

I will admit there are a few bug's, and some url's it doesnt get response but on a whole works fairly well. Here are some screenshots.

[align=center]http://i26.lulzimg.com/07b650.jpg
http://i26.lulzimg.com/991b8f.jpg[/align]

Download Link:
http://www.mediafire.com/file/qj49p2zm3 ... canner.exe

Virus Scan:
http://www.virustotal.com/file-scan/rep ... 1315852699

Cosmos - Make an OS in C#

D0WNGRADE — Sat, 08 Sep 2012 14:46:30 -0400

Just letting everyone know about this... It's a way to create an OS in C# and then I believe it links it all together and exports to ASM. It's good for beginners to learn OS Theory and it''s actually pretty cool. So go check it out: http://cosmos.codeplex.com/

Visual Basic: Web Client

Xin — Sun, 20 Feb 2011 22:20:26 -0500

[video=youtube]

[TUT] Visual Basic - Variables , Detailed [BEGINNER]

Mr. P-teo — Fri, 09 Sep 2011 23:29:59 -0400

So, what are variables??

Variables are place holders of a sort, they allow us to give a value to a name or word, There are different types of variables, some languages dont have different types example: Perl. But VB.NET does, the too types i am going to tell you about are integers and Strings.

Integers

Integers are just another way of saying numbers, so by now you can already see how a variable would work - name = 4, but in programming there is usually a symbol or command/function needed to declare that it is a variable and not a silly programming mistake, and Vb is no different. Do declare a variable in Visual Basic we type "dim". Let me show you a full example:


dim variable1 as integer = 4

'dim', is letting the program know it is about to have a new variable name, the variable name is 'variable1', 'as integer' is declaring what type of variable it is, and '= 4' is the value the variable got assigned too. Simples.

Strings

String are variables that allow us to have words assigned top the name. Like with integers we must declare the variable, set the name, say what type and finally give it a value. To do this instead of using 'as integer' we use 'as string'. Here is an example:


dim variable2 as string = \"root\"

Like before we have had to declare that we are using a variable and assign it a name so we are able to give reference later on in a source, but this time we chose to use string showing that we will be using more than just numbers, because we are using more than numbers we have to surround the value with "" (quotations) so it know that that is what the = is referencing too.

The End.

Hope you found this a very detailed look at variables in visual basic, and let me know if you would like me to bring you more tutorials like this.

VB.NET - How to make a MD5 CheckSum Tool Tutorial

PlatinumHex — Thu, 30 Sep 2010 07:40:19 -0400

[align=center]
How to make a MD5 CheckSum Tool Tutorial

Step 1
[SPOILER]http://img534.imageshack.us/img534/1361/iexploitmd5checksumtool.png[/SPOILER]

Start a new project as shown in the image; choose a â€œWindows Form Applicationâ€.

Step 2
[SPOILER]http://img713.imageshack.us/img713/1361/iexploitmd5checksumtool.png[/SPOILER]

Populate the GUI as closely as possible to the shown image, with all the required controls.

Step 3

[SPOILER]http://img641.imageshack.us/img641/1361/iexploitmd5checksumtool.png[/SPOILER]

Input the required code for the Browse Button.

Step 4

[SPOILER]http://img687.imageshack.us/img687/1361/iexploitmd5checksumtool.png[/SPOILER]

Enter the necessarily code for the Calculate Button.

Step 5

[SPOILER]http://img823.imageshack.us/img823/1361/iexploitmd5checksumtool.png[/SPOILER]

Type in the shown codes for the Compare Button.

Step 6

[SPOILER]http://img10.imageshack.us/img10/1361/iexploitmd5checksumtool.png[/SPOILER]

Youâ€™re done! A demo of its capabilities.

Yeah! My first post at iExploit.org! Please leave constructive comments and feedbacks.
[/align]

Creating a pseudo MMO-bot/dual-boxing tool in C#

sangf — Sun, 05 Jun 2011 04:50:21 -0400

i used to play the game Lineage II quite a bit, and had an idea for a simple way to create a dual boxing tool which can also double as a 'bot'. i quote that because using this method it'd be overly difficult to create something that would play the game for you - but it's a perfect solution to automated support characters. just figured i'd share it here while i wait for an ep of ano hana to dl. it's nothing too special, but if you ever needed an auto-buff/auto-assist bot without the hastle; this might just help.

the method is simple: send key/mouse input to the target window using win32 api's PostMessage. yeah, that's pretty much it - an obvious way to send virtual input to a game window but i've never seen it done generally so here's some methods to help. as an idea to using this method effectively, i think mapping unused keys to trigger the 'bot' or dual box targets performance is the best bet, and certainly the easiest. for example you might have numeric keys 0 through 9 activate certain skills by simply sending the hotkeys associated to those skills using PostMessage.. games that support macros or text/chat commands will allow more flexibility for automation, but you get the idea.

to make use of the PostMessage function you'll need to specify a dllimport thingie (i don't know a name for it) like so -- note: this depends on the module/import/whatever the .NET terminology is called System.Runtime.InteropServices


[DllImport(\"user32.dll\", EntryPoint = \"PostMessage\")]
public static extern int PostMessage(IntPtr hWnd, uint Msg, uint wParam, uint lParam);

before using the function you need a handle to the window, which can be done using the process class in System.Diagnostics -- here is an example using a partial text search to match the title of a window.


IntPtr win_handle; // Store found window handle here
string win_title = \"Lineage \";
foreach (Process p in Process.GetProcesses())
{
    if (p.MainWindowTitle.Contains(win_title))
    {
        win_handle = p.MainWindowHandle;
        break;
    }
}

then the PostMessage function can be used as follows, assuming i didn't forget something silly - this will send a keydown event for the F1 key at the target window.


PostMessage(win_handle, 0x100, (uint) Keys.F1, 0);

note: 0x100 specifies the mouse down event, but using magic numbers is never reccommended, so here's a list that might help:


// Virtual Messages
public enum WMessages : int
{
    WM_LBUTTONDOWN = 0x201, //Left mousebutton down
    WM_LBUTTONUP = 0x202,  //Left mousebutton up
    WM_LBUTTONDBLCLK = 0x203, //Left mousebutton doubleclick
    WM_RBUTTONDOWN = 0x204, //Right mousebutton down
    WM_RBUTTONUP = 0x205,   //Right mousebutton up
    WM_RBUTTONDBLCLK = 0x206, //Right mousebutton doubleclick
    WM_KEYDOWN = 0x100,  //Key down
    WM_KEYUP = 0x101,   //Key up
    WM_CHAR = 0x0102
}

you'll notice that some of these events relate to mouse processing too - pretty much anything is possible, but it might involve some playing around with the PostMessage parameters, just take a look here or google using the appropriate event type to figure that out. anyway that's about it for now, i'll clean this up another day but for now.. i'll just leave some key constants incase they're needed (Keys.* should be fine for C# though).


    // Virtual Keys
    public enum VKeys : int
    {
        VK_LBUTTON = 0x01,   //Left mouse button
        VK_RBUTTON = 0x02,   //Right mouse button
        VK_CANCEL = 0x03,   //Control-break processing
        VK_MBUTTON = 0x04,   //Middle mouse button (three-button mouse)
        VK_BACK = 0x08,   //BACKSPACE key
        VK_TAB = 0x09,   //TAB key
        VK_CLEAR = 0x0C,   //CLEAR key
        VK_RETURN = 0x0D,   //ENTER key
        VK_SHIFT = 0x10,   //SHIFT key
        VK_CONTROL = 0x11,   //CTRL key
        VK_MENU = 0x12,   //ALT key
        VK_PAUSE = 0x13,   //PAUSE key
        VK_CAPITAL = 0x14,   //CAPS LOCK key
        VK_ESCAPE = 0x1B,   //ESC key
        VK_SPACE = 0x20,   //SPACEBAR
        VK_PRIOR = 0x21,   //PAGE UP key
        VK_NEXT = 0x22,   //PAGE DOWN key
        VK_END = 0x23,   //END key
        VK_HOME = 0x24,   //HOME key
        VK_LEFT = 0x25,   //LEFT ARROW key
        VK_UP = 0x26,   //UP ARROW key
        VK_RIGHT = 0x27,   //RIGHT ARROW key
        VK_DOWN = 0x28,   //DOWN ARROW key
        VK_SELECT = 0x29,   //SELECT key
        VK_PRINT = 0x2A,   //PRINT key
        VK_EXECUTE = 0x2B,   //EXECUTE key
        VK_SNAPSHOT = 0x2C,   //PRINT SCREEN key
        VK_INSERT = 0x2D,   //INS key
        VK_DELETE = 0x2E,   //DEL key
        VK_HELP = 0x2F,   //HELP key
        VK_0 = 0x30,   //0 key
        VK_1 = 0x31,   //1 key
        VK_2 = 0x32,   //2 key
        VK_3 = 0x33,   //3 key
        VK_4 = 0x34,   //4 key
        VK_5 = 0x35,   //5 key
        VK_6 = 0x36,    //6 key
        VK_7 = 0x37,    //7 key
        VK_8 = 0x38,   //8 key
        VK_9 = 0x39,    //9 key
        VK_A = 0x41,   //A key
        VK_B = 0x42,   //B key
        VK_C = 0x43,   //C key
        VK_D = 0x44,   //D key
        VK_E = 0x45,   //E key
        VK_F = 0x46,   //F key
        VK_G = 0x47,   //G key
        VK_H = 0x48,   //H key
        VK_I = 0x49,    //I key
        VK_J = 0x4A,   //J key
        VK_K = 0x4B,   //K key
        VK_L = 0x4C,   //L key
        VK_M = 0x4D,   //M key
        VK_N = 0x4E,    //N key
        VK_O = 0x4F,   //O key
        VK_P = 0x50,    //P key
        VK_Q = 0x51,   //Q key
        VK_R = 0x52,   //R key
        VK_S = 0x53,   //S key
        VK_T = 0x54,   //T key
        VK_U = 0x55,   //U key
        VK_V = 0x56,   //V key
        VK_W = 0x57,   //W key
        VK_X = 0x58,   //X key
        VK_Y = 0x59,   //Y key
        VK_Z = 0x5A,    //Z key
        VK_NUMPAD0 = 0x60,   //Numeric keypad 0 key
        VK_NUMPAD1 = 0x61,   //Numeric keypad 1 key
        VK_NUMPAD2 = 0x62,   //Numeric keypad 2 key
        VK_NUMPAD3 = 0x63,   //Numeric keypad 3 key
        VK_NUMPAD4 = 0x64,   //Numeric keypad 4 key
        VK_NUMPAD5 = 0x65,   //Numeric keypad 5 key
        VK_NUMPAD6 = 0x66,   //Numeric keypad 6 key
        VK_NUMPAD7 = 0x67,   //Numeric keypad 7 key
        VK_NUMPAD8 = 0x68,   //Numeric keypad 8 key
        VK_NUMPAD9 = 0x69,   //Numeric keypad 9 key
        VK_SEPARATOR = 0x6C,   //Separator key
        VK_SUBTRACT = 0x6D,   //Subtract key
        VK_DECIMAL = 0x6E,   //Decimal key
        VK_DIVIDE = 0x6F,   //Divide key
        VK_F1 = 0x70,   //F1 key
        VK_F2 = 0x71,   //F2 key
        VK_F3 = 0x72,   //F3 key
        VK_F4 = 0x73,   //F4 key
        VK_F5 = 0x74,   //F5 key
        VK_F6 = 0x75,   //F6 key
        VK_F7 = 0x76,   //F7 key
        VK_F8 = 0x77,   //F8 key
        VK_F9 = 0x78,   //F9 key
        VK_F10 = 0x79,   //F10 key
        VK_F11 = 0x7A,   //F11 key
        VK_F12 = 0x7B,   //F12 key
        VK_SCROLL = 0x91,   //SCROLL LOCK key
        VK_LSHIFT = 0xA0,   //Left SHIFT key
        VK_RSHIFT = 0xA1,   //Right SHIFT key
        VK_LCONTROL = 0xA2,   //Left CONTROL key
        VK_RCONTROL = 0xA3,    //Right CONTROL key
        VK_LMENU = 0xA4,      //Left MENU key
        VK_RMENU = 0xA5,   //Right MENU key
        VK_PLAY = 0xFA,   //Play key
        VK_ZOOM = 0xFB, //Zoom key
    }

[vb.net]Shell Checker [Source]

Xin — Fri, 20 Aug 2010 10:10:34 -0400

By Xinapse, please say thanks if it helps!

Imports System.Text.RegularExpressions
Imports System
Imports System.IO
Imports System.Net
Public Class Form1
    Dim shell(0 To 9000) As String

  
    Private Sub check()

        For i = 0 To txtShells.Lines.Count - 1
            Try
                Dim URL As String = shell(i)

                Dim request As WebRequest = WebRequest.Create(URL)
                Dim response As WebResponse = request.GetResponse()
                Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
                Dim str As String = reader.ReadToEnd
                If str.Contains(\"UDP Flood\") Then
                    txtGreenDos.Text = txtGreenDos.Text + shell(i) & vbNewLine
                ElseIf str.Contains(\"PHP DoS\") Then
                    txtPhpDos.Text = txtPhpDos.Text + shell(i) & vbNewLine
                Else
                    txtDead.Text = txtDead.Text + shell(i) & vbNewLine
                End If
            Catch ex As Exception
                txtDead.Text = txtDead.Text + shell(i) & vbNewLine
            End Try

        Next
     

    End Sub
    Private Sub cmdClipBoard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Clipboard.SetText(txtPhpDos.Text)

    End Sub

    Private Sub cmdCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCheck.Click
        Call check()

    End Sub

    Private Sub txtShells_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtShells.TextChanged
        For i = 0 To txtShells.Lines.Count - 1
            shell(i) = txtShells.Lines(i)
            i = i + 1
        Next
    End Sub

   
    Private Sub cmdExit_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExit.MouseEnter
        cmdExit.BackgroundImage = My.Resources.Untit3led
    End Sub

    Private Sub cmdExit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExit.MouseLeave
        cmdExit.BackgroundImage = My.Resources.Untitle2d
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub
End Class

[VB.NET] iHack (Visual basic Hacking Game)

Xin — Thu, 20 May 2010 21:24:55 -0400

iHack is a hacking game, i have started developping, in vb.net (no comments :P ) it is still in development stage and there are no working missions, but feel free to add missions and modules!

I have tried commenting the code to make it more readable, but its pretty easy to understand. To save having to upload the project file i will post the source so it can easily be edited.

Mission 1:Sun Virtual Bank (40% done)
Mission 2:Open for development
Mission 3:Open for development
Mission 4:Open for development
Mission 5:Open for development
Mission 6:Open for development

Full project: http://www.mediafire.com/?24yf3ymzoyz


listbox \"lstresult\"
textbox \"txtcommand\"
button \"cmdexecute\"
button \"cmdsetip\"
textbox \"txttargetip\"

Image
[spoiler]
http://img704.imageshack.us/img704/8012/ihack.png[/spoiler]

'iHack 1.0.0 Hacking Game made by iExploit
Public Class Form1
    Dim targetip As String ' target ip for connecting to 
    Dim filesystem As String ' shows the filesystem
    Dim enviroment As String ' Whether it is a local system or remote
    Dim balance As Integer
    Dim myUser As String
    Dim myPass As String






    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not My.Settings.myCPU = txtCPU.Text Then
            If MsgBox(\"Save System?\", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                My.Settings.myCPU = txtCPU.Text
                My.Settings.Save()
                e.Cancel = False
            Else
                e.Cancel = True
            End If
        End If
       
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        filesystem = \"bruteforce.c\"
        enviroment = \"local\"
        txtCPU.Text = My.Settings.myCPU
        txtBalance.Text = My.Settings.Balance
        balance = 500

    End Sub

    Private Sub cmdExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExecute.Click
        If enviroment = \"local\" Then
            Call LocalCommand()
        End If
        If enviroment = \"hardwareshop\" Then
            Call HardwareCommand()
        End If


    End Sub
    Private Sub HardwareCommand()
        If txtCommand.Text = \"login \" + myUser + \" \" + myPass Then
            lstResult.Items.Add(\"Welcome \" + myUser + \" Enjoy your stay\")
        End If
        If txtCommand.Text = \"show hardware\" Then
            lstResult.Items.Add(\"CPU\")
            lstResult.Items.Add(\"-----------------------------\")
            lstResult.Items.Add(\"Ion Midwave I        - $300\")
            lstResult.Items.Add(\"Ion Midwave II       - $500\")
            lstResult.Items.Add(\"Ion Midwave III      - $750\")
            lstResult.Items.Add(\"Eclipse Dual Core I  - $1200\")
            lstResult.Items.Add(\"Eclipse Dual Core II - $2000\")
            lstResult.Items.Add(\"Firewire Quadcore v1 - $4000\")
            lstResult.Items.Add(\"Ion Quadcore IV      - $7000\")
            lstResult.Items.Add(\"Eclipe Quadcore CPU  - $10000\")
            lstResult.Items.Add(\"Firewire Quadcore v2 - $15000\")
            lstResult.Items.Add(\"iExploit Quadcore 5k - $30000\")
            lstResult.Items.Add(\"-----------------------------\")
        End If
        If txtCommand.Text = \"buy Ion Midwave I\" Then
            If balance > 300 Then
                txtCPU.Text = \"Ion Midwave I\"
                balance = balance - 300
                progCPUSpeed.Value = 5
                lstResult.Items.Add(\"Successfully Purchased Ion Midwave I\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Ion Midwave II\" Then
            If balance > 500 Then
                txtCPU.Text = \"Ion Midwave II\"
                balance = balance - 500
                progCPUSpeed.Value = 10
                lstResult.Items.Add(\"Successfully Purchased Ion Midwave II\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Ion Midwave III\" Then
            If balance > 750 Then
                txtCPU.Text = \"Ion Midwave III\"
                balance = balance - 750
                progCPUSpeed.Value = 15
                lstResult.Items.Add(\"Successfully Purchased Ion Midwave III\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Eclipse Dual Core I\" Then
            If balance > 1200 Then
                txtCPU.Text = \"Eclipse Dual Core I\"
                balance = balance - 1200
                progCPUSpeed.Value = 20
                lstResult.Items.Add(\"Successfully Purchased Eclipse Dual Core I\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Eclipse Dual Core II\" Then
            If balance > 2000 Then
                txtCPU.Text = \"Eclipse Dual Core II\"
                balance = balance - 2000
                progCPUSpeed.Value = 25
                lstResult.Items.Add(\"Successfully Purchased Eclipse Dual Core II\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Firewire Quadcore v1\" Then
            If balance > 4000 Then
                txtCPU.Text = \"Firewire Quadcore v1\"
                balance = balance - 4000
                progCPUSpeed.Value = 30
                lstResult.Items.Add(\"Successfully Purchased Firewire Quadcore v1\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Ion Quadcore IV\" Then
            If balance > 7000 Then
                txtCPU.Text = \"Ion Quadcore IV\"
                balance = balance - 7000
                progCPUSpeed.Value = 40
                lstResult.Items.Add(\"Successfully Purchased Ion Quadcore IV\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Eclipe Quadcore CPU\" Then
            If balance > 10000 Then
                txtCPU.Text = \"Eclipe Quadcore CPU\"
                balance = balance - 10000
                progCPUSpeed.Value = 50
                lstResult.Items.Add(\"Successfully Purchased Ion Quadcore IV\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy Firewire Quadcore v2\" Then
            If balance > 15000 Then
                txtCPU.Text = \"Firewire Quadcore v2\"
                balance = balance - 15000
                progCPUSpeed.Value = 60
                lstResult.Items.Add(\"Successfully Purchased Firewire Quadcore v2\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
        If txtCommand.Text = \"buy iExploit Quadcore 5k\" Then
            If balance > 30000 Then
                txtCPU.Text = \"iExploit Quadcore 5k\"
                balance = balance - 30000
                progCPUSpeed.Value = 70
                lstResult.Items.Add(\"Successfully Purchased iExploit Quadcore 5k\")
            Else
                lstResult.Items.Add(\"Insufficient Funds\")
            End If
        End If
    End Sub
    Private Sub LocalCommand() ' commands for local system
        If txtCommand.Text = \"help\" Then
            lstResult.Items.Add(\"iConsole Commands:\")
            lstResult.Items.Add(\"------------------\")
            lstResult.Items.Add(\"help\")
            lstResult.Items.Add(\"ping\")
            lstResult.Items.Add(\"telnet\")
            lstResult.Items.Add(\"shutdown\")
            lstResult.Items.Add(\"dir\")
        ElseIf txtCommand.Text = \"shutdown\" Then
            Me.Close()
        ElseIf txtCommand.Text = \"ping\" Then
            lstResult.Items.Add(\"checking if \" + targetip + \" is alive\")
        ElseIf txtCommand.Text = \"dir\" Then
            lstResult.Items.Add(filesystem)
        ElseIf txtCommand.Text = \"nmap\" Then
            lstResult.Items.Add(\"nmap usage: nmap -sV -sP\")
            lstResult.Items.Add(\"nmap example: nmap -sV 192.168.2.1\")
        ElseIf txtCommand.Text = \"nmap 71.53.153.6\" Then
            lstResult.Items.Add(\"nmap scanning 71.53.153.6\")
            lstResult.Items.Add(\"Port 21 iftpd open\")
            lstResult.Items.Add(\"Port 23 telnet open\")
            lstResult.Items.Add(\"Scan completed\")
        ElseIf txtCommand.Text = \"metasploit\" Then
            lstResult.Items.Add(\"Metasploit Framework 3.0.0 Launched\")
            lstResult.Items.Add(\"nmap example: nmap -sV 192.168.2.1\")
        ElseIf txtCommand.Text = \"metasploit show exploits\" Then
            lstResult.Items.Add(\"tftpd 2.0.16 Format string Exploit\")
            lstResult.Items.Add(\"ezySSH 1.10 Remote buffer overflow \")
        ElseIf txtCommand.Text = \"metasploit use tftpd 2.0.16 71.53.153.6\" Then
            lstResult.Items.Add(\"Exploiting...\")
            lstResult.Items.Add(\"Reverse TCP Shell\")
            lstResult.Items.Add(\"iMark Hardware Store Admin CP\")
        Else


            lstResult.Items.Add(\"Invalid Command\")
        End If

    End Sub
    Private Sub radAppleInc_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radAppleInc.CheckedChanged
        txtTelnetIP.Text = \"79.43.56.34\"
    End Sub

    Private Sub radFBICentral_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radFBICentral.CheckedChanged
        txtTelnetIP.Text = \"11.21.24.12\"
    End Sub

    Private Sub radBlackMarket_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radBlackMarket.CheckedChanged
        txtTelnetIP.Text = \"216.25.124.21\"
    End Sub

    Private Sub radHardwareShop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radHardwareShop.CheckedChanged
        txtTelnetIP.Text = \"71.53.153.6\"
    End Sub

    Private Sub radSABank_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radSABank.CheckedChanged
        txtTelnetIP.Text = \"105.121.21.35\"
    End Sub

    Private Sub radIBMMain_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radIBMMain.CheckedChanged
        txtTelnetIP.Text = \"7.11.62.125\"
    End Sub

    Private Sub cmdTelnet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTelnet.Click
        If radHardwareShop.Checked = True Then
            lstResult.Items.Add(\"Connecting to 71.53.153.6...\")
            lstResult.Items.Add(\"--------------------------------------------------------\")
            lstResult.Items.Add(\"Connected to iMart Hardware Parts Telnet Server\")
            lstResult.Items.Add(\"Please login using your existing username and password...\")
            lstResult.Items.Add(\"--------------------------------------------------------\")
            lblConnectedTo.Text = \"iMart Hardware Shop\"
            enviroment = \"hardwareshop\"


        End If
    End Sub
    Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
        If enviroment = \"iMart Hardware Shop\" Then
            If txtUser.Text = \"admin\" & txtPass.Text = \"imartadm\" Then
                lblUser.Text = \"admin\"
            ElseIf txtUser.Text = myUser & txtPass.Text = myPass Then
                lblUser.Text = myUser


            End If
        End If
    End Sub

   

End Class

Ugh - Link grabber, output to combo box [VB.Net]

Sh3llc0d3 — Wed, 22 Jun 2011 21:12:35 -0400

After a while of not coding in vb I'm back (ugh lol). Just wanting to know if anyone could give me a nudge or example in the right direction. I'm wanting to on form_load initiate a link grabber which will discover the links on a specific webpage (the links are to files), and then parse the output to get just the filename (.zip file). The filenames would then be output seperately to a combobox in order...

Can anyone help?

Visual Basic: Accessing Controls Across Forms

Xin — Sun, 20 Feb 2011 22:18:41 -0500

[video=youtube]

Visual Basic: Send Keys

Xin — Sun, 20 Feb 2011 22:19:50 -0500

[video=youtube]

Visual Basic: For Loop

Xin — Sun, 20 Feb 2011 22:19:35 -0500

[video=youtube]

Visual Basic Do While

Xin — Sun, 20 Feb 2011 22:19:00 -0500

[video=youtube]

Visual Basic: Do Until

Xin — Sun, 20 Feb 2011 22:18:13 -0500

[video=youtube]

Visual Basic 6: Else If

Xin — Sun, 20 Feb 2011 22:17:48 -0500

[video=youtube]

Crypter in VB

x3n0n — Tue, 25 Jan 2011 19:29:22 -0500

Hey everyone,

I'm working on a new crypter, I was wondering if any of you know any good encryption algorithms.
Right now, I only got RC4 working. But I'm gonna implement RSA and IDEA encryption to.

Any suggestions for encryptions to add?