Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Juda usar encrypt e decrypt

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Juda usar encrypt e decrypt

    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.


    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;
    Similar Threads
X
Working...
X