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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] DH Server Manager 0.3
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] DH Server Manager 0.3  (Leído 1,640 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] DH Server Manager 0.3
« en: 24 Abril 2015, 17:25 pm »

Un simple programa en Delphi para modificar ejecutables con las siguientes opciones :

  • File Pumper
  • Extension Spoofer
  • Icon Changer

Una imagen :



Código
  1. // DH Server Manager 0.3
  2. // (C) Doddy Hackman 2015
  3. // Based on : http://www.nerdprogrammer.in/2014/05/the-rats-crew-aio.html
  4.  
  5. unit dhserverman;
  6.  
  7. interface
  8.  
  9. uses
  10.  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  11.  System.Classes, Vcl.Graphics,
  12.  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  13.  Vcl.ExtCtrls, Vcl.Imaging.pngimage, madRes, StrUtils;
  14.  
  15. type
  16.  TForm1 = class(TForm)
  17.    PageControl1: TPageControl;
  18.    TabSheet1: TTabSheet;
  19.    TabSheet2: TTabSheet;
  20.    TabSheet3: TTabSheet;
  21.    GroupBox1: TGroupBox;
  22.    ruta_archivo: TEdit;
  23.    Button1: TButton;
  24.    GroupBox2: TGroupBox;
  25.    Button2: TButton;
  26.    StatusBar1: TStatusBar;
  27.    TabSheet5: TTabSheet;
  28.    GroupBox3: TGroupBox;
  29.    GroupBox4: TGroupBox;
  30.    count: TEdit;
  31.    UpDown1: TUpDown;
  32.    tipo_cantidad: TComboBox;
  33.    GroupBox5: TGroupBox;
  34.    ruta_icono: TEdit;
  35.    Button3: TButton;
  36.    GroupBox6: TGroupBox;
  37.    Image1: TImage;
  38.    OpenDialog1: TOpenDialog;
  39.    OpenDialog2: TOpenDialog;
  40.    GroupBox7: TGroupBox;
  41.    usefilepumper: TCheckBox;
  42.    iconchanger: TCheckBox;
  43.    extensiones: TComboBox;
  44.    selectextension: TCheckBox;
  45.    GroupBox8: TGroupBox;
  46.    mi_extension: TCheckBox;
  47.    esta_extension: TEdit;
  48.    extensionchanger: TCheckBox;
  49.    TabSheet4: TTabSheet;
  50.    Image2: TImage;
  51.    GroupBox9: TGroupBox;
  52.    Image3: TImage;
  53.    Memo1: TMemo;
  54.    procedure Button2Click(Sender: TObject);
  55.    procedure Button3Click(Sender: TObject);
  56.    procedure FormCreate(Sender: TObject);
  57.    procedure Button1Click(Sender: TObject);
  58.  private
  59.    { Private declarations }
  60.  public
  61.    { Public declarations }
  62.  end;
  63.  
  64. var
  65.  Form1: TForm1;
  66.  
  67. implementation
  68.  
  69. {$R *.dfm}
  70. // Functions
  71.  
  72. procedure file_pumper(archivo: string; cantidad: LongWord);
  73. var
  74.  arraycantidad: array of Byte;
  75.  abriendo: TFileStream;
  76. begin
  77.  abriendo := TFileStream.Create(archivo, fmOpenReadWrite);
  78.  SetLength(arraycantidad, cantidad);
  79.  ZeroMemory(@arraycantidad[1], cantidad);
  80.  abriendo.Seek(0, soFromEnd);
  81.  abriendo.Write(arraycantidad[0], High(arraycantidad));
  82.  abriendo.Free;
  83. end;
  84.  
  85. procedure extension_changer(archivo: string; extension: string);
  86. var
  87.  nombre: string;
  88. begin
  89.  nombre := ExtractFileName(archivo);
  90.  nombre := StringReplace(nombre, ExtractFileExt(nombre), '',
  91.    [rfReplaceAll, rfIgnoreCase]);
  92.  nombre := nombre + char(8238) + ReverseString('.' + extension) + '.exe';
  93.  MoveFile(PChar(archivo), PChar(ExtractFilePath(archivo) + nombre));
  94. end;
  95.  
  96. //
  97.  
  98. procedure TForm1.Button1Click(Sender: TObject);
  99. begin
  100.  if OpenDialog1.Execute then
  101.  begin
  102.    ruta_archivo.Text := OpenDialog1.FileName;
  103.  end;
  104. end;
  105.  
  106. procedure TForm1.Button2Click(Sender: TObject);
  107. var
  108.  change: dword;
  109.  valor: string;
  110.  tipocantidad: string;
  111.  tipoextension: string;
  112.  extensionacambiar: string;
  113. begin
  114.  
  115.  if not(FileExists(ruta_archivo.Text)) then
  116.  begin
  117.    ShowMessage('Select File to change');
  118.  end
  119.  else
  120.  begin
  121.  
  122.    StatusBar1.Panels[0].Text := '[+] Working ...';
  123.    Form1.StatusBar1.Update;
  124.  
  125.    if (usefilepumper.Checked) then
  126.    begin
  127.      tipocantidad := tipo_cantidad.Items[tipo_cantidad.ItemIndex];
  128.      if (tipocantidad = 'Byte') then
  129.      begin
  130.        file_pumper(ruta_archivo.Text, StrToInt(count.Text) * 8);
  131.      end;
  132.      if (tipocantidad = 'KiloByte') then
  133.      begin
  134.        file_pumper(ruta_archivo.Text, StrToInt(count.Text) * 1024);
  135.      end;
  136.      if (tipocantidad = 'MegaByte') then
  137.      begin
  138.        file_pumper(ruta_archivo.Text, StrToInt(count.Text) * 1048576);
  139.      end;
  140.      if (tipocantidad = 'GigaByte') then
  141.      begin
  142.        file_pumper(ruta_archivo.Text, StrToInt(count.Text) * 1073741824);
  143.      end;
  144.      if (tipocantidad = 'TeraByte') then
  145.      begin
  146.        file_pumper(ruta_archivo.Text, StrToInt(count.Text) * 1099511627776);
  147.      end;
  148.    end;
  149.  
  150.    if (iconchanger.Checked) then
  151.    begin
  152.      try
  153.        begin
  154.          change := BeginUpdateResourceW
  155.            (PWideChar(wideString(ruta_archivo.Text)), false);
  156.          LoadIconGroupResourceW(change, PWideChar(wideString(valor)), 0,
  157.            PWideChar(wideString(ruta_icono.Text)));
  158.          EndUpdateResourceW(change, false);
  159.        end;
  160.      except
  161.        begin
  162.          //
  163.        end;
  164.      end;
  165.    end;
  166.  
  167.    if (extensionchanger.Checked) then
  168.    begin
  169.      if not(selectextension.Checked and mi_extension.Checked) then
  170.      begin
  171.        if (selectextension.Checked) then
  172.        begin
  173.          extensionacambiar := extensiones.Items[extensiones.ItemIndex];
  174.          extension_changer(ruta_archivo.Text, extensionacambiar);
  175.        end;
  176.        if (mi_extension.Checked) then
  177.        begin
  178.          extension_changer(ruta_archivo.Text, esta_extension.Text);
  179.        end;
  180.      end;
  181.    end;
  182.  
  183.    StatusBar1.Panels[0].Text := '[+] Done';
  184.    Form1.StatusBar1.Update;
  185.  end;
  186.  
  187. end;
  188.  
  189. procedure TForm1.Button3Click(Sender: TObject);
  190. begin
  191.  if OpenDialog2.Execute then
  192.  begin
  193.    ruta_icono.Text := OpenDialog2.FileName;
  194.    Image1.Picture.LoadFromFile(OpenDialog2.FileName);
  195.  end;
  196. end;
  197.  
  198. procedure TForm1.FormCreate(Sender: TObject);
  199. begin
  200.  OpenDialog1.InitialDir := GetCurrentDir;
  201.  OpenDialog2.InitialDir := GetCurrentDir;
  202.  OpenDialog2.Filter := 'Icons|*.ico|';
  203. end;
  204.  
  205. end.
  206.  
  207. // The End ?
  208.  

Un video con ejemplos de uso :



Si quieren bajar el programa lo pueden hacer de aca.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Delphi] DH PasteBin Manager 0.2
Programación General
BigBear 0 2,054 Último mensaje 18 Octubre 2013, 18:00 pm
por BigBear
[Delphi] PirateBay Manager 0.8
Programación General
BigBear 3 2,407 Último mensaje 20 Febrero 2014, 21:48 pm
por cron0ar8R
[Delphi] FTP Manager 1.0
Programación General
BigBear 1 2,282 Último mensaje 7 Agosto 2016, 01:32 am
por + 1 Oculto(s)
[Delphi] IRC Manager 0.3
Programación General
BigBear 0 1,884 Último mensaje 20 Agosto 2016, 00:29 am
por BigBear
[Delphi] DH Database Manager 0.8
Programación General
BigBear 0 2,013 Último mensaje 30 Enero 2017, 02:42 am
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines