Foro de elhacker.net

<form method="get" action="check">
...
<label title="Address of page to Validate" for="uri">Address:</label>
<input type="text" name="uri" id="uri" size="45" /> <!-- Variable1 -->
...
<input type="submit" title="Submit for validation" value="Check" />
</form>
 

GET /pagina?var1=xxx&var2=xxx HTTP/1.1
Host: Servidor
Connection: close[enter]
[enter]

Const Host As String = "validator.w3.org" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub
 
Private Sub Command2_Click()
Dim Peticion$
Peticion = "GET /check?uri=http://" & Text2.Text & " HTTP/1.1" & vbCrLf & _ 'Text2.text = A la web que queremos validar .. /check?uri=http://...
            "Host: " & Host & vbCrLf & _
            "Connection: close" & vbCrLf & vbCrLf 'Armamos la peticion segun la estructura que te di
Winsock1.SendData Peticion 'Mandamos la peticion
End Sub
 
Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
    Command2.Enabled = True
Else
    Command1.Enabled = True
    Command2.Enabled = False
End If
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$
Winsock1.GetData Datos, vbString, bytesTotal 'Obtenemos los datos
Text1.Text = Datos
End Sub
 
'Si queres grabar la respuesta en un html podes reemplazar lo anterior a
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$, Cabecera, Html$, Canal% 'Declaramos variables
Winsock1.GetData Datos 'Obtenemos datos
Text1.Text = Datos 'Ponemos contenido en la caja de texto
If InStr(1, Datos, vbCrLf & vbCrLf, vbTextCompare) <> 0 And InStr(1, Datos, "HTTP/1.1 200 OK", vbTextCompare) Then 'Si es cabecera de servidor entonces..
    Cabecera = Split(Datos, vbCrLf & vbCrLf, 2) 'Dividimos la respuesta en dos partes, la cabecera y el html
    Html = Cabecera(1) 'El html es la segunda parte, la que es luego de los dos vbCrLf
Else
    Html = Datos 'Sino es cabecera entonces el html son los datos recibidos
End If
Canal = FreeFile
Open App.Path & "\Respuesta.html" For Binary Access Write As Canal 'Abrimos el archivo de respuesta.html en modo binario
Put #Canal, LOF(Canal) + 1, Html 'Escribimos al final del archivo
Close #Canal 'Cerramos canal
End Sub
 

<form action="/sneak.php" method="post">
...
<textarea name="text" ... ></textarea>
<select name="cryptmethod">
...
<option value="md5">MD5 Crypt (one way)</option>
...
</select>
<input type="submit" name="submit" value="Codificar" />
...
</form>
 

POST /pagina HTTP/1.1
Host: Servidor
Connection: close
Content-Length: Longitud de lo que enviamos[enter]
[enter]
Lo que enviamos

Const Host As String = "validator.w3.org" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub
 
Private Sub Command2_Click()
Dim Peticion$, Datos$
Datos = "text=" & Text2.Text & "&cryptmethod=md5&submit=Codificar"
Peticion = "POST /sneak.php HTTP/1.1" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Connection: close" & vbCrLf & _
            "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
            "Content-Length: " & Len(Datos) & vbCrLf & vbCrLf & _
            Datos
Winsock1.SendData Peticion
End Sub
 
Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
    Command2.Enabled = True
Else
    Command1.Enabled = True
    Command2.Enabled = False
End If
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$
Winsock1.GetData Datos, vbString, bytesTotal 'Obtenemos los datos
Text1.Text = Datos
End Sub
 
'Si queres grabar la respuesta en un html podes reemplazar lo anterior a
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$, Cabecera, Html$, Canal% 'Declaramos variables
Winsock1.GetData Datos 'Obtenemos datos
Text1.Text = Datos 'Ponemos contenido en la caja de texto
If InStr(1, Datos, vbCrLf & vbCrLf, vbTextCompare) <> 0 And InStr(1, Datos, "HTTP/1.1 200 OK", vbTextCompare) Then 'Si es cabecera de servidor entonces..
    Cabecera = Split(Datos, vbCrLf & vbCrLf, 2) 'Dividimos la respuesta en dos partes, la cabecera y el html
    Html = Cabecera(1) 'El html es la segunda parte, la que es luego de los dos vbCrLf
Else
    Html = Datos 'Sino es cabecera entonces el html son los datos recibidos
End If
Canal = FreeFile
Open App.Path & "\Respuesta.html" For Binary Access Write As Canal 'Abrimos el archivo de respuesta.html en modo binario
Put #Canal, LOF(Canal) + 1, Html 'Escribimos al final del archivo
Close #Canal 'Cerramos canal
End Sub
 

Private Sub Command1_Click()
cadena = "blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"blablablablablanlkablabajnkajnakj" & vbCrLf & _
"set-cookie: PHPSESSID=df018ddc6671e913593517f142e895fc; path=/"
 
headers = Split(cadena, vbCrLf)
For j = 0 To UBound(headers)
    headers2 = Split(headers(j), " ")(0)
    If LCase(headers2) = "set-cookie:" Then
        url = Trim(Replace(headers(j), "set-cookie:", ""))
        url_desglosada = Split(url, ";")
        For i = 0 To UBound(url_desglosada)
            If LCase(Mid(url_desglosada(i), 1, 9)) = "phpsessid" Then
                sesion = Trim(Split(url_desglosada(i), "=")(1))
                GoTo Escape
            End If
        Next i
    End If
Next j
Escape:
MsgBox sesion
End Sub
 

Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected
MsgBox "Conectado con éxito"
End Sub
 

Private Sub Form_Load()
Dim segViejo&, segNuevo&, Segundos As Byte
Dim Request$
segViejo = Int(Timer)
segNuevo = 0
Ws.Connect "www.dequito.com", 80
Segundos = 0
Do
    If segViejo <> segNuevo Then
        segNuevo = segViejo
        Segundos = Segundos + 1
        If Segundos = 5 Then
            MsgBox "Imposible conectar"
            Exit Sub
        End If
    End If
    segViejo = Timer
    DoEvents
Loop Until Ws.State = sckConnected
 
Request = "GET /recurso HTTP/1.1" & vbCrLf & _
        "Host: www.dequito.com" & vbCrLf & _
        "Connection: Close" & vbCrLf & vbCrLf
Ws.SendData Request
End Sub