Mensajes

Hola otra vez 

Yo siempre abria los archivos desde shell, pero si uso setattr (Oculto + de sistema), no me abre el archivo...

Hay que hacer algo "Especial" para abrir archivos ocultos y de sistema? y para borrarlos? Gracias.

@TGa

es justo lo que buscaba el otro dia...  

Pero necesitan pistas!, y no puedo decirles "tu hwid", seria muy obvio, y se supone q esta funcion no la tiene que tener practicament nadie...  


Pero como tambien pide nombre de usuario, la password tendria que depender  de el nombre-...
------------------------------------------------------------------------
add:
nah mejor dejenlo ahi, me reservo la informacion para mi.
si doy por ejemplo nombre "user" y password "cocaina", pasan ese y listo, q se jodan



Add2: igual si quieren pueden seguir dando ideas   

[cobrar]

Hola!

estoy haciendo un software con una funcion interesante, quiero que todos tengan u usuario, pero... como carajos, deben pensar algunos...

facil, el usuario seria el nombre de su cuenta (De win), y la contraseña un numero modificado que se unico por cada pc... o nose!

tiene que ser algo que la password sea aleatoria segun la pc, pero que despues no generen un "Keygen"... entienden? la contraseña podria ser la hora modificada, pero es facil de saberla entonces, mirando abajo ajajja xd

seria un sistema de "seriales" que varien segun el "Usuario", pero no quiero robar, digo... cobrar.

algo que les coma la cabeza,... como ya dije, bueh, resumo

un sistema de seriales como los de los programas de pago. pero sin pagar,

ajja gracias raul, la voy a activar  

Otra pregunta...

Esto ya esta solucionado, pero...

ya tengo el archivo hijo, con toda su informacion...
ese archivo es INVISIBLE y nadie deberia ver lo que tiene, pero ¿y si creo un "Sistema vip", que poniendo un pin le muestre el contenido del hijo?

Creo que eso seria logica, pero estoy dormido  

Add: mmm, creo que eso deberia integrarse en el hijo... creo que ya se como hacer.

Listo, ya esta hecho (:

PERO QUE *****! visual basic de ***** me tildo y no guarde el proyecto.... *****!

no es la primera vez q me pasa, encima tildo cuando estaba compilando el q estaba listo! era raro q me vaya tan bien...... 

["Es como pedirle a alguien algo que el no tiene"]

sisi agus, como ya dije arriba, esta solucionado... (Solucion muy tonta..)

"Es como pedirle a alguien algo que el no tiene"

Alguien me dice en donde esta el error? :S

Modifique el codigo de agus... No le saque practicamente nada! noseporq  no anda :S

Aca el builder:

Código (vb) [Seleccionar] Expandir



Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]" ' split the parameters we passed from eachother
Dim SERVER_RESOURCE() As Byte ' byte array to load our resource data later

Private Sub cmd_build_Click()

On Error Resume Next
Kill App.Path + "\server.exe"                  ' if existing kill a older server file

On Error GoTo BUILD_ERR:

Open App.Path + "\server.exe" For Binary As #1 ' open server.exe file in same folder

SERVER_RESOURCE() = LoadResData(101, "CUSTOM") ' load resource(exe file/ stub)

Put #1, , SERVER_RESOURCE                      ' put the exedata/stub in opened file

Put #1, , DATA_START + src.Text + DATA_ARRAY  ' put [DATA](exe ends) then ip then [#](split data array) then port then [#](another parameter) then name
                                                             
                                               ' later we split this and  use the data as parameters suchs as ip and port
                                                           
Close #1                                        ' close file

MsgBox "server built", vbInformation, "builder" ' notify that server is built

Exit Sub

BUILD_ERR:
MsgBox "Build Error", vbCritical, "title"
Exit Sub

End Sub




el stub...

Código (vb) [Seleccionar] Expandir


Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]"    ' split the parameters we passed from eachother

Private Sub Form_Load()

Dim DATA_SPLIT() As String  ' array to split exedata(stub) from our written data
Dim DATA_PARAMS() As String ' spit up the data in parameters (ip/port etc)
Dim GRAB_DATA As String     ' string for grabbing all of the binary data

Open App.Path + "\" + App.EXEName + ".exe" For Binary As #1 ' open ourselves

GRAB_DATA = String(LOF(1), vbNullChar)                      ' create a buffer for file contents

Get #1, , GRAB_DATA ' like it says grab our data (STUB + DATA)

Close #1            ' close file we got all the data

DATA_SPLIT() = Split(GRAB_DATA, DATA_START)    ' split STUB from written data
       
DATA_PARAMS = Split(DATA_SPLIT(1), DATA_ARRAY) ' split parameters


src.Text = DATA_PARAMS(0)    ' ip is the first parameter


End Sub




Add: solucionado, la solucion estaba en el + data_array...


Gracias!

gracias por las respuestas  

hola!  

puedo generar un exe desde un exe generado en visua lbasic 6?

ejemplo, yo hago un programa que se llama "soy tu padre", y en ese programa hay un boton que dice "Tener sexo", entonces cuando se haga click, se genera otro exe que se llama "Soy tu hijo". o.O

Es posible?


Add: el exe hijo se genera segun la informacion genetica del padre, la cual cambia.   (en serio lo digo, osea, el exe hijo tiene contenido "variable")

Add: Raul, Leandro... congratulations! 

muy bueno frog! gracias por RECORDARLO.