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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Tutorial]Programando un Joiner simple desde 0.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [Tutorial]Programando un Joiner simple desde 0.  (Leído 4,031 veces)
invisible_hack


Desconectado Desconectado

Mensajes: 978


Invisible_Hack™ Nick Registrado ^^


Ver Perfil WWW
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #10 en: 2 Septiembre 2007, 21:30 pm »

Por pm invisible_hack please ;)

Ok jeje disculpa,lo tendre en cuenta, bueno ya le mande un Mp y ya me dijo que me dejaba publicarlo ;D por cierto no se si lo he dicho ya pero me gusta mucho la interfaz de ese Joiner...

Saludos...


En línea

"Si no visitas mi blog, Chuck te dará una patada giratoria"
Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #11 en: 3 Septiembre 2007, 20:02 pm »

Invisible_hack... Como Admin de tu Foro.. Te exigo que coloquees en GRANDE que este tutorial es mio.

http://invisiblehack.mforos.com/1109918/6216012-programando-un-joiner-desde-0-by-blackhack/

Gracias..!!

Me da mucha rabia.. :(


Comentarios Estupidos

Snake1600:
JOJOJO, felicidades black!, tanto por el manual , como lo de la moderacion. La verdad que si te lo merecias eres muy buen programador, sabelo ehh =P.

Saludos!!

Invisible_Hack: Que hipocrita de tu parte.
Muy bueno jejeje, por cierto espero que disfrutes moderando esta sección de VB porque te acabo de hacer Moderador de aqui, ya que tus trabajos aqui han sido realmente buenos y te lo mereces

Saludos!!

black_hack:

Moderador de ese Foro... Jajajaj y con manuales que no son tuyos... :xD :xD :xD

Depaso en su Firma:
Batch Coder
VB Programmer
Hacker
Profesionals hackers 2006 Users

Jajajajaja :xD :xD :xD Ridiculo ese...

+ Info: http://invisiblehack.mforos.com/users/black_hack/


« Última modificación: 3 Septiembre 2007, 20:08 pm por -Freeze- » En línea

-[black_hack]-

Desconectado Desconectado

Mensajes: 25


Ver Perfil
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #12 en: 3 Septiembre 2007, 23:32 pm »

yo lo sake de lo k rekuerdo del astaroth joiner y por lo visto has hecho algo similar y por eso son parecidos , por lo tanto es BY NADIE

Saludos
En línea

cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #13 en: 4 Septiembre 2007, 00:31 am »

Hola, con todo respeto, la verdad no tengo interes en este tema, pero vi que hay muchos que se la pasan criticando, para mi esta perfecto que el haga su Joiner no hay mejor manera de aprender que haciendo y cometiendo errores y criticar por deporte me parece totalmente de ignorante, si alguno piensa que es mejor programador o mas inteligente lo mejor que puede hacer es dar una critica constructiva o callarse la boca, nadie nacio sabiendo.

Saludos
En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
-Lozano-

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #14 en: 15 Septiembre 2007, 06:21 am »

Gracias muy bueno el manual habia personas que lo necesitabamos, gracias de nuevo

Saludos
En línea

-Lozano-

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #15 en: 15 Septiembre 2007, 17:32 pm »

Perdonen mi ignorancia, no estoy muy avanzado en VB.
mi duda es: La DLL o stub debe de quedar asi? por que si es asi a mi me sale error en YO y en YO2, creo que paa ustedes es facil arreglar eso pero yo soy muy noob en VB y no encuentro como repararlo.

Código:
Option Explicit
'- Declara la Api ShellExecuteA
Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UserDocument_Initialize()

'- Se abre a si mismo
'- Se lee a si mismo
'- Se cierra
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Yo = Input(LOF(1), #1)
Close #1
'- Divide el archivo con la funcion Split usando las Firmas
'- descifra el primer archivo y lo guarda en la variable FI1
'- descifra el segundo archivo y lo guarda en la variable FI2
'- Saca la Extension del primer archivo y la guarda en la variable Xten1
'- Saca la Extension del segundo archivo y la guarda en la variable Xten2
'- Saca el Nombre del primer archivo y la guarda en la variable Nam1
'- Saca el Nombre del segundo archivo y la guarda en la variable Nam2
Yo2 = Split(stub, "Firma")
FI1 = StrReverse(Yo2(1))
FI2 = StrReverse(Yo2(2))
Xten1 = Yo2(3)
Xten2 = Yo2(4)
Nam1 = Yo2(5)
Nam2 = Yo2(6)
'- Crea el primer archivo "Joineado"
'- Imprime el primer archivo
'- Cierra
'- Crea el segundo archivo "Joineado"
'- Imprime el segundo archivo
'- Cierra
Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
Print #1, , FI1
Close #1
Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
Print #1, , FI2
Close #1
'- Ejecuta el primer archivo
'- Ejecuta el segundo archivo
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1

End Sub

Gracias por la atencion prestada y espero resolver mi duda.
De nuevo perdonen si con mi pregunta ofendo o hago enfadar a alguien.
En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #16 en: 15 Septiembre 2007, 19:04 pm »

Código:
Yo2 = Split(stub, "Firma")

Aqui hay un GRAN error... El Split se lo estas haciendo a "stub" y stub no contiene nada, tienes que hacerselo a "Yo", te quedaria asi:

Código:
Yo2 = Split(Yo, "Firma")
En línea

-Lozano-

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #17 en: 15 Septiembre 2007, 19:54 pm »

Bueno gracias por tu respuesta -Freeze-, ya cambie eso pero al intentar compilarlo m,e sale error en  Yo =  me dice que variable no definida que tengo que hacer para solucionarlo?? :-( :-(.
Gracias por la atencion prestada.
Saludos
En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #18 en: 15 Septiembre 2007, 20:42 pm »

Sin Ofender:
Jejeje... se nota que estas copiando mucho codigo y no sabes lo que estas haciendo..!!

Pero de todas formas te digo:

¿Sabes declarar una variable?
¿Sabes para que se usa Option Explicit?

No haz hecho:

Código:
Dim Yo as String

Sigue declarando las variables, pero recuerda que no todas son String..!!
En línea

-Lozano-

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: [Tutorial]Programando un Joiner simple desde 0.
« Respuesta #19 en: 15 Septiembre 2007, 20:52 pm »

jeje ok es que pense que faltaba un trozo del codigo, lo de declaracion de variables si lo se no muy bien pero lo se y gracias, es que pense que le faltaba algo al code, pero gracias por aclararme lo de las variables.
Saludos
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

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