Indetectables

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 [Enlace externo eliminado para invitados] -t tiempo en segundos en el que la visita incrementara.
Ej: rweb -h [Enlace externo eliminado para invitados] -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

Muy bueno, gracias!!!

[]'s

hola war mea yudas conel tutorial porfa tienes skype

soy el cuarto hace el tuto ! xDD

yo habia hecho esto en perl pero no funcionaba porque la IP siempre era la misma.

Jaja mira su ultima visita Doddy memberlist.php?mode=viewprofile&u=75732
Pd deberías hacer uno en delphi y de paso haces el tutorial

Umm me parece bueno

Flame escribió:Jaja mira su ultima visita Doddy memberlist.php?mode=viewprofile&u=75732
Pd deberías hacer uno en delphi y de paso haces el tutorial

no me habia fijado , este no vuelve mas xDD.

eso si , tengo demasiados proyectos que hacer en delphi como para agregar uno mas xD.

Gracias, no pense que les gustaria hoy empiezo el tuto...
Lo que pasa que estuve mucho tiempo ausente por viajes y trabajo.