crypt.pas

CreateFile Hook with Delphi with AdvHooKLib

unit Crypt;

interface

uses Windows;

procedure CryptInit(var Key, Size: dword);
procedure CryptData(var Buffer; Offset, Size, Total: dword);

implementation

uses SysUtils;

var
  Key: array[0..$FFFF - 1] of byte;
  KeySize: word;

procedure CryptInit(var Key, Size: dword);
begin
  CopyMemory(@Crypt.Key, @Key, Size);
  KeySize := Size;
end;

procedure CryptData(var Buffer; Offset, Size, Total: dword);
var
  i: dword;
begin
  for i := 0 to Size - 1 do
    PByteArray(@Buffer)^[i] := PByteArray(@Buffer)^[i] xor (Key[Offset mod KeySize] + (Total - (Offset - Size + i)));
end;

end.