Temas

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!