11 replies to this topic

[Lynn]

Hola Todos tengo una web en donde colocando mi numero de identificacion "DNI" me arroja la web con mi foto lo que deseo es guardar la foto de esta web en una carpeta "X"  con el mismo Numero de DNI


bueno solo he usado una linea de codigo y colocado en un boton para que e visualize en un webBrowser en delphi

delphi

WebBrowser1.Navigate('[url]http://www.infogob.com.pe/erm_2010/ficha.aspx?IdDni='+Edit1.TEXT+'&IdTab=0'[/url])

[Caral]

Hola
Es un tema que no manejo, estoy seguro que encontraras respuesta pronto.
Si averiguo como hacerlo con gusto lo posteo.
Saludos

[IcebergDelphi]

Hola Todos tengo una web en donde colocando mi numero de identificacion "DNI" me arroja la web con mi foto lo que deseo es guardar la foto de esta web en una carpeta "X"  con el mismo Numero de DNI


bueno solo he usado una linea de codigo y colocado en un boton para que e visualize en un webBrowser en delphi

delphi

WebBrowser1.Navigate('[url]http://www.infogob.com.pe/erm_2010/ficha.aspx?IdDni='+Edit1.TEXT+'&IdTab=0'[/url])

Hola Lynn mira este enlace:
http://www.delphidab...cles?article=14

aca hay otro mas facil: http://www.swissdelp...ode.php?id=1924

[seoane]

Me parece increíble  . No se que leyes sobre protección de datos hay en Peru, pero aquí si alguien hace una pagina como esa lo despellejan vivo (no literalmente  ). Con solo poner un numero de Dni ya te dan la FOTO  , el nombre y hasta la zona donde vive.

Esto es muy grave, teniendo en cuenta que el numero de Dni no es un numero especialmente secreto, es mas, son números consecutivos por lo que hacer un "backup" de todas las fotos de Dni es tan sencillo como hacer un "for ... do". En paginas similares se suele pedir algún otro dato, como la fecha de caducidad, que son mas difíciles de averiguar.

Ahora vamos con un poco de código:

delphi

uses Wininet;
 
const
  Etiqueta = &#39;<img id="ctl00_ContentPlaceHolder1_imgPolitico" src="&#39;;
 
procedure SendRequest(Stream: TStream; Url: String);
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  hReq: HINTERNET;
  Context: DWORD;
  BytesRead: DWORD;
  Success: Boolean;
  Buffer: PChar;
begin
  Context:= 0;
  hNet := InternetOpen(&#39;Agente86&#39;, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hCon:= InternetConnect(hNet,&#39;[url=http://www.infogob.com.pe]www.infogob.com.pe[/url]&#39;,80,nil,nil,
      INTERNET_SERVICE_HTTP,0,Context);
    if (hCon <> nil) then
    begin
      hReq:= HttpOpenRequest(hCon,&#39;GET&#39;,PChar(Url),nil,nil,nil,
          INTERNET_FLAG_RELOAD,Context);
      if (hReq <> nil) then
      begin
        Success:= HttpSendRequest(hReq, nil,Cardinal(-1),nil,0);
        if Success then
        begin
          GetMem(Buffer,32*1024);
          try
            while (InternetReadFile(hReq,Buffer,32*1024,BytesRead)) do
            begin
              if (BytesRead = 0) then
                break;
              Stream.Write(Buffer^,BytesRead)
            end;
          finally
            FreeMem(Buffer);
          end;
        end;
        InternetCloseHandle(hReq);
      end;
      InternetCloseHandle(hCon);
    end;
    InternetCloseHandle(hNet);
  end;
end;
 
procedure GuardarImagen(Dni, Path: String);
var
  i: integer;
  Str, Url: String;
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  try
    SendRequest(Stream,&#39;/erm_2010/ficha.aspx?IdDni=&#39;+Dni+&#39;&IdTab=0&#39;);
    Str:= Utf8Decode(PChar(Stream.Memory));
    i:= Pos(Etiqueta,Str);
    if i = 0 then
      Exit;
    inc(i,Length(Etiqueta));
    Url:= EmptyStr;
    while (i < Length(Str)) do
    begin
      if Str[i] = &#39;"&#39; then
        break;
      Url:= Url + Str[i];
      inc(i);
    end;
    if Url = EmptyStr then
      Exit;
    Stream.Clear;
    SendRequest(Stream,&#39;/erm_2010/&#39;+StringReplace(Url,&#39;&amp;&#39;,&#39;&&#39;,[rfReplaceAll,rfIgnoreCase]));
    Stream.SaveToFile(Path);
  finally
    Stream.Free;
  end;
end;

Por ejemplo

delphi

GuardarImagen('43673372','E:\fotos\43673372.jpg');

Y si queremos hacernos con una buena base de datos:

delphi

var
  i: Cardinal;
begin
  for i:= 43673372 to 43673472 do // El rango que queramos
    GuardarImagen(IntToStr(i),'E:\fotos\' + IntToStr(i) + '.jpg');
end;

Yo probé y me baje 20 fotos en un minuto, pero optimizando un poquito el código, lanzando varios threads a la vez y usando varios ordenadores se pueden descargar todas las fotos en pocos días.

Saludos

[seoane]

Solo por curiosidad  , he lanzado 10 hilos simultáneos y en 3 horas me he hecho con 12.700 fotografías de confiados peruanos

... por no decir nombres, dirección, etc ... increíble 

[eduarcol]

Aqui en Venezuela la pagina el ente electoral lo que te muestra es tu nombre, cedula y datos del centro de votación.  La foto creo que si seria exagerado, y menos aun los datos del domicilio

[Lynn]

podrias adjuntar el archivo creoado seoane para poder ser vi esta guardando la foto con las dimensiones que segun creo que son

[seoane]

podrías adjuntar el archivo creado seoane para poder ver si esta guardando la foto con las dimensiones que según creo que son

El problema es que estas usando un versión mas actual de delphi que yo, no es problema de dimensiones, por eso te pregunte la versión de delphi que utilizas.

En tu versión utilizas string del tipo "UNICODE" y el código que te puse esta pensado para usar string de tipo ANSI.

Pero no hay problema, simplemente hay que decirle al compilador que es cada cosa y listo:

delphi

uses Wininet, StrUtils;
 
const
  Etiqueta = &#39;<img id="ctl00_ContentPlaceHolder1_imgPolitico" src="&#39;;
 
procedure SendRequest(Stream: TStream; Url: AnsiString);
var
  hNet: HINTERNET;
  hCon: HINTERNET;
  hReq: HINTERNET;
  Context: DWORD;
  BytesRead: DWORD;
  Success: Boolean;
  Buffer: PChar;
begin
  Context:= 0;
  hNet := InternetOpenA(&#39;Agente86&#39;, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if (hNet <> nil) then
  begin
    hCon:= InternetConnectA(hNet,&#39;[url=http://www.infogob.com.pe]www.infogob.com.pe[/url]&#39;,80,nil,nil,
      INTERNET_SERVICE_HTTP,0,Context);
    if (hCon <> nil) then
    begin
      hReq:= HttpOpenRequestA(hCon,&#39;GET&#39;,PAnsiChar(Url),nil,nil,nil,
          INTERNET_FLAG_RELOAD,Context);
      if (hReq <> nil) then
      begin
        Success:= HttpSendRequestA(hReq, nil,Cardinal(-1),nil,0);
        if Success then
        begin
          GetMem(Buffer,32*1024);
          try
            while (InternetReadFile(hReq,Buffer,32*1024,BytesRead)) do
            begin
              if (BytesRead = 0) then
                break;
              Stream.Write(Buffer^,BytesRead)
            end;
          finally
            FreeMem(Buffer);
          end;
        end;
        InternetCloseHandle(hReq);
      end;
      InternetCloseHandle(hCon);
    end;
    InternetCloseHandle(hNet);
  end;
end;
 
procedure GuardarImagen(Dni: AnsiString; Path: String);
var
  i: integer;
  Str, Url: AnsiString;
  Stream: TMemoryStream;
  a:widestring;
begin
  Stream:= TMemoryStream.Create;
  try
    SendRequest(Stream,&#39;/erm_2010/ficha.aspx?IdDni=&#39;+Dni+&#39;&IdTab=0&#39;);
    Str:= AnsiString(PAnsiChar(Stream.Memory));
    i:= AnsiPos(String(Etiqueta),String(Str));
    if i = 0 then
      Exit;
    inc(i,Length(Etiqueta));
    Url:= &#39;&#39;;
    while (i < Length(Str)) do
    begin
      if Str[i] = &#39;"&#39; then
        break;
      Url:= Url + Str[i];
      inc(i);
    end;
    if Url = &#39;&#39; then
      Exit;
    Stream.Clear;
    SendRequest(Stream,AnsiString(&#39;/erm_2010/&#39;) +
      AnsiString(AnsiReplaceText(String(Url),AnsiString(&#39;&amp;&#39;),AnsiString(&#39;&&#39;))));
    Stream.SaveToFile(Path);
  finally
    Stream.Free;
  end;
end;

[Lynn]

repitiendo podrias colocar el ejecutable para saber como se esta ejecutando en donde coloco el dni y en donde doy al menos clip para que guarde la imagen y por lo menos en donde coloco el [pre]SendRequest[/pre]

[cesarjaime]

Hola Todos tengo una web en donde colocando mi numero de identificacion "DNI" me arroja la web con mi foto lo que deseo es guardar la foto de esta web en una carpeta "X"  con el mismo Numero de DNI


bueno solo he usado una linea de codigo y colocado en un boton para que e visualize en un webBrowser en delphi

delphi

WebBrowser1.Navigate('[url]http://www.infogob.com.pe/erm_2010/ficha.aspx?IdDni='+Edit1.TEXT+'&IdTab=0'[/url])

les informo que al escribir:
http://www.infogob.c...7768359&IdTab=0

me redirige a:
http://www.infogob.c...2010/ficha.aspx
alguna ayudita para guardar las fotos

[seoane]

les informo que al escribir:
http://www.infogob.c...7768359&IdTab=0

me redirige a:
http://www.infogob.c...2010/ficha.aspx
alguna ayudita para guardar las fotos

Se deben de haber enfadado por lo del otro día porque la url dejo de funcionar, o a lo mejor se dieron cuenta del terrible fallo de seguridad que tenían y por fin decidieron taparlo, en cualquier caso los datos de los confiados ciudadanos ya están mas seguros 

[egostar]

les informo que al escribir:
http://www.infogob.c...7768359&IdTab=0

me redirige a:
http://www.infogob.c...2010/ficha.aspx
alguna ayudita para guardar las fotos

Se deben de haber enfadado por lo del otro día porque la url dejo de funcionar, o a lo mejor se dieron cuenta del terrible fallo de seguridad que tenían y por fin decidieron taparlo, en cualquier caso los datos de los confiados ciudadanos ya están mas seguros 

Pues que bueno que se ha eliminado ese acceso. Es un asunto que no me gusta nada.

Salud OS