Buenas chicos les traigo un renamer hecho en delphi , la verdad la forma como funciona es una tonteria
lo que hace es leer un fichero exe y lo convierte a string despues cuando genere los nuevos ficheros le agregara un nuevo string con un contenido aleatorio para que los archivos no posean el mismo hash
el proyecto esta hecho en delphi xe7 pero tendria que funcionar en cualquier version de delphi anterior con excepcion del skin que solo estan disponibles en las ultimas version de delphi
Hay mejores formas de realizar el renamer pero para los nuevos en delphi creo sera mas facil entenderlo
![]()
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
Button2: TButton;
ListBox1: TListBox;
Button3: TButton;
Edit2: TEdit;
Button4: TButton;
Button5: TButton;
Edit3: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
procedure generarFicheros; //genear los ficheros
function generarString(tamaño:integer):string; // generar un nuevo hash o md5
public
{ Public declarations }
end;
var
Form1: TForm1;
fichero:string;//obtendra el contenido del fichero seleccionado
extension:string;//almacenara la extension del fichero
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName:='';
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
fichero:= edit1.Text;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit2.Text<>'' then
begin
ListBox1.Items.Add(Edit2.Text);//añade la nueva palabra
Edit2.Clear; //limpia el edit
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if ((ListBox1.Items.Count=0) or (edit1.Text='')) then//si no se ha cargar palabras o el fichero
begin
showmessage('Error ha olvidado cargar los nombres o el fichero');
Exit;
end;
if not FileExists('Generados') then CreateDir('Generados'); //si no existe la carpeta la crea
extension:=Edit3.Text; // obtenemos la extension
generarFicheros; //genenramos los archivos nuevos
showmessage('Listo archivos generados ');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if ListBox1.ItemIndex<>-1 then
begin
ListBox1.DeleteSelected;//eliminamos alguna palabra selecccionada en el listbox
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
texto:TextFile;
linea:string;
begin
//lo de abajo nos leera el archivo txt con los nombres
OpenDialog1.FileName:='';
if OpenDialog1.Execute then
begin
AssignFile(texto,OpenDialog1.FileName);
try
reset(texto);
while not eof(texto) do
begin
readln(texto,linea);
ListBox1.Items.Add(linea);
end;
finally
CloseFile(texto);
end;
end;
end;
procedure TForm1.generarFicheros;
var
rd,rw:TFileStream;
buffer,salida:string;
I,valor: Integer;
begin
rd:=TFileStream.Create(fichero,fmOpenRead);
try
setlength(buffer,rd.Size);
rd.Read(buffer[1],rd.Size);
valor:=1;
for I := 0 to ListBox1.Items.Count-1 do
begin
rw:=TFileStream.Create('Generados\'+ListBox1.Items[i]+'.'+extension,fmCreate);
try
salida:=buffer+generarString(valor);
rw.Write(salida[1],length(salida));
inc(valor);
finally
rw.Free;
end;
end;
finally
rd.Free;
end;
end;
//generar un nuevo string que servira para cambiar el hash del fichero
function TForm1.generarString(tamaño: integer): string;
var
i: Integer;
cadena:string;
begin
randomize;
for i := 1 to tamaño do
begin
cadena:=cadena+chr(random(255));
end;
result:=cadena;
end;
end.
link:
[ Debe registrarse para ver este enlace ]
