• Robot publicitario en pascal R-WEB[Aporte],(Aumenta tus visi

 #410980  por WarZ0n3
 17 Abr 2013, 20:34
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 [ Debe registrarse para ver este enlace ] -t tiempo en segundos en el que la visita incrementara.
Ej: rweb -h [ Debe registrarse para ver este enlace ] -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.