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