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

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


  Mostrar Temas
Páginas: [1] 2
1  Programación / Desarrollo Web / consulta a estas tablas en mysql en: 12 Julio 2016, 02:35 am
hola gente, bueno en esta ocasion les pido ayuda por la siguiente razon:

tengo 2 tablas en mysql:

characters
la cual tiene como filas:
obj_id                                    'esta guarda el id del personaje
char_name                             'este es el nombre del personaje

y esta otra tabla:

 items
la cual tiene como filas:
owner_id                               'este es el id del personaje
object_id                               'este es el id especifico de un item
item_id                                 'este es el id del item
count                                    'este es la cantidad del item


les pongo un ejemplo de como es la base de datos asi entienden un poco mejor a lo que me refiero


characters

obj_id         char_name
123              maiky
124              urca




 items:

owner_id        object_id        item_id        count                                   
123                  1                    57              1
123                  2                    13              2
123                  3                    22             1
124                  4                    57             3
124                 5                     13             22
124                 6                     22             7


yo tengo de referencia el char_name "maiky" por ejemplo y a partir de ese nombre necesito conseguir el obj_id "123" por ejemplo

una vez q consegui ese obj_id que es igual al owner_id, tengo q conseguir por ejemplo el object_id "1" que pertenece al item_id "57" para poder modificar la fila count a partir del object_id


2  Programación / Programación Visual Basic / mouse (x, y) de un picture, ayuda porfas en: 6 Julio 2016, 07:52 am
hola gente, tengo este codigo que va pixel por pixel en la pantalla viendo el color y en un color determinado hace click, modifique el codigo para q no sea moviendo el mouse buscando el color, que lo busque de forma automatica... ahora necesito que al encontrar el color valla a esa posicion, pero se me va a la posicion de la pantalla entera, pero si modifico la parte del codigo resaltado no funciona de la forma q necesito... tiene q ver las aplicaciones que estan sobre ese picture tambien para tomar sus colores... este es el codigo...
Código
  1. Private Sub Timer1_Timer()
  2. Dim tPOS As POINTAPI
  3. Dim sTmp As String
  4. Dim lColor As Long
  5. Dim lDC As Long
  6.  
  7. For tPOS.y = Picture1.ScaleHeight = 0 To Picture1.ScaleHeight - 1
  8.  
  9. For tPOS.x = Picture1.ScaleWidth = 0 To Picture1.ScaleWidth - 1
  10.  
  11. lDC = GetWindowDC(0)
  12.  
  13.  
  14.  
  15. Call GetPixel(HDC, tPOS.x, tPOS.y)       ' este                <---------------------
  16.  
  17.  
  18.  
  19.  
  20. lColor = GetPixel(Picture1.HDC, tPOS.x, tPOS.y)
  21.  
  22. sTmp = Right$("000000" & Hex(lColor), 6)
  23. Me.Caption = "  R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
  24. Label1.Caption = "" & tPOS.x & " - " & tPOS.y & ""
  25. If Right$(sTmp, 2) = "FF" And Mid$(sTmp, 3, 2) = "FF" And Left$(sTmp, 2) = "FF" Then
  26.    Click tPOS
  27.  Espera (5)
  28. End If
  29.  
  30. If tPOS.x = 320 Then Stop
  31. If tPOS.y = 6 Then Stop
  32.  
  33.  
  34. Espera (0.011)
  35. Next tPOS.x
  36. Espera (0.011)
  37. Next tPOS.y
  38.  
  39.  
  40. End Sub


y esta es la parte del mouse

Código
  1. Private Sub Click(p As POINTAPI)
  2. 'p.X and p.Y in absolute coordinates
  3. 'Put the mouse on the point
  4. SetCursorPos p.x, p.y 'esta parte me lleva a (x, Y) pero de la pantalla completa y necesito q tome las coordenadas dentro del picture 1
  5.  
  6. mouse_event MOUSEEVENTF_ABSOLUTE, p.x, p.y, 0, GetMessageExtraInfo()
  7.  
  8. mouse_event MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, GetMessageExtraInfo()
  9.  
  10. mouse_event MOUSEEVENTF_LEFTUP, p.x, p.y, 0, GetMessageExtraInfo()
  11. End Sub
  12.  
espero se entienda mi conflicto, desde ya muchas gracias.
3  Programación / Programación Visual Basic / meter handler en un picture1 ayuda en: 5 Julio 2016, 00:57 am
hola gente, tengo este codigo, mete una aplicacion en un form, en un picture.... y quisiera saber si en vez de ser por find-window,
puede ser por handrers... alguien podria ayudarme con un ejemplo?
este es mi codigo
Código
  1. '//Funciones API para incrustar el programa en el picture
  2.    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
  3. ByVal hWndParent As Long) As Long
  4.  
  5.    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
  6. ByVal nCmdShow As Long) As Long
  7.    Const SHOWMAXIMIZED_eSW = 1&
  8.  
  9.    '//Funciones API para obtener el handle de la aplicación que queremos meter en un picture
  10.    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  11. (ByVal lpClassName As String, _
  12. ByVal lpWindowName As String) As Long
  13.  
  14.    '//Ejecuta el programa
  15.    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
  16. ByVal lpOperation As String, _
  17. ByVal lpFile As String, _
  18. ByVal lpParameters As String, _
  19. ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  20.  
  21.    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
  22.    ByVal wMsg As Long, _
  23.    ByVal wParam As Long, _
  24.    lParam As Any) As Long
  25.  
  26.    Const WM_SYSCOMMAND = &H112
  27.    Const SC_CLOSE = &HF060&

Código
  1. Private Sub Command1_Click()
  2.    Dim hwnd As Long
  3.  
  4.       ShellExecute Me.hwnd, "Open", "D:\juegos listos para jugar\Lineage II\system\l2.exe", _
  5. "", "", 3
  6.  
  7.  
  8.    Espera (50) 'Espera cinco segundos a que se cargue
  9.    hwnd = FindWindow("l2UnrealWLog", vbNullString) 'Obtiene el handle padre
  10. Call SetParent(hwnd, Picture1.hwnd) 'Meter la apcliación en el picture
  11. Call ShowWindow(hwnd, SHOWMAXIMIZED_eSW) 'Lo ajusta al cuadro
  12.  
4  Programación / Programación Visual Basic / login en mysql y vb6 comparar encriptacion en: 22 Junio 2016, 17:36 pm
estoy haciendo un login de usuario en vb6 y mysql que la cuenta se crea por web y tiene este codigo de encriptacion para el password
Código
y necesitaria abrir el usuario desde vb6 descifrando ese password.
este es el codigo q tengo en vb6

Código
  1. Private Sub Command1_Click()
  2.  
  3.  
  4. '(hace consulta en db)
  5. Dim strsql As String
  6. Dim rs As ADODB.Recordset
  7. strsql = "SELECT * FROM accounts where access_level=1"
  8. Set rs = cn.Execute(strsql)
  9. If Not rs.EOF Then rs.MoveFirst
  10.  
  11. While Not rs.EOF
  12.  
  13.  
  14. '(si el usuario coincide se va a 1, si no sale el mensaje)
  15.  
  16. If Text1.Text = rs!login Then GoTo 1
  17. rs.MoveNext
  18. Wend
  19.  
  20. Set rs = Nothing
  21. MsgBox "no coincide el usuario"
  22. GoTo 0
  23.  
  24.  
  25. 1:
  26.  
  27. '(si el password coincide se va a 2, si no sale el mensaje)
  28.  
  29. If Text2.Text = rs!pass Then GoTo 2
  30. MsgBox "no coincide la pass"
  31.  
  32. GoTo 0
  33.  
  34.  
  35. 2:
  36.  
  37. '(si el usuario ya esta en linea sale un mensaje y se va al 3)
  38.  
  39.    Dim strsqlonline As String
  40.  
  41.    strsqlonline = "SELECT * FROM accounts WHERE login= '" & Text1.Text & "'"
  42.    Set rs = cn.Execute(strsqlonline)
  43.    If Not rs.EOF Then rs.MoveFirst
  44.    While Not rs.EOF
  45.    If 1 = rs!online Then GoTo 3
  46.  
  47.    rs.MoveNext
  48.    Wend
  49.    Set rs = Nothing
  50.  
  51.  
  52. '(password y usuario coinciden se va a form2)
  53.  
  54. Form2.Show
  55. Form1.Hide
  56.  
  57. Form1.Refresh
  58.  
  59. GoTo Ends
  60. 3:
  61. MsgBox "usuario ya esta en linea"
  62. GoTo 0
  63.  
  64.  
  65. 0:
  66. Form1.Enabled = True
  67. Form1.Cls
  68. Ends:
  69. End Sub
  70.  
  71. Private Sub Command2_Click()
  72. End
  73. End Sub
  74.  
  75. Private Sub Label3_Click()
  76. Form3.Show
  77. Form1.Hide
  78. End Sub
  79.  
este lo estoy utilizando pero es en otra celda de la tabla sin encriptacion.
necesitaria ayuda porfas para comparar ese metodo y abrir con la password cifrada. desde ya muchas gracias
5  Programación / Programación Visual Basic / llenar combobox con tabla mysql vb6 en: 30 Septiembre 2015, 20:35 pm
hola gente, perdonlas molestias, recurro a ustedes con este tema por que no encontre en el buscador ninguna informacion
en un module tengo esta conexion:

Código
  1. Public cn As ADODB.Connection
  2. Public rs As ADODB.Recordset
  3. Sub Main()
  4. Set cn = New ADODB.Connection
  5. cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;"
  6. cn.Open
  7. If cn.State = adStateOpen Then
  8.  
  9. menu.Show
  10.  
  11.  
  12. Else
  13. MsgBox "no coneta"
  14. End
  15. End If
  16.  
  17. End Sub
  18.  

y necesito mostrar en un form -> combo1 los datos de la columna empresa "de la tabla empresas"
desde ya muchas gracias.  y buena semana a todos.
6  Programación / Programación Visual Basic / Comprobar si existe datos en mysql y si existe hacer update, si no hacer insert en: 9 Abril 2015, 04:48 am
Hola gente... En esta ocasion quisiera pedirles una ayudita...

Estoy haciendo un proyecto en VB6, y necesito que verifique si en la base de datos MySQL existen los datos antes de hacer EL UPDATE, y si NO EXITEN hacer el INSERT... Y SI EXISTEN que prosiga con el UPDATE.
Hay alguna forma de poder hacer eso?

desde ya muchas gracias.
7  Programación / Programación Visual Basic / vb6 y mysql ayuda con update porfa en: 6 Abril 2015, 20:07 pm
Hola chic@s ... Mi consulta es:

teniendo en la tabla de mysql...

Id - usuario- pass- email- nombre
1  -  sebas  - 123  - g@i.c- sebastian
2 -
3 -

y en vb6:

4 text box...

Text1.text que contien el nombre q es sebastian...
Y 3 mas
con el email y demas

Pero en el usuario en vez de sebas pongo pepe
y quiero que se  actualice ese dato a partir del text1.text del nombre...
Como hago?
 
8  Programación / Programación Visual Basic / No-Ip ayuda porfa en: 4 Abril 2015, 23:37 pm
Hola gente, perdon que vuelva a mencionar un tema viejo, pero hay una cosa que quedo inconclusa y no puedo encontrar la soluciion...
en este post hicieron un su propio noip...
http://foro.elhacker.net/analisis_y_diseno_de_malware/emulando_noipduc_conexiones_directas_con_noip-t112960.0.html

y en la versión del VB lo hicieron con un modulo que contiene:

Código
  1.  
  2. 'Opcion=0  --> Consulta la ip pública
  3. 'Opcion=1  --> Consulta la lista de dominios de la cuenta no-ip
  4. 'Opcion=2  --> Actualiza el dominio a la ip
  5. '-1 se ha producido un error de usuario
  6. '-2 no se ha podido conectar con el host
  7. ' 1 se ha realizado la consulta correctamente
  8.  
  9. Public Function NoIpMD(ByRef wSck As Winsock, ByVal Opcion As Byte, Optional Usuario As String, Optional Password As String, Optional Dominio As String, Optional UpIp As String) As Integer
  10.  
  11. Dim Consulta As String
  12. Dim rHost As String
  13.  
  14. Select Case Opcion
  15.    Case 0
  16.        rHost = "ip1.dynupdate.no-ip.com"
  17.        Consulta = "GET"
  18.    Case 1
  19.        If IsMissing(Usuario) Or IsMissing(Password) Then
  20.            NoIpMD = -1
  21.            Exit Function
  22.        End If
  23.        rHost = "dynupdate.no-ip.com"
  24.        Consulta = "GET /list-hosts.php?email=" & Usuario & "&pass=" & Password
  25.    Case 2
  26.        If IsMissing(Usuario) Or IsMissing(Password) Or IsMissing(Dominio) Or IsMissing(UpIp) Then
  27.            NoIpMD = -1
  28.            Exit Function
  29.        End If
  30.        rHost = "dynupdate.no-ip.com"
  31.        Consulta = "GET /ducupdate.php?username=" & Usuario & "&pass=" & Password & "&h[]=" _
  32.        & Dominio & "&ip=" & UpIp
  33.    Case Else
  34.        NoIpMD = -1
  35.  
  36.        Exit Function
  37.  
  38.  
  39.  
  40.        Consulta = Consulta & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: DUC v2.2.1" _
  41. & vbCrLf & "Host: " & rHost & vbCrLf & "Pragma: no-cache" & vbCrLf & vbCrLf
  42.  
  43.  
  44.  
  45.  
  46. End Select
  47.  
  48. If wSck.State <> sckClosed Then wSck.Close
  49. wSck.Connect rHost, 8245
  50.  
  51. While wSck.State <> sckConnected And wSck.State <> sckError
  52.    DoEvents
  53. Wend
  54. If wSck.State = sckError Then
  55.    NoIpMD = -2
  56.    Exit Function
  57. End If
  58.  
  59. wSck.SendData Consulta
  60. NoIpMD = 1
  61.  
  62. End Function
  63.  
  64.  
  65.        Public Function ExtraerSalida(ByVal buffer As String) As String
  66. Dim pos As Long
  67.  
  68. pos = InStr(buffer, vbCrLf & vbCrLf)
  69. If pos = 0 Then
  70.    ExtraerSalida = ""
  71. Else
  72.    ExtraerSalida = Mid$(buffer, pos + 2, Len(buffer) - pos + 1)
  73. End If
  74.  
  75. End Function
  76.  
  77.  

y en el form seria esto:


Código
  1.  
  2. Private Sub Command1_Click()
  3. NoIpMD Winsock1, 0
  4. End Sub
  5. Private Sub Command2_Click()
  6. NoIpMD Winsock1, 1, "ACA EL USUARIO", "ACA LA CONTRASEÑA"
  7. End Sub
  8.  
  9. Private Sub Command3_Click()
  10. NoIpMD Winsock1, 2, "ACA EL USUARIO", "ACA LA CONTRASEÑA", "ACA EL DNS", "66.66.66.66"
  11. End Sub
  12.  
  13. End Sub
  14.  
  15. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  16. Dim buffer As String
  17. Winsock1.GetData buffer
  18. Text1.Text = Text1.Text & buffer
  19. End Sub
  20.  

lleva el componente de Winsock , 3 CommandButton y 1 TextBox...
pero en el text box no me marca nada, por que podria ser?

si me podrian ayudar seria genial... porfa...
9  Foros Generales / Foro Libre / poner vbs en msconfig? en: 3 Abril 2015, 17:25 pm
hola gente... queria saber la forma de colocar un archivo.vbs en el msconfig para que se autoejecute cada vez que enciendo la pc... se puede hacer desde un archivo.cmd o un archivo.bat?

desde ya gracias :)
10  Seguridad Informática / Hacking / Ayuda con shell para server :( en: 2 Abril 2015, 03:01 am
hola gente... tengo una pregunta... estoy con lo de inyeccion mysql, y me puse a chusmear un rato...
bueno, voy al grano.
tengo varios user y pass de servidores pero son internos localhost de las db... y soy inicial y todavia no se como obtener una shell, y todavia no pude acceder a ningun servidor por ese tema... lei varios tutos que hay aca sobre eso, pero todavia no encontre como hacerlo...
:(
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines