Robot publicitario en pascal R-WEB [Aporte], (Aumenta tus visitas!)

[WarZ0n3]

Saludos...
He decidido publicar un código que programe en pascal, ya no lo uso así que tengo la esperanza de que a alguien le sirva...

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 www.youtube.com/mivideoaAumentar -t tiempo en segundos en el que la visita incrementara.
Ej: rweb -h 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.

Aquí el codigo (echo en delphi 7, modo aplicación de consola):

Código (pascal) [Seleccionar] Expandir


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 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.