Borland Delphi - Kendini silme kodu 'Bana Ait'

[ndngailesi]

Arkadaşlar bana bu kod lazımdı internetten baya bi araştırdım ama internette bulduğum kodların hiçbiri çalışmıyordu bende biraz zorladım ve kendim yaptım.

En üste implementation {$R *.dfm} bölümünün altına gelecek kod:

 procedure SelfDelete;
   var
   MMExe : TextFile;
   begin
     AssignFile(MMExe, 'C:\MM76-DEL.bat');
     ReWrite(MMExe);
     writeln(MMExe, 'ping 1.1.1.1 -n 1 -w 3000 > Nul & Del '+ ExtractFileName(application.exename));
     writeln(MMExe, 'ping 1.1.1.1 -n 1 -w 3000 > Nul & Del C:\MM76-DEL.bat');
     CloseFile(MMExe);
     application.Terminate;

Kodu Tetikleme kodu:

SelfDelete;
WinExec('C:\MM76-DEL.bat',0);

 

[h4emRe]

Eline sağlık, bi ara deneyeceğim.

 

[ndngailesi]

Eline sağlık, bi ara deneyeceğim.

Delphi'yi neden seçtim biliyormusun çünkü kendisine özel ***** koruması var ve extra vmprotect, upx gibi korumaları ekliyebiliyorsun c++ zor ve baya zor delphi biraz c# biraz vb.net birazda c++ ve c karşımı gibi bişey.