Temas

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

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 (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
Dim tPOS As POINTAPI
Dim sTmp As String
Dim lColor As Long
Dim lDC As Long

For tPOS.y = Picture1.ScaleHeight = 0 To Picture1.ScaleHeight - 1

For tPOS.x = Picture1.ScaleWidth = 0 To Picture1.ScaleWidth - 1

lDC = GetWindowDC(0)



Call GetPixel(HDC, tPOS.x, tPOS.y)       ' este                <---------------------




lColor = GetPixel(Picture1.HDC, tPOS.x, tPOS.y)

sTmp = Right$("000000" & Hex(lColor), 6)
Me.Caption = "  R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
Label1.Caption = "" & tPOS.x & " - " & tPOS.y & ""
If Right$(sTmp, 2) = "FF" And Mid$(sTmp, 3, 2) = "FF" And Left$(sTmp, 2) = "FF" Then
   Click tPOS
 Espera (5)
End If

If tPOS.x = 320 Then Stop
If tPOS.y = 6 Then Stop


Espera (0.011)
Next tPOS.x
Espera (0.011)
Next tPOS.y


End Sub


y esta es la parte del mouse

Código (vb) [Seleccionar] Expandir

Private Sub Click(p As POINTAPI)
'p.X and p.Y in absolute coordinates
'Put the mouse on the point
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

mouse_event MOUSEEVENTF_ABSOLUTE, p.x, p.y, 0, GetMessageExtraInfo()

mouse_event MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, GetMessageExtraInfo()

mouse_event MOUSEEVENTF_LEFTUP, p.x, p.y, 0, GetMessageExtraInfo()
End Sub

espero se entienda mi conflicto, desde ya muchas gracias.

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 (vb) [Seleccionar] Expandir

'//Funciones API para incrustar el programa en el picture
    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndParent As Long) As Long

    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
    Const SHOWMAXIMIZED_eSW = 1&

    '//Funciones API para obtener el handle de la aplicación que queremos meter en un picture
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

    '//Ejecuta el programa
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

    Const WM_SYSCOMMAND = &H112
    Const SC_CLOSE = &HF060&

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim hwnd As Long
     
       ShellExecute Me.hwnd, "Open", "D:\juegos listos para jugar\Lineage II\system\l2.exe", _
"", "", 3


    Espera (50) 'Espera cinco segundos a que se cargue
    hwnd = FindWindow("l2UnrealWLog", vbNullString) 'Obtiene el handle padre
Call SetParent(hwnd, Picture1.hwnd) 'Meter la apcliación en el picture
Call ShowWindow(hwnd, SHOWMAXIMIZED_eSW) 'Lo ajusta al cuadro


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 (php) [Seleccionar] Expandir

base64_encode(pack("H*", sha1(utf8_encode($a))))
y necesitaria abrir el usuario desde vb6 descifrando ese password.
este es el codigo q tengo en vb6

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()


'(hace consulta en db)
Dim strsql As String
Dim rs As ADODB.Recordset
strsql = "SELECT * FROM accounts where access_level=1"
Set rs = cn.Execute(strsql)
If Not rs.EOF Then rs.MoveFirst

While Not rs.EOF


'(si el usuario coincide se va a 1, si no sale el mensaje)

If Text1.Text = rs!login Then GoTo 1
rs.MoveNext
Wend

Set rs = Nothing
MsgBox "no coincide el usuario"
GoTo 0


1:

'(si el password coincide se va a 2, si no sale el mensaje)

If Text2.Text = rs!pass Then GoTo 2
MsgBox "no coincide la pass"

GoTo 0


2:

'(si el usuario ya esta en linea sale un mensaje y se va al 3)

   Dim strsqlonline As String
   
   strsqlonline = "SELECT * FROM accounts WHERE login= '" & Text1.Text & "'"
   Set rs = cn.Execute(strsqlonline)
   If Not rs.EOF Then rs.MoveFirst
   While Not rs.EOF
   If 1 = rs!online Then GoTo 3
   
   rs.MoveNext
   Wend
   Set rs = Nothing
   

'(password y usuario coinciden se va a form2)

Form2.Show
Form1.Hide

Form1.Refresh

GoTo Ends
3:
MsgBox "usuario ya esta en linea"
GoTo 0


0:
Form1.Enabled = True
Form1.Cls
Ends:
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Label3_Click()
Form3.Show
Form1.Hide
End Sub

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

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 (vb) [Seleccionar] Expandir

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;"
cn.Open
If cn.State = adStateOpen Then

menu.Show


Else
MsgBox "no coneta"
End
End If

End Sub


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.

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.

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?

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 (vb) [Seleccionar] Expandir



'Opcion=0  --> Consulta la ip pública
'Opcion=1  --> Consulta la lista de dominios de la cuenta no-ip
'Opcion=2  --> Actualiza el dominio a la ip
'-1 se ha producido un error de usuario
'-2 no se ha podido conectar con el host
' 1 se ha realizado la consulta correctamente

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

Dim Consulta As String
Dim rHost As String

Select Case Opcion
   Case 0
       rHost = "ip1.dynupdate.no-ip.com"
       Consulta = "GET"
   Case 1
       If IsMissing(Usuario) Or IsMissing(Password) Then
           NoIpMD = -1
           Exit Function
       End If
       rHost = "dynupdate.no-ip.com"
       Consulta = "GET /list-hosts.php?email=" & Usuario & "&pass=" & Password
   Case 2
       If IsMissing(Usuario) Or IsMissing(Password) Or IsMissing(Dominio) Or IsMissing(UpIp) Then
           NoIpMD = -1
           Exit Function
       End If
       rHost = "dynupdate.no-ip.com"
       Consulta = "GET /ducupdate.php?username=" & Usuario & "&pass=" & Password & "&h[]=" _
       & Dominio & "&ip=" & UpIp
   Case Else
       NoIpMD = -1
       
       Exit Function
       
 

       Consulta = Consulta & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: DUC v2.2.1" _
& vbCrLf & "Host: " & rHost & vbCrLf & "Pragma: no-cache" & vbCrLf & vbCrLf
       
       
       
       
End Select

If wSck.State <> sckClosed Then wSck.Close
wSck.Connect rHost, 8245

While wSck.State <> sckConnected And wSck.State <> sckError
   DoEvents
Wend
If wSck.State = sckError Then
   NoIpMD = -2
   Exit Function
End If

wSck.SendData Consulta
NoIpMD = 1

End Function
   

       Public Function ExtraerSalida(ByVal buffer As String) As String
Dim pos As Long

pos = InStr(buffer, vbCrLf & vbCrLf)
If pos = 0 Then
   ExtraerSalida = ""
Else
   ExtraerSalida = Mid$(buffer, pos + 2, Len(buffer) - pos + 1)
End If

End Function



y en el form seria esto:

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()
NoIpMD Winsock1, 0
End Sub
Private Sub Command2_Click()
NoIpMD Winsock1, 1, "ACA EL USUARIO", "ACA LA CONTRASEÑA"
End Sub

Private Sub Command3_Click()
NoIpMD Winsock1, 2, "ACA EL USUARIO", "ACA LA CONTRASEÑA", "ACA EL DNS", "66.66.66.66"
End Sub

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Winsock1.GetData buffer
Text1.Text = Text1.Text & buffer
End Sub


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...

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

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...

hola gente, estoy tratando de buscar una forma de entrar a phpmyadmin 2.11.11.3 y usar sus vulnerability... ya las busque, se las pongo abajo... pero soy nuevo en esto, entiendo varias osas, pero siempre necesito un poco de apoyo... alguien me guiaria en esto un poco? por favor. me encanta esto, pero al no tener ayuda aveces me quedo un poco atras gracias.

http://web/phpmyadmin/

de esa forma aparece el cartel de se requiere autorizacion,
no se si es normal, pero puedo abrir varios archivos
como /ChangeLog ; /INSTALL pero son archivos de texto, si quiero abrir el /sql.php o cosas asi me pide el pass y user. desde ya muchas gracias.

#   CVE ID   CWE ID   # De Exploits   Tipo (s) de Vulnerabilidad   Fecha de publicación   Fecha de la actualización   Puntuación   Ganó Nivel de acceso   Acceso   Complejidad   Autenticación   Conf.   Integ.   Disp.
1   CVE-2011-0987   20         14/02/2011   10/03/2011   6.5   Ninguno   Remoto   Bajo   Sistema sencillo   Parcial   Parcial   Parcial   La función PMA_Bookmark_get en las bibliotecas / bookmark.lib.php en phpMyAdmin 2.11.x antes 2.11.11.3, y 3.3.x antes 3.3.9.2, no restringe adecuadamente consultas de marcadores, lo que hace que sea más fácil para los usuarios remotos autenticados para activar la ejecución de otro usuario de una consulta SQL mediante la creación de un marcador.
2   CVE-2011-0986   20         14/02/2011   10/03/2011   5.0   Ninguno   Remoto   Bajo   No se requiere   Parcial   Ninguno   Ninguno   phpMyAdmin 2.11.x antes 2.11.11.2, y 3.3.x antes 3.3.9.1, no maneja adecuadamente la ausencia de la (1) README, (2) Registro de cambios, y (3) los archivos de licencia, que permite a atacantes remotos obtener la ruta de instalación a través de una petición directa de un archivo que no existe.
3   CVE-2010-4329   79      XSS   12/02/2010   01/28/2011   4.3   Ninguno   Remoto   Medio   No se requiere   Ninguno   Parcial   Ninguno   Cross-site scripting (XSS) en la función PMA_linkOrButton en las bibliotecas / common.lib.php en la base de datos (db) script de búsqueda en phpMyAdmin 2.11.x antes 2.11.11.1 3.x antes 3.3.8.1 permite a atacantes remotos inyectar secuencias de comandos web o HTML a través de una solicitud hecha a mano.