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


 


Tema destacado: Encuesta: Has participado en un programa Bug Bounty? (BugCrowd, HackerOne, SynAck, etc?).


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 55
1  Programación / Programación General / [Delphi] DH File Locker 1.0 en: 25 Noviembre 2016, 15:50
Un File Locker que hice en Delphi.

Tiene las siguientes opciones :

  • Principales :
  • Bloquear con contraseña personalizada todos los archivos en un directorio
  • Generar passwords aleatorios
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Una imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.
2  Programación / Scripting / [Perl] DH Twitter Locator 0.6 en: 11 Noviembre 2016, 14:20
Un script en Perl para scanear los tweets de cualquier usuario , basado en la idea original de "tinfoleak by Vicente Aguilera Diaz"

Funciones :

  • Extrae informacion del perfil
  • Scanea los tweets en busca de apps y locations
  • Permite cargar las localizaciones en google maps
  • Guarda todo en logs

El codigo :

Código
  1. # !usr/bin/perl
  2. # DH Twitter Locator 0.6
  3. # (C) Doddy Hackman 2016
  4. # Credits :
  5. # Based in idea original of : tinfoleak by Vicente Aguilera Diaz
  6.  
  7. use LWP::UserAgent;
  8. use IO::Socket::SSL;
  9. use HTTP::Request::Common;
  10. use JSON;
  11. use Data::Dumper;
  12. use MIME::Base64;
  13. use Date::Parse;
  14. use DateTime;
  15. use Getopt::Long;
  16. use Color::Output;
  17. Color::Output::Init;
  18.  
  19. my $consumer_key = "IQKbtAYlXLripLGPWd0HUA";
  20. my $consumer_secret = "GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU";
  21.  
  22. my $bearer_token = "$consumer_key:$consumer_secret";
  23. my $bearer_token_64 = encode_base64($bearer_token);
  24.  
  25. my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
  26. $nave->agent(
  27. "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0"
  28. );
  29. $nave->timeout(5);
  30.  
  31. GetOptions(
  32. "profile"   => \$profile,
  33. "apps"   => \$apps,
  34.    "locations"  => \$locations,
  35.    "username=s"   => \$username,
  36.    "count=i"   => \$count,
  37.    "savefile=s"  => \$savefile,
  38. );
  39.  
  40. head();
  41.  
  42. if ($profile) {
  43. if($profile && $username) {
  44. search_profile($username);
  45. } else {
  46. sintax();
  47. }
  48. }
  49. if ($apps) {
  50. if($apps && $username && $count) {
  51. search_apps($username,$count);
  52. } else {
  53. sintax();
  54. }
  55. }
  56. if ($locations) {
  57. if($locations && $username && $count) {
  58. search_locations($username,$count);
  59. } else {
  60. sintax();
  61. }
  62. }
  63. if(!$profile and !$apps and !$locations) {
  64. sintax();
  65. } else {
  66. if($savefile) {
  67. printear_logo("\n[+] Logs $savefile saved\n");
  68. }
  69. }
  70.  
  71. copyright();
  72.  
  73. # Functions
  74.  
  75. sub search_profile {
  76. my ($username) = @_;
  77.  
  78. printear_titulo("\n[+] Loading Profile in Username : ");
  79. print $username." ...\n\n";
  80.  
  81. #my $code = toma("http://localhost/twitter/getuser.php");
  82. my $code = get_code("https://api.twitter.com/1.1/users/show.json?screen_name=".$username);
  83.  
  84. my $resultado = JSON->new->decode($code);
  85.  
  86. my $screen_name = $resultado->{"screen_name"};
  87. if($screen_name eq "") {
  88. $screen_name = "Not Found";
  89. }
  90. my $name = $resultado->{"name"};
  91. if($name eq "") {
  92. $name = "Not Found";
  93. }
  94. my $id = $resultado->{"id_str"};
  95. if($id eq "") {
  96. $id = "Not Found";
  97. }
  98. my $created = parse_date($resultado->{"created_at"});
  99. if($created eq "") {
  100. $created = "Not Found";
  101. }
  102. my $followers = $resultado->{"followers_count"};
  103. if($followers eq "") {
  104. $followers = "Not Found";
  105. }
  106. my $tweets_count = $resultado->{"statuses_count"};
  107. if($tweets_count eq "") {
  108. $tweets_count = "Not Found";
  109. }
  110. my $location = $resultado->{"location"};
  111. if($location eq "") {
  112. $location = "Not Found";
  113. }
  114. my $description = $resultado->{"description"};
  115. if($description eq "") {
  116. $description = "Not Found";
  117. }
  118. my $url = $resultado->{"url"};
  119. if($url eq "") {
  120. $url = "Not Found";
  121. }
  122. my $profile_image = $resultado->{"profile_image_url"};
  123. if($profile_image eq "") {
  124. $profile_image = "Not Found";
  125. }
  126.  
  127. printear("Screen Name : ");
  128. print $screen_name."\n";
  129. printear("Username : ");
  130. print $name."\n";
  131. printear("ID : ");
  132. print $id."\n";
  133. printear("Created at : ");
  134. print $created."\n";
  135. printear("Followers : ");
  136. print $followers."\n";
  137. printear("Tweets count : ");
  138. print $tweets_count."\n";
  139. printear("Location : ");
  140. print $location."\n";
  141. printear("Description : ");
  142. print $description."\n";
  143. printear("URL : ");
  144. print $url."\n";
  145. printear("Profile Image : ");
  146. print $profile_image."\n";
  147.  
  148. printear_titulo("\n[+] Profile Loaded\n");
  149.  
  150. if($savefile) {
  151. savefile($savefile,"\n[+] Loading Profile in Username : $username\n");
  152. savefile($savefile,"Screen Name : $screen_name");
  153. savefile($savefile,"Username : $name");
  154. savefile($savefile,"ID : $id");
  155. savefile($savefile,"Created at : $created");
  156. savefile($savefile,"Followers : $followers");
  157. savefile($savefile,"Tweets count : $tweets_count");
  158. savefile($savefile,"Location : $location");
  159. savefile($savefile,"Description : $description");
  160. savefile($savefile,"URL : $url");
  161. savefile($savefile,"Profile Image : $profile_image");
  162. savefile($savefile,"\n[+] Profile Loaded");
  163. }
  164.  
  165. #for my $number(1..5) {
  166. # sleep(1);
  167. # printear_logo("number : ");
  168. # printear_titulo($number."\r");
  169. #}
  170. #printear_titulo("Number : Finished\n");
  171. }
  172.  
  173. sub search_apps {
  174. my($username,$count) = @_;
  175.  
  176. printear_titulo("\n[+] Searching Apps in Username : ");
  177. print $username." ...\n\n";
  178.  
  179. #my $code = toma("http://localhost/twitter/timeline.php");
  180. my $code = get_code("https://api.twitter.com/1.1/statuses/user_timeline.json?screen_name=".$username."&include_rts=True&count=".$count);
  181.  
  182. my $resultado = JSON->new->decode($code);
  183.  
  184. my @resultado = @$resultado;
  185.  
  186. my $i = 0;
  187.  
  188. if(int(@resultado) eq "0") {
  189. printear_rojo("[-] Tweets not found\n");
  190. } else {
  191. printear("[+] Tweets found : ");
  192. print int(@resultado)."\n\n\n";
  193. printear("  Tweet\t\t Date\t\t   Apps\n");
  194. print "  -----------------------------------------------------\n\n";
  195.  
  196. if($savefile) {
  197. savefile($savefile,"\n[+] Searching Apps in Username : $username\n");
  198. savefile($savefile,"[+] Tweets found : ".int(@resultado)."\n");
  199. savefile($savefile,"  Tweet\t\t Date\t\t   Apps\n");
  200. savefile($savefile,"  -----------------------------------------------------\n");
  201. }
  202.  
  203. for my $result(@resultado) {
  204. $i++;
  205. my $source_split = $result->{"source"};
  206. if($source_split=~/>(.*)<\/a>/) {
  207. my $source = $1;
  208. my $datetime = parse_date($result->{"created_at"});
  209. if($source ne "") {
  210. printf("   %-5s %-22s %-15s\n", $i,$datetime,$source);
  211. if($savefile) {
  212. savefile($savefile,"   $i\t$datetime\t$source");
  213. }
  214. }
  215. }
  216. }
  217.  
  218. printear_titulo("\n\n[+] Apps Loaded\n");
  219.  
  220. if($savefile) {
  221. savefile($savefile,"\n[+] Apps Loaded\n");
  222. }
  223. }
  224.  
  225. }
  226.  
  227. sub search_locations {
  228. my($username,$count) = @_;
  229.  
  230. printear_titulo("\n[+] Searching Locations in Username : ");
  231. print $username." ...\n\n";
  232.  
  233. #my $code = toma("http://localhost/twitter/timeline.php");
  234. my $code = get_code("https://api.twitter.com/1.1/statuses/user_timeline.json?screen_name=".$username."&include_rts=True&count=".$count);
  235.  
  236. my $resultado = JSON->new->decode($code);
  237.  
  238. my @resultado = @$resultado;
  239.  
  240. my $i = 0;
  241.  
  242. if(int(@resultado) eq "0") {
  243. printear_rojo("[-] Tweets not found\n");
  244. } else {
  245. printear("[+] Tweets found : ");
  246. print int(@resultado)."\n\n\n";
  247.  
  248. printear("  Tweet\t\t Date\t\t     Locations\n");
  249. print "  -----------------------------------------------------\n\n";
  250.  
  251. if($savefile) {
  252. savefile($savefile,"\n[+] Searching Locations in Username : $username\n");
  253. savefile($savefile,"[+] Tweets found : ".int(@resultado)."\n");
  254. savefile($savefile,"  Tweet\t\t Date\t\t   Locations\n");
  255. savefile($savefile,"  -----------------------------------------------------\n");
  256. }
  257.  
  258. for my $result(@resultado) {
  259. $i++;
  260. my $place = $result->{"place"}{"country"};
  261. my $coordinates1 = $result->{"geo"}{"coordinates"}[0];
  262. my $coordinates2 = $result->{"geo"}{"coordinates"}[1];
  263. my $datetime = parse_date($result->{"created_at"});
  264. if($place ne "") {
  265. my $data = "";
  266. if($coordinates1 ne "" && $coordinates2 ne "") {
  267. $data = $place." [".$coordinates1.",".$coordinates2."]";
  268. } else {
  269. $data = $place;
  270. }
  271. printf("   %-5s %-22s %-15s\n", $i,$datetime,$data);
  272. if($savefile) {
  273. savefile($savefile,"   $i\t$datetime\t$data");
  274. }
  275. }
  276. }
  277. printear_titulo("\n\n[+] Locations Loaded\n");
  278. if($savefile) {
  279. savefile($savefile,"\n[+] Locations Loaded\n");
  280. }
  281. }
  282.  
  283. }
  284.  
  285. # More Functions
  286.  
  287. sub get_token {
  288. my $code = $nave->request(POST(
  289. "https://api.twitter.com/oauth2/token",
  290. "Content-Type" => "application/x-www-form-urlencoded;charset=UTF-8",
  291. "Authorization" => "Basic $bearer_token_64",
  292. Content => { "grant_type" => "client_credentials" }
  293. ))->content;
  294. my $resultado = JSON->new->decode($code);
  295. my $token = $resultado->{"access_token"};
  296. return $token;
  297. }
  298.  
  299. sub get_code {
  300. my $url = shift;
  301. my $code = $nave->request(GET($url,"Authorization" => "Bearer " . get_token()))->content;
  302. return $code;
  303. }
  304.  
  305. sub parse_date {
  306.    my $date = shift;        
  307.    $time = str2time($date);    
  308.    my $datetime = DateTime->from_epoch(epoch => $time);
  309.    return $datetime->mdy("/")." ".$datetime->hms;
  310. }
  311.  
  312. sub toma {
  313.    return $nave->get( $_[0] )->content;
  314. }
  315.  
  316. sub savefile {
  317. my ($filename,$text) = @_;
  318. open( SAVE, ">>" . $filename );
  319. print SAVE $text . "\n";
  320. close SAVE;
  321. }
  322.  
  323. sub printear {
  324.    cprint( "\x036" . $_[0] . "\x030" );
  325. }
  326.  
  327. sub printear_logo {
  328.    cprint( "\x037" . $_[0] . "\x030" );
  329. }
  330.  
  331. sub printear_titulo {
  332.    cprint( "\x0310" . $_[0] . "\x030" );
  333. }
  334.  
  335. sub printear_rojo {
  336.    cprint( "\x034" . $_[0] . "\x030" );
  337. }
  338.  
  339. sub printear_azul {
  340.    cprint( "\x033" . $_[0] . "\x030" );
  341. }
  342.  
  343. sub sintax {
  344.    printear("\n[+] Sintax : ");
  345.    print "perl $0 <option> <value>\n";
  346.    printear("\n[+] Options : \n\n");
  347.    print "-profile : Show profile information\n";
  348.    print "-apps : List apps in tweets\n";
  349.    print "-locations : List locations in tweets\n";
  350.    print "-username <username> : Set username to find\n";
  351. print "-count <count> : Set count to find\n";
  352. print "-savefile <filename> : Save results\n";
  353.    printear("\n[+] Example : ");
  354.    print "perl dh_twitter_locator.pl -profile -apps -locations -username test -count 800 -savefile results.txt\n";
  355.    copyright();
  356. }
  357.  
  358. sub head {
  359.    printear_logo("\n-- == DH Twitter Locator 0.6 == --\n\n");
  360. }
  361.  
  362. sub copyright {
  363.    printear_logo("\n\n-- == (C) Doddy Hackman 2016 == --\n\n");
  364.    exit(1);
  365. }
  366.  
  367. #The End ?
  368.  

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

Eso seria todo.
3  Programación / Programación General / [Delphi] DH Twitter Locator 1.0 en: 11 Noviembre 2016, 14:19
Un programa en Delphi para scanear los tweets de cualquier usuario , basado en la idea original de "tinfoleak by Vicente Aguilera Diaz"

Funciones :

  • Extrae informacion del perfil
  • Scanea los tweets en busca de apps y locations
  • Permite cargar las localizaciones en google maps
  • Guarda todo en logs

Una imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.
Github.

Eso seria todo.
4  Programación / Programación General / Re: [Delphi] DH Botnet 2.0 en: 10 Noviembre 2016, 22:51
@omar-espanol : si no estuviera limpio me hubieran hecho un ban del foro hace 6 años , pero bueno si no confias en mis "Codigos fuente regalados" porque tenes miedo que te infecten entonces no uses mis programas.
5  Programación / Programación General / [Delphi] DH Downloader 2.0 en: 28 Octubre 2016, 22:21
Un Downloader hecho en Delphi.

Tiene las siguientes opciones :

  • Principales :
  • Mezclar una imagen con un malware y que la imagen resultante se vea bien
  • Descargar manualmente o generar el stub para descargar la imagen infectada y ejecutar el malware
  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Una imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.
6  Programación / Programación General / [Delphi] DH Virus Maker 2.0 en: 18 Octubre 2016, 15:16
Un generador de virus hecho en Delphi.

Tiene las siguientes opciones :

  • Funciones
[++] Borrar archivos
[++] Matar procesos
[++] Ejecutar comandos
[++] Abrir CD
[++] Ocultar iconos y taskbar
[++] Messages Single & Bomber
[++] SendKeys
[++] Abrir word y escribir solo
[++] Crazy Mouse
[++] Crazy Hour
[++] Apagar,reiniciar y cerrar sesion
[++] Abrir URL
[++] Cargar Paint
[++] Cambiar texto del taskbar
[++] Apagar monitor
[++] Hacer que la computadora hable
[++] Beep Bomber
[++] Bloquear el teclado y el mouse
[++] Cambiar y bloquear el wallpaper
[++] Cambiar y bloquear el screensaver
[++] Printer Bomber
[++] Form Bomber
[++] HTML Bomber
[++] Windows Bomber
[++] Descargar y ejecutar malware con threads

  • Antidoto :
[++] Activar Firewall
[++] Activar Regedit
[++] Activar UAC
[++] Activar CMD
[++] Activar Run
[++] Restaurar y desbloquear wallpaper o screensaver
[++] Activar Taskmgr
[++] Activar Updates
[++] Restaurar texto de taskbar
[++] Mostrar de nuevo iconos o taskbar

  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Unas imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.
7  Programación / Programación General / [Delphi] Project Spartacus 2.0 en: 16 Octubre 2016, 14:32
Una IRC Botnet hecha en Delphi.

Tiene las siguientes opciones :

  • Principales :
[++] Conectar a cualquier servidor irc
[++] Permite servidor IRC secundario
[++] Establecer timeout por cada respuesta
[++] El infectado puede usar un nick configurado o la ip codificada

  • Funciones
[++] Listar directorio
[++] Leer archivos
[++] Borrar archivos
[++] Listar procesos
[++] Matar procesos por nombre
[++] Ejecutar y leer comandos
[++] Activar y desactivar regedit
[++] Activar y desactivar firewall
[++] Abrir y cerrar CD
[++] Mostrar y ocultar iconos
[++] Mostrar y ocultar taskbar
[++] Mostrar mensajes
[++] Message Bomber
[++] Enviar teclas
[++] Ejecutar Word y hacer que escriba solo
[++] Volver loco al mouse
[++] Volver loca la hora
[++] Apagar,reiniciar y cerrar sesion
[++] Abrir paginas
[++] Abrir paint
[++] Cambiar el texto del taskbar
[++] Apagar el monitor
[++] Hacer hablar a la computadora
[++] Beeps Bomber
[++] Listar drives,servicios y ventanas activas
[++] Descargar y ejecutar en segundo plano con threads
[++] Cambiar y bloquear el wallpaper
[++] Cambiar y bloquear el screensaver
[++] Printer Bomber
[++] Form Bomber
[++] HTML Bomber
[++] Windows Bomber
[++] Bloquear el mouse y el teclado
[++] Keylogger
[++] Desintalador

  • DoS :
[++] SQLI Dos
[++] HTTP Flood
[++] Socket Flood
[++] Slowloris
[++] UDP Flood

  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Unas imagenes :





Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.

MOD: Imagen adaptada a lo usado en el foro.
8  Programación / Programación General / [Delphi] DH Botnet 2.0 en: 14 Octubre 2016, 16:16
Una Botnet hecha en Delphi.

Tiene las siguientes opciones :

  • Principales :
[++] Generar Key por cada infectado
[++] Generar App en PHP de la botnet desde la GUI principal

  • Funciones
[++] Listar directorio
[++] Leer archivos
[++] Borrar archivos
[++] Listar procesos
[++] Matar procesos por nombre
[++] Ejecutar y leer comandos
[++] Activar y desactivar regedit
[++] Activar y desactivar firewall
[++] Abrir y cerrar CD
[++] Mostrar y ocultar iconos
[++] Mostrar y ocultar taskbar
[++] Mostrar mensajes
[++] Message Bomber
[++] Enviar teclas
[++] Ejecutar Word y hacer que escriba solo
[++] Volver loco al mouse
[++] Volver loca la hora
[++] Apagar,reiniciar y cerrar sesion
[++] Abrir paginas
[++] Abrir paint
[++] Cambiar el texto del taskbar
[++] Apagar el monitor
[++] Hacer hablar a la computadora
[++] Beeps Bomber
[++] Listar drives,servicios y ventanas activas
[++] Descargar y ejecutar en segundo plano con threads
[++] Cambiar y bloquear el wallpaper
[++] Cambiar y bloquear el screensaver
[++] Printer Bomber
[++] Form Bomber
[++] HTML Bomber
[++] Windows Bomber
[++] Bloquear el mouse y el teclado
[++] Keylogger
[++] Desintalador

  • DoS :
[++] SQLI Dos
[++] HTTP Flood
[++] Socket Flood
[++] Slowloris
[++] UDP Flood

  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Unas imagenes :





Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.

MOD: Imagen adaptada a lo permitido en el foro.
9  Programación / Programación General / [Delphi] DH Rat 2.0 en: 12 Octubre 2016, 21:07
Un Rat hecho en Delphi.

Tiene las siguientes opciones :

  • Principales :
[++] Conexion reversa
[++] Conexion codificada

  • Funciones
[++] Listar directorio
[++] Leer archivos
[++] Borrar archivos
[++] Listar procesos
[++] Matar procesos por nombre
[++] Ejecutar y leer comandos
[++] Activar y desactivar regedit
[++] Activar y desactivar firewall
[++] Abrir y cerrar CD
[++] Mostrar y ocultar iconos
[++] Mostrar y ocultar taskbar
[++] Mostrar mensajes
[++] Message Bomber
[++] Enviar teclas
[++] Ejecutar Word y hacer que escriba solo
[++] Volver loco al mouse
[++] Volver loca la hora
[++] Apagar,reiniciar y cerrar sesion
[++] Abrir paginas
[++] Abrir paint
[++] Cambiar el texto del taskbar
[++] Apagar el monitor
[++] Hacer hablar a la computadora
[++] Beeps Bomber
[++] Listar drives,servicios y ventanas activas
[++] Descargar y ejecutar en segundo plano con threads
[++] Cambiar y bloquear el wallpaper
[++] Cambiar y bloquear el screensaver
[++] Printer Bomber
[++] Form Bomber
[++] HTML Bomber
[++] Windows Bomber
[++] Bloquear el mouse y el teclado
[++] Capturar la webcam de forma remota
[++] Capturar el escritorio de forma remota
[++] Keylogger
[++] Desintalador

  • DoS :
[++] SQLI Dos
[++] HTTP Flood
[++] Socket Flood
[++] Slowloris
[++] UDP Flood

  • Secundarias :
[++] Ocultar rastros
[++] Persistencia
[++] UAC Tricky
[++] Extraccion de malware personalizado
[++] Editar la fecha de creacion del malware
[++] File Pumper
[++] Extension Spoofer
[++] Icon Changer

  • Antis :
[++] Virtual PC
[++] Virtual Box
[++] Debug
[++] Wireshark
[++] OllyDg
[++] Anubis
[++] Kaspersky
[++] VMWare

  • Disables :
[++] UAC
[++] Firewall
[++] CMD
[++] Run
[++] Taskmgr
[++] Regedit
[++] Updates
[++] MsConfig

Una imagen :



Un video con ejemplos de uso :



Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.
Github.

Eso seria todo.
10  Programación / Programación General / [Delphi] DH Auto Clicker 0.6 en: 2 Octubre 2016, 20:02
Un programa en Delphi para usar un clicker automatico para juegos o lo que sea.

Opciones :

  • Capturar posicion del mouse para usar en el programa
  • Timeout para cada click
  • Teclas de acceso rapido para empezar y terminar el clicker
  • Clicks en posiciones aleatorias
  • Los Clicks que permite son izquierda,medio,derecha y doble click

Una imagen :



El codigo :

Código
  1. // DH Auto Clicker 0.6
  2. // (C) Doddy Hackman 2016
  3.  
  4. unit auto_clicker;
  5.  
  6. interface
  7.  
  8. uses
  9.  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  10.  System.Classes, Vcl.Graphics,
  11.  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  12.  Vcl.ComCtrls, Math, Vcl.ImgList, Vcl.Imaging.pngimage;
  13.  
  14. type
  15.  TFormHome = class(TForm)
  16.    logo: TImage;
  17.    gbMousePosition: TGroupBox;
  18.    lblXPosition: TLabel;
  19.    txt_X_Now: TEdit;
  20.    lblYPosition: TLabel;
  21.    txt_Y_Now: TEdit;
  22.    gbOptions: TGroupBox;
  23.    lblType: TLabel;
  24.    cmbType: TComboBox;
  25.    lblSleep: TLabel;
  26.    txtSleep: TEdit;
  27.    lblXSelect: TLabel;
  28.    txt_X_Select: TEdit;
  29.    lblYSelect: TLabel;
  30.    txt_Y_Select: TEdit;
  31.    lblSeconds: TLabel;
  32.    btnGetPosition: TButton;
  33.    cbUseRandomClicks: TCheckBox;
  34.    btnStart: TButton;
  35.    btnStop: TButton;
  36.    status: TStatusBar;
  37.    tmGetMousePosition: TTimer;
  38.    tmClicker: TTimer;
  39.    notificar: TTrayIcon;
  40.    tmHookKeys: TTimer;
  41.    ilIconos: TImageList;
  42.    procedure tmGetMousePositionTimer(Sender: TObject);
  43.    procedure btnGetPositionClick(Sender: TObject);
  44.    procedure tmClickerTimer(Sender: TObject);
  45.    procedure notificarClick(Sender: TObject);
  46.    procedure tmHookKeysTimer(Sender: TObject);
  47.    procedure btnStartClick(Sender: TObject);
  48.    procedure btnStopClick(Sender: TObject);
  49.  private
  50.    { Private declarations }
  51.  public
  52.    procedure capturar_posicion_mouse();
  53.    procedure iniciar_clicker();
  54.    procedure desactivar_clicker();
  55.  end;
  56.  
  57. var
  58.  FormHome: TFormHome;
  59.  
  60. implementation
  61.  
  62. {$R *.dfm}
  63.  
  64. function message_box(title, message_text, type_message: string): string;
  65. begin
  66.  if not(title = '') and not(message_text = '') and not(type_message = '') then
  67.  begin
  68.    try
  69.      begin
  70.        if (type_message = 'Information') then
  71.        begin
  72.          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  73.            MB_ICONINFORMATION);
  74.        end
  75.        else if (type_message = 'Warning') then
  76.        begin
  77.          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  78.            MB_ICONWARNING);
  79.        end
  80.        else if (type_message = 'Question') then
  81.        begin
  82.          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  83.            MB_ICONQUESTION);
  84.        end
  85.        else if (type_message = 'Error') then
  86.        begin
  87.          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  88.            MB_ICONERROR);
  89.        end
  90.        else
  91.        begin
  92.          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  93.            MB_ICONINFORMATION);
  94.        end;
  95.        Result := '[+] MessageBox : OK';
  96.      end;
  97.    except
  98.      begin
  99.        Result := '[-] Error';
  100.      end;
  101.    end;
  102.  end
  103.  else
  104.  begin
  105.    Result := '[-] Error';
  106.  end;
  107. end;
  108.  
  109. procedure mouse_click(option: string);
  110. // Function based in : http://www.swissdelphicenter.ch/torry/showcode.php?id=360
  111. // Thanks to Thomas Stutz
  112. begin
  113.  if (option = 'left') then
  114.  begin
  115.    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  116.    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  117.  end
  118.  else if (option = 'right') then
  119.  begin
  120.    mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
  121.    mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
  122.  end
  123.  else if (option = 'middle') then
  124.  begin
  125.    mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0);
  126.    mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0);
  127.  end
  128.  else if (option = 'double') then
  129.  begin
  130.    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  131.    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  132.    GetDoubleClickTime;
  133.    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  134.    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  135.  end
  136.  else
  137.  begin
  138.    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  139.    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  140.  end;
  141. end;
  142.  
  143. procedure TFormHome.iniciar_clicker();
  144. begin
  145.  if (cmbType.ItemIndex <> -1) and not(txt_X_Select.Text = '') and
  146.    not(txt_Y_Select.Text = '') and not(txtSleep.Text = '') then
  147.  begin
  148.    tmClicker.Interval := StrToInt(txtSleep.Text) * 1000;
  149.    tmClicker.Enabled := True;
  150.    status.Panels[0].Text := '[+] Working ...';
  151.    FormHome.Update;
  152.    notificar.BalloonTitle := 'DH Auto Clicker';
  153.    notificar.BalloonHint := 'Clicker Started';
  154.    notificar.ShowBalloonHint;
  155.  end
  156.  else
  157.  begin
  158.    message_box('DH Auto Clicker 0.6', 'Complete the options', 'Warning');
  159.  end;
  160. end;
  161.  
  162. procedure TFormHome.desactivar_clicker();
  163. begin
  164.  tmClicker.Enabled := False;
  165.  status.Panels[0].Text := '[+] Stopped';
  166.  FormHome.Update;
  167.  notificar.BalloonTitle := 'DH Auto Clicker';
  168.  notificar.BalloonHint := 'Clicker Stopped';
  169.  notificar.ShowBalloonHint;
  170. end;
  171.  
  172. procedure TFormHome.btnStartClick(Sender: TObject);
  173. begin
  174.  iniciar_clicker();
  175. end;
  176.  
  177. procedure TFormHome.btnStopClick(Sender: TObject);
  178. begin
  179.  desactivar_clicker();
  180. end;
  181.  
  182. procedure TFormHome.capturar_posicion_mouse();
  183. begin
  184.  txt_X_Select.Text := txt_X_Now.Text;
  185.  txt_Y_Select.Text := txt_Y_Now.Text;
  186.  status.Panels[0].Text := '[+] Position updated';
  187.  FormHome.Update;
  188.  notificar.BalloonTitle := 'DH Auto Clicker';
  189.  notificar.BalloonHint := 'Position updated';
  190.  notificar.ShowBalloonHint;
  191. end;
  192.  
  193. procedure TFormHome.notificarClick(Sender: TObject);
  194. begin
  195.  Show();
  196.  WindowState := wsNormal;
  197.  Application.BringToFront();
  198. end;
  199.  
  200. procedure TFormHome.btnGetPositionClick(Sender: TObject);
  201. begin
  202.  capturar_posicion_mouse();
  203. end;
  204.  
  205. procedure TFormHome.tmGetMousePositionTimer(Sender: TObject);
  206. var
  207.  ubicacion: tPoint;
  208. begin
  209.  ubicacion := Mouse.CursorPos;
  210.  txt_X_Now.Text := IntToStr(ubicacion.X);
  211.  txt_Y_Now.Text := IntToStr(ubicacion.Y);
  212. end;
  213.  
  214. procedure TFormHome.tmHookKeysTimer(Sender: TObject);
  215. var
  216.  i: integer;
  217.  re: Longint;
  218. begin
  219.  for i := 119 to 124 do
  220.  begin
  221.    re := GetAsyncKeyState(i);
  222.    If re = -32767 then
  223.    Begin
  224.      if (i = 120) then
  225.      begin
  226.        capturar_posicion_mouse();
  227.      end
  228.      else if (i = 122) then
  229.      begin
  230.        iniciar_clicker();
  231.      end
  232.      else if (i = 123) then
  233.      begin
  234.        desactivar_clicker();
  235.      end
  236.      else
  237.      begin
  238.        // ?
  239.      end;
  240.    End;
  241.  End;
  242. end;
  243.  
  244. procedure TFormHome.tmClickerTimer(Sender: TObject);
  245. var
  246.  tipo: integer;
  247.  nombre_tipo: string;
  248.  X: integer;
  249.  Y: integer;
  250.  time_sleep: integer;
  251. begin
  252.  
  253.  tipo := cmbType.ItemIndex;
  254.  nombre_tipo := '';
  255.  
  256.  if (tipo = 0) then
  257.  begin
  258.    nombre_tipo := 'left';
  259.  end
  260.  else if (tipo = 1) then
  261.  begin
  262.    nombre_tipo := 'middle';
  263.  end
  264.  else if (tipo = 2) then
  265.  begin
  266.    nombre_tipo := 'right';
  267.  end
  268.  else if (tipo = 3) then
  269.  begin
  270.    nombre_tipo := 'double';
  271.  end
  272.  else
  273.  begin
  274.    nombre_tipo := 'left';
  275.  end;
  276.  
  277.  X := 0;
  278.  Y := 0;
  279.  
  280.  if (cbUseRandomClicks.Checked) then
  281.  begin
  282.    X := RandomRange(1, 2000);
  283.    Y := RandomRange(1, 1000);
  284.  end
  285.  else
  286.  begin
  287.    X := StrToInt(txt_X_Select.Text);
  288.    Y := StrToInt(txt_Y_Select.Text);
  289.  end;
  290.  
  291.  time_sleep := StrToInt(txtSleep.Text) * 1000;
  292.  
  293.  SetCursorPos(X, Y);
  294.  
  295.  mouse_click(nombre_tipo);
  296.  
  297. end;
  298.  
  299. end.
  300.  
  301. // The End ?
  302.  

Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.

Eso seria todo.
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 55
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines