ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  f, i, j, flen, fread: integer;
  Buffer: PChar;
  repl, res : string;
begin
  repl := 'Azik'#0; // Сюда пишешь то, что надо заменить
  res := 'Hulo'#0; // Сюда пишешь такой же длины, на что меняем.
  f := FileOpen('test.exe',fmOpenReadWrite);
  flen := FileSeek(f, 0, 2);
  FileSeek(f, 0, 0);
  Buffer := PChar(AllocMem(flen + 1));
  fread := FileRead(f, Buffer^, flen);
  for i := 0 to fread - 1 - length(repl) do
    begin
      for j := 0 to length(repl) - 1 do
        if Buffer[i + j] <> repl[1 + j] then
          break;
      if j = length(repl) then  // Никогда не делай так!!! :) Мне можно =)
        begin
          FileSeek(f, i, 0);
          FileWrite(f, PChar(res)^, length(res));
        end;
    end;

  FreeMem(Buffer);
  FileClose(f);
end;

var 
ss:Tstrings;
begin
ss:=TStringList.Create;
ss.LoadFromFile('uins.txt');
ss.NameValueSeparator:=';';
ICQClient1.UIN := StrToInt(ss.Names[1]);
ICQClient1.Password := ss.ValueFromIndex[1];