Ajuda Delphi '-'

[pedrokkklol 0]

Olá sei que já é uma coisa mais dificil mais já que tem gente que pode ajudar irei pedir e sei que irão ajudar de boa vontade.

vamos lá ;D

 

Queria que com o click do botão mudasse o codigo /adress de uma dll n sei bem como falar

quero mudar esse codigo que está na dll

23 CA 75 32|8B 4C 24 14|50 8B 44 24|14 50 51 8B|4F 34 E8 4E|D4 C6 FF 8B|D0 C1 EA 02|83 E2 01 75|

para esse

90 90 75 32|8B 4C 24 14|50 8B 44 24|14 50 51 8B|4F 34 E8 4E|D4 C6 FF 8B|D0 C1 EA 02|83 E2 01 75|

eu já fiz no rex editor mais quero compartilhar isso então. não posso mandar o arquivo a game.dll ;D então só quero mandar o arquivo feito no delphi ai clicao e muda entende?

vlw pela ajuda dewsde já

[Owner 8]

Faz assim, no lugar de colocar essa Adress na DLL:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Você coloca o Adress num Memo, e na DLL você faz ele chamar o memo com a Adress, so um jeito fácil de mostrar:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

se quando for mudar, coloca no button:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E no Onclose do form você faz salvar o que está no memo em txt. Exemplo:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E pra toda fez carregar o memo, coloca no OnShow:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Acho que não expliquei bem rs ' mas qualquer coisa fala ai !

Acho que é só isso ! :amor:

[~OwneR~ 8]

@Owner '

Não brother, ele quer editar a DLL como num Hex Editor...

 

@pedrokkklol

Eu tenho uma source aqui que faz isso, vou procurar, se achar te aviso, ok?

[Owner 8]

Ahh ! Foi mal ai rsrs '

- Pensei que era outra coisa, mas tudo bem !

Esperando ~OwneR~ quero ver como é, pra eu entender (:

Malz ai denovo :amor:

[pedrokkklol 0]

mais teria que ser na dll não? pq o arquivo é muito grande.. no caso isso faz tirar o fog do mapa do jogo '-'

olha qualquer coisa ta aki o download do arquivo game.dll

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

ela compactada da 2.5 mb mais descopactada da quase 15 =/

 

Ok ~owner~ esperando obrigado

[Ryokusei 28]

Carrega a dll num objeto da classe TMemoryStream e edita daí, é mais fácil e rápido.

[pedrokkklol 0]

pode falar aonde fica ''TMemoryStream'' como fazer isso ?

[~OwneR~ 8]

Opa brother, não achei a source, mas eu lembro como faz (mais ou menos LOL, mas dá certo)...

Lembrando que eu não achei isso na DLL:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

O mais perto que eu achei foi esses dois:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Aproveita que eu estou bonzinho e pega esse code mastigado:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Leia e entenda o código ok? Não copie e cole apenas, tente aprender!

[pedrokkklol 0]

li o codigo fiz tudo... olha oque da =/

Eu coloco aki o primeiro codigo ?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

ai depois que eu faço tudo que vc disse clicko no botão

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

da esse erro '-'

[~OwneR~ 8]

O erro dá porque o código que os bytes a serem editados que você passou estão errados, como eu disse, eu só achei esses dois que são parecidos:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Quando você achar os bytes certos altere na array OLD

[luxfer 0]

pelo código do ~owner, parece que nao foi encontrado os valores

 

reveja do Hex

[pedrokkklol 0]

achei isso olhe.

 

01 00 00 00|D3 E8 3B C3|89 44 24 30|75 28 81 BF|14 08 00 00|64 02 00 00|75 1C B9 0D|00 00 00 89|

Edit to:

00 00 00 00|D3 E8 3B C3|89 44 24 30|75 28 81 BF|14 08 00 00|64 02 00 00|75 1C B9 0D|00 00 00 89|

 

Make units clickable:

Search:

75 29 53 8B|CF E8 24 A8|FE FF 85 C0|75 1D 5F 5D|5B 5E 59 C2|08 00 8B 4C|24 20 51 57|8B 7C 24 1C|

Edit to:

EB 29 53 8B|CF E8 24 A8|FE FF 85 C0|75 1D 5F 5D|5B 5E 59 C2|08 00 8B 4C|24 20 51 57|8B 7C 24 1C|

 

Reveal Illusions:

Search:

C3 CC CC CC|8B 41 08 85|C0 74 0F 6A|00 6A FE 68|10 71 A8 6F|50 E8 22 87|46 00 C3 CC|CC CC CC CC|

Edit to:

40 C3 CC CC|8B 41 08 85|C0 74 0F 6A|00 6A FE 68|10 71 A8 6F|50 E8 22 87|46 00 C3 CC|CC CC CC CC|

 

Reveal Invisibles:

Search:

74 27 39 6C|24 44 74 2B|66 8B 44 24|10 66 85 87|F4 01 00 00|74 1D 8B 8F|98 01 00 00|BA 01 00 00|

 

Edit to:

EB 27 39 6C|24 44 74 2B|66 8B 44 24|10 66 85 87|F4 01 00 00|74 1D 8B 8F|98 01 00 00|BA 01 00 00|

 

 

Show Runes:

Search:

EB 09 8B 44|24 20 0B F3|66 89 30 83|C5 02 03 DB|83 6C 24 1C|01 75 9F 5F|5E 5D 5B 83|C4 08 C2 10|

Edit to:

90 90 8B 44|24 20 0B F3|66 89 30 83|C5 02 03 DB|83 6C 24 1C|01 75 9F 5F|5E 5D 5B 83|C4 08 C2 10|

[~OwneR~ 8]

Então brother, a primeira linha você coloca no OLD e a segunda você coloca no NEW

Tipo assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Aí você completa a array New e faz a Old, se você não conseguir mesmo assim pode desistir brother .____."

[pedrokkklol 0]

eu alterei olha oque deu '-'

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[~OwneR~ 8]

Você pulou os valores em vermelho:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Enfim, se você quer do jeito que você fez, basta alterar o [0..31] para [0..29] (29 porque você passou 30 valores, aí conta com o zero).

Se você fazer o que eu disse acima, concerteza vai dar errado porque ele não vai achar os valores...

[pedrokkklol 0]

n é abusando mais como faço para colocar mais de 1 no tipo

coloco 3 check box

1 com uma opção se os 3 tiverem checados muda 3 veses o adress da dll 1 em cada check box .-.

[~OwneR~ 8]

Cria mais arrays, com os códigos que você quer...

Aí você muda lá no final:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Aí basta trocar as partes em vermelho pelos nomes das arrays.

[pedrokkklol 0]

//Isso você coloca abaixo das variaveis globais

const

Old: array[0..31] of Char = (#$23, #$CA, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

 

New: array[0..31] of Char = (#$90, #$90, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

 

//O código abaixo você coloca em algum evento (onClick de um botão por exemplo), apague o begin e end;

label

Skip;

var

DLL: String;

Stream: TFileStream;

Backup: TMemoryStream;

Buffer: array of Char;

i: Integer;

begiN

try

{Aqui é onde vai estar sua dll, mude para o que quiser, no exemplo é na pasta do projeto.}

DLL := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'game.dll';

Stream := TFileStream.Create(DLL, fmOpenReadWrite or fmShareExclusive); //Cria o stream...

SetLength(Buffer,Stream.Size); //Seta o tamanho da var Buffer para o tamanho do stream

 

Stream.Seek(0,0); //Vai para o início do stream

if MessageBox(Handle,'Deseja criar um backup?','PATCHER TROLOLOL',4 or $20) = mrYes then try

if FileExists(DLL+'.bak') then

if MessageBox(Handle,'Backup existente, deseja substituir?','PATCHER TROLOLOL',4 or $20) = mrNo then

goto Skip; //Se você apertar não na mensagem você vai para "Skip:"

{Aqui vai criar o backup, seria mais fácil com um CopyFile, mas que seja...}

Backup := TMemoryStream.Create;

with Backup do begin

SetSize(Stream.Size);

Position := 0;

CopyFrom(Stream,Stream.Size);

SaveToFile(DLL+'.bak');

end;

{Acabou o código pra criar o backup =D}

Skip: //Você vem pra cá, como eu citei anteriormente

except

MessageBox(Handle,'Falha ao criar Backup','ERRO',16);

end;

 

Stream.Seek(0,0); //Vai pro início do Stream de novo

Stream.Read(Buffer[0],Length(Buffer)); //Joga o stream para a var Buffer

i := Pos(String(Old),String(Buffer)); //Procura pela array Old dentro da array Buffer

if i = 0 then begin //Se não encontrar vai dar erro...

MessageBox(Handle,'Falha ao "patchear" o arquivo','ERRO',$10);

Exit;

end;

 

Stream.Seek(i-1,0); //Vai para onde está a array Old

Stream.Write(New,SizeOf(New)); //Escreve a array New na posição atual, substituindo a Old

finally

Stream.Free; //Libera o Stream

end;

MessageBox(Handle,'Arquivo patched com sucesso!','Sucesso',$40);

end;

qual seria o nome da ''arrays'' aki ?

 

e posso colocar no caso assim

 

 

 

arrai 1

const

Old: array[0..31] of Char = (#$23, #$CA, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

 

New: array[0..31] of Char = (#$90, #$90, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

 

arrai 2

const

Old: array[0..31] of Char = (#$23, #$CA, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

 

New: array[0..31] of Char = (#$90, #$90, #$75, #$32, #$8B, #$4C, #$24, #$14,

#$50, #$8B, #$44, #$24, #$14, #$50, #$51, #$8B,

#$4F, #$34, #$E8, #$4E, #$D4, #$C6, #$FF, #$8B,

#$D0, #$C1, #$EA, #$02, #$83, #$E2, #$01, #$75);

[~OwneR~ 8]

É, você vai criar mais 2 arrays, mas com nomes diferentes ok?

Tipo, você pode colocar o nome que quiser...

[pedrokkklol 0]

ei , obrigado funcionou mais aki como eu faço para ele pegar o diretorio do edit1?

{Aqui é onde vai estar sua dll, mude para o que quiser, no exemplo é na pasta do projeto.}

DLL := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'game.dll'; oque eu coloco ?

[~OwneR~ 8]

DLL := IncludeTrailingPathDelimiter(Edit1.Text)+'game.dll';

[pedrokkklol 0]

lol

 

Cria mais arrays, com os códigos que você quer...

Aí você muda lá no final:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Aí basta trocar as partes em vermelho pelos nomes das arrays.

mais n da ele da 1 erro deixa eu pegar o erro ai edito

pronto

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uploaded with

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[~OwneR~ 8]

Não é pra fazer isso... Eu disse pra alterar só o final (a parte em vermelho)!

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[pedrokkklol 0]

sim , mais eu queria só o stream , etilo sem essa parte do backup entende?

se poder ajudar de novo kkk abrs ;) sz

[~OwneR~ 8]

Velho, basta pensar um pouco... Basta remover a parte do backup duh

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Como eu disse, altere a parte em vermelho. Tá tudo na mão, agora se vira, não vou ajudar mais =)