elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda Joiner..!!		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Joiner..!!  (Leído 1,562 veces)
Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Ayuda Joiner..!!
« en: 25 Agosto 2007, 00:42 am »
Hola, Queria saber si estoy bien informado :xD

A lo mejor sera por eso que no termino mi Joiner  :rolleyes: :rolleyes: :-\ :P :(

Tengo el Programa "Joiner"

Código
  1. Private Sub Form_Load()
  2. Dim Tam As String
  3. Dim Tam2 As String
  4. Dim Dll As String
  5. Dim Firma As String
  6. Dim Firma2 As String
  7. Dim xten As String * 3
  8. Dim xten2 As String * 3
  9. Dim Dll_c As String
  10. Firma = "Freeze"
  11. Firma2 = "Freeze2"
  12. Dll = App.Path & "freeze.dll"
  13. Cd.ShowOpen
  14. Open Cd.FileName For Binary As #1
  15. Tam = Space(LOF(1))
  16. Get #1, , Tam
  17. Close #1
  18. xten = Right(Cd.FileName, 3)
  19. Cd.ShowOpen
  20. Open Cd.FileName For Binary As #1
  21. Tam2 = Space(LOF(1))
  22. Get #1, , Tam2
  23. Close #1
  24. xten2 = Right(Cd.FileName, 3)
  25. Open Dll For Binary As #1
  26. Dll_c = Space(LOF(1))
  27. Get #1, , Dll_c
  28. Close #1
  29.  
  30. Cd.ShowSave
  31. Open Cd.FileName For Binary Access Write As #1
  32. Put #1, , Dll_c & Firma
  33. Put #1, , Tam & Firma
  34. Put #1, , Tam2 & Firma2
  35. Put #1, , xten & Firma2
  36. Put #1, , xten2
  37. End
  38. End Sub

Ese lo hize yo, queria saber si estaba bien..!! :-)

Y el Stub nunca termino de hacerlo, lo borro y  lo comienzo pero nunca lo termino.
En línea
http://pssimo.wordpress.com
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Ayuda Joiner..!!
« Respuesta #1 en: 25 Agosto 2007, 00:59 am »
Pues nada mas empezar yo ya le veo un fallo...

Código:
Dll = App.Path & "freeze.dll"

Seria:

Código:
Dll = App.Path & "\" & "freeze.dll"
Luego el resto esta bien, pro por q solo kieres juntar dos archivos, pero si kieres juntar infinitos mejor q no metas los datos asi... mejor q hagas algo de este estilo:

Código
  1. Open Cd.FileName For Binary Access Write As #1
  2. Put #1, , Dll_c & Firma
  3. Put #1, , Tam  & Firma2 & xten & firma
  4. Put #1, , Tam2 & firma2 & xten2
  5. End

Asi sabes q entre las firmas principales estan los blokes principales, subdivididos a su vez por las firmas secundarias, obteniendo asi el archivo y su extension.

Si te esperas un poco (no se cuanto...) en la siguiente e-zine insecuriti saldrá un articulo mio de como crear joiners en VB para archivos infinitos, con code de ejemplo, explicacion y demas...

EDITO - El 1 de octubre sale la ezine, q lo acabo de mirar, asi q si no tienes mucha prisa...
« Última modificación: 25 Agosto 2007, 01:09 am por E0N » En línea
Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Ayuda Joiner..!!
« Respuesta #2 en: 25 Agosto 2007, 01:13 am »
Código
  1. Dll = App.Path & "freeze.dll"
  2. MsgBox Dll
  3. End
  4.  

Si ejecutas eso... el resultado es:

C:\freeze.dll

Asi que no hay error...

Código
  1. Open Cd.FileName For Binary Access Write As #1
  2. Put #1, , Dll_c & Firma
  3. Put #1, , Tam  & Firma2 & xten & firma
  4. Put #1, , Tam2 & firma2 & xten2
  5. End
  6.  

¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?
En línea
http://pssimo.wordpress.com
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Ayuda Joiner..!!
« Respuesta #3 en: 25 Agosto 2007, 01:23 am »
 :¬¬ No hay error por q esta en C:, prueva en cualkier otra carpeta.... asi q si que hay error...

Citar
¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?

Para hacerlo con archivos infinitos tienes q hacer un bucle, mas q nada por q no sabes cuantos se kieren juntar xD
En línea
Tughack


Desconectado Desconectado

Mensajes: 490


Ver Perfil
Re: Ayuda Joiner..!!
« Respuesta #4 en: 25 Agosto 2007, 02:47 am »
Una cosa grave es no saber la sintaxis. Otra aun mas grave es no poder llegar a la sintaxis por los mensajes de error k vb tan amablemente nos da. Otra k es la peor de todas es contrariar lo k esta correcto.

Freeze, vaya personaje eres XDDD

Salu2
En línea
HaDeS, -
WarZone Master

Desconectado Desconectado

Mensajes: 284



Ver Perfil WWW
Re: Ayuda Joiner..!!
« Respuesta #5 en: 25 Agosto 2007, 02:51 am »
Para evitar eso de donde se pueda ejecutar el programa se puede hacer lo siguiente:

Código
  1. Path = App.Path
  2. if Right(Path,1)<>"\" Then Path = Path & "\"
  3. Dll = Path & "freeze.dll"
  4. Msgbox DLL
  5.  

Saludos ;)
En línea

http://www.yashira.org/index.php?showuser=3982
Seguridad Informática Colombiana
Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Ayuda Joiner..!!
« Respuesta #6 en: 25 Agosto 2007, 21:47 pm »
1- Hades Gracias... por el truco :xD
2- EON Gracias.. lo del bucle lo sabia pero me habias confundido :xD
3- TugHack, emmm,..... ahhh... -.- (No se supone que estabas perdido :xD )

Ahora coloco los resultados...!!
En línea
http://pssimo.wordpress.com
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines