Mensajes

Gracias Por Sus respuestas. Resulta que no había nada en esa tabla, el admin la debio poner para "despistar" ya encontré la tabla que interesaba con sus respectivos datos.

Me resultó util lo de usar la sentencia limit WHK.

Gracias a todos, Un Saludo!

Buenas a Todos!

He conseguido realizar un SQLi en una web pero en el último paso, voy a mirar los datos de la tabla "Administradores", donde supongo que está la información importante, y no me sale nada. No sé si porque no hay datos o porque no me deja acceder a la propia tabla. Me gustaría saber como puedo diferenciar si me pasa una cosa u otra. Lo último me parece raro ya que me deja acceder a todas las demás tablas de la BD.

http://www.webvuln.es/index.php?id=-1/**/UNION/**/SELECT/**/1,2,replace(group_concat(idAdministrador,0x3d,usuario,0x3d,contrasena),0x2C,0x3C62723E),4,5,6,7,8,9,10,11/**/from/**/Administradores--

Con esta sentencia podría ver los datos, ya que para mirar otras tablas hago lo mismo pero cambiando el From y los nombres de las columnas de la tabla, sin embargo no me aparece nada.

Gracias de Antemano y Un Saludo!

Hola a todos!

Estoy realizando un proyecto en vb6 para crear un archivo pdf a partir del texto de un textbox, y no consigo que me salga en varias lineas el pdf, me estoy volviendo loco ya, por eso os posteo aquí jaja Este es el codigo que a ver si me ayudais a modificar para que salga correctamente.

Código [Seleccionar] Expandir

Dim pdf As PdfComLib.PdfDoc

Private Sub cmdPDF_Click()
    Dim key() As String
    Dim Real(25) As String
    Dim X, CaratesPorLinia, num_Lineas, Lineas_Escritas As Integer
    Dim Escrito As String
    CaratesPorLinia = 112
    key = Split(Text2.Text, vbCrLf) 'rescato el texto con los saltos de línea
    Printer.FontName = "Courier New"
    Printer.FontBold = False
    Printer.FontSize = 10
    Printer.CurrentY = 9500
    num_Lineas = (Len(key(X)) / CaratesPorLinia)
    r = 0
    Lineas_Escritas = 0
    Set pdf = New PdfDoc
    pdf.AddPage (1)
    pdf.SetFont "Arial", "", 10
    MsgBox num_Lineas
    'For X = LBound(key) To UBound(key)
        'Do While num_Lineas > Lineas_Escritas
            If Len(key(X)) > CaratesPorLinia Then
                 'For I = 0 To 50
                    'Real(r) = Left(key(X), CaratesPorLinia)
                    pdf.Cell 20 + I, 10, Left(key(X), CaratesPorLinia), 0, 20, 10, 0, ""
                    'r = r + 1
                    pdf.Cell 20 + I, 10, Right(key(X), (Len(key(X)) - CaratesPorLinia)), 0, 20, 10, 0, ""
                    'Lineas_Escritas = Lineas_Escritas + 1
                'Next
           End If
        'Loop
        If num_Lineas < 1 Then
            pdf.Cell 20, 10, key(X), 0, 20, 10, 0, ""
        End If
    'Next
    NombreDocumento = "Doc1.pdf"
    pdf.SaveAsFile (NombreDocumento)
End Sub

P.D: El .dll que uso para generar el pdf es el pdfcom.dll, es gratuito, con buscar wxpdf en google sale la primera pagina con unos cuantos ejemplos a cerca de su uso.

Muchas Gracias de Antemano! Un Saludo!