Olá pessoal estou tentando fazer um trainer em Delphi pra jogos que usa aob como hack Eu quero proteger minhas aobs mas preciso saber como adicionar a função decrypt para funcionar no geral recebo erros e não sei o que fazer.
Como eu posso usar a função pra decriptar ao aob e depois ativar?
esse é o código original
Código:
const CKEY1 = 53761; CKEY2 = 32618; function EncryptStr(const S :WideString; Key: Word): String; var i :Integer; RStr :RawByteString; RStrB :TBytes Absolute RStr; begin Result:= ''; RStr:= UTF8Encode(S); for i := 0 to Length(RStr)-1 do begin RStrB[i] := RStrB[i] xor (Key shr 8); Key := (RStrB[i] + Key) * CKEY1 + CKEY2; end; for i := 0 to Length(RStr)-1 do begin Result:= Result + IntToHex(RStrB[i], 2); end; end; function DecryptStr(const S: String; Key: Word): String; var i, tmpKey :Integer; RStr :RawByteString; RStrB :TBytes Absolute RStr; tmpStr :string; begin tmpStr:= UpperCase(S); SetLength(RStr, Length(tmpStr) div 2); i:= 1; try while (i < Length(tmpStr)) do begin RStrB[i div 2]:= StrToInt('$' + tmpStr[i] + tmpStr[i+1]); Inc(i, 2); end; except Result:= ''; Exit; end; for i := 0 to Length(RStr)-1 do begin tmpKey:= RStrB[i]; RStrB[i] := RStrB[i] xor (Key shr 8); Key := (tmpKey + Key) * CKEY1 + CKEY2; end; Result:= UTF8Decode(RStr); end;
Código:
procedure TForm1.sButton5Click(Sender: TObject); begin try begin //$5FFFFFFF $5FFFFFFF if AOBScan(Cheat22, 0, $5FFFFFFF, 'D0 D0 66 xx xx xx xx xx xx 07 A1 xx xx xx xx D0 24 FF xx xx xx 07 A2 xx xx xx xx xx xx xx', True, True ,0) then begin WriteB_XX(Cheat22, 'Tr SY uY Yz rS rS rS rS rS rS rS nn nn nn nn nn SY uY Yz rS rS rS rS nn nn nn nn nn Sz Wv',CaesarRight); MessageBeep(MB_OK); sButton13.Caption := 'ON!'; //ShellExecute(Handle, 'OPEN', 'iexplore.exe', '-new http://adf.ly/1f2sXh/', '', SW_NORMAL); end else begin MessageBeep(MB_ICONSTOP); sButton13.Caption := 'OFF!'; end; end except end; end;
Código:
procedure TForm1.sButton5Click(Sender: TObject); begin try begin //$5FFFFFFF $5FFFFFFF if AOBScan(Cheat22, 0, $5FFFFFFF, 'D0 D0 66 xx xx xx xx xx xx 07 A1 xx xx xx xx D0 24 FF xx xx xx 07 A2 xx xx xx xx xx xx xx', True, True ,0) then begin WriteB_XX(Cheat22:=DecryptStr, 'Tr SY uY Yz rS rS rS rS rS rS rS nn nn nn nn nn SY uY Yz rS rS rS rS nn nn nn nn nn Sz Wv',CaesarRight); MessageBeep(MB_OK); sButton13.Caption := 'ON!'; //ShellExecute(Handle, 'OPEN', 'iexplore.exe', '-new http://adf.ly/1f2sXh/', '', SW_NORMAL); end else begin MessageBeep(MB_ICONSTOP); sButton13.Caption := 'OFF!'; end; end except end; end;
Como eu posso usar a função pra decriptar ao aob e depois ativar?
esse é o código original
Código:
procedure TForm1.sButton5Click(Sender: TObject); begin try begin //$5FFFFFFF $5FFFFFFF if AOBScan(Cheat22, 0, $5FFFFFFF, 'D0 D0 66 xx xx xx xx xx xx 07 A1 xx xx xx xx D0 24 FF xx xx xx 07 A2 xx xx xx xx xx xx xx', True, True ,0) then begin WriteB_XX(Cheat22, 'd0 25 E5 56 02 02 02 02 02 02 02 xx xx xx xx xx 25 E5 56 02 02 02 02 xx xx xx xx xx 26 48'); MessageBeep(MB_OK); sButton13.Caption := 'ON!'; //ShellExecute(Handle, 'OPEN', 'iexplore.exe', '-new http://adf.ly/1f2sXh/', '', SW_NORMAL); end else begin MessageBeep(MB_ICONSTOP); sButton13.Caption := 'OFF!'; end; end except end; end;