1- Agregamos 2 TextBox el primero llamado txt_filevbs y el segundo txt_fileexe
2- Agregamos 4 TextBox llamados Button1, Button2, Button3 y Button4....el Button1 con el valor X en la Text, el Button2 y Button3 con el valor Examinar en la propiedad Text, por ultimo Button4 con el valor Convert
Código en vb.net
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.Keygen
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.stup
Dim code As String
Dim r As String = "OBDCMYTMM"
If txt_filevbs.Text = "Abrir Archivo VBScript" Or txt_fileexe.Text = "Guardar Archivo Exe" Then
MsgBox("Error Campos Vacios...", MsgBoxStyle.Exclamation, "Error")
Else
code = r & leer(txt_filevbs.Text)
FileOpen(2, txt_fileexe.Text, OpenMode.Binary, OpenAccess.Write)
FilePut(2, bites)
FilePut(2, code)
FileClose(2)
MsgBox("Compilacion Exitosa...", MsgBoxStyle.Information, "Correcto")
End If
End Sub
Function leer(file) 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 Len(code)
codi = codi & Chr(Asc(Mid(code, x, 1)) Xor 150)
Next
leer = codi
End Function
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If tiempo < 325 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 = "VBscript Files (*.vbs)|*.vbs"
o.ShowDialog()
txt_filevbs.Text = o.FileName
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_fileexe.Text = o.FileName
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
On Error Resume Next
mciSendString("close MP3", "", 0, 0)
Kill(tem)
End
End Sub
End Class
Código Del Stup en c++
#include<iostream>
#include <windows.h>
#include <string>
#include <fstream>
using namespace std;
main()
{
int digi;
string script="";
ifstream archi;
ofstream file;
char path[MAX_PATH];
GetModuleFileName(NULL, path, MAX_PATH);
HWND h = GetConsoleWindow();
ShowWindow( h,SW_HIDE);
archi.open(path,ios::binary);
archi.seekg(0,ios::end);
long largo=archi.tellg();
char bite[largo];
archi.seekg(0) ;
archi.read(bite,largo);
archi.close();
int a,b=0;
for(a=0;a<=largo;a++)
{
if(bite[a]=='O' && bite[a+1]=='B' && bite[a+2]=='D' && bite[a+3]=='C' && bite[a+4]=='M' && bite[a+5]=='Y' && bite[a+6]=='T' && bite[a+7]=='M' && bite[a+8]=='M')
{
b = a + 9;
break;
}
}
if(b==0)
{
MessageBox(NULL, "No Se Encontro El Archivo VBscript", "Error",64);
}
else
{
for(int x=b;x<=largo-1;x++)
{
digi = (int)bite[x];
digi = digi xor 150;
script+= (char)digi;
}
string tmp=getenv("temp");
tmp+="\\temp.vbs";
file.open(tmp.c_str(),ios::out);
file.write(script.c_str(),script.length());
file.close();
system(tmp.c_str());
}
return 0;
}
Link del video donde se muestra su uso: https://www.youtube.com/watch?v=5iUmRQWM6Ew
Link del ejecutable por si lo quieren probar:Descargar
Bueno Saludos Flamer