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