comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] DH Server Manager 0.3

  • 0 Respuestas
  • 1579 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 24, 2015, 12:27:36 pm »
Un simple programa en Delphi para modificar ejecutables con las siguientes opciones :

  • File Pumper
  • Extension Spoofer
  • Icon Changer


Una imagen :



Código: Delphi
  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 No tienes permisos para ver links. Registrate o Entra con tu cuenta.

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1982
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3126
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3254
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Project Spartacus 1.0 (Regalo de Navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 1601
Último mensaje Diciembre 26, 2014, 11:54:34 pm
por n4pst3r
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2885
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX