sistema operacional Converter integer em Unicode ( numeros em letras ) dúvida...

[andersonh22 0]

Então galera , to com uma coisa martelando minha cabeça já faz um tempo , eu estou tentando converter um numero inteiro , em letras , peguei o address do nome do meu char pelo Cheat engine , dai quando eu tento converter , aparece apenas a primeira letra do nome , ja tentei de várias maneiras , mas quando não da erro , aparece apenas a primeira letra.... oq pode ser ? segue o codigo ai procedure TForm1.Timer25Timer(Sender: TObject); var aa,buf: integer; nob: DWord; begin GetWindowThreadProcessId(strtoint(Edit19.text), @processid); HPROCESS := Openprocess(process_all_access, false, processid); Readprocessmemory(HPROCESS, Pointer(PW_BASE_ADDRESS), @buf, sizeof(buf), nob); Readprocessmemory(HPROCESS, Pointer(buf + $1C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $2C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $6B0), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $0), @buf, sizeof(buf), nob); Label17.Caption:=Wchar(buf); end; Já tentei todos os tipos que vi na net , Widechar , PWidechar , Char , Pchar , Ansichar , ansiString entre outros.... Desde Já , Obrigado.

[DarkShade 52]

Está lhe faltando lógica de programação, mas ok. procedure TForm1.Timer25Timer(Sender: TObject); var [COLOR=#ff0000]name : array [0..255] of WideChar;[/COLOR] aa,buf: integer; nob: DWord; begin GetWindowThreadProcessId(strtoint(Edit19.text), @processid); HPROCESS := Openprocess(process_all_access, false, processid); Readprocessmemory(HPROCESS, Pointer(PW_BASE_ADDRESS), @buf, sizeof(buf), nob); Readprocessmemory(HPROCESS, Pointer(buf + $1C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $2C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $6B0), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $0), [COLOR=#ff0000]@NAME[0][/COLOR], sizeof([COLOR=#ff0000]name[/COLOR]), nob); Label17.Caption:= [COLOR=#ff0000]name[/COLOR]; end; @Edit: Modifiquei de Char para WideChar pois não li a parte do "Unicode".

[V3SGOOO 21]

[quote name='DarkShade']Está lhe faltando lógica de programação, mas ok. procedure TForm1.Timer25Timer(Sender: TObject); var [COLOR=#ff0000]name : array [0..255] of Char;[/COLOR] aa,buf: integer; nob: DWord; begin GetWindowThreadProcessId(strtoint(Edit19.text), @processid); HPROCESS := Openprocess(process_all_access, false, processid); Readprocessmemory(HPROCESS, Pointer(PW_BASE_ADDRESS), @buf, sizeof(buf), nob); Readprocessmemory(HPROCESS, Pointer(buf + $1C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $2C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $6B0), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $0), [COLOR=#ff0000]@NAME[0][/COLOR], sizeof([COLOR=#ff0000]name[/COLOR]), nob); Label17.Caption:= [COLOR=#ff0000]name[/COLOR]; end;[/QUOTE] pra ler uma string unicode teria que ter loop.. assim só vai retornar o valor do primeiro address

[DarkShade 52]

pra ler uma string unicode teria que ter loop.. assim só vai retornar o valor do primeiro address

Ta de sacanagem comigo né?

Execute a função meramente explicativa abaixo e me diga se precisa de loop. (¬_¬')

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

• Entre
• ou
• Cadastre-se

 

OBS: Estude um pouco sobre como um valor fica em memória e sobre o que é uma string.

[V3SGOOO 21]

[quote name='DarkShade']Ta de sacanagem comigo né? Execute a função meramente explicativa abaixo e me diga se precisa de loop. (¬_¬') [PHP]procedure BitchPlease(s : string); var buffer : array [0..255] of Char; begin ReadProcessMemory(DWORD(-1), @s[1], @buffer[0], SizeOf(buffer), a); ShowMessage(string(buffer)); end;[/PHP] OBS: Estude um pouco sobre como um valor fica em memória e sobre o que é uma string.[/QUOTE] --- Quero ver ler/escrever em unicode em um trainer .DLL sem usar loop ;) --- não tinha reparado que você estava usando widechar trabalho pouco com string (na vdd odeio trabalhar com isso e se precisei trabalhar 2x com unicode foi muito..) [PHP] function LerUnicode(NomeDaJanela : PAnsiChar; Address: DWORD): String; var PID : DWORD; ProcessHandle, Handle : THandle; Buffer : array[0..255] of WideChar; Read : Cardinal; begin try Handle := FindWindow(nil, NomeDaJanela); GetWindowThreadProcessId(Handle, @pid); ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); ReadProcessMemory(ProcessHandle, Pointer(Address), @buffer, SizeOf(Buffer), Read); Result := String(Buffer); except end; end; [/PHP] Como usar : Label1.Caption := LerUnicode(NomeDaJanela, $Address); [PHP] procedure EscreverUnicode(NomeDaJanela : PAnsiChar; Address: DWORD); var PID : DWORD; ProcessHandle, Handle : THandle; Write : Cardinal; Buffer : array[0..5] of WideChar; begin try Handle := FindWindow(nil, NomeDaJanela); GetWindowThreadProcessId(Handle, @pid); ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); StringToWideChar('Batata', Buffer, SizeOf(Buffer)); WriteProcessMemory(ProcessHandle, Pointer(Address), @buffer, SizeOf(Buffer), Write); // da pra melhorar algumas coisas nesse code + não vou fazer isso except end; end; [/PHP] Como usar : EscreverUnicode(NomeDaJanela, $Address); ------------ O autor do topico ja tem o necessario pra resolver o "problema"

[DarkShade 52]

Quero ver ler/escrever em unicode em um trainer .DLL sem usar loop

Não precisa de loop, os bytes ficam de forma contínua, basta saber o tamanho ou usar um buffer de tamanho maior e ler do início da mesma.

Eu mexo com memória, assembly e ponteiros a mais de 6 anos, ou seja, isso é muito simples.

[V3SGOOO 21]

Não precisa de loop, os bytes ficam de forma contínua, basta saber o tamanho ou usar um buffer de tamanho maior e ler do início da mesma.

Eu mexo com memória, assembly e ponteiros a mais de 6 anos, ou seja, isso é muito simples.

 

sim, é bem simples.. porem EU prefiro fazer desta forma (em dll) :

 

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

• Entre
• ou
• Cadastre-se

[DarkShade 52]

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

• Entre
• ou
• Cadastre-se