Delphi tutorial untuk search address dari suatu proses

Ada yg tau source code delphi untuk search address?
Misal :
kita mw cari address yg punya nilai value 10,, padahal bnyk address yg nilai valueny 10..
Jadi gmn carany untuk nentuin address yg benar?
Dan gmn cara nampilin smua address yg punya nilai value itu dalam 1 listbox?
Yg tau silahkan post di sini..

pusing dh -_-

@TS : ni utk sourcenya : http://adf.ly/246619/http://www.mediafire.com/?2miczwwz2ba

tes2 ah kali aja gagal wkakakaka

Yg aku minta bukan source CE..
Aku nyari source buat search address ajaa..

cari aja di dalam itu kk.. !!


kan aada source adreess nya juga d situ..

di situ source nya saling berhubungan satu sama lain..
susah nyarinya..
aku kan cuma pngen source addresna aja..
misal :
if ReadProcMemory(Pidhandle, Pointer(alamat),@nilai,sizeof(nilai),written) = true and nilai=nilaicari then hasilalamat:=alamat

BlacKDeviL13 wrote:

Ada yg tau source code delphi untuk search address?
Misal :
kita mw cari address yg punya nilai value 10,, padahal bnyk address yg nilai valueny 10..
Jadi gmn carany untuk nentuin address yg benar?
Dan gmn cara nampilin smua address yg punya nilai value itu dalam 1 listbox?
Yg tau silahkan post di sini..

Untuk menentukan address yg benar kita gunakan logika seperti menggunakan CE. Contohnya pada spamdart saat dialog kita cari nilai 10. seluruh addres yg nilainya 10 simpan dalam array memory. Selanjutnya batal dialog kita cari dalam array memory tadi yg berubah menjadi 0. Begitu seterusnya sampai dapat 1 address, berarti itulah address yg benar.

Source'ny gmn?
Logika'ny udh ngerti,, tp source code'ny masih ndak paham..

Kalau sudah ngerti logikanya sudah bagus... dari logika terjemahkan ke algoritma.. dari algoritma baru dibuat source codenya. Source code bisa berbeda2 yang penting algortima nya sudah benar.
Kalau ditanyakan sourcenya agak repot karena logika tersebut masih bersifat umum.

wah" ribet juga ya......

spamdart wrote:

Kalau sudah ngerti logikanya sudah bagus... dari logika terjemahkan ke algoritma.. dari algoritma baru dibuat source codenya. Source code bisa berbeda2 yang penting algortima nya sudah benar.
Kalau ditanyakan sourcenya agak repot karena logika tersebut masih bersifat umum.

bisa tolong terjemahin logika ini dlm bahasa delphi?

Selama alamat berada dalam jangkauan memori,,
jika value alamat = value yg dicari maka alamat disimpan..

Untuk alamat yg disimpan,,
jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus..

Tolong terjemahkan sekalian cek barangkali ada logika yang salah..

duh... pusing nih cara terjemahin dari logika ke algoritma.. !!



adreess CE nya slalu ngacak.. T_T

maka dari itu saya minta tolong kepada team spamdart untuk membantu..
namanya juga belajar..

nie juga baru search address nya,, belum inject nya..
wkwkwk

BlacKDeviL13 wrote:

spamdart wrote:

Kalau sudah ngerti logikanya sudah bagus... dari logika terjemahkan ke algoritma.. dari algoritma baru dibuat source codenya. Source code bisa berbeda2 yang penting algortima nya sudah benar.
Kalau ditanyakan sourcenya agak repot karena logika tersebut masih bersifat umum.

bisa tolong terjemahin logika ini dlm bahasa delphi?

Selama alamat berada dalam jangkauan memori,,
jika value alamat = value yg dicari maka alamat disimpan..

Untuk alamat yg disimpan,,
jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus..

Tolong terjemahkan sekalian cek barangkali ada logika yang salah..

contoh sederhananya gini :

for x:=alamatawal to alamatakhir do
begin
v:=nilaialamat(x);
if v=nilaidicari then then
begin
bufferalamat(y):=x;
buffernilai(y):=v;
inc(y);
end;
endl

untuk pencarian kedua :
for x:=1 to jumlahbuffer do
begin
if buffernilai(x)=nilaidicari2 then
begin
bufferalamat2(z):=bufferalamat(x);
buffernilai2(z):=buffernilai(x);
inc(z);
end;
end;

for x:=1 to jumlahbuffer2 do
begin
bufferalamat(x):=bufferalamat2(x);
buffernilai(x):=buffernilai2(x);
end;
jumlahbufer:=jumlahbufer2;


walau tidak sesederhana itu, mungkin sudah dapat gambarannya.

Perhatikan pencarian kedua saya coba dg algoritma yg berbeda.

Logika "jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus.." bisa dirubah dg logika "simpan value alamat yang sama dengan value ke-2 kedalam array memory cadangan, selanjutnya salin lagi ke memory utama"

Semoga sedikit membantu....

spamdart wrote:

BlacKDeviL13 wrote:

spamdart wrote:

Kalau sudah ngerti logikanya sudah bagus... dari logika terjemahkan ke algoritma.. dari algoritma baru dibuat source codenya. Source code bisa berbeda2 yang penting algortima nya sudah benar.
Kalau ditanyakan sourcenya agak repot karena logika tersebut masih bersifat umum.

bisa tolong terjemahin logika ini dlm bahasa delphi?

Selama alamat berada dalam jangkauan memori,,
jika value alamat = value yg dicari maka alamat disimpan..

Untuk alamat yg disimpan,,
jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus..

Tolong terjemahkan sekalian cek barangkali ada logika yang salah..

contoh sederhananya gini :

for x:=alamatawal to alamatakhir do
begin
v:=nilaialamat(x);
if v=nilaidicari then then
begin
bufferalamat(y):=x;
buffernilai(y):=v;
inc(y);
end;
endl

untuk pencarian kedua :
for x:=1 to jumlahbuffer do
begin
if buffernilai(x)=nilaidicari2 then
begin
bufferalamat2(z):=bufferalamat(x);
buffernilai2(z):=buffernilai(x);
inc(z);
end;
end;

for x:=1 to jumlahbuffer2 do
begin
bufferalamat(x):=bufferalamat2(x);
buffernilai(x):=buffernilai2(x);
end;
jumlahbufer:=jumlahbufer2;


walau tidak sesederhana itu, mungkin sudah dapat gambarannya.

Perhatikan pencarian kedua saya coba dg algoritma yg berbeda.

Logika "jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus.." bisa dirubah dg logika "simpan value alamat yang sama dengan value ke-2 kedalam array memory cadangan, selanjutnya salin lagi ke memory utama"

Semoga sedikit membantu....

Nice !!
Apakah bisa diberi sedikit gambaran mendetail seprti bagaimana cara menentukan alamat awal dan alamat akhir??
sama deklarasi dari variabel variabelnya?

Menentukan alamat awal dan akhir harus melalui pengamatan lewat CE, misalnya untuk address dialog biasanya berada di antara 0070000-01000000. Tapi kalau tidak pasti bisa saja range nya diperluas.

deklarasi variable seperti biasa kecuali untuk array :
bufferalamatr:array[1..1000000] of string;

Hmm,,
nilaialamat(x) tuh fungsi buat nyari value alamat x?
Brarti fungsi nilaialamat(x) pake fungsi readprocmemory?

BlacKDeviL13 wrote:

Hmm,,
nilaialamat(x) tuh fungsi buat nyari value alamat x?
Brarti fungsi nilaialamat(x) pake fungsi readprocmemory?

iya benar...

Function nilaialamat(var x:cardinal) :string
var
pidhandle:integer;
nilai: cardinal;
x:cardinal;
written:cardinal;
begin
result:='';
pidhandle:=openprocess(process_all_access,false,pid);
readprocmemory(pidhandle,pointer(x),@nilai,sizeof(nilai),written);
result:=result+inttostr(nilai);
closehandle(pidhandle);
end;

tolong fungsi itu di cek..
Apakah dah bner?

BlacKDeviL13 wrote:

Function nilaialamat(var x:cardinal) :string
var
pidhandle:integer;
nilai: cardinal;
x:cardinal;
written:cardinal;
begin
result:='';
pidhandle:=openprocess(process_all_access,false,pid);
readprocmemory(pidhandle,pointer(x),@nilai,sizeof(nilai),written);
result:=result+inttostr(nilai);
closehandle(pidhandle);
end;

tolong fungsi itu di cek..
Apakah dah bner?

Untuk mengecek source lebih enak langsung di delphinya ... kesalah sintax langsung diberitahu, kalau kesahana logika trace saja pakai F7

Mksd'ku,,
apakah itu fungsi nilaialamat(x) yg dimaksud kk tadi?

Trs mengenai buffer aku msh blm ngerti..
Apa kk ada artikel/tutorial mengenai buffer?
Aku dah cari di go*gle tapi malah nemu buffer yg lain..

spamdart wrote:

BlacKDeviL13 wrote:

spamdart wrote:

Kalau sudah ngerti logikanya sudah bagus... dari logika terjemahkan ke algoritma.. dari algoritma baru dibuat source codenya. Source code bisa berbeda2 yang penting algortima nya sudah benar.
Kalau ditanyakan sourcenya agak repot karena logika tersebut masih bersifat umum.

bisa tolong terjemahin logika ini dlm bahasa delphi?

Selama alamat berada dalam jangkauan memori,,
jika value alamat = value yg dicari maka alamat disimpan..

Untuk alamat yg disimpan,,
jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus..

Tolong terjemahkan sekalian cek barangkali ada logika yang salah..

contoh sederhananya gini :

for x:=alamatawal to alamatakhir do
begin
v:=nilaialamat(x);
if v=nilaidicari then then
begin
bufferalamat(y):=x;
buffernilai(y):=v;
inc(y);
end;
endl

untuk pencarian kedua :
for x:=1 to jumlahbuffer do
begin
if buffernilai(x)=nilaidicari2 then
begin
bufferalamat2(z):=bufferalamat(x);
buffernilai2(z):=buffernilai(x);
inc(z);
end;
end;

for x:=1 to jumlahbuffer2 do
begin
bufferalamat(x):=bufferalamat2(x);
buffernilai(x):=buffernilai2(x);
end;
jumlahbufer:=jumlahbufer2;


walau tidak sesederhana itu, mungkin sudah dapat gambarannya.

Perhatikan pencarian kedua saya coba dg algoritma yg berbeda.

Logika "jika value alamat tidak sama dengan value ke-2 yg dicari maka alamat dihapus.." bisa dirubah dg logika "simpan value alamat yang sama dengan value ke-2 kedalam array memory cadangan, selanjutnya salin lagi ke memory utama"

Semoga sedikit membantu....

masih bingung nih aku..


baahasanya sama kayak baahasa para master.. kowkowkowkwo

dracuelas wrote:

masih bingung nih aku..


baahasanya sama kayak baahasa para master.. kowkowkowkwo

bingung yg bagian mana?
Itu dah cukup sederhana untuk dimengerti..
Kira" ini artiny:
untuk x antara alamatawal sampai alamat akhir,,
jika value x=value yg dicari,, maka simpan x ke buffer alamat(y)

untuk x yg ada dlm buffer alamat(y),,
jika value x=value ke2 yg dicari,,maka simpan x ke buffer alamt(z)

BlacKDeviL13 wrote:

Mksd'ku,,
apakah itu fungsi nilaialamat(x) yg dimaksud kk tadi?

Trs mengenai buffer aku msh blm ngerti..
Apa kk ada artikel/tutorial mengenai buffer?
Aku dah cari di go*gle tapi malah nemu buffer yg lain..

maksudnya fungsinya sudah benar seperti itu.
Buffer disini cuma nama variable array saja, bisa diganti dg yg lain