Johny SmartVir 4.0 [Synra Virus Lab™ Production]

Author      : Haze Lee Kaizera
Virus         : Johny SmartVir 4.0 [Johny Anti Ciduk]  
Licensi       : Freeware
Source code : Dari visual basic Script , source code boleh disebarluaskan/diedit atau disempurnakan. :)

Kali ini kaiz menciptakan Johny Smart Virus versi ke 4,
johny kali ini menurut saya lebih kriminal lagi hahaha
Karena kemampuan Johny SmartVir 4.0 adalah menyembunyikan suatu file ke dalam file yang berformat .exe

kalo menyembunyikan file kedalam gambar itu udah biasa ,
tetapi kalau menyembunyikan file dalam file berformat .exe

Johny SmartVir v4.0 yang bisa :D . nah ini adalah alasan mengapa kaiz memberi nick virus ini "Johny Anti ciduk"

Menurut kaiz Johny kali ini lebih kriminal dari johny sebelumnya karena kemampuanya hampir sama dengan tehnik binder

Apa itu Binder? huahaha itu mainanya para senior hanya dimengerti oleh orang yang udah mastah dan org2 yg mempunyai gelar Trojan sealer atau The scriptor.

Tapi intinya johny anti ciduk bisa menyembunyikan file pornonya , file privasinya , atau bahkan menyisipikan kumpulan Virus dan trojan kedalam suatu file berformat .exe . sehingga tidak ada yg mengetahui isi file yg disembunyikan kecuali si johny itu sendiri. bahkan anti viruspun tak akan mampu mendeteksi. ya itu klo AVnya gak diupdate

Yaudah selamat berpartner dengan si johny anti ciduk , kenapa namanya johny?
because johny mean DICK ! akakkakakak

johny adalah nama panggilan kesayangan saya kepada sahabat saya .
dan virus vbs ini didedikasikan untuk sahabat saya.

Silahkan Download Programnya Disini :
http://www.4shared.com/file/yZk7zdER/13Johny_SmartVir_40.html






Jika programnya telah didownload , jangan lupa diekstrak. maka akan muncul 3 file :
- Johny Anti Ciduk.exe
- Johny The Dick.exe /yoga yurisna fajar.exe
- Synra Black Biologic Weapon.exe [ini apa ya? akakakakkaka]

Simulasinya begini ,
Johny the dick hendak menyembunyikan Synra Black Biologic Weapon kedalam tubuh Johny Anti Ciduk agar tidak ada seorangpun yang mengetahui file rahasianya dan juga agar tidak terdeteksi oleh Anti virus.

Hal pertama yang harus dilakukan adalah , Synra Black Biologic weapon harus dimasukan dulu kedalam .Rar Seperti yang ada pada gambar dibawah ini :



Lalu double click Johny The Dick , lalu pilih Open Johny Anti Ciduk



Lalu masukan file yang akan disembunyikan , misalnya Synra Black Biologic Weapon.rar



Lalu simpan dengan nama JohnyAntiCidukSBBW.exe
[penyimpanan nama tidak boleh menggunakan spasi&harus berekstensi .exe]



Maka akan muncul nag screen seperti ini , pilih ok lalu tekan enter .



Jika berhasil maka akan muncul sebuah file exe , bernama JohnyAntiCidukSBBW.exe
Disitulah tempat hasil file-file rahasia yang telah kita sembunyikan.



Cara Membuka file rahasianya

Kilik kanan file hasil Anda contoh: JohnyAntiCidukSBBW.exe
Pilih Open with WinRAR atau WinRAR > Open with WinRAR
Setelah itu ekstrak file rahasianya untuk mengembalikanya lagi.

-------------------------------------------------------------------------- 
Penampakan Synra Black Biologic Weapon :

http://amik-garut.blogspot.com/2011/08/synra-black-biologic-weapon.html

-------------------------------------------------------------------------- 

Johny SmartVir 1.0 [Synra Virus Lab™ Production]

http://amik-garut.blogspot.com/2011/08/johny-smartvir-10-synra-virus-lab.html

Johny SmartVir 2.0 [Synra Virus Lab™ Production]

 http://amik-garut.blogspot.com/2011/08/johny-smartvir-20-synra-virus-lab.html

Johny SmartVir 3.0 [Synra Virus Lab™ Production]

http://amik-garut.blogspot.com/2011/08/johny-smartvir-30-synra-virus-lab.html

------------------------------------------------------------------------------------------------
Source code : Source code boleh disebarluaskan/diedit atau disempurnakan. :)
-------------------------------------------------------------------------------------------------

On Error Resume Next
Buka()
Kerja()
Hapus()

Sub Buka()
Dim commonDlg, com, Peringatan
Dim FSO, input, Text, commonDlg2
Set commonDlg = CreateObject("UserAccounts.CommonDialog")
commonDlg.Filter = "Executable File (*.exe)|*.exe"
com = commonDlg.ShowOpen
If com = False Then
Peringatan = MsgBox ("Apa tuan mau meninggalkan saya?",vbYesNo + vbDefaultButton2, "Johny Anti Ciduk")
If Peringatan = vbYes Then
Wscript.Quit
else
Buka()
End If
End If

Set commonDlg2 = CreateObject("UserAccounts.CommonDialog")
commonDlg2.Filter = "WinRAR File (*.rar)|*.rar|Winzip File (*.zip)|*.zip|7-Zip File (*.7z)|*.7z"
com = commonDlg2.ShowOpen
If com = False Then
Peringatan = MsgBox ("Apa tuan mau meninggalkan saya?",vbYesNo + vbDefaultButton2, "Johny Anti Ciduk")
If Peringatan = vbNo Then
Buka()
else
Wscript.Quit
End If
End If

input = inputBox("Simpan file yg telah disisipi dengan akhiran [.exe] ","Johny Anti Ciduk")
If input = False Then
Peringatan = MsgBox ("Apa tuan mau meninggalkan saya??",vbYesNo + vbDefaultButton2, "Johny Anti Ciduk")
If Peringatan = vbYes Then
Wscript.Quit
else
Buka()
End If
End If

If input = "" Then
Peringatan = MsgBox ("Kolom nama file hasil tidak di isi, file gagal disembunyikan" & vbcrlf & "Apa tuan mau meninggalkan saya?",vbYesNo, "Johny Anti Ciduk")
If Peringatan = vbYes Then
Peringatan = MsgBox ("Apa tuan hendak lagi mengulang dari awal?",vbYesNo + vbDefaultButton1, "Johny Anti Ciduk")
If Peringatan = vbYes Then
Buka()
else
Hapus()
Wscript.Quit
End If
End If
End If

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Text = FSO.CreateTextFile("hidertmp.bat")
Text.Write "copy /b "
Text.Write Chr (34)
Text.Write commonDlg.FileName
Text.Write Chr (34)
Text.Write " + "
Text.Write Chr (34)
Text.Write commonDlg2.FileName
Text.Write Chr (34)
Text.Write " "
Text.Write input
Text.Close
End Sub

Sub Kerja()
Dim wshShell, Wsh, Path
Set wshShell = wscript.CreateObject("WScript.Shell")
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.Run "cmd.Exe"
Wscript.Sleep 125
Wshshell.Sendkeys "(hidertmp.bat)"
Wshshell.Sendkeys "{ENTER}"
Wshshell.Sendkeys "(exit)"

Path = Left(Wscript.ScriptFullName, Len(Wscript.ScriptFullName) - Len(Wscript.ScriptName))
MsgBox "Selesai" &vbCrlf& "File telah disembunyikan di: " & Path & "" & vbCrlf & "Tekan Enter dua :D " & vbCrlf & "" & vbCrlf & "Johny Anti Ciduk",vbInformation, "Johny Anti Ciduk"
End Sub

Sub Hapus()
On Error Resume Next
CreateObject("Scripting.FileSystemObject").DeleteFile ("hidertmp.bat")
End Sub

--------------------------------------------------------------------------

Credit And Thank you :
- All Synra Team
- Bpk.Aswan [Marketing And Instructor]
- Bpk.Erwan [Linker And back Uper]
- Bpk.Aril [Websmaster]
- Bpk.Cecep [Programmer]

Learn The Technique At :
=========================
www.amik-garut.blogspot.com
www.Synra.blogspot.com

Visit My Home :
=========================
www.hazekaizerhome.blogspot.com

--------------------------------------------------------------------------

Virus ini hanya digunakan Untuk edukasi Semata. Saya berharap virus ini tidak disalah gunakan Segala kerusakan dan kerugian yang menimpa. Silahkan ditanggung sendiri.

Regard
Haze Lee Kaizera The Scriptor