iExploit

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Sign In Apply for Membership

Top Posters

Who's Online (0)

Powered by Vanilla. Made with Bootstrap.
Looking to introduce yourself? Look no further, and click here! We also have IRC! [irc.evilzone.org #iexploit]
[VB.NET] iHack (Visual basic Hacking Game)
  • Xin
    Posts: 3,251
    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
    Xin
  • chroniccommand
    Posts: 1,389
    0.o way to steal my idea lol. Vb.net == shit.
  • Xin
    Posts: 3,251
    Haha, i had this like a year a go when i learnt it at school :P thought id continue it
    Xin
  • Xin
    Posts: 3,251
    This is the discussion thread for this now btw
    Xin
  • PlatinumHex
    Posts: 28
    How can we help? I mean like what are your expectations of of our assistance.
  • Xin
    Posts: 3,251
    Well i havent really done any of this in ages, but its opensource, the source is in a nother post i belive so basically add what you want to it :)
    Xin
  • PlatinumHex
    Posts: 28
    I will look into it when I get home.
    Always wanted to make one of these. Haha..
  • PlatinumHex
    Posts: 28
    I completed 0.5% of it. Hahaha!
  • PlatinumHex
    Posts: 28
    My progress : 20% (Too little, maybe because I put too much thought into it)

    Screenshot:
    [spoiler]
    http://img831.imageshack.us/img831/2431/ihackpreview.png
    [/spoiler]

    Give me your ideas and feedbacks on the following

    -Complete logging system
    -Single User Only
    -Crappy MS-DOS-Like environment
  • Sh3llc0d3
    Posts: 1,910
    It lists what controls he's used, given a screenshot and given the source code, You pretty much don't need the project files. It could be easily replicated.
Add a Comment