Mensajes

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=R0LdJ-m-1yg[/youtube]
  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

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

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=HA9GbyEEx7U[/youtube]
  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=ejVc4RsCQH8[/youtube]
  
  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.]

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=AJUr7fy2Gyo[/youtube]
  
  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.

[MOD: Imagen adaptada a lo permitido en el foro.]

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=6CHLniepmUs[/youtube]
  
  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.

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 :
  
  [youtube=640,360]https://www.youtube.com/watch?v=SD8DNmtr-jI[/youtube]
  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

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 (delphi) [Seleccionar] Expandir
  
// DH Auto Clicker 0.6
// (C) Doddy Hackman 2016

unit auto_clicker;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.ComCtrls, Math, Vcl.ImgList, Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    logo: TImage;
    gbMousePosition: TGroupBox;
    lblXPosition: TLabel;
    txt_X_Now: TEdit;
    lblYPosition: TLabel;
    txt_Y_Now: TEdit;
    gbOptions: TGroupBox;
    lblType: TLabel;
    cmbType: TComboBox;
    lblSleep: TLabel;
    txtSleep: TEdit;
    lblXSelect: TLabel;
    txt_X_Select: TEdit;
    lblYSelect: TLabel;
    txt_Y_Select: TEdit;
    lblSeconds: TLabel;
    btnGetPosition: TButton;
    cbUseRandomClicks: TCheckBox;
    btnStart: TButton;
    btnStop: TButton;
    status: TStatusBar;
    tmGetMousePosition: TTimer;
    tmClicker: TTimer;
    notificar: TTrayIcon;
    tmHookKeys: TTimer;
    ilIconos: TImageList;
    procedure tmGetMousePositionTimer(Sender: TObject);
    procedure btnGetPositionClick(Sender: TObject);
    procedure tmClickerTimer(Sender: TObject);
    procedure notificarClick(Sender: TObject);
    procedure tmHookKeysTimer(Sender: TObject);
    procedure btnStartClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure capturar_posicion_mouse();
    procedure iniciar_clicker();
    procedure desactivar_clicker();
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}

function message_box(title, message_text, type_message: string): string;
begin
  if not(title = '') and not(message_text = '') and not(type_message = '') then
  begin
    try
      begin
        if (type_message = 'Information') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end
        else if (type_message = 'Warning') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONWARNING);
        end
        else if (type_message = 'Question') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONQUESTION);
        end
        else if (type_message = 'Error') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONERROR);
        end
        else
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end;
        Result := '[+] MessageBox : OK';
      end;
    except
      begin
        Result := '[-] Error';
      end;
    end;
  end
  else
  begin
    Result := '[-] Error';
  end;
end;

procedure mouse_click(option: string);
// Function based in : http://www.swissdelphicenter.ch/torry/showcode.php?id=360
// Thanks to Thomas Stutz
begin
  if (option = 'left') then
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end
  else if (option = 'right') then
  begin
    mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
  end
  else if (option = 'middle') then
  begin
    mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0);
  end
  else if (option = 'double') then
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    GetDoubleClickTime;
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end
  else
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end;
end;

procedure TFormHome.iniciar_clicker();
begin
  if (cmbType.ItemIndex <> -1) and not(txt_X_Select.Text = '') and
    not(txt_Y_Select.Text = '') and not(txtSleep.Text = '') then
  begin
    tmClicker.Interval := StrToInt(txtSleep.Text) * 1000;
    tmClicker.Enabled := True;
    status.Panels[0].Text := '[+] Working ...';
    FormHome.Update;
    notificar.BalloonTitle := 'DH Auto Clicker';
    notificar.BalloonHint := 'Clicker Started';
    notificar.ShowBalloonHint;
  end
  else
  begin
    message_box('DH Auto Clicker 0.6', 'Complete the options', 'Warning');
  end;
end;

procedure TFormHome.desactivar_clicker();
begin
  tmClicker.Enabled := False;
  status.Panels[0].Text := '[+] Stopped';
  FormHome.Update;
  notificar.BalloonTitle := 'DH Auto Clicker';
  notificar.BalloonHint := 'Clicker Stopped';
  notificar.ShowBalloonHint;
end;

procedure TFormHome.btnStartClick(Sender: TObject);
begin
  iniciar_clicker();
end;

procedure TFormHome.btnStopClick(Sender: TObject);
begin
  desactivar_clicker();
end;

procedure TFormHome.capturar_posicion_mouse();
begin
  txt_X_Select.Text := txt_X_Now.Text;
  txt_Y_Select.Text := txt_Y_Now.Text;
  status.Panels[0].Text := '[+] Position updated';
  FormHome.Update;
  notificar.BalloonTitle := 'DH Auto Clicker';
  notificar.BalloonHint := 'Position updated';
  notificar.ShowBalloonHint;
end;

procedure TFormHome.notificarClick(Sender: TObject);
begin
  Show();
  WindowState := wsNormal;
  Application.BringToFront();
end;

procedure TFormHome.btnGetPositionClick(Sender: TObject);
begin
  capturar_posicion_mouse();
end;

procedure TFormHome.tmGetMousePositionTimer(Sender: TObject);
var
  ubicacion: tPoint;
begin
  ubicacion := Mouse.CursorPos;
  txt_X_Now.Text := IntToStr(ubicacion.X);
  txt_Y_Now.Text := IntToStr(ubicacion.Y);
end;

procedure TFormHome.tmHookKeysTimer(Sender: TObject);
var
  i: integer;
  re: Longint;
begin
  for i := 119 to 124 do
  begin
    re := GetAsyncKeyState(i);
    If re = -32767 then
    Begin
      if (i = 120) then
      begin
        capturar_posicion_mouse();
      end
      else if (i = 122) then
      begin
        iniciar_clicker();
      end
      else if (i = 123) then
      begin
        desactivar_clicker();
      end
      else
      begin
        // ?
      end;
    End;
  End;
end;

procedure TFormHome.tmClickerTimer(Sender: TObject);
var
  tipo: integer;
  nombre_tipo: string;
  X: integer;
  Y: integer;
  time_sleep: integer;
begin

  tipo := cmbType.ItemIndex;
  nombre_tipo := '';

  if (tipo = 0) then
  begin
    nombre_tipo := 'left';
  end
  else if (tipo = 1) then
  begin
    nombre_tipo := 'middle';
  end
  else if (tipo = 2) then
  begin
    nombre_tipo := 'right';
  end
  else if (tipo = 3) then
  begin
    nombre_tipo := 'double';
  end
  else
  begin
    nombre_tipo := 'left';
  end;

  X := 0;
  Y := 0;

  if (cbUseRandomClicks.Checked) then
  begin
    X := RandomRange(1, 2000);
    Y := RandomRange(1, 1000);
  end
  else
  begin
    X := StrToInt(txt_X_Select.Text);
    Y := StrToInt(txt_Y_Select.Text);
  end;

  time_sleep := StrToInt(txtSleep.Text) * 1000;

  SetCursorPos(X, Y);

  mouse_click(nombre_tipo);

end;

end.

// The End ?

  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  
  Eso seria todo.

Si , viene con el proyecto en delphi y el compilado , estaba por incluir el codigo en el post pero cuando queria publicarlo el foro no me dejaba porque mostraba un error diciendo que no estaba permitido por motivos de firewall.

Un programa en Delphi para codificar cualquier imagen a Base64 para usar en HTML , se puede copiar el codigo en el portapapeles o guardar en un archivo desde el programa mismo.

Una imagen :



Si quieren bajar el programa lo pueden hacer de aca :

SourceForge.

Eso seria todo.