Menú

Mostrar Mensajes

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ú

Temas - marcofbb

Páginas1
#1
Programación C/C++ / Regex c++11 (Expresiones regulares) con HTML
5 Septiembre 2013, 03:20 AM
Hola,
Estoy iniciando en el mundo de la programación c/c++ y me surgió el siguiente problema.

Con cURL pongo el código de fuente de una web en una variable, y quiero sacar lo que esta dentro de los codigos <h2> y </h2> para ello, utilizo las expresiones regulares que vienen con C++11 donde las llamo con #include <regex>.

Texto de ejemplo
Código (cpp) [Seleccionar]
texto mas texto<h2>asd</h2>texto mas texto

Expresion regular regex
Código (cpp) [Seleccionar]
.*<h2>(.*)</h2>.*

Me devuelve
Código (cpp) [Seleccionar]
  submatch 0: texto mas texto<h2>asd</h2>texto mas texto
  submatch 1: >asd</h2>texto mas texto

Process returned 0 (0x0)   execution time : 0.874 s
Press any key to continue.



Código:
Código (c) [Seleccionar]
int main()
{
       string s ("texto mas texto<h2>asd</h2>texto mas texto");
       regex e (".*<h2>(.*)</h2>.*");
       smatch sm;
       regex_match (s,sm,e);
       for (unsigned i=0; i<sm.size(); ++i) {
         cout << "  submatch " << i << ": " << sm[i] << '\n';
       }
    return 0;
}

¿Como seria la expresión regular correcta?


Gracias
#2
Redes / Problemas con FTP cliente y DMZ
8 Noviembre 2011, 06:05 AM
Hola, vengo a aclarar que sobre el tema se muy poco, por no decir nada.

El problema que tengo es que en mi hosting (Ya hable con ellos y me dijeron que el problema era mio) no puedo subir archivos via FTP, ni entrar a mi web si en el admin del modem/router TD-W8960N no pongo en DMZ HOST mi dirección de ip privada (de lan).

El problema es que si pongo en DMZ HOST mi ip privada, voy a tener todos los puertos abiertos hacía mi pc (ese no es el problema) el problema esta que no me anda ni facebook, ni paypal y ni el msn cuando hago eso. Solamente me anda mi web que era la que tenia el problema.

Di muchas vueltas lo se, aca lo dejo rapido, si pongo mi ip privada en el DMZ HOST del router/modem, me anda mi web(navegar por ella y subir archivos via ftp al hosting), pero no facebook, paypal, ect.

¿Cual puede ser el problema?
#3
WarZone / Me olvide la pass de mi user de Warzone
17 Febrero 2011, 07:29 AM
User: marcofbb
mail: marco.fbb@gmail.com

envien un mail con la pass nueva gracias :p
#4
Foro Libre / Una pregunta a los admin de Foro.elhacker.net
23 Junio 2010, 04:44 AM
¿Que mods tiene?

Ya que veo que tiene buen seo, y la mayoria de los SMF vienen con pesimo seo.

Solo quiero saber esa pregunta o si le isieron alguna modificasion a los meta tags ect
#5
Programación Visual Basic / Ayuda enviar datos via post a php con comprovacion de boton
28 Mayo 2010, 01:48 AM
Codigo del visual basic:

Código (vb) [Seleccionar]
Const Host As String = "localhost" 'Constante del host

Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Form_Load()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"
           
Winsock1.SendData Peticion 'Mandamos la peticion
Else
    Command1.Enabled = True
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$
Winsock1.GetData Datos, vbString, bytesTotal 'Obtenemos los datos
Text2.Text = Datos
End Sub


Codigo html de la web:

Código (html4strict) [Seleccionar]
<form method="POST" enctype="multipart/form-data" action="upl2.php">
<input type="file" name="archivo" size="20">
<input type="submit" value="Enviar" name="send">
<input type="reset" value="Borrar" name="erase">
</form>

Codigo php de la web
Código (php) [Seleccionar]
<link href="style-def.css" rel="stylesheet" type="text/css" />
<?php require('config.php');?>
<a target="_self" border="0" href="<?php $tusitio ?>index.php">Inicio</a> |&nbsp;<a border="0" href="<?php $tusitio ?>gallery.php">Galeria</a> |&nbsp;<a border="0" href="http://entra-ya.com.ar/">Upload by entra-ya</a></br></br>
<?
if($_POST['send']){ ?><?
$prefijo = substr(md5(uniqid(rand())),0,10);
$extensiones=array("html","exe","php","js","asp","PHP","Php","pHp","phP","PHp","PhP","pHP");
$nombre=$_FILES['archivo']['name'];
$tamanio=$_FILES['archivo']['size'];
$tipo=$_FILES['archivo']['type'];
$var = explode(".","$nombre");
$num = count($extensiones);
$valor = $num-1;
$destino =  "tmp/".$prefijo."_".$_FILES["archivo"]['name'].".".$var[1];
for($i=0; $i<=$valor; $i++) {
    if($extensiones[$i] == $var[1]) {
    echo "Tipo de Archivo no admitido";
    exit;
    }
}
if (is_uploaded_file($_FILES['archivo']['tmp_name']))
{
  copy($_FILES['archivo']['tmp_name'],$destino);
  echo "$tusitio$destino";
  echo "</br></br>";
  echo "Datos: </p>";
  echo "Tamaño: $tamanio Bytes</br>";
  echo "Tipo: $tipo";
}
else { echo "Error al subir el archivo"; }
?><? } ?>


El problema es que yo puedo enviar datos al upload y me sube la imagen que mando pero cuando le pongo esto if($_POST['send']){ que para comprobar si apretaste el boton SEND en el html no me deja subir la imagen por visual basic porque no c donde poner send=Enviar en visual basic 6

Espero que se entianda mi duda

#6
Programación Visual Basic / Bucle en vb6 ????
27 Mayo 2010, 22:24 PM
Código (vb) [Seleccionar]
Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Command2_Click()
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

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


Tengo ese codigo como hago para que envie sin parar el archivo al servidor

LO mando via post con Winsock

ya intente poner
Winsock1.SendData Peticion otra ves mas pero no lo envie de nuevo

Un bucle andara ?

Ustedes que son re sabios en este programa me pueden tirar algun consejo ?
#7
Programación Visual Basic / Ayuda Winsock y enviar datos via POST
27 Mayo 2010, 03:12 AM
Estoy haciendo un flood para VB 6 que envia repetidas veces. El codigo lo consegi todo aca en el foro. lo fui modificando segun mi necesidad. pero quiero que me pida veces al subir el archivo y al apretar enviarflood se mande esas veces que dije antes.

este es el codigo

Código (vb) [Seleccionar]
Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Command2_Click()
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

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


y con el flood ya agregado el codigo seria

Código (vb) [Seleccionar]
Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub txtEnvios_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
Case 8, 43 To 46, 48 To 57
Case Else
KeyAscii = 0
Beep
End Select
End Sub

Private Sub Command2_Click()
timerFlood.Enabled = True
End Sub

Private Sub timerFlood_Timer()
For X = 1 To txtEnvios.Text
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

Winsock1.SendData Peticion 'Mandamos la peticion
Next X
timerFlood.Enabled = False
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

No me tira ningun error pero tampoco sube las imagenes :S

¿Cual puede ser el error?

Páginas1