Temas

Hola, necesito leer el retorno de consola, en un textbox, un richtextbox
Encontré algo que me sirve, pero no para todas las aplicaciones de consola.
Por ej, comando de win, ping, route, etc va.
Pero si quiero leer el valor leido desde una consola fastboot (ya todos la conocen)

la pantalla queda negra.

adjunto code

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Exec As String
    Exec = ("C:\Windows\System32\route.exe" & " " & "ADD " & Text1 & " " & " MASK 255.255.255.255 192.168.1.1")
    txt_resultado.Text = ejecutar_Dos(Trim(Exec))
   

End Sub


Function ejecutar_Dos(Comando As String) As String
    Dim oShell As WshShell
    Dim oExec As WshExec
    Dim ret As String
     
    Set oShell = New WshShell
    DoEvents
     
    ' ejecutar el comando
    Set oExec = oShell.Exec("%comspec% /c " & Comando)
    ret = oExec.StdOut.ReadAll()
       
    ' retornar la salida y devolverla a la función
    ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)
     
    DoEvents
    Me.SetFocus
End Function

el code de ejemplo va bien, con dir, ping, route

al poner por ejemplo, fastboot devices, el code arroja el dispositivo conectado, pero por ejemplo, al hacer fastboot getvar all, que me daría toda la info del movil, no arroja resultado...

alguna idea que puede ser?

algún code funcional?
gracias

Hola, tengo unas dll en .net algunas framework 2.x y otras 4.x

el asunto es, que hasta ahora, la 2.x quedó con el regasm, sin, problemas, he creado la tlb y al estar en el explorador de objetos, aparece la dll con sus clases.

no me pasa con la que está hecha en 4.7.2

se que el regasm es otro para hacerlo, no hay problemas por eso, la tlb la pude crear, pero me aparece vaciom sin clases....

que puede ser?

pongamos como ejemplo:

Código [Seleccionar] Expandir

Private Sub cmd_leer_Click()
    dll2x.leer
End Sub

comando usado para 2x

Código [Seleccionar] Expandir

C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe /tlb:dll2x.tlb dll2x.dll

para 4x

Código [Seleccionar] Expandir

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe /tlb:dll4x.tlb dll4x.dll

mientras voy codificando, al poner dll2x y poner el "." ya me aparece lo que necesito, por ejemplo "leer"

pero al hacer en la de 4.x nada....

no aparece nada de nada....

que puede ser?
gracias

Hola, les comento, tengo mi conexión, que en uso normal, necesito acceder a un puerto determinado (1621), lo tengo abierto en el router, y puedo acceder normalmente...
pero, ahora, necesito tener operativa una VPN, entonces, al tener abierta la VPN, ese puerto no está accesible (el firewall me pide permiso de todas maneras, para aceptar la conexión, se acepta, pero no pasa nada.... ni bien desactivo la vpn, se puede acceder)

entonces, hay manera posible de usar vpn, pero que desde la wan, se pueda acceder a mi ordenador al puerto 1621?
gracias!

Buenas, estoy estudiando el comportamiento de un soft, usé el ida pro para decompilarlo y ver que es lo que hace...

voy bastante bien....

solo que ahora, me encuentro con esto, y estoy atorado jejejejeje

probé verlo en assembler, que más o menos lo entiendo para reversing, pero se hace un choclo terrible....

Código [Seleccionar] Expandir

//----- (00401C6F) --------------------------------------------------------
int __cdecl sub_401C6F(unsigned int a1, const void *a2)
{
  int v3; // eax@16
  int v4; // eax@16
  int v5; // eax@16
  int v6; // eax@16
  int v7; // eax@16
  char v8; // [sp+27h] [bp-51h]@3
  signed int j; // [sp+28h] [bp-50h]@3
  signed int i; // [sp+2Ch] [bp-4Ch]@1
  signed int k; // [sp+2Ch] [bp-4Ch]@10
  signed int l; // [sp+2Ch] [bp-4Ch]@13
  char v13[8]; // [sp+70h] [bp-8h]@6

  memset(byte_4164C0, 0, 0x48u);
  memcpy(byte_4164C0, a2, 8u);
  for ( i = 0; i <= 7; ++i )
  {
    v8 = byte_4164C0[i];
    for ( j = 0; j <= 7; ++j )
    {
      *(&v13[8 * i - 64] + j) = v8 < 0;
      v8 *= 2;
    }
  }

se que se llenan 48 bytes de 0, luego copia desde una dirección de memoria del programa, lo que sería a2, que es B1 C2 52 33 AF 8B 33 49

Y eso lo copia a 4164c0

pero no entiendo que hace en el for, en esta parte

Código [Seleccionar] Expandir

*(&v13[8 * i - 64] + j) = v8 < 0;
      v8 *= 2;

si alguien me puede orientar, se lo agradezco
gracias

Hola, como puedo enviar hexa en winsock??

en realidad, se hacerlo, pero no es compatible con los windows en chino, y necesito usarlo en un windows chino....


supongamos que quiero enviar este dato...

00AABBCC

yo no puedo poner winsock.senddata "00AABBCC"

sino que tengo que ponerlo en el ascii o el char de cada byte...


sería winsock.senddata Chr$(0) & Chr$(170) & Chr$(187) & Chr$(204)

o sino, convertirlo via hextoasc

winsock.senddata hextoasc ("00AABBCC")

esto va perfecto en los windows latinos, o con ingles.....

pero no sirve en los windows chinos....

de que manera enviar hexadecimal ustedes?

gracias

saludos

Buenas, tengo un soft, que probado en sistemas operativos latinos, funciona sin problemas, pero al usarlo en el SO windows XP chino, no funciona como debería...

tengo un modulo, que funciona sin problemas, para convertir los strings, etc etc....

el code sería así....

st1 = HexToAsc("100404084A011004C8DC")
Winsock2.SendData st1

en el soft cliente / servidor latino, recibo el string, tal cual lo envié....

pero al usarlo en el windows chino, no....

recibo esto:

100404084A0110040000

a que se puede deber??

como podría solucionarlo??

gracias

Buenas, a ver que opinan...

se que hicieron aca en este foro, keygen, para versiones anteriores, llegue desde google aca...

les cuento que tengo la versión 5.99 y estoy probando...

llegue aca al buscar la palabra AK42GDLL que al ingresarla como registración, da el mensaje de correcto, pero no hace nada jejejje


bueno, la versión desempacada con olly + plugins, o a mano, o son soft, es lo mismo....

da error al iniciar por los checks que hicieron los programadores...

a ver si alguien se le ocurre algo, porque no encuentro como saltar el check de desempacado....

aca algunas cosas que ví....

Código [Seleccionar] Expandir

MOV EAX, 0A15E78 as good boy for license...

0a191c8 is demo mode

0a192e8 is reg ok

0a142f0 is again demo version

0a142d4 is registered version

and 0a15843 is where key is checked...

if you enter AK42GDLL it says code is ok, but nothing happens....



alguna sugerencia?

gracias

saludos

Estoy jugando algunos, y con el cheatengine y olly, pude hacer algunos cambios en los valores...

pero lo que necesito saber es como encontrar las direcciones de los botones.... por ejemplo,  al darle al boton play, que pare en esa dirección, para poder is depurando el codigo....

es posible?
como??

los juegos corren con browser....

Para ftp, ví cientos, todos funcionales.... pero para ftps, nada.........

hay una web de eldos que ofrece un activex y un source, pero muy basico, y no funcional....

alguien tiene idea sobre esto?

gracias

se puede llegar a saber?

aca 2 ejemplos:

name=71B7B12C09BDACA54D9DAE9849A5CE8D8F78E6D866F865D8C6D8C6ACC6D8C6D865D8C7D886AC46C0E6F8C018C018C018C018C018C018C018C018C018C018C018C018C0D4E6A0C6F805DCE6BEDC3C1Cz


name=A50265EFA37E0666E75E045BE366644E25BB4C1BCC3BCF1B6C1B6C6F6C1B6C1BCF1B6D1B2C6FEC034C3B6ADB6ADB6ADB6ADB6ADB6ADB6ADB6ADB6ADB6ADB6ADB6ADB6A174C636C3BAF1F4C4D41D211z


gracias

Explico mejor:

tengo en un combobox:

Item1
Item2
Item3

y yo necesito que siempre se seleccione el Item2, y dejar "locked" el combobox.
es posible?

digamos que cada item, me llama a un comando distinto....

otra consulta...

es posible borrar tambien los "tabs" en un formulario?

gracias

saludos

Inicié el post en el foro de visual basic, lo movieron a hacking avanzado, y no aca....

no quería ponerlo aca, pensé que por ser visual basic sería más facil alla, pero bueno.... aca va....

viene de este post

http://foro.elhacker.net/hacking_avanzado/patcher_en_visual_basic_alguno_code_dando_vueltas_d-t330670.0.html


gracias
saludos

Alguno tiene idea si hay algun code para hacer un patcher, como el dup2 o el uppp o cualquiera???

gracias

saludos

Hola, necesito leer datos desde un archivo en disco, y cargarlo a un array.... hasta ahí va bien......

puedo leer el archivo, pero necesito que se interprete el contenido del array como HEXAdecimal......

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Item() As Byte
Open "C:\Fake.txt" For Binary Access Read Lock Read As #1
ReDim Item(LOF(1) - 1)
Get #1, , Item()
Close #1

End Sub

para interpretarlo como hexa, sería así.....

item(0) = &HDC

por ejemplo.....

alguna idea de como poder hacer eso???

gracias

lo se hacer en las app delphi, con el DEDE, pero en otras no....

lo que quiero saber, es como hacer para tracear un comando X dentro de olly, o sea, si en la app hay un boton que dice "leer" donde poner el BP en olly para tracear....
las delphi son más faciles en este sentido

la app en cuestión esta vez es visual c++

era RISC, por tanto, adjunté la sección de VM, con lordpe o cff, y es lo mismo.....
hice rebuild, pero igual...

no se bien que versión de winlicense es...

alguien podría ver que puede estar mal?

http://www.mediafire.com/?51j7l91vi1tb617

gracias

Tengo un programa que hice, que hace consultas en una base de datos access... como se podría proteger?

si fuera el exe solo, se como hacer....

pero no quiero que se vea lo de la base de datos......

por eso no se como hacer... no se me ocurre manera
gracias

Hola, necesito copiar en un .txt lo que contengo un un campo de texto.... como puedo hacer??


Private Sub txtGenerados_GotFocus()
    txtGenerados.SelStart = 0
    txtGenerados.SelLength = 65535
    SendKeys "^C"
End Sub

con esto, hago que el texto me quede todo seleccionado, y copiado en el portapapeles...
pero necesitaría que se envié directamente a un .txt
es posible?
como??

gracias
saludos

Hola, alguien tiene algún ejemplo de como usar libusb para escribir y leer a un dispositivo usb???

cuento con el VID & PID y la data a escribir.

se que se usa usb_bulk_write, pero no se bien como...

cualquier ejemplo se agradece

Necesito enviar datos a un dispositivo conectado en un puerto USB...
como se puede hacer con Visual??
ya se manejar el puerto serie, y winsock con visual basic, pero sobre USB, no encuentro información BUENA.

por favor, alguien que me de una mano, o un ejemplo
gracias

Hola, lo copio aca tambien, ya que es .net y quiza sepan ayudarme mejor

http://foro.elhacker.net/ingenieria_inversa/cambiar_forms_de_inicio_en_visual_net-t298878.0.html

muchas gracias

Como se podría hacer?
se que en vb6 se busca en hex 50 00 00
en .net es posible hacer que arranque otro form?
es una app compilada ya.
gracias

Hola, tengo un exe empacado, no se el packer, ningun detector lo detecta, pero se que está empacado....
si lo abro en el olly, y lo corro, corre sin problemas... el problema llega cuando quiero hacer algun BP....
cuando hago BP, la aplicación se cierra, o tira algun error inexplicable, o se queda en "running" pero no puedo volver a tomar control de ella....
que podría ser? o como hacer el BP para seguir con f8??
gracias

Hola, como hago para que los cambios realizados en la base se ven reflejados en la aplicacion??

ejemplo:

Private Sub cmdAgregar_Click()

x = MsgBox("agregar user??", vbYesNo + vbQuestion)
If x = vbYes Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("user") = txtUser
Data1.Recordset.Fields("pass") = txtPass
Data1.Recordset.Fields("estado") = txtEstado
Data1.Recordset.Fields("model") = Combo1
Data1.Recordset.Update
MsgBox ("Agregado correactamente")
txtUser = ""
txtPass = ""
txtEstado = ""
txtModel = ""
Combo2.Clear
Combo1 = ""
Call Form_activate
End If
end sub


dentro de ese formulario, que es el de alta de usuarios, el nuevo user se ve dentro del combobox al darle el alta, pero si quiero usar ese user y pass, en la parte de validación, me da como que el user no existe.....
la validación se hace en otro formulario.
en realidad, son dos aplicaciones distintas, pero me hace lo mismo, si uno los form dentro de 1 solo proyecto.

el code de validación es este:

Private Sub cmdConsulta_Click()

bandera = ""
Data1.Recordset.MoveFirst
Do
If txtUser = Data1.Recordset.Fields("user") Then
txtPass = Data1.Recordset.Fields("pass")
txtEstado = Data1.Recordset.Fields("estado")
txtModel = Data1.Recordset.Fields("model")
bandera = "x"


End If


Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF

If bandera = "" Then
txtUser = "No existe"
txtPass = "No existe"
txtEstado = "No existe"
txtModel = "No existe"
Exit Sub
End If

end sub

como puedo solucionarlo, o sea, que los users agregados, esten disponibles para la validación sin necesidad de cerrar la aplicacion y volver a abrir.
gracias

upsss, olvidé decir, que los users se ven en el combo2.
o sea, puedo llamarlos desde ahi, o sino completar los text a mano.
pero eso no es lo que importa... solo aclaro por el code subido.

Hola, tengo que acceder a un server, via terminal server, y lo que necesito es que mi IP no se vea, sino que identifique la IP del proxy como la que loguea...
es posible??
gracias

Supongamos, tengo un array de 0 to 100

Public user(0 To 100) As String


como hago que al llegar el cliente 99, el valor del indice vuelva a 0?
así puedo usar 100 user más

puse 100 como ejemplo.
alguna idea??
gracias

necesito que un server que acepta multiples conexiones, responda a cada cliente por separado.
es posible??
como?
gracias

Hola a todos, tengo una aplicación en .net y quisiera protegerla, pero los packers que he usado no me han servido...
usé el acprotect, que solo me jodio el exe original, tambien usé el themida demo, que al parecer funciona bien, pero tengo que registrarlo para poder usarlo...
lo que necesito es uno que registre la id de la maquina, para poder usarlo solo en una PC por cada licencia...
si alguno me da una mano, bienvenido
gracias