Bypass studies

Bypass studies still works just update the address and bytes

[HTML]Function WriteIt(pAddress : Pointer ; bytes : Array of byte):Boolean;
var
dwprotect : dword;
begin
Result := false; // sempre comeca com resultado falso quando funcao = boolean
if VirtualProtect(pAddress, SizeOf(Bytes), PAGE_EXECUTE_READWRITE, @dwProtect) then
begin
Move(Bytes, pAddress^, Length(Bytes));
VirtualProtect(pAddress, SizeOf(Bytes), dwProtect, @dwProtect);
Result := True
end;
end;[/HTML]

[HTML]Procedure MultiRemove;
var
MensagemPAK: Array of Byte;
MM1,MM2,MM3,MM4,MM5,MM6,MM7 : Array of Byte;
begin
SetLength(MensagemPAK,3);
MensagemPAK[0] :=$0F;
MensagemPAK[1] :=$85;
MensagemPAK[1] :=$52;
SetLength(MM1,2);
MM1[0] :=$3D;
MM1[1] :=$B6;
SetLength(MM2,1);
MM1[0] :=$90;
SetLength(MM3,1);
MM1[0] :=$90;
SetLength(MM4,1);
MM1[0] :=$90;
SetLength(MM5,1);
MM1[0] :=$90;
SetLength(MM6,1);
MM1[0] :=$90;
SetLength(MM7,1);
MM1[0] :=$90;
begin
Writeit(ptr($006E8803),MensagemPAK);
Writeit(ptr($00773B5C),MM1);
Writeit(ptr($00763CC4),MM2);
Writeit(ptr($00763CC5),MM3);
Writeit(ptr($00763CC6),MM4);
Writeit(ptr($00763CC7),MM5);
Writeit(ptr($00763CC8),MM6);
Writeit(ptr($00763CC9),MM7);
end;
end;[/HTML]



By : ~Tio Lee!