- Moderatör
- #1
#Ri
Coder
Pattern Çıkarma & Kodlama / How to extract Signature & Pattern
Merhaba millet.
Kodlama örneğini delphide gösterdim videoda mask'ı yanlış yazmışım ondan bulmamış fakat fonksiyonda sıkıntı yok
Çıkarttığınız patternleri Cheat Engine vs. memory scannerden taratırsanızda gene adreslere ulaşabilirsiniz
Delphi Pattern Scan Kodu / Delphi Pattern Scan Code
Kullanım / Ussage
Merhaba millet.
Kodlama örneğini delphide gösterdim videoda mask'ı yanlış yazmışım ondan bulmamış fakat fonksiyonda sıkıntı yok
Çıkarttığınız patternleri Cheat Engine vs. memory scannerden taratırsanızda gene adreslere ulaşabilirsiniz
Delphi Pattern Scan Kodu / Delphi Pattern Scan Code
Kod:
function Eslestir(iVeri: PByte; Maske: PByte; Maskesz: PChar): Boolean;
begin
while (Maskesz^ <> #0) do
begin
if (Maskesz^ = 'x') and (iVeri^ <> Maske^) then
begin
Result := false;
exit;
end;
Inc(Maskesz);
Inc(iVeri);
Inc(Maske);
end;
Result:= (Maskesz^ = #0);
end;
function PatternBul(Adres, UzunlukAdr : Cardinal; Maske : PBYTE; Maskesz : PCHAR) : Cardinal;
var
i : Cardinal;
begin
try
Result:= 0;
for i := 0 to UzunlukAdr-1 do
if(Eslestir(PBYTE(Adres + i), Maske, Maskesz)) then
begin
Result := Cardinal((Adres + i));
break;
end;
except
MessageBox(0,'Pattern Search Failed.. ????','Error',0);
end;
end;Kullanım / Ussage
Kod:
var
xmsg : string;
ady_hp : Cardinal;
const p_hp : Array[0..6] of Byte = ($8B, $08, $00, $00, $94, $08, $00);
begin
ady_hp := PatternBul($00000000 {Başlangıç - Start},$FFFFFFFF {Bitiş - End},@p_hp { array } ,'xx??xx?' { maske } );
xmsg := 'Bulunan Adres : 0x' + IntToHex(hp,8);
showmessage(xmsg);
end;
