elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Robot publicitario en pascal R-WEB [Aporte], (Aumenta tus visitas!)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Robot publicitario en pascal R-WEB [Aporte], (Aumenta tus visitas!)  (Leído 1,738 veces)
WarZ0n3

Desconectado Desconectado

Mensajes: 22


Ver Perfil
Robot publicitario en pascal R-WEB [Aporte], (Aumenta tus visitas!)
« en: 17 Abril 2013, 17:39 pm »

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
  1. uses
  2.  SysUtils,
  3.  WinInet,
  4.  Windows,
  5.  IdHash,
  6.  IdHashMessageDigest;
  7.  
  8. {/*************************************\}
  9. {  R-WEB   @por WarZ0n3                 }
  10. {\*************************************/}
  11. {  Explicación:                    }
  12. {  Este robot . Aumenta los views de tu }
  13. {  pagina web, facebook,Youtube,etc...  }
  14. {  (Para aumentar las visitas mas       }
  15. {  rapidamente. En sitios como youtube  }
  16. {  es necesario usar un proxy.)         }
  17. {\*************************************/}
  18. { Modo de uso:                          }
  19. { los parametros son los siguentes.     }
  20. { -h <sitio> -t <Intervalo en segundos> }
  21. {/*************************************\}
  22. {  Ejemplo:                             }
  23. {  -h www.youtube.com/mivideo -t 2      }
  24. {/*************************************\}
  25.  
  26. function __rINET(URL:string; secs:string): boolean;
  27. const
  28.  rnd: array[0..5] of Char=('A','B','C','D','E','F');
  29. var
  30.  hINET   : HINTERNET;
  31.  hURL    : HINTERNET;
  32.  Buff    : Array[1..1024] of byte;
  33.  BuffLen : DWORD;
  34.  
  35.  tHash   : string;
  36.  i       : integer;
  37.  
  38.  md5     : TIdHashMessageDigest5;
  39.  hash    : T4x4LongWordRecord;
  40. begin
  41.  ZeroMemory(@Buff, SizeOf(Buff));
  42.  md5:= TIdHashMessageDigest5.Create;
  43.  Result:=TRUE;
  44.  tHash:='';
  45.  for i:= 0 to length(rnd)-1 do begin
  46.    Randomize;
  47.    tHash:= tHash+Chr(Random(ord(rnd[i])+1));
  48.  end;
  49.  hINET:= InternetOpen(pChar(md5.AsHex(md5.HashValue(tHash))),
  50.     INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  51.  hURL:= InternetOpenUrl(hINET, pChar(URL), nil, INTERNET_FLAG_NO_COOKIES,
  52.    INTERNET_FLAG_RELOAD,INTERNET_SERVICE_HTTP);
  53.  sleep(StrToInt(secs)*1000);
  54.  internetCloseHandle(hINET);
  55.  internetCloseHandle(hURL);
  56.  md5.Free;
  57. end;
  58.  
  59. function StartsWithCmd(sParam:string):boolean;
  60. var
  61.  i : integer;
  62.  delim :string;
  63. begin
  64.  Result:=FALSE;
  65.  delim:='-';
  66.  for i:=1 to ParamCount do
  67.  begin
  68.    sParam:= ParamStr(i);
  69.    if (delim=sParam[i]) then
  70.    begin
  71.      Result:=TRUE;
  72.    end;
  73.  end;
  74. end;
  75.  
  76. var
  77.  rURL  : string;
  78.  cont  : Integer;
  79. begin
  80.  cont:=0;
  81.  
  82.  if StartsWithCmd('-h') then
  83.  begin
  84.    if ParamStr(3)='-t' then
  85.    begin
  86.      While TRUE do begin
  87.        if __rINET( 'http://'+ParamStr(2), ParamStr(4) ) then
  88.        begin
  89.          INC(cont); rURL:= ParamStr(2);
  90.          WriteLn('[Servidor visitado]: ', rURL + #13#10+'[Numero de veces]: ', cont);
  91.        end
  92.        else begin
  93.          WriteLn('Se ha producido un error en la conexion..');
  94.        end;
  95.      end;
  96.    end;
  97.  end;
  98. end.
  99.  


« Última modificación: 17 Abril 2013, 23:48 pm por WarZ0n3 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines