últimos mensajes de: TinchoHack

Mostrar Mensajes
Páginas: [1] 2

1	Seguridad Informática / Criptografía / ayuda Crackear password	en: 13 Agosto 2011, 02:35 am
Necesito saber que es esta password no es md5 ! bcd9ef142dea8868ed99bc5e17778318 gracias

2	Programación / Programación Visual Basic / [Pregunta]Declaraciones de variables DIM	en: 23 Abril 2011, 20:25 pm
Que tipo de variable estoy declarando con cada una ? Código Dim Numero As Integer Dim As Long Dim As Single Dim As Double Dim As Integer Dim As String Dim As Variant Cuando utilizar cada declaracion de variable ?

3	Programación / Programación Visual Basic / Re: Pasar datos del builder al Stub	en: 23 Abril 2011, 20:21 pm
Cita de: nuKje en 23 Abril 2011, 07:16 am por mas que hayas solucionado no hay porque borrar el mensaje, ni editar. tambien podrias poner la solucion,o lo que sea, para eso son los foros Lo edite pq era un tema inesesario estoy esperando a que borren este mensaje

4	Programación / Programación Visual Basic / Re: Pasar datos del builder al Stub	en: 23 Abril 2011, 03:24 am
Me recomendarias algun libro de programacion vb6 que no sea libro de oro que ya lo lei y que no sea como si esrtuviese en primero que tmb lo lei

5	Programación / Programación Visual Basic / Re: Pasar datos del builder al Stub	en: 23 Abril 2011, 03:21 am
Cita de: XXX-ZERO-XXX en 23 Abril 2011, 03:18 am Entonces estaria bueno q hagas otra cosa, un Builder con otras opciones que te parece? bueno dale dame alguna idea como que opciones ? abrir notepad abrir calc algo asi ?

6	Programación / Programación Visual Basic / Re: Pasar datos del builder al Stub	en: 23 Abril 2011, 03:08 am
Gracias ya lo se pero ya te dije que hice un curso de programacion se que es una herramienta de lammers pero es uno de mis proyectos todos cuando comenzamos fuimos lammers, quiero aprender a ahcer esto para despues crear otras herramientas entiendo elcodigo pero no puedo entender como mandar los fuc#@#~ datos Esta bien no molesto mas me las arreglare solo ADD: Ademas esta herramienta no es para distribuir es para ver como funciona no la subo a ningun lado pq se que hay gente lammer en la red :S

7	Programación / Programación Visual Basic / Pasar datos del builder al Stub	en: 23 Abril 2011, 02:38 am
TODO SOLUCIONADO YA PUEDEN BORRAR ESTO PERDONEN

8	Programación / Programación Visual Basic / Re: Server Builder VB6	en: 22 Abril 2011, 20:38 pm
Cita de: XXX-ZERO-XXX en 22 Abril 2011, 20:33 pm No entiendo en algunas cosas q te complicas, no es mas facil el codigo q te deje? Exacto pero como ya te dije el exe que guarda es igual al stub no logro entenderlo. Me pasas el msn y hablamos por ahi ?

Programación / Programación Visual Basic / Re: Server Builder VB6

en: 22 Abril 2011, 20:35 pm

Cita de: XXX-ZERO-XXX en 22 Abril 2011, 01:19 am

Deja lo q ya has echo entonces asi intentan corregirte tu error.

Mira este:

Código

Private Sub Command1_Click()
Dim stub As String
 
With CD
.DialogTitle = "Elija donde guardar.."
.Filter = "Archivos ejecutables (*.exe)|*.exe"
.ShowSave
End With
If CD.FileName <> vbNullString Then
 
Open App.Path & "\Stub.exe" For Binary As #1
stub = Space$(LOF(1))
Get #1, , stub
Close #1
 
 
Open CD.FileName For Binary As #2
Put #2, , stub
Put #2, , "·$%&/" & Text1.Text
Close #2
 
 
End If
End Sub

Eso seria el Builder.exe, pero el Stub.exe q va siempre en el mismo directorio del Builder.exe es este:

Código

Sub Main()
Dim my As String
Dim data() As String
 
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
 
my = Space$(LOF(1))
Get #1, , my
 
Close #1
data() = Split(my, "·$%&/")
' ahora data(1) contiene el string q se le paso del builder ( el text1.text)
MsgBox data(1)
 
End Sub

Lo hice rapido una vez no me acuerdo si funcionaba pero fijate y compara.

Este crea el exe al guardarlo lo guarda pero al ejecutarlo se abre el stub no entiendo

10	Programación / Programación Visual Basic / Re: Server Builder VB6	en: 22 Abril 2011, 20:27 pm
Mira estos son los codigos: BUILDER: Código: Option Explicit Private Sub command1_click() Dim code As String code = txtCode.Text FileCopy App.Path & "\stub.exe", App.Path & "\server.exe" 'copiamos el stub para no escribir sobre el propio stub que debe estar limpio para la proxima vez Open App.Path & "\server.exe" For Binary As 1 'abrimos el stub Put #1, LOF(1) + 1, code 'al final, esdecir, al tamaño más uno (logicamente) escribimos la variable textt Close #1 'cerramos el fichero End Sub STUB: Código: Option Explicit Private Sub form_load() Dim code As String Open App.Path & "\" & App.EXEName & ".exe" For Binary As 1 'nos autoleemos Get #1, LOF(1), code 'nos vamos al final del stub, es decir la longuitud total ahora menos lo que hemos puesto menos uno (logicamente), y estando ahi leemos la variable textt que tendrá muchos espacios Close #1 MsgBox "escribiste: " & "code", vbInformation, "Lo logre" End Sub 'server terminado

Páginas: [1] 2