Saludos...
He decidido publicar un código bastante viejo, de hecho ya muy usado, pero como siempre digo, a alguien le pueda servir...

Si no entendieron el modo de uso, seré mas especifico:
Una vez compilado el ejecutable, en modo ms-dos navegan hasta la ruta del .EXE
y los argumentos son: nombredelrobot -h http://www.youtube.com/mivideoaAumentar -t tiempo en segundos en el que la visita incrementara.
Ej: rweb -h http://www.youtube.com/wekrjwerh -t 3

Si comentan por lo menos 4 personas haré un tutorial de como usarlo, para aumentar masivamente, anonimisarze y optimizar el código.. Ademas lo automatizaremos de tal modo que al pasarlo a la maquina victima esta se convierta en un robot publicitario.

Explicación:
Lo que hace este robot es aumentar las visitas de tu pagina web, video de youtube, facebook, etc...
Aunque hay una pequeña cuestión que resolver, y es que youtube (por lo que he visto) cuenta 1 vez por IP, ¿como resolvemos esto?, FACIL!!! usamos un proxy, como proxychains que cambie cada 'x' segundos la IP y de esta manera automatizamos los views anonimamente.

COMENTEN!!!
Aquí el codigo (echo en delphi 7, modo aplicación de consola):
uses
  SysUtils,
  WinInet,
  Windows,
  IdHash,
  IdHashMessageDigest;
 
{/*************************************\}
{  R-WEB   @por WarZ0n3                 }
{\*************************************/}
{  Explicación:                    }
{  Este robot . Aumenta los views de tu }
{  pagina web, facebook,Youtube,etc...  }
{  (Para aumentar las visitas mas       }
{  rapidamente. En sitios como youtube  }
{  es necesario usar un proxy.)         }
{\*************************************/}
{ Modo de uso:                          }
{ los parametros son los siguentes.     }
{ -h <sitio> -t <Intervalo en segundos> }
{/*************************************\}
{  Ejemplo:                             }
{  -h http://www.youtube.com/mivideo -t 2      }
{/*************************************\}
 
function __rINET(URL:string; secs:string): boolean;
const
  rnd: array[0..5] of Char=('A','B','C','D','E','F');
var
  hINET   : HINTERNET;
  hURL    : HINTERNET;
  Buff    : Array[1..1024] of byte;
  BuffLen : DWORD;
 
  tHash   : string;
  i       : integer;
 
  md5     : TIdHashMessageDigest5;
  hash    : T4x4LongWordRecord;
begin
  ZeroMemory(@Buff, SizeOf(Buff));
  md5:= TIdHashMessageDigest5.Create;
  Result:=TRUE;
  tHash:='';
  for i:= 0 to length(rnd)-1 do begin
    Randomize;
    tHash:= tHash+Chr(Random(ord(rnd[i])+1));
  end;
  hINET:= InternetOpen(pChar(md5.AsHex(md5.HashValue(tHash))),
     INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hURL:= InternetOpenUrl(hINET, pChar(URL), nil, INTERNET_FLAG_NO_COOKIES,
    INTERNET_FLAG_RELOAD,INTERNET_SERVICE_HTTP);
  sleep(StrToInt(secs)*1000);
  internetCloseHandle(hINET);
  internetCloseHandle(hURL);
  md5.Free;
end;
 
function StartsWithCmd(sParam:string):boolean;
var
  i : integer;
  delim :string;
begin
  Result:=FALSE;
  delim:='-';
  for i:=1 to ParamCount do
  begin
    sParam:= ParamStr(i);
    if (delim=sParam[i]) then
    begin
      Result:=TRUE;
    end;
  end;
end;
 
var
  rURL  : string;
  cont  : Integer;
begin
  cont:=0;
 
  if StartsWithCmd('-h') then
  begin
    if ParamStr(3)='-t' then
    begin
      While TRUE do begin
        if __rINET( 'http://'+ParamStr(2), ParamStr(4) ) then
        begin
          INC(cont); rURL:= ParamStr(2);
          WriteLn('[Servidor visitado]: ', rURL + #13#10+'[Numero de veces]: ', cont);
        end
        else begin
          WriteLn('Se ha producido un error en la conexion..');
        end;
      end;
    end;
  end;
end.
Parece interesante seria bueno un tutorial, veamos que opinan los demas
[code2=masm]"For the honor of a king. And the destiny of a country. All for one."[/code2]
soy el cuarto hace el tuto ! xDD

yo habia hecho esto en perl pero no funcionaba porque la IP siempre era la misma.
Gracias, no pense que les gustaria hoy empiezo el tuto...
Lo que pasa que estuve mucho tiempo ausente por viajes y trabajo.
Responder

Volver a “Delphi”