Suspicious ^80% Download

TXT Sonido.vb

Unusual network text transmission

Sends a delimiter-joined command wordCode references Windows Forms assembly

SHA-256f2dfe0cb1cce31426c7459eaaec40f223db08a94d8b9d60c41731e0895b476f8

Evidence

Code references Windows Forms assembly lines 4–9

4:11… stem.IO
5Imports System
6Imports Microsoft.VisualBasic
7Imports System.Windows.Forms
8Imports System.Diagnostics
9Imports System.Windows.Forms.MessageBox 'para manter todas as messagebox em superior ou forme na h …

VBScript Dim variable declaration lines 15–22

15#Region "text"
16    Public sock As Integer
17    Dim yy As String = "||"
18#End Region
19
20    Private Sub TXT_Send_Load(sender As Object, e As EventArgs) Handles MyBase.Load
21        Try
22            Me.PictureBox1. …

Sends a delimiter-joined command word lines 26–37

19… tData.ClearProjectError()
      End Try
  End Sub
29
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Form1.s.Send(sock, "txttosend" & yy & Me.TextBox1.Text) 'chamar
      MessageBox.Show("O Sonido Foi Reprodozido", "Sonido", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 'mensagem
  End Sub
34
  Private Sub TXT_Send_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
      Try
          Me. …

VBScript Sub procedure lines 41–47

42… ()
      End Try
  End Sub
44
  Private Sub TXT_Send_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
      Try
          Me.TextBox …

VBScript End control-flow block lines 70–79

77… ns.OK, MessageBoxIcon.Error) 'mensagem
      End If
  End Sub
73
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
      Form1.s.Send(sock, "txttosend" & Form1.yy & Me.TextBox1.Text) 'chamar
  End Sub
77
  Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
      Me.ToolStripProgressBar1.Value = …